[[20060804134116]]　『Comboboxの日付』（POST）　ページの最後に飛ぶ

『Comboboxの日付』（POST）

 userform上でComboboxに日付を選択できるようにしてあります。
 comboboxで選択したら日付がシリアル値で表示されてしまいます。
 ワークシートに行くとformat関数でちゃんとした日付になっているのですが
 Comboboxの表示の所も変えるときはどのようにしたらいいのですか？

 又、ループか何かを使ってComboboxで日付を選択する方法とかありますか？
 ご教授下さい。

 Option Explicit

 Private Sub ComboBox1_AfterUpdate()
 UserForm1.ComboBox1.value = Format(ComboBox1.Value, "ggge年m月d日")
 End Sub

 Private Sub CommandButton1_Click()
 With Worksheets(1)
 .Range("b1").Value = ComboBox1.Value
 End With
 End Sub

 Private Sub UserForm_Initialize()
 With UserForm1
 .ComboBox1.RowSource = "Sheet1!A1:A6"
 End With
 End Sub

 AfterUpdateを外して
 Initialize を

 Dim r As Range
 With Me.ComboBox1
     .Clear
     For Each r In Sheets("Sheet1").Range("a1:a6")
         .AddItem r.Text
     Next
 End With

 こんな感じでいけませんか？　(seiya)

 （可能なら）Sheet1!A1:A6を文字列として日付入力しておく方法もあります。
(みやほりん)(-_∂)b

 それか
 Private Sub ComboBox1_Change()
    ComboBox1.Value = Format(ComboBox1.Value, "ggge年m月d日")
 End Sub
 でもＯＫ
 　　　　（弥太郎）

 seiyaさん　みやほりんさん　弥太郎さんレスありがとうございます。
 無事出来ました。

 文字列で入力すれば何も変換することはないのですね。勉強になります。

 もう一つ質問なんですが、
 ｼｰﾄ上からではなく
 UserformのInitializeで今日の日付をもとめて前後２週間位を
 Commboboxで選択させることは出来るのでしょうか？

 こんな塩梅でっか？

  data = Date

 With Me.ComboBox1
    For i = 1 To 15
        .AddItem data - 8 + i
    Next i

 End With

 お早いレスありがとうございます。

 無事に出来ました。
 すごく勉強になりました。
 みなさんありがとうございました。

 (POST)

コメント返信：

[ 一覧(最新更新順) ]

[[20060804134116]] 『Comboboxの日付』（POST） ページの最後に飛ぶ

[[20060804134116]]　『Comboboxの日付』（POST）　ページの最後に飛ぶ