|
マクロ初心者です。
下記の通り、日付リストを作成したのですが
Excel2003では正常に実行されるのに
Excel2010だと For i = 0 To 21 の箇所で
コンパイルエラーになってしまいます。
エラーを解消するにはどうしたらよろしいでしょうか?
申し訳ありませんが、ご教授お願いします。
**下記**
'日付リスト作成
Sub Auto_Open()
Dim lst As String
Range("F11,Q11") = "(日付を選択)"
With Range("F11,Q11").Validation
.Delete
For i = 0 To 21
lst = lst & Format(Date - i, ",yyyy/mm/dd")
Next i
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=lst
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "指定日"
.InputMessage = ""
.ErrorMessage = "リストの中から選択して下さい。"
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End Sub
|
|