Excel VBA質問箱 IV

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

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


44831 / 76735 ←次へ | 前へ→

【36915】Re:オプションボタンをクリックしないと...
質問  saru@ E-MAIL  - 06/4/18(火) 0:10 -

引用なし
パスワード
   ▼neptune さんありがとうございます。
>オプションボタン3つ
>のいずれかを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 = "&""MS Pゴシック,太字""&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 = "&""MS Pゴシック,太字""&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 = "&""MS Pゴシック,太字""&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 = "&""MS Pゴシック,太字""&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

0 hits

【36845】オプションボタンをクリックしないと登録ボタンに無効する方法は? saru@ 06/4/15(土) 11:46 質問
【36847】Re:オプションボタンをクリックしないと登... ぱっせんじゃー 06/4/15(土) 12:50 発言
【36848】Re:オプションボタンをクリックしないと登... ぱっせんじゃー 06/4/15(土) 12:52 発言
【36849】Re:オプションボタンをクリックしないと登... だるま 06/4/15(土) 12:58 回答
【36859】Re:オプションボタンをクリックしないと登... saru@ 06/4/16(日) 22:54 質問
【36860】Re:オプションボタンをクリックしないと... neptune 06/4/16(日) 23:30 回答
【36862】Re:オプションボタンをクリックしないと... saru@ 06/4/16(日) 23:53 質問
【36866】Re:オプションボタンをクリックしないと... だるま 06/4/17(月) 9:31 回答
【36901】Re:オプションボタンをクリックしないと... saru@ 06/4/17(月) 20:02 質問
【36904】Re:オプションボタンをクリックしないと... neptune 06/4/17(月) 21:15 回答
【36915】Re:オプションボタンをクリックしないと... saru@ 06/4/18(火) 0:10 質問
【36925】Re:オプションボタンをクリックしないと... neptune 06/4/18(火) 13:02 回答
【36946】Re:オプションボタンをクリックしないと... saru@ 06/4/18(火) 19:28 お礼
【36950】Re:オプションボタンをクリックしないと... neptune 06/4/18(火) 22:02 回答

44831 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free