ввод данных из текстового поля пользовательской формы vba в ячейку электронной таблицы в зависимости от времени и даты - PullRequest
Новая
       11

ввод данных из текстового поля пользовательской формы vba в ячейку электронной таблицы в зависимости от времени и даты

0 голосов
/ 15 ноября 2018

Последние несколько недель это поражало меня, исследования пока не дали мне ответа.

У меня есть форма пользователя с набором текстовых полей для ввода данных каждый час (в форме есть поле со списком часов, которые выбирает пользователь). Затем эти данные должны быть отправлены на лист в соответствующие ячейки под заголовками столбцов (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

Спасибо, что нашли время, чтобы прочитать это.

...