電子書籍の厳選無料作品が豊富!

エクセルのVBAについて、質問させて下さい。

下記コードはform上に記述しました。
オプションコマンドのオブジェクト数をcaseで選択し、その選択したものを格納しています。

Private Sub CommandButton1_Click()
Dim i As Long

lngData(1) = 0
For i = 1 To 12
If Me.Controls("OptionButton" & i).Value Then
lngData(1) = i
Exit For
End If
Next

Select Case lngData(2) '←次のUserForm
Case 1
Unload Me
UserForm2.Show
・・・・

End Select
End Sub

でまた別form上で呼び出しているのですが、
この時にオプションコマンドcaptionを格納するにはどういったコードになるのでしょうか?
またそれに際してコードに変更がある場合も教えてください。
素人質問ですので、そもそもオプションボタンのcaptionは格納なんてできないのなら諦めます。
では、よろしくお願い致します。
以上

A 回答 (1件)

質問内容がよくわからないのですが、下記のことでしょうか?



Select Case lngData(1)
Case 1
Unload Me
UserForm2.Label1 = Me.Controls("OptionButton" & lngData(1)).Caption
UserForm2.Show
Case 2
Case 3
End Select

★質問★
・lngData(2) って何ですか? lngData(1)?
・>captionを格納するにはどういったコードになるのでしょうか?
どこに格納するのでしょうか?
 取得自体はできますけど
 (オプションコマンドってオプションボタンですよね?)
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!