エクセルVBA コンボボックスの値の転記

質問

エクセルVBAの質問です。

ユーザーフォームを表示し

年を選択するコンボボックス１
月を選択するコンボボックス２
を入力してもらい

ユーザーフォームを閉じるときに
sheet1のワークシートのC2セルに
「コンボボックス１の値」＋「年」＋と「コンボボックス２の値」＋「月」をつなげて
入力できるというようなマクロを考えています。

下記の様に考えてみたのですが、
うまく入力できませんでした。

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "2021"
.AddItem "2022"
.AddItem "2023"
.AddItem "2024"
End With

With ComboBox2
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
End With

Private Sub CommandButton1_Click()

'ユーザーフォームを閉じる
Unload UserForm1

'ユーザーフォームの値をセルC2に入力
With Worksheets("sheet1")
.Cells(2, 3).Value = "ComboBox1.Text" & "月" & "ComboBox2.Text" & "日"

End With
End Sub

どのように修正すればいいでしょうか？

よろしくお願いします。

回答No.1

kkkkkm · ベストアンサー

コントロール(ComboBox)の値ところは「"」で囲まなくていいので
.Cells(2, 3).Value = "ComboBox1.Text" & "月" & "ComboBox2.Text" & "日"
を
.Cells(2, 3).Value = ComboBox1.Text & "月" & ComboBox2.Text & "日"
にしてみてください。

お礼

回答いただきありがとうございます。
試してみたところうまくいきました。

どうもありがとうございました