|
勉強中の者です。よろしくお願いします。
UserForm1から表示したUserForm2で(この時にUserForm1は表示されたままの状態です。)UserForm2にある3個のチェックボックスをユーザーが選択し、同FormにあるコマンドボタンをクリックするとUserForm2が閉じられ、先のユーザーが選択したチェックボックスがどれか(複数選択あり)という情報をUserForm1で使いたくて、とりあえず以下のように標準モジュールでPublic変数を用意して、情報をUserForm1でも呼び出せる形にしました。
標準モジュールの宣言セクション
Public SelectedCB As Variant
標準モジュール内のコード
Sub 親フォーム表示()
UserForm1.Show
End Sub
UserForm2内のコード
Private Sub CommandButton1_Click()
Dim CBarray() As Variant
Dim i As Integer
Dim n As Integer
For i = 1 To 3
If Me.Controls("CheckBox" & i).Value Then
ReDim Preserve CBarray(n)
CBarray(n) = i
n = n + 1
End If
Next
SelectedCB = CBarray
Unload Me
End Sub
本を見ると値を返すには、Function、Property プロシージャを使うと
あるのですが、それらのプロシージャはこのようなケースの場合には、いったい
どう使えばいいのかわかりません。
特にPropertyは・・・・・。
どなたか教えて下さい。よろしくお願いいたします。
|
|