■■■■■■■■　Page Navi ■■■■■■■■

ブログトップへ戻る

カテゴリ別に表示

サンプルファイル一覧

■■■■■■■■　記 事 No.[19]　Entry Start　■■■■■■■■

<--- 一覧へ戻る

---

[コンボボックスに今週の日付を追加する]

コンボボックスに今週に日付を追加するマクロです。

今週の日付の取得については、下アドレスの応用です。
http://vocexcel.blog7.fc2.com/blog-entry-17.html

---

Private Sub CommandButton1_Click()

'------------------------------------
'今週の日付をコンボボックスに追加
'------------------------------------

'今週の期間を取得


Dim sToday As String
Dim dToday As Date

Dim topDate As Date
Dim lstDate As Date

Dim idate As Date


ComboBox1.Clear

dToday = Date '基準日
'dToday = "2008/09/17" '基準日

sToday = Format(dToday, "aaa") '基準日を曜日に変換

MsgBox "基準日 --> " & dToday

Select Case sToday

　Case "月"
　topDate = dToday
　lstDate = dToday + 6

　 Case "火"
　topDate = dToday - 1
　lstDate = dToday + 5


　Case "水"
　topDate = dToday - 2
　lstDate= dToday + 4

　 Case "木"
　topDate = dToday - 3
　lstDate = dToday + 3

　Case "金"
　topDate = dToday - 4
　lstDate = dToday + 2


　Case "土"
　topDate = dToday - 5
　lstDate = dToday + 1


　Case "日"
　topDate = dToday - 6
　lstDate = dToday + 0

End Select



For idate = topDate To lstDate

　ComboBox1.AddItem idate

Next idate




End Sub

---

---