締切済み

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

2005/12/06 02:29

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

kookie-m
お礼率60% (3/5)

Visual Basic
回答数2
ありがとう数1

みんなの回答 （2）
専門家の回答

みんなの回答

imogasi
ベストアンサー率27% (4737/17070)

2005/12/06 07:24 回答No.2

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に日付がセットされました。

ログインすると、全ての回答が全文表示されます。

1050 円（@1050YEN）
ベストアンサー率69% (477/687)

2005/12/06 02:38 回答No.1

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

質問者

お礼 2005/12/06 03:00

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

質問者

補足 2005/12/06 02:50

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

ログインすると、全ての回答が全文表示されます。