Excel VBA質問箱 IV

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

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


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

44841 / 76732

←次へ　｜　前へ→


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

saru@

- 06/4/17(月) 20:02 -


	引用なし

	パスワード

だるまさんありがとうございます。

参考してコードを変更してみましたが無効化しなかったです。
何処がおかしいところがありますか？
よろしくお願いします。

Private Sub frmYearRank_Initialize()　'ﾕｰｻﾞｰﾌｫｰﾑ
　　Me.cmdNo.EnableEvents = False
　　Me.cmdIyes.EnableEvents = False
　　Me.cmdHyes.EnableEvents = False
　　Me.cmdIHYes.EnableEvents = False
End Sub

Private Sub cmdNo_Click()　　　 '登録ボタン１

　　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()　　 '登録ボタン２
　　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()　　 '登録ボタン３
　　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()　　　 '登録ボタン４
　　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()　　　　'オプションボタン１
　　EnterEnabled
　　Opt1.Value = True
　　Opt2.Value = False
　　Opt3.Value = False
　　printmenu = 1
End Sub

Private Sub Opt2_Click()　　　　　'オプションボタン２
　　EnterEnabled
　　Opt1.Value = False
　　Opt2.Value = True
　　Opt3.Value = False
　　printmenu = 2
End Sub

Private Sub Opt3_Click()　　　　　'オプションボタン３
　　EnterEnabled
　　Opt1.Value = False
　　Opt2.Value = False
　　Opt3.Value = True
　　printmenu = 3
End Sub

5 hits

▼

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