タイトル : (解決)複数チェックボックスの連動について 投稿日 : 2008/08/12(Tue) 18:59 投稿者 : ダリア
るしぇ様へ 早速のアドバイスありがとうございます。 フラグを使うことは全く頭になくて、目から鱗の思いです。 おかげさまで上手く動くことが出来ました。 ありがとうございます。 フラグを2つ使ったプログラムを以下に載せます。 (A_CHECKにもフラグが要りますよね?) Private Sub A_CHECK_ALL_Click() Dim i As Integer Flag_A_ALL = True If Flag_A = False Then With frmDiagSelect If .A_CHECK_ALL.Value = 1 Then For i = 0 To 7 If .A_CHECK(i).Enabled = True Then .A_CHECK(i).Value = 1 End If Next i Else For i = 0 To 7 .A_CHECK(i).Value = 0 Next i End If End With End If Flag_A_ALL = False End Sub Private Sub A_CHECK_Click(Index As Integer) Flag_A = True If Flag_A_ALL = False Then With frmDiagSelect For Index = 0 To 7 If .A_CHECK(Index).Value = 0 And .A_CHECK(Index).Enabled = True Then .A_CHECK_ALL.Value = 0 Flag_A = False Exit Sub End If Next Index .A_CHECK_ALL.Value = 1 End With End If Flag_A = False End Sub |