|
neptune さんありがとうございます。
では、今まで作ったコードを出します。見てわかると思いますが
よろしくお願いします。
Private Sub cmdNo_Click() '登録ボタン1
Me.Hide
Worksheets("ランク分け集計表").Range("E3").Value = "(因子・反応がない)"
With Worksheets("ランク分け集計表").PageSetup
.RightHeader = "&""MS Pゴシック,太字""&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 = "&""MS Pゴシック,太字""&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() '登録ボタン3
Me.Hide
Worksheets("ランク分け集計表").Range("E3").Value = "(反応がある)"
With Worksheets("ランク分け集計表").PageSetup
.RightHeader = "&""MS Pゴシック,太字""&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() '登録ボタン4
Me.Hide
Worksheets("ランク分け集計表").Range("E3").Value = "(因子・反応がある)"
With Worksheets("ランク分け集計表").PageSetup
.RightHeader = "&""MS Pゴシック,太字""&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() ’オプションボタン2
Opt1.Value = False
Opt2.Value = True
Opt3.Value = False
printmenu = 2
End Sub
Private Sub Opt3_Click() ’オプションボタン3
Opt1.Value = False
Opt2.Value = False
Opt3.Value = True
printmenu = 3
End Sub
でオプションボタンをチェックするまでに4つ登録ボタンが無効化します。
どこで記入すればよろしいですか?
よろしくお願いします。
|
|