![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
フレーム内のオプションボタンの選択結果をセルに書き出したい。
図のような預金種目というフレームにオプションボタンを配置しました。
コマンドボタンで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
ご指南いただけると助かります。
よろしくお願いいたします。
![「フレーム内のオプションボタンの選択結果を」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/0/543097098_62e34208057af/M.jpg)
No.1ベストアンサー
- 回答日時:
預金種目はラジオボタンを複数選択させないためのオブジェクトなので、選択されたタイトルを取ってくる事は出来ないと思います
書くならこんな感じになってしまうと思います
If 当座預金.Value = True Then
.Cells(lastRow, 14).Value = 当座預金.Caption
'以下省略
No.2
- 回答日時:
こんにちは
>Cells(lastRow, 14).Value = 預金種目 ‘オプションボタンのフレーム名
いまいちわかりませんが、選択されているオプションボタンのキャプションなどを取得したいのではないかと解釈してみました。
関係なければ、以下は無視してください。
コントロール名等がどうなっているのかはっきりしませんが、フレーム内のコントロールを順に見て行って、チェックされているものを探せば宜しいでしょう。
例えばこんな感じ。
(以下では、Frameコントロールが「預金種目」であると仮定しています)
s = "未選択"
For Each c In 預金種目.Controls
If c.Value Then s = c.Caption: Exit For
Next c
チェックされていれば、そのコントロールのキャプションが、チェックが無ければ”未選択”の値が返ります。
お探しの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ランキング
-
IF文、条件分岐の整理方法
-
VBAコードのインデント表示
-
時間短縮のために、テキストフ...
-
Excel VBA 選択範囲の罫線色の...
-
マクロの記録を使用したマクロ...
-
VB.net(VB)で、フォームにExcel...
-
IEを使わないでhtmlテキストを...
-
Excelセルに入力された文字の色...
-
VBAなくなるの?
-
【ExcelVBA】値を変更しながら...
-
VBA 別ブックから条件に合うも...
-
VBAの質問です、複数のテキスト...
-
エクセルのマクロについて教え...
-
ワードVBA どの表か知ることは...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
ExcelVBA修正のお願い
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フレーム内に移動したい
-
Access2010でサブフォームのフ...
-
車の運転時のメガネ 縁なし(...
-
2倍速を等速動画に(車載動画)
-
VBで動的に作成したパネルの上...
-
フレームでのResponse.Redirect
-
シーケンス番号の初期値
-
トグルボタンの排他制御でご教...
-
KSR2 車体番号
-
めくれるカードの作成方法
-
ソーラーパネルのアルミフレー...
-
被写体のHSVを正確に取得(webca...
-
オシロスコープのような描写方...
-
gotoAndPlayで特定のフレームま...
-
【C++】IDirect3DSurfaceのディ...
-
ブラウザが揺れる(震動)させ...
-
富士通FMV-C600のHDD交換
-
モーショントゥィーンに関する...
-
Final Cut ProのDVD映像(チャ...
-
ドコモ携帯 N504isのフォトフ...
おすすめ情報