|
▼rensougame03 さん:
UserForm2 のCheckBoxの数が3個と決まっているのなら、
共有変数の要素数もその数にあわせておけばよいと思 い ま す (^^
'-------------------------------------- Module1
'UserForm2の3つのCheckBoxの値を格納する共有変数
Public gCheckedValue(1 To 3) As Boolean
'-------------------------------------- UserForm1
Private Sub CommandButton1_Click()
UserForm2.Show 0 'UserForm2 の表示
End Sub
'〔参考〕共有変数のCheck状態表示する例
Private Sub CommandButton2_Click()
Dim i As Long
Dim ss As String
For i = 1 To 3
ss = ss & i & vbTab & gCheckedValue(i) & vbCr
Next
MsgBox ss
End Sub
'-------------------------------------- UserForm2
Private Sub UserForm_Initialize()
Dim i As Long '表示するときは直前のCheck値を表示
For i = 1 To 3
Me.Controls("CheckBox" & i).Value = gCheckedValue(i)
Next
End Sub
Private Sub CommandButton1_Click()
Dim i As Long '値をグローバル変数に格納して閉じる
For i = 1 To 3
gCheckedValue(i) = Controls("CheckBox" & i).Value
Next
Unload Me
End Sub
|
|