
ユーザーフォームの書き出しで追加のご相談
ユーザーフォームの値をシートに書き出す際、コードが表示される。
2つのコンボボックスを連動させるコードを教えていただき、その後、ユーザーフォームを書き出すコードを作成しました。しかしコンボボックスに表示された値と連動させたテキストボックスの値が書き出されてしまいます。
追加の質問で恐縮ですがコード上どこを修正したら良いかご教示いただけませんでしょうか?
よろしくお願いいたします。
Private Sub CommandButton1_Click()
Dim i As Long
Dim lastRow As Long
With Worksheets("Sheet1")
lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(lastRow, 2).Value = ComboBox1
.Cells(lastRow, 3).Value = TextBox1.Text
.Cells(lastRow, 4).Value = ComboBox2
.Cells(lastRow, 5).Value = TextBox2.Text
End With
End Sub

No.2ベストアンサー
- 回答日時:
.Tex
tがありませんが・・どうでしょう
.Listは正しくはありません(ComboBoxのListは複数ある事が前提なので)
試しに1度出力した後に続けてComboBox2を変更してから実行してみてください・・ 多分、値は変わらないのではないかと・・
ComboBoxに表示されている値を取得する場合は
Textプロパティで取得します
また、ユーザーフォーム内ではプロパティの省略は面倒でもやめた方が良いです
No.1
- 回答日時:
こんにちは
https://oshiete.goo.ne.jp/qa/13077225.html
のコード内にヒントを入れたつもりでしたが・・・
With ComboBox2
.ColumnCount = 1 '表示列数
.TextColumn = 1 'Textで取得する列
.BoundColumn = 2 'Valueで取得する列
.List = arrList '参照List
End With
End Sub
なのでTextプロパティを取得、代入してみてください
=ComboBox2 は .Valueが省略されています
.Cells(lastRow, 4).Value =ComboBox2.Text
Cells(lastRow, 4).Value =ComboBox2.Tex
コンパイルエラーでメソッドまたはデータメンバーが見つかりません。
となったため
.Cells(lastRow, 4).Value =ComboBox2.List
としてみたところ、支店名が表示されました。
ご教授いただいた「プロパティを取得、代入」として
(正)でししょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) フレーム内のオプションボタンの選択結果をセルに書き出したい。 図のような預金種目というフレームにオプ 2 2022/07/29 11:12
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ワークシート内を検索 1 2022/12/19 23:46
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
1日に1人がこなせるプログラム...
-
JANコードとPOSコードは同じ?
-
access2021 VBA メソッドまたは...
-
Exel VBA 別ブックから該当デ...
-
エクセルに見えない文字(JISX0...
-
Excel VBA素人です。VBAで図形...
-
【VB6】実行ファイルとした後、...
-
オートフィルタで抽出結果に 罫...
-
Excel VBAでOpenTextのFieldInf...
-
VBAでファイルオープン後にコー...
-
ACCESSユニオンクエリでORDER B...
-
改ページ
-
リストボックスのアイテムをマ...
-
PreviewKeyDownイベントが2回...
-
sinカーブの表示のさせ方
-
Nullの使い方が不正です。
-
Access DCountでの連番について
-
VBについて質問です
-
コマンドボタンを押したときに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
1日に1人がこなせるプログラム...
-
access2021 VBA メソッドまたは...
-
JANコードとPOSコードは同じ?
-
access2003 クエリSQL文に...
-
Excel VBA素人です。VBAで図形...
-
1、Rstudioで回帰直線を求める...
-
Nullの使い方が不正です。
-
JavaScriptの定数名が取り消し...
-
PreviewKeyDownイベントが2回...
-
変数名「cur」について
-
エクセルに見えない文字(JISX0...
-
ACCESSユニオンクエリでORDER B...
-
Exel VBA 別ブックから該当デ...
-
VBAでファイルオープン後にコー...
-
VBA リストボックス(複数条件...
-
ASCIIコードを文字に変換したい
-
【VB6】実行ファイルとした後、...
-
VBA 現在のセル番地を記憶、復...
-
COBOLの文法
おすすめ情報