'検索フォームから渡された行番号のデータをセットする 際、テキストボックスは下記マクロで表示できるのですがオプションボタンの9列目の「性別」が表示できません。
画像のユーザーフォームは、シート2行目の山本彩を検索した結果ですが、シート2行目の性別は「女性」になっていますので、オプションボタンの「女性」がオンになった表示をすることはできますでしょうか。性別のオブジェクト名は「Frame7」になります。オブジェクト名で操作すれば表示できるのでしょうか?ご存じの方がいらっしゃいましたら教えてください。
Private Sub cmd検索_Click() '← 検索ボタン押下時の処理追加
frm検索.Show vbModal '← 検索フォームを表示する
If rtnNo > 1 Then
'検索フォームから渡された行番号のデータをセットする
With Worksheets("master")
Me.lbl行番号.Caption = rtnNo
Me.txt_番号 = .Cells(rtnNo, 6)
Me.txt_氏名 = .Cells(rtnNo, 7)
Me.txt_ふりがな = .Cells(rtnNo, 8)
If opt_男性.Value = True Then
.Cells(rtnNo, 9).Value = opt_男性.Caption
ElseIf opt_女性.Value = True Then
.Cells(rtnNo, 9).Value = opt_女性.Caption
ElseIf opt_性別その他.Value = True Then
.Cells(rtnNo, 9).Value = opt_性別その他.Caption
End If
Me.txt_生年月日 = .Cells(rtnNo, 10)
End With
End If
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは
>テキストボックスは下記マクロで表示できるのですがオプションボタンの9列目の「性別」が表示できません。
もしかしたら、ご質問を理解していないかもですが・・・セルの値に対して取得するのならIF文のところ逆ですね
もし opt_男性.Value が True ならば・・・NG
Select Case で書き直すと
Select Case .Cells(rtnNo, 9).Value
Case "男性": opt_男性.Value = True
Case "女性": opt_女性.Value = True
Case Else: opt_性別その他.Value = True
End Select
適時変更してください
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) フォーム上のリストボックスに重複して表示しています 3 2022/10/19 11:55
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
ExcelVBAでユーザーフォームが...
-
'ユーザーフォーム右上隅の[×...
-
Accessで、一つのフォーム画面...
-
フォームの二重起動の阻止
-
VBAでユーザーフォームを再表示...
-
フォームを画面の下側ぴったり...
-
VB.NETでフォームロード中のエ...
-
Microsoft Formsの「個人情報や...
-
ExcelVBAのユーザーフォームでe...
-
ユーザーフォーム上に現在日時...
-
ユーザーフォームのラベルに時...
-
Form_Load と Form_Activate の...
-
Excel VBAで別のブックからユ...
-
コントロールの存在確認
-
複数のフォームを1つのフォー...
-
エクセルVBA フォーム上でOnkey...
-
子フォームでDB更新後、親フォ...
-
エクセルVBAのフォームを最...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
エクセルVBAのフォームを最...
-
クリックイベントなのに、2回ク...
-
ユーザーフォームのテキストボ...
-
モーダルフォームとモードレス...
-
Form_Load と Form_Activate の...
-
VBAでユーザーフォームを再表示...
-
Hideについて(.NET)
-
ACCESSのフォーム、開くんです...
-
MSGBOXのフォント大きさ変更
-
Excelにて、ユーザーフォームで...
-
【VBAユーザーフォームで閉じる...
-
ユーザーフォーム上に現在日時...
-
VBA(エクセル)のユーザー...
-
access2021 更新前に処理をしたい
-
Accessで、一つのフォーム画面...
-
コントロールの存在確認
-
Microsoft Formsの「個人情報や...
-
複数モニタ使用時のフォームの...
おすすめ情報