• 締切済み

エクセルVBAについて

エクセルの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は格納なんてできないのなら諦めます。 では、よろしくお願い致します。 以上

みんなの回答

  • nagare
  • ベストアンサー率33% (280/831)
回答No.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を格納するにはどういったコードになるのでしょうか? どこに格納するのでしょうか?  取得自体はできますけど  (オプションコマンドってオプションボタンですよね?)