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

with sheets("书籍借阅流水账")
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
end with

Answer 2

您好！
您提出的问题的解答如下：
问题1：请把您下面这段替换成新的代码'--------------------------------------Cells(EmptyRow, 1) = cbSJMC.TextCells(EmptyRow, 6) = cbJSR.TextCells(EmptyRow, 7) = DTPicker1Cells(EmptyRow, 8) = cbJSTS.TextMsgBox "亲，借书信息已经登记完成了！" '提示保存成功的信息'--------------------------------------替换成：'--------------------------------------Sheets("书籍借阅流水账").Cells(EmptyRow, 1) = cbSJMC.TextSheets("书籍借阅流水账").Cells(EmptyRow, 6) = cbJSR.TextSheets("书籍借阅流水账").Cells(EmptyRow, 7) = DTPicker1Sheets("书籍借阅流水账").Cells(EmptyRow, 8) = cbJSTS.TextMsgBox "亲，借书信息已经登记完成了！" '提示保存成功的信息'--------------------------------------
问题2：假设你的窗体控件名为“Userform1”，其中的复合框名称为“ComboBox1”，需要
植入ComboBox1选项的内容是“辅助页”的所有A列内容，那么请在Userform1的
Initialize事件中（即Private Sub UserForm_Initialize()中：在Userform1右击选择查看代
码，然后VBE窗口右上角可以选择此控件的事件）添加这句话： Dim totalRows As Long totalRows = Sheets("辅助页").UsedRange.Rows.Count For i = 1 To totalRows Me.ComboBox1.AddItem (Range("A" & i).Value) Next
问题3：如果你的时间控件名称为“DTPicker1”，窗体控件名为“Userform1”，那么请在
Userform1的Initialize事件中（即Private Sub UserForm_Initialize()中：在Userform1右
击选择查看代码，然后VBE窗口右上角可以选择此控件的事件）添加这句话： Me.DTPicker1.Day = Day(Now() + 1)