コンボボックスのTEXTを日付に

質問

はじめまして
早速ですがどなたかお助けを！
入力フォームに「月」「日」のコンボボックスが別々にあります。
その値を1つのセルに日付として表示するにはどうしたらいいでしょうか？
Range("C7") = comMonth.Text / comDate.Text
これだとうまくいきません
どなたか教えていただけませんか？
よろしくお願いします

回答No.2

imogasi

Sheet1にコンボを２つ貼り付ける。そして
標準モジュールに
Sub test01()
For i = 1 To 12
Worksheets("Sheet1").ComboBox1.AddItem i
Next i
End Sub
をいれ、１回実行。月をアイテムとして設定。
Sheet1のシートモジュールに
Private Sub ComboBox1_Click()
m = Val(ComboBox1.Text)
l = Day(DateSerial(2005, m + 1, 1) - 1)
ComboBox2.Clear
For i = 1 To l
Worksheets("Sheet1").ComboBox2.AddItem i
Next i
End Sub
これで日をアイテムとして設定。

Private Sub ComboBox2_Click()
m = Val(ComboBox1.Text)
d = Val(ComboBox2.Text)
Range("b2") = DateSerial(2005, m, d)
End Sub
コンボ１は月、コンボ２は日を選ぶと（年は固定２００５にしている）
これでB2に日付がセットされました。

回答No.1

1050 円（@1050YEN）

With Range("C7")
　　.NumberFormatLocal = "yyyy/mm/dd"　　　'日付書式
　　.NumberFormatLocal = "@"　　　　　　　 '文字書式にするならこっち
　　.Value = comMonth.Text & "/" & comDate.Text
End With

お礼

1050YENさん！
Range("C7") = comMonth.Text & "/" & comDate.Text
できました！！！
感動です！！
本当にありがとうございます！！！！
これかまた何かあったら教えてください
おりがとうございます！！！

補足

1050YENさんさっそくの回答ありがとうございます！
補足なんですが
Worksheets("予定表").Select
If Range("C7") = "" Then
Range("C7") = comMonth.Text / comDate.Text
　　　　　End If
ここのどこにWithを入れればいいでしょうか？
素人なもので・・・すいません