将vba用户窗体文本框中的数据输入到电子表格单元格中，具体取决于时间和日期

Question

在过去的几周里，这一直困扰着我，研究还没有找到答案。

我有一个带有一组文本框的用户窗体，用于每小时输入数据（窗体有一个带有用户选择的小时数的组合框）。然后，应将此数据发送到工作表中列标题（z1，z2等）下的各个单元中，并根据时间和日期发送到相应的行中。用户表单上有一个显示当前日期的标签，我试图获取读取当前日期的代码，然后在组合框中选择时间并将数据放入单元格中。

我当前收到对象必需错误。在日期标签上。我定义了这个错误吗？

当我更改代码并删除“日期”时，代码将在整个列中将所有文本单元格实际填充为“ TextBox193”等，分别对应于指定的范围，我是否在此处缺少命令/代码段来更具体地设置目的地？

Private Sub Commandbutton1_Click()
Application.ScreenUpdating = False
Dim formDate
Dim formTime As Variant
Dim ws As Worksheet
Dim LastRow As Long

'Destination sheet
Set ws = Sheet59
 'Label on userform displaying current date
    Set formDate = UserForm1.Label35
'Label on userform diplaying a set time on the half hour (if within a 
certain range)
    Set formTime = UserForm1.ComboBox1
'Range Columns
Range("E2").Value = TextBox193.Text
Range("G2").Value = TextBox194.Text
Range("I2").Value = TextBox195.Text
Range("K2").Value = TextBox196.Text
Range("M2").Value = TextBox197.Text
Range("O2").Value = TextBox198.Text
Range("Q2").Value = TextBox199.Text
Range("S2").Value = TextBox200.Text
Range("U2").Value = TextBox201.Text

Dim x As Integer
For x = 193 To 201
Me.Controls("textbox" & x).Value = ""
Next x
Cancel = MsgBox("Data Input Successful")

Me.Hide

Application.ScreenUpdating = True
End Sub

感谢您抽出宝贵的时间阅读本文章。