如何使用if語句構建VBA循環

Question

我對 VBA 代碼很陌生，仍在學習過程中。
我正在處理的項目中，我必須根據組合框值（例如，如果組合框值“01”那么用戶表單數據應傳輸到 TMA01 表）將用戶表單數據填充到每個工作表（“TMA01 到 TMA31”表名稱）等等）。

請提前幫助並感謝您

我試過下面的代碼但沒有成功

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    If Me.Combday.Value = "01" Then
        ws("TMA01").Active     'Sheetname(TMA01) 
    End If

    ws.Range("B2").Value = Me.TextEmpnameUF3.Text
    ws.Range("B3").Value = Me.TextDep.Text
    ws.Range("B4").Value = Me.Combday.Text
    ws.Range("C4").Value = Me.Combmonth.Text
    ws.Range("D4").Value = Me.Combyear.Text
next 

Answer 1

試試這個，你可以直接用組合框設置 ws 。

Dim ws As Worksheet

' validate ComboBox
If Combday.Value <> "" Then
    'set ws with value ComboBox
    Set ws = Sheets("TM" & Combday.Value)
    ws.Range("B2").Value = Me.TextEmpnameUF3.Text
    ws.Range("B3").Value = Me.TextDep.Text
    ws.Range("B4").Value = Me.Combday.Text
    ws.Range("C4").Value = Me.Combmonth.Text
    ws.Range("D4").Value = Me.Combyear.Text
End If