
フレーム内のオプションボタンの選択結果をセルに書き出したい。
図のような預金種目というフレームにオプションボタンを配置しました。
コマンドボタンで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.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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【エクセル】オプションボタンにセルの値を反映させるには
Visual Basic(VBA)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
エクセルVBA オプションボタンのチェックを外したい
Excel(エクセル)
-
-
4
オプションボタンを別シートに連動
Excel(エクセル)
-
5
入力済み、選択したセルに連動した行のデータをユーザーフォームで呼び出すには
Excel(エクセル)
-
6
UserForm1.Showでエラーになります。
工学
-
7
VBAでオプションボタンなどそれぞれの数を調べたい
Excel(エクセル)
-
8
エクセルVBAマクロのオプションボタンについて
Excel(エクセル)
-
9
エクセルVBAでオプションボタンを無効にする方法
Excel(エクセル)
-
10
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
11
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
12
フレーム内のオプションボタン状態取得方法について
Excel(エクセル)
-
13
ユーザ―フォーム上のチェックboxのチェックを外した際のセル反映の取り消し
Excel(エクセル)
-
14
チェックボックスの択一選択方法教えてください。
Windows 95・98
-
15
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
16
Excel ラジオボタンのリセットを作りたい
Excel(エクセル)
-
17
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
18
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
19
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
20
VBAのユーザーフォーム、チェックボックスをグループ化したい!
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA セル間のリンク修正につい...
-
【マクロ】並び替えの範囲が、...
-
VBAでCOPYを繰り返すと、処理が...
-
Vba Array関数について教えてく...
-
【VBA】 結合セルに複数画像と...
-
Excel VBA 選択範囲の罫線色の...
-
複数のExcelファイルをマージす...
-
【マクロ】開いているブックの...
-
改行文字「vbCrLf」とは
-
VBA 最終行の取得がうまくいか...
-
VB.net 文字列から日付型へ変更...
-
【マクロ】シートの変数へ入れ...
-
Excelのマクロについて教えてく...
-
vbs ブック共有を解除
-
【ExcelVBA】値を変更しながら...
-
vba textboxへの入力について教...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【ExcelVBA】5万行以上のデー...
-
Excelのマクロについて教えてく...
-
エクセルのVBAコードについて教...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンのオープンフレームっ...
-
段ボールみたいな材質でできて...
-
フレーム内に移動したい
-
フレーム内のオプションボタン...
-
フレームでのResponse.Redirect
-
Access2010でサブフォームのフ...
-
VBで動的に作成したパネルの上...
-
cisco catalystのトラブルシュ...
-
ドロップフレームの計算をエク...
-
先日赤札堂で眼鏡を購入し、今...
-
トグルボタンの排他制御でご教...
-
VBSでHTMLソースの取得方法で
-
フレームでページ分かれていて...
-
被写体のHSVを正確に取得(webca...
-
チェックボックスを横並びに表...
-
正解表示
-
VB6のスクロールバー付きフレー...
-
車の運転時のメガネ 縁なし(...
-
iPhoneやiPadなどの黒いフレー...
-
Flash再生中につぎのフレームを...
おすすめ情報