|
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
|
|