Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


75259 / 76732 ←次へ | 前へ→

【5915】Re:コンボボックスに今日からの日付を入れる
回答  Hirofumi E-MAIL  - 03/6/7(土) 23:21 -

引用なし
パスワード
   ゴメンナサイ、泊数は本来要らないと思って適当に書いてありました
以下の様に修正して下さい

Private Sub ComboBox1_Change()

  Dim i As Long
  Dim dtmFirst As Date
  Dim dtmEnd As Date

  dtmFirst = ChangeDateType(ComboBox1.Value)
  dtmEnd = DateAdd("m", 3, dtmFirst)

  With ComboBox2
    .Enabled = True
    .Clear
    For i = dtmFirst To dtmEnd
      .AddItem Format(i, strDateForm)
    Next i
  End With

End Sub

のプロシージャを

Private Sub ComboBox1_Change()

  Dim i As Long
  Dim dtmFirst As Date
  Dim dtmEnd As Date

  dtmFirst = ChangeDateType(ComboBox1.Value)
  dtmEnd = DateAdd("m", 3, dtmFirst)

  With ComboBox2
    .Enabled = True
    .Clear
    For i = dtmFirst To dtmEnd
      .AddItem Format(i, strDateForm)
    Next i
  End With
  TextBox1.Text = ""
  
End Sub

の様に
1 hits

【5893】コンボボックスに今日からの日付を入れる 経理課支払担当 03/6/6(金) 19:23 質問
【5896】Re:コンボボックスに今日からの日付を入れる Hirofumi 03/6/7(土) 1:25 回答
【5904】Re:コンボボックスに今日からの日付を入れる 経理課支払担当 03/6/7(土) 14:22 質問
【5910】Re:コンボボックスに今日からの日付を入れる Hirofumi 03/6/7(土) 18:52 回答
【5914】Re:コンボボックスに今日からの日付を入れる 経理課支払担当 03/6/7(土) 22:45 質問
【5915】Re:コンボボックスに今日からの日付を入れる Hirofumi 03/6/7(土) 23:21 回答
【5923】Re:コンボボックスに今日からの日付を入れる 経理課支払担当 03/6/9(月) 17:51 お礼
【5916】Re:カレンダーフォームによる別解 角田 03/6/9(月) 14:20 回答
【5940】Re:カレンダーフォームによる別解 経理課支払担当 03/6/10(火) 15:26 お礼

75259 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free