Private Sub 工作時數輸入2_Click()
Call 工作時數輸入表單2_設定
工作時數輸入表單2.Show
End Sub
Sub 工作時數輸入表單2_設定()
Dim IA As Integer '整數 -32,768~32767
工作時數輸入表單2.年月選單區.Clear
For IA = Sheets("TEMP").Range("F9").Value To 11 Step -1
工作時數輸入表單2.年月選單區.AddItem Sheets("TEMP").Range("F" & IA).Value
Next IA
工作時數輸入表單2.年月選單區.ListIndex = 0
For IA = 11 To Sheets("TEMP").Range("I9").Value
.AddItem
.List(IA - 11, 0) = Sheets("TEMP").Range("I" & IA).Value
.List(IA - 11, 1) = Sheets("TEMP").Range("J" & IA).Value
Next IA
End With
For IA = 11 To Sheets("TEMP").Range("R9").Value
.AddItem
.List(IA - 11, 0) = Sheets("TEMP").Range("R" & IA).Value
.List(IA - 11, 1) = Sheets("TEMP").Range("S" & IA).Value
Next IA