vba - 如果选择了特定选项按钮，如何指定组合框值的位置？

Question

我正在尝试自动化我的工作时间表，我想要的是当我选择星期一、星期二、星期三等时。组合框（包含工作小时数）目标将更改为特定列。

我目前拥有的代码如下：

Private Sub cmdAdd_Click()
Dim LastRow As Long, ws As Worksheet

Set ws = Sheets("Timesheet")

LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row + 1 row

ws.Range("B" & LastRow).Value = JobNumber.Text
ws.Range("C" & LastRow).Value = JobDescription.Text

'clear the data
 Me.JobNumber.Value = ""
 Me.JobDescription.Value = ""
 Me.Monday.Value = ""
 Me.Tuesday.Value = ""
 Me.Wedensday.Value = ""
 Me.Thursday.Value = ""
 Me.Friday.Value = ""
 Me.Saturday.Value = ""
 Me.Sunday.Value = ""
 Me.NumberOfHours.Value = ""
 Me.JobNumber.SetFocus

End Sub

Private Sub cmdClear_Click()
Unload Me
TimesheetForm.Show
End Sub

Private Sub UserForm_Initialize()

 JobNumber.RowSource = "JobNumberList"
 JobDescription.RowSource = "JobDescriptionList"

 With Me.NumberOfHours
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
End With

End Sub

标签： vbaexcelcombobox