Excel VBA質問箱 IV

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

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


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

44879 / 76732

←次へ　｜　前へ→


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

saru@

- 06/4/16(日) 23:53 -


	引用なし

	パスワード

neptune さんありがとうございます。
では、今まで作ったコードを出します。見てわかると思いますが
よろしくお願いします。

Private Sub cmdNo_Click()　　　 '登録ボタン１
　　Me.Hide
　　Worksheets("ランク分け集計表").Range("E3").Value = "（因子・反応がない）"
　　With Worksheets("ランク分け集計表").PageSetup
　　　　.RightHeader = "&""ＭＳＰゴシック,太字""&16No.1 - &P"
　　　　.Zoom = 80　
　　Select Case rankmode
　　　　Case 1:
　　　　　　Call 全体ランク集計(1)　　　'全体データ
　　　　Case 2:
　　　　　　Call 顧客別ランク集計(1)　　'顧客指定
　　　　Case 3:
　　　　　　Call 課別ランク集計(1)　　　'顧客と支部指定
　　End Select
End Sub

Private Sub cmdIyes_Click()　　 '登録ボタン2
　　Me.Hide
　　Worksheets("ランク分け集計表").Range("E3").Value = "（因子がある）"
　　With Worksheets("ランク分け集計表").PageSetup
　　　　.RightHeader = "&""ＭＳＰゴシック,太字""&16No.2 - &P"
　　　　.Zoom = 80　　　　
　　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 = 80
　　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 = 80
　　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()　　’オプションボタン1
　　
　　Opt1.Value = True
　　Opt2.Value = False
　　Opt3.Value = False
　　printmenu = 1
End Sub

Private Sub Opt2_Click()　　’オプションボタン２

　　Opt1.Value = False
　　Opt2.Value = True
　　Opt3.Value = False
　　printmenu = 2
End Sub

Private Sub Opt3_Click()　　’オプションボタン３

　　Opt1.Value = False
　　Opt2.Value = False
　　Opt3.Value = True
　　printmenu = 3
End Sub

でオプションボタンをチェックするまでに4つ登録ボタンが無効化します。
どこで記入すればよろしいですか？
よろしくお願いします。

2 hits

▼

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