フレーム内のオプションボタンの選択結果をセルに書き出したい。
図のような預金種目というフレームにオプションボタンを配置しました。
コマンドボタンでSheet1へ書き出したいのですが記述がわかりません?
他のテキストボックスを書き出すための下記コードへ追加することができますでしょうか?
・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Private Sub CommandButton2_Click()
Dim lastRow As Long
With Worksheets("Sheet1")
lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(lastRow, 15).Value = 口座番号.Text ’他のテキストボックス名
.Cells(lastRow, 14).Value = 預金種目 ‘オプションボタンのフレーム名
End With
Unload Me
End Sub
ご指南いただけると助かります。
よろしくお願いいたします。
No.2
- 回答日時:
こんにちは
>Cells(lastRow, 14).Value = 預金種目 ‘オプションボタンのフレーム名
いまいちわかりませんが、選択されているオプションボタンのキャプションなどを取得したいのではないかと解釈してみました。
関係なければ、以下は無視してください。
コントロール名等がどうなっているのかはっきりしませんが、フレーム内のコントロールを順に見て行って、チェックされているものを探せば宜しいでしょう。
例えばこんな感じ。
(以下では、Frameコントロールが「預金種目」であると仮定しています)
s = "未選択"
For Each c In 預金種目.Controls
If c.Value Then s = c.Caption: Exit For
Next c
チェックされていれば、そのコントロールのキャプションが、チェックが無ければ”未選択”の値が返ります。
No.1ベストアンサー
- 回答日時:
預金種目はラジオボタンを複数選択させないためのオブジェクトなので、選択されたタイトルを取ってくる事は出来ないと思います
書くならこんな感じになってしまうと思います
If 当座預金.Value = True Then
.Cells(lastRow, 14).Value = 当座預金.Caption
'以下省略
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
- Visual Basic(VBA) ワークシート内を検索 1 2022/12/19 23:46
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) エクセル VBA 難しいです 1 2023/02/21 15:39
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
Vba 実数および実数タイプの変...
-
ユーザーフォームに別シートか...
-
VBA レジストリの値の読み方に...
-
エクセルVBAについて
-
VBA listBoxから
-
ExcelのVBAコードについて教え...
-
VBA 複数条件の分岐処理の上手...
-
ExcelのVBAです。フォルダ内の...
-
VBAの計算で@が出てしまう件
-
VB.net(VB)で、フォームにExcel...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBAの質問になります Userform内で
-
VBAの質問になります メッセー...
-
Excel マクロについての相談
-
Vba SelStart、SelLen教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フレーム内に移動したい
-
ドロップフレームの計算をエク...
-
Access2010でサブフォームのフ...
-
フレーム内のオプションボタン...
-
VB6のスクロールバー付きフレー...
-
VBで動的に作成したパネルの上...
-
cisco catalystのトラブルシュ...
-
車の運転時のメガネ 縁なし(...
-
URLを隠す、または別アドレスな...
-
2Dゲーム作成する際、アニメー...
-
シーケンス番号の初期値
-
【C++】IDirect3DSurfaceのディ...
-
フレームでページ分かれていて...
-
フレームでのResponse.Redirect
-
キーフレームとはなんですか?
-
エクセルVBA フレーム内のイベ...
-
ソーラーパネルのアルミフレー...
-
B2ポスターフレームの自作
-
VBSでHTMLソースの取得方法で
-
HTMLのフレームとテーブル...
おすすめ情報