２００７エクセルVBが２０１３エクセルで動かない

質問

よろしくお願いします。
エクセル２００７VBをエクセル２０１３に移行して動かしたところ
＞＞＞＞の部分でエラーが出ました
２００７では動いていたのですが、なぜエラーになったのかわかりません。

プログラムは下記の通りです。

Dim iti1 As String
Dim ITI2 As String
Dim ITI3 As String
Dim ITI4 As String
Dim ITI5 As String
Dim ITI6 As String
Dim ITI7 As String
Dim ITI8 As String
Dim myRange As Range
Dim myrange1 As Range
Dim answer As Integer
Dim c As Double
Dim n As Double

Workbooks(book1).Activate
Sheets("A").Select

ITI4 = Range("D65536").End(xlUp).Address '----D列の最終行から上方向の終端セルを選択

Set myRange = Worksheets("A").Range("d6", ITI4)

answer = Application.WorksheetFunction.Count(myRange)

Set myrange1 = Worksheets("A").Range("g5")

For c = 1 To answer 'データー個数のカウント

If myrange1.Offset(c) = myday Then n = n + 1

Next
　　　　Workbooks(book1).Activate
Sheets("A").Select

'コピー座標の取得

iti1 = Range("D65536").End(xlUp).Address '----D列の最終行から上方向の終端セルを選択
ITI7 = Range(iti1).Offset(, 9).Address
Range("a5", ITI7).AutoFilter FIELD:=7, Criteria1:=myday
ITI2 = Range("M65536").End(xlUp).Address '----M列の最終行から上方向の終端セルを選択

'コードコピー

ITI5 = Range(ITI2).Offset(-n + 1, -10).Address '左上のセル＞＞＞＞＞＞＞＞＞ここでアプリケーション定義又はオブジェクトの定義エラーがおこります。

ITI6 = Range(ITI2).Offset(, -9).Address '右下のセル
Range(ITI5, ITI6).Copy

'ｓｃと銘柄コード貼り付け
Workbooks(book3).Activate
Sheets("記入").Select
ITI3 = Range("c65536").End(xlUp).Address '----C列の最終行から上方向の終端セルを選択
ITI8 = Range(ITI3).Address '終端セルの次を選択
Range(ITI8).Offset(1).PasteSpecial Paste:=xlPasteValues

よろしくお願いします。
まだ何本かVBのプログラムがあるのですが移行に際しての注意などがあるサイトがあったら教えてください。

回答No.1

nishi6 · ベストアンサー

完璧に理由が分かった訳ではありませんが、下記の修正を行ってみてください。

'コピー座標の取得
：
Range("a5", ITI7).AutoFilter FIELD:=7, Criteria1:=myday

　　　　↓↓変更

Range("a5", ITI7).AutoFilter FIELD:=7, Criteria1:=Format(myday, "yyyy/m/d")

当方、Excel2010ですが、
　Excel2007は、AutoFilterメソッドのCriteria1は日付型、
　Excel2010は、AutoFilterメソッドのCriteria1は文字列型
が基本になります。基本と書いたのは、シート側の書式設定も絡むからです。

また、質問に提示されたコードから「myday」の型が読み取れなく、シート側の書式設定も分からないので、とりあえず、上に書いたように修正して動かしてみてください。

Excel2007で動いていたということで、「myday」は日付型と推測したわけです。かつ、2003あたりから移行されたのではないかとの推測もあり、日付型と考えました。それから、Excel2013がないため、こちらはExcel2010と同じではと考えました。

フィルターが正常に機能していないためITI5のOffset値がシート外になってしまったのではと考えました。

見当違いかもしれません。ご参考に。

＞まだ何本かVBのプログラムがあるのですが移行に際しての注意などがあるサイトがあったら教えてください。
このフィルターの日付は気をつけるところでしょう。検索での「前方一致」と「完全一致」なども気になりますが、詳しくないのとExcel2013がないのでよく分かりません。