|
悩めるマクロ見習い さん
おはようございます
winXp Excel2003で確認してみました。
悩めるマクロ見習い さんのコードを
コピー・貼り付けして
CombBoxのオブジェクト名をコードにあわせて
変更しても問題ありませんでした。
掲載されているコードで間違いそうな所は
CombBoxのオブジェクト名ぐらいだと思いますが・・・
お役に立てなくてごめんなさい。
>Private Sub UserForm_Initialize()
>
> Dim i As Integer 'ループカウンター
>
> '年コンボボックスに選択範囲をセット
> For i = 2005 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 = 2005 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.cmbMonth2.AddItem (Format(i, "00"))
> Next i
> '現在月をセット
> Me.cmbMonth2.Value = Format(Now, "MM")
>
>End Sub
|
|