| |
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
|
|
悩めるマクロ見習い
- 05/10/8(土) 7:16 -
