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

名前

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

本文 こんにちは。 下記のコードで試してみたのですが・・ チェックされていた処理が終了すると 次のチェックされた処理が 走ってしいまいました。 ・・フォームを触れないようにしたりしても チェックはされているのですが 下記の方法以外で なにかいい方法ありましたら またよろしくお願いいたします。 Private chkbox_flg as Integer 'フラグ（フォーム内のグローバル） Private Sub chk_box_Click(Index As Integer) Dim i As Integer Dim i_response As Integer If chkbox_flg = 1 Then Exit Sub form1.Enabled = False pi_index = 0 If chk_box(Index).Value = vbChecked And chkbox_flg = 0 Then chkbox_flg = 1 pi_index = Index '選択リスト設定 i_response = MsgBox("確認", vbYesNoCancel, "印刷しますか？") Select Case i_response Case vbYes, vbNo '印刷処理を行う 'EXCEL出力処理 Case Else End Select End If 'チェックボックスの初期化 For i = chk_box.LBound To chk_box.UBound chk_box(i).Value = vbUnchecked Next i form1.Enabled = True '自画面の使用可 form1.SetFocus End Sub