Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44797 / 76732

←次へ　｜　前へ→


	【36946】Re:オプションボタンをクリックしないと...

saru@

- 06/4/18(火) 19:28 -


	引用なし

	パスワード

neptune さんお世話になって本当にありがとうございます。
だるまさん、ぱっせんじゃーさんヒントいただいてありがとうございます。
成功いたしましたので本当に助かりました。

いろいろやってみたがだめでした。
フォーム起動時に登録ボタンを押せないようにプロシージャはだめでした。
作動できなかった。原因はわかりませんでした。
'Private Sub frmYearRank_Initialize()
　 ' Me.cmdNo.Enabled = False
　 ' Me.cmdIyes.Enabled = False
　 ' Me.cmdHyes.Enabled = False
　 ' Me.cmdIHYes.Enabled = False
'End Sub

下記の方法でやってみましたら成功いたしました。
登録ボタンクリック実行で
オプションボタンクリックしてるかと調べて
クリックしていないと登録ボタン無効化します。
オプションボタンクリックしたら登録ボタン有効化します。
と方法を変えてみましたが作動できました。
無駄なところがありましたらご指導お願いします。

Private Sub cmdNo_Click()　　　 '登録ボタン１
　　If Opt1 = False Then
　　If Opt2 = False Then
　　If Opt3 = False Then
　　MsgBox "オプションボタンをチェックしてください"
　　Me.cmdNo.Enabled = False
　　Me.cmdIyes.Enabled = False
　　Me.cmdHyes.Enabled = False
　　Me.cmdIHYes.Enabled = False
　　Exit Sub
　　End If
　　End If
　　End If
　　Me.Hide
　　Worksheets("ランク分け集計表").Range("E3").Value = "（因子・反応がない）"
　　With Worksheets("ランク分け集計表").PageSetup
　　　　.RightHeader = "&""ＭＳＰゴシック,太字""&16No.1 - &P"
　　　　.Zoom = 85
　　End With
　　
　　Select Case rankmode
　　　　Case 1:
　　　　　　Call 全体ランク集計(1)　　　'全体データ
　　　　Case 2:
　　　　　　Call 顧客別ランク集計(1)　　'顧客指定
　　　　Case 3:
　　　　　　Call 課別ランク集計(1)　　　'顧客と支部指定
　　End Select
End Sub

Private Sub cmdIyes_Click()　　 '登録ボタン２
　　If Opt1 = False Then
　　If Opt2 = False Then
　　If Opt3 = False Then
　　MsgBox "オプションボタンをチェックしてください"
　　Me.cmdNo.Enabled = False
　　Me.cmdIyes.Enabled = False
　　Me.cmdHyes.Enabled = False
　　Me.cmdIHYes.Enabled = False
　　Exit Sub
　　End If
　　End If
　　End If
　
　　Me.Hide
　　Worksheets("ランク分け集計表").Range("E3").Value = "（因子がある）"
　　With Worksheets("ランク分け集計表").PageSetup
　　　　.RightHeader = "&""ＭＳＰゴシック,太字""&16No.2 - &P"
　　　　.Zoom = 85
　　End With
　　Select Case rankmode
　　　　Case 1:
　　　　　　Call 全体ランク集計(2)　　　'全体データ
　　　　Case 2:
　　　　　　Call 顧客別ランク集計(2)　　'顧客指定
　　　　Case 3:
　　　　　　Call 課別ランク集計(2)　　　'顧客と支部指定
　　End Select
End Sub

Private Sub cmdHyes_Click()　　 '登録ボタン３
　　If Opt1 = False Then
　　If Opt2 = False Then
　　If Opt3 = False Then
　　MsgBox "オプションボタンをチェックしてください"
　　Me.cmdNo.Enabled = False
　　Me.cmdIyes.Enabled = False
　　Me.cmdHyes.Enabled = False
　　Me.cmdIHYes.Enabled = False
　　Exit Sub
　　End If
　　End If
　　End If
　
　　Me.Hide
　　Worksheets("ランク分け集計表").Range("E3").Value = "（反応がある）"
　　With Worksheets("ランク分け集計表").PageSetup
　　　　.RightHeader = "&""ＭＳＰゴシック,太字""&16No.3 - &P"
　　　　.Zoom = 85
　　End With
　　Select Case rankmode
　　　　Case 1:
　　　　　　Call 全体ランク集計(3)　　　'全体データ
　　　　Case 2:
　　　　　　Call 顧客別ランク集計(3)　　'顧客指定
　　　　Case 3:
　　　　　　Call 課別ランク集計(3)　　　'顧客と支部指定
　　End Select
End Sub

Private Sub cmdIHYes_Click()　　　 '登録ボタン４
　　If Opt1 = False Then
　　If Opt2 = False Then
　　If Opt3 = False Then
　　MsgBox "オプションボタンをチェックしてください"
　　Me.cmdNo.Enabled = False
　　Me.cmdIyes.Enabled = False
　　Me.cmdHyes.Enabled = False
　　Me.cmdIHYes.Enabled = False
　　Exit Sub
　　End If
　　End If
　　End If
　
　　Me.Hide
　　Worksheets("ランク分け集計表").Range("E3").Value = "（因子・反応がある）"
　　With Worksheets("ランク分け集計表").PageSetup
　　　　.RightHeader = "&""ＭＳＰゴシック,太字""&16No.4 - &P"
　　　　.Zoom = 85
　　End With
　　Select Case rankmode
　　　　Case 1:
　　　　　　Call 全体ランク集計(4)　　　'全体データ
　　　　Case 2:
　　　　　　Call 顧客別ランク集計(4)　　'顧客指定
　　　　Case 3:
　　　　　　Call 課別ランク集計(4)　　　'顧客と支部指定
　　End Select
End Sub

Private Sub Opt1_Click()　　　’オプション１
　　EnterEnable
　　If Opt1 = True Then
　　printmenu = 1
　　 End If
　　
End Sub

Private Sub Opt2_Click()　　　’オプション２
　　EnterEnable　
　　If Opt2 = True Then
　　printmenu = 2
　　 End If
End Sub

Private Sub Opt3_Click()　　　’オプション３
　　EnterEnable
　　If Opt3 = True Then
　　printmenu = 3
　　End If
End Sub

Private Sub EnterEnable()
Me.cmdNo.Enabled = True
Me.cmdIyes.Enabled = True
Me.cmdHyes.Enabled = True
Me.cmdIHYes.Enabled = True

End Sub

6 hits

▼

【36845】オプションボタンをクリックしないと登録ボタンに無効する方法は？ saru@ 06/4/15(土) 11:46