ユーザーフォームの書き出しで追加のご相談
ユーザーフォームの値をシートに書き出す際、コードが表示される。
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を探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
過剰なオブジェクト指向脳から...
-
フィルターかけた後、重複を除...
-
Exel VBA 別ブックから該当デ...
-
1、Rstudioで回帰直線を求める...
-
pythonにてseleniumを使うも、...
-
変数名「cur」について
-
VB6で読み上げをしたい
-
PreviewKeyDownイベントが2回...
-
VB6のComboBox関連の書き方をVB...
-
ユーザーフォームに2つのコン...
-
ユーザーフォームで銀行に対応...
-
chatgptでつくってもらったコー...
-
sinカーブの表示のさせ方
-
access2003 クエリSQL文に...
-
Excel VBAについて
-
Gitのクローンについて
-
ExcelのVBAコードについて教え...
-
python コードについて(初学者...
-
パイソンプログラム
-
COBOLの文法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
Exel VBA 別ブックから該当デ...
-
pythonにてseleniumを使うも、...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
chatgptでつくってもらったコー...
-
欠番の抽出について
-
JANコードとPOSコードは同じ?
-
JavaScriptの定数名が取り消し...
-
1、Rstudioで回帰直線を求める...
-
特定行の背景色を変えたいのですが
-
変数名「cur」について
-
PreviewKeyDownイベントが2回...
-
将来AIが進歩してくるにつれて...
-
ACCESSユニオンクエリでORDER B...
-
VBAでファイルオープン後にコー...
-
COBOLの文法
-
Nullの使い方が不正です。
おすすめ情報