Excel VBA質問箱 IV

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

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


36943 / 76732 ←次へ | 前へ→

【44964】Re:教えてください
発言  Jaka  - 06/12/8(金) 12:56 -

引用なし
パスワード
   テキストボックスじゃできません。

Private Sub UserForm_Initialize()
Dim DD As Double, i As Double,sv as long,ct as long
For i = CDbl(CDate("2006/1/1")) To CDbl(CDate("2006/12/31"))
  Me.ListBox1.AddItem Format(i, "yyyy/m/d")
  If i = CDbl(Date) Then
   sv = ct
  Else
   ct = ct + 1
  End If
Next
Me.ListBox1.ListIndex = sv - 1
End Sub

0 hits

【44961】教えてください 素人マクロ 06/12/8(金) 12:35 質問
【44963】Re:UserformのTextBoxに日付 かみちゃん 06/12/8(金) 12:52 発言
【44964】Re:教えてください Jaka 06/12/8(金) 12:56 発言
【44966】タイトルは内容を示すものに 注意 06/12/8(金) 13:14 発言
【44974】Re:教えてください 素人マクロ 06/12/8(金) 15:58 質問
【44977】Re:教えてください Jaka 06/12/8(金) 17:05 回答
【44995】Re:教えてください 素人マクロ 06/12/9(土) 10:16 お礼

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