
フレーム内のオプションボタンの選択結果をセルに書き出したい。
図のような預金種目というフレームにオプションボタンを配置しました。
コマンドボタンで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
ご指南いただけると助かります。
よろしくお願いいたします。

A 回答 (2件)
- 最新から表示
- 回答順に表示
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【初月無料キャンペーン実施中】オンライン健康相談gooドクター
24時間365日いつでも医師に健康相談できる!詳しくはコチラ>>
-
この関数と同じ処理をVBAで行うにはどうしたら良いでしょうか? これは、1列の中に同じ値が複数存在し
Visual Basic(VBA)
-
Countifよりも早く重複数をカウントする方法ありますか?
Excel(エクセル)
-
Excel VBA で End Subのところで「型が一致しません」のエラーとなります。
Visual Basic(VBA)
-
4
【VBA】Excelで罫線を引きたい
Visual Basic(VBA)
-
5
VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。
Visual Basic(VBA)
-
6
ExcelVBA No.を自動連番で設定をしながらデータ入力をしたい
Visual Basic(VBA)
-
7
evcel VBAについて
Visual Basic(VBA)
-
8
VBAの改ページ設定について
Visual Basic(VBA)
-
9
マクロVBA 1シートをまとめる 閉じ方 初心者 SOS!
Visual Basic(VBA)
-
10
VBA 登録ボタンを省略してエンターキーで作業
Visual Basic(VBA)
-
11
エクセルVBAについて
Visual Basic(VBA)
-
12
ExcelVBAで質問です。離れた二次元配列を一つにしたい
Visual Basic(VBA)
-
13
指定した文字から指定した文字のスペースまでを削除するVBAの構文について
Visual Basic(VBA)
-
14
VBAの繰り返し処理について教えてください。
Visual Basic(VBA)
-
15
Excel VBA 大量のレコードからある列の重複数をカウントする方法?拡張編
Visual Basic(VBA)
-
16
ユーザーフォームが立ち上がらない
Visual Basic(VBA)
-
17
リストポックス検索
Visual Basic(VBA)
-
18
エクセルVBAについて
Visual Basic(VBA)
-
19
比較して等しくなかったらセルを赤くする
Visual Basic(VBA)
-
20
VBA 複数のブックに同じ列を表示させる方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
visual basic初心者です。 visu...
-
5
VBAコードを張り付け後のエクセ...
-
6
エクセルマクロでアニメを作る...
-
7
VBA シートのボタン名を変更し...
-
8
特定のPCだけ動作しないVBAマク...
-
9
フォントの大きさ
-
10
VBA 変数名に変数を使用したい。
-
11
メッセージボックスのOKボタ...
-
12
別のシートから値を取得するとき
-
13
Excel マクロ VBA プロシー...
-
14
個別に違う添付ファイルを付け...
-
15
VBAでループ内で使う変数名を可...
-
16
【Excel VBA】指定行以降をクリ...
-
17
ExcelVBAを使って、値...
-
18
VBAで関数をつくる
-
19
実行時エラー 438になった時の...
-
20
エクセルvbaでdocuworksprinter...
おすすめ情報
公式facebook
公式twitter