Excel VBA質問箱 IV

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

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


44797 / 76732 ←次へ | 前へ→

【36946】Re:オプションボタンをクリックしないと...
お礼  saru@ E-MAIL  - 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()    '登録ボタン1
  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 = "&""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()   '登録ボタン2
  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 = "&""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()   '登録ボタン3
  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 = "&""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()    '登録ボタン4
  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 = "&""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()   ’オプション1
  EnterEnable
  If Opt1 = True Then
  printmenu = 1
   End If
  
End Sub

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

Private Sub Opt3_Click()   ’オプション3
  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
7 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 回答

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