さまざまな月を選択するためのチェックボックス

Question

ユーザーフォーム内で、他の複数のチェックボックス（月）を選択するチェックボックスをコーディングしています。これは、ユーザーがそれぞれをクリックするのではなく、12ヶ月すべてを選択できるようにするためです。以下は私が書いたコードです。私は今何が間違っていますか？

Private Sub Selectbox_AfterUpdate() 
Dim x As Integer 

If Me.Selectbox.Value = True Then 
For x = 0 To 12 
Me.Controls("Month" & x).Value = True 
Next x 
Me.Selectbox.Caption = "Deselect All" 

ElseIf Me.Selectbox.Value = False Then 
For x = 0 To 12 
Me.Controls("Month" & x).Value = False 

Next x 
Me.Selectbox.Caption = "Select All" 

End If 

End Sub 

Answer 1

12ヶ月あります。

For x = 0 To 12 

それはあなたが使用している名前に依存だ

For x = 1 To 12 

に変更します。

Answer 2

TrueまたはFalseをチェックしないで、vbCheckedまたはvbUncheckedを確認してください。また、ループには1回の反復回数があります。あなたのコードは次のようになります：

Private Sub Selectbox_AfterUpdate() 
    Dim x As Integer 

    If Me.Selectbox.Value = vbChecked Then 
     For x = 1 To 12 
     Me.Controls("Month" & x).Value = vbChecked 
     Next x 

     Me.Selectbox.Caption = "Deselect All" 
    ElseIf Me.Selectbox.Value = vbUnchecked Then 
     For x = 1 To 12 
     Me.Controls("Month" & x).Value = vbUnchecked 
     Next x 

     Me.Selectbox.Caption = "Select All" 
    End If 
End Sub