Используйте пользовательскую форму VBA для выбора проекта, даты и ставки оплаты. - PullRequest
0 голосов
/ 19 февраля 2020

У меня есть лист Excel, который я хочу использовать, где кто-то может выбрать проект (столбец A = Project1, Project2 ..), дату (строка 1) и ставку оплаты (строка 2 = x1, x1.5 и x2 ) затем введите количество часов, которое будет заполнять правильную ячейку. Будет конец тысяч проектов и охватит целый год, отсюда и причина ввода. Я попытался использовать прилагаемый код, однако в итоге возникло несколько проблем.

  1. Списки заканчиваются пробелами между ними и
  2. Я не могу заставить код взять данные формы ввода и поместить их в правильную ячейку.

Я попытался выполнить поиск в 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...