コンボボックスにて (ID:119353)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 年・月・日のコンボボックスがあって、それぞれに初期値として システム日付の年月日を表示させたいということなら こんな感じでしょうか。 Dim i As Integer For i = 2005 To 2010 Combo1.AddItem i Next i For i = 1 To 12 Combo2.AddItem i Next i For i = 1 To 31 Combo3.AddItem i Next i Combo1.text = Year(Date) Combo2.text = Month(Date) Combo3.text = Day(Date)