Question

急急急！如何将VBA窗体中数据保存到指定工作表！

问题1：
如图所示，我想将左边 窗体 里面的数据导入到表“书籍借阅流水账”里面。因为存在一个工作簿中包含多张表的情况；所以要求：不论用户是在哪张表中浏览，只要用户调用 =了这个窗体录入了数据，那么窗体中的数据都保存到“书籍借阅流水账”这张表中！

问题2：
如何将comboBox（复合框）控件的下拉菜单中的选项指定为某工作表中的某些特定位置。
例如图中，将“书籍名称”复合框的下拉菜单选项指定为工作表“辅助页”！A列 。
问题3：
如何将vba中 date and time picke控件选中日期 默认为当天！

另：
问题1中的我写的代码如下，它保存的数据总是在当前表中，不能保存到指定表格中！困惑啊，不知道怎么写这代码！
Private Sub cbmOK_Click()
Dim EmptyRow As Variant
If cbSJMC.Text = "" Then
'要求输入姓名
MsgBox "请选择书籍名称！"
cbSJMC.SetFocus
Exit Sub
End If
If cbJSR.Text = "" Then
'要求输入借书人
MsgBox "请选择借书人！"
cbJSR.SetFocus
Exit Sub
End If
If cbJSTS.Text = "" Then
'要求输入借书天数
MsgBox "请选择借书天数！"
cbJSTS.SetFocus
Exit Sub
End If
'获取空行的行号
EmptyRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(EmptyRow, 1) = cbSJMC.Text
Cells(EmptyRow, 6) = cbJSR.Text
Cells(EmptyRow, 7) = DTPicker1
Cells(EmptyRow, 8) = cbJSTS.Text
MsgBox "亲，借书信息已经登记完成了！" '提示保存成功的信息
Unload 借书录入窗口
End Sub

Answer 1

'问题1：指定工作表格就行，看一下代码你就会明白
Sub test1()
With Sheets("书籍借阅流水账")
.Cells(1, 1) = Timer
End With
End Sub
'----------------

'问题2：comboBox??，直接上代码
Sub test2()
Dim s
With UserForm1.ComboBox1
.AddItem "辅助页!1"
.ListIndex = 0
s = Split(.Text, "!")
End With

With Sheets(s(0))
.Cells(1, 1).Resize(1, 2) = s '1就是A列
End With
End Sub
'----------------
'问题3：
Sub test3()
Dim d
d = Date
MsgBox d
End Sub
'---------------
'别人的代码我不太爱看，你的问题应该没有难度，自己再好好看看。