|
hine さん ありがとうございます。
winXp Excel2003ですが
どうしても駄目です。
いろいろ試しましたが下記の部分を記載するとエラーになってしまいます。
何処かに問題があると思いますが・・
原因が分かりません。困りました。
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
|
|