VBAでのデータの結合

質問

ＶＢＡ初心者です。
Form上で、３つのComboBoxに入力（選択）した値を結合させるための関数を教えてください。
実際にやりたいことは・・・
ComboBox1　→　年
ComboBox2　→　月
ComboBox3　→　週
をフォームに入力（選択）します。
入力した年、月、週に該当する年月日の範囲が入力されているsheetがあり、
その検索キーは入力した3つの値を結合したものになっています。
その検索キーをもとにvlookupで年月日をlabelに表示させる。

渡しが途中まで考えて挫折した状態をお見せします。↓

Private Sub Cmb週_AfterUpdate()

Dim mykc1 As Integer
Dim mykc2 As Integer
Dim mykc3 As Integer

mykc1 = Cmb年.Value
mykc2 = Cmb月.Value
mykc3 = Cmb週.Value

Lbl開始年月日.Caption = Application.WorksheetFunction. _
VLookup(【mykc1～3を結合したもの】, Range("検索"), 2, False)

Lbl終了年月日.Caption = Application.WorksheetFunction. _
VLookup(【mykc1～3を結合したもの】, Range("検索"), 3, False)

End Sub

↑以上です。
全く的外れなものでしたら、こちらについても教えてください。
よろしくお願いします。

回答No.1

WWolf · ベストアンサー

こんにちは
やりたいことがコードを見るといまいち把握しきれていないのですが

＞Form上で、３つのComboBoxに入力（選択）した値を結合させるため
なら・・・
Lbl開始年月日.Caption = mykc1 & mykc2 & mykc3
です。
開始と終了が同じ年月日なのが？？で・・・補足があればよろしく

お礼

回答ありがとうございます。
試してみたところ、無事に動きました。
「&」でつながってしまうって言うシンプルさにちょっとビックリしましたが・・・（＾－＾；）

ちなみに、
1行目　→　検索キー
2行目　→　開始年月日
3行目　→　終了年月日
の順でデータが入力されているので、

Lbl開始年月日.Caption = Application.WorksheetFunction. _
VLookup((mykc1 & mykc2 & mykc3), Range("検索"), 2, False)

Lbl終了年月日.Caption = Application.WorksheetFunction. _
VLookup((mykc1 & mykc2 & mykc3), Range("検索"), 3, False)

としてみて成功しました。
本当にありがとうございました。

回答No.2

imogasi

色々書いてあるが、質問の主旨が伝わりにくい。
コンボ３つに年、月、日を別々に入れて、日付としたいということではないですか。
エクセルＶＢＡと思うので
（１）ＶＢではＤａｔｅＶａｌｕｅ関数、ＤａｔｅＳｅｒｉａｌ関ガあること。日付シリアル値というものに変換されます。
ＷＥＢや本で調べること。
（２）コンボはテキストで値が返る。数値化にはＶａｌ関数がいる・
（３）エクセルでは日付は、セルに日付シリアル値というものでセットするのが、標準で自然でかつ便利。
日付シリアル値という考えがわかりますか。そのメリットなども。
エクセルのこういう知識を習得しないで、ＶＢＡに取り掛かるのは
問題含みです。エクセルＶＢＡはエクセルに即したＶＢで、ＶＢの一般ステートメントなどコード習得の知識だけでは不十分です。
むしろエクセルの知識が先行して必要です。
（４）検索の場合は「値」で検索します。値は文字列か、数値（日付シリアル値）があり、
検索表の検索列（第２引数の最左列）が文字列か、日付シリアル値か
良く注意しましょう。
＞mykc1～3を結合したもの
は文字列になるはずです。中身や考えを日付シリアル値で統一したほうがメリットが大きいのではと思います。