У меня есть лист Excel, который я хочу использовать, где кто-то может выбрать проект (столбец A = Project1, Project2 ..), дату (строка 1) и ставку оплаты (строка 2 = x1, x1.5 и x2 ) затем введите количество часов, которое будет заполнять правильную ячейку. Будет конец тысяч проектов и охватит целый год, отсюда и причина ввода. Я попытался использовать прилагаемый код, однако в итоге возникло несколько проблем.
- Списки заканчиваются пробелами между ними и
- Я не могу заставить код взять данные формы ввода и поместить их в правильную ячейку.
Я попытался выполнить поиск в Google и YouTube, но мне не повезло, и моя способность "кодировать" - базовая c ... очень базовая c, и большая часть кода ниже взята из других источников. Спасибо за любую помощь
Option Explicit
Dim rData As Range
Private Sub cbExit_Click()
Me.Hide
Unload Me
End Sub
Private Sub cbUpdate_Click()
rData.Cells(Me.CBO_Project.ListIndex + 2, Me.CBO_Dates.ListIndex + 2).Value = txt_Time.Value
Call cbExit_Click
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
'CBO_Dates, CBO_Projects and CBO_Measure are my combo boxes.
Set rData = Worksheets("Test").Cells(1, 1).CurrentRegion
With rData
For i = 2 To .Columns.Count
Me.CBO_Dates.AddItem .Cells(1, i).Value
Next i
For i = 2 To .Rows.Count
Me.CBO_Project.AddItem .Cells(i, 1).Value
Next i
For i = 2 To .Rows.Count
Me.CBO_measure.AddItem .Cells(2, i).Value
Next i
End With
End Sub