チェックボックスについて (ID:118203)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 あこさん、はまりましたね(^^; チェックボックスは結構いやらしいんです。 基本的にはこれでいいはずです。 Private Sub chk_box_Click(Index As Integer) Static flg As Boolean If flg = True Then chk_box(Index) = vbUnchecked Exit Sub End If flg = True If MsgBox("確認", vbYesNo, "処理をしますか？") = vbYes Then Select Case Index Case 0 To 4 '印刷処理 Case 2 '何かの処理 Case 3 '..... End Select End If chk_box(Index).Value = vbUnchecked flg = False End Sub