|
初心者です。
ComboBoxを利用し日付の取得を行う方法を質問します。
ComboBoxには2004年から現在までの年、月をリストに入れたく思います。
また常にNowの年月の既定表示が希望です。
それを利用して取得した年月をRange("C5") に代入するのが目的です。
自分なりにマクロを組んでみましたがぜんぜん駄目です。
宜しくお願いします。
フォームイメージ:
| ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄|
| |
|cmbYear1/cmbMonth1 〜 cmbYear2/cmbMonth2|
| |
| |
| 期間選択ボタン |
| |
|_____________________|
Private Sub CommandButton4_Click()
Dim i As Integer 'ループカウンター
'年コンボボックスに選択範囲をセット
For i = 2004 To CInt(Format(Now, "yyyy"))
Me.cmbYear1.AddItem (Format(i, "0000"))
Next i
'現在年をセット
Me.cmbYear1.Value = Format(Now, "yyyy")
'月コンボボックスに選択範囲をセット
For i = 1 To 12
Me.cmbMonth1.AddItem (Format(i, "00"))
Next i
'現在月をセット
Me.cmbMonth1.Value = Format(Now, "MM")
'年コンボボックスに選択範囲をセット
For i = 2004 To CInt(Format(Now, "yyyy"))
Me.cmbYear2.AddItem (Format(i, "0000"))
Next i
'現在年をセット
Me.cmbYear2.Value = Format(Now, "yyyy")
'月コンボボックスに選択範囲をセット
For i = 1 To 12
Me.cmbMonth1.AddItem (Format(i, "00"))
Next i
'現在月をセット
Me.cmbMonth1.Value = Format(Now, "MM")
Worksheets("sheet2").Range("C5") = Me.cmbYear1.Value & "年" & Me.cmbMonth1.Value & "月" & "〜" & Me.cmbYear2.Value & "年" & Me.cmbMonth2.Value & "月" &
End Sub
|
|