Excel VBA質問箱 IV

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

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


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

44828 / 76732

←次へ　｜　前へ→


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

saru@

- 06/4/18(火) 0:10 -


	引用なし

	パスワード

▼neptune さんありがとうございます。
>オプションボタン３つ
>のいずれかをTrueにしないとCommandButtonを使えないようにする
>んですよね。　　
>>はい、そうです。

間違えて記入したそうですがもう一度変更したらコマンドボタンが無効しなかった
そうです。

正しいコードなのに無効化を出来なかった。

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()　　　 '因子・反応なし
　　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()
　　Opt1.Value = True
　　Opt2.Value = False
　　Opt3.Value = False
　　printmenu = 1
　　EnterEnable
End Sub

Private Sub Opt2_Click()
　　Opt1.Value = False
　　Opt2.Value = True
　　Opt3.Value = False
　　printmenu = 2
　　EnterEnable
End Sub

Private Sub Opt3_Click()　　
　　Opt1.Value = False
　　Opt2.Value = False
　　Opt3.Value = True
　　printmenu = 3
　　EnterEnable
End Sub

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

End Sub

4 hits

▼

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