２０１３VBでオーバーフローエラー（２）

質問

よろしくお願いします。

前回の質問ではエラーの出た部分しか表示していなかった為、回答して頂いた方に
十分な情報が提供できずすみませんでした。
下記がエラーの出た部分までの全プログラムです。

Dim book1 As String 'ブック名1
Dim book2 As String 'ブック名2
Dim book3 As String 'ブック名3
Dim book4 As String 'ブック名4
Dim myday As Date
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 bunki1 As Integer
Dim c As Double 'カウント
Dim n As Double 'カウント

'ワークブックの設定
Workbooks("A.xls").Activate

book1 = Worksheets("ブックシート設定").Range("c3") 'コピー元
'book2 = Worksheets("ブックシート設定").Range("c5")
book3 = Worksheets("ブックシート設定").Range("c7") 'A
'book4 = Worksheets("ブックシート設定").Range("c9")
bunki1 = Worksheets("ブックシート設定").Range("c16")
myday = Worksheets("ブックシート設定").Range("c14")

'コピー元非表示を表示にする

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

Sheets("B").Select
Columns("G:J").Select
Selection.EntireColumn.Hidden = False
Columns("j:q").Select
Selection.EntireColumn.Hidden = False

'コードの個数を数える

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

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

Set myRange = Worksheets("B").Range("b6", ITI4)

answer = Application.WorksheetFunction.Count(myRange)

Set myRange1 = Worksheets("B").Range("e8")

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

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

Next

'オーフィルターの設定

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

ITI1 = Range("b65536").End(xlUp).Address '----b列の最終行から上方向の終端セルを選択
ITI7 = Range(ITI1).Offset(, 11).Address
Range("a8", ITI7).AutoFilter FIELD:=5, Criteria1:=Format(myday,"yyyy/m/d") >>>>>ここでオーバーフローエラー

前回指摘されたCriteria1:=mydayをCriteria1:=Format(myday,"yyyy/m/d") に追加変更しました。

読みにくいかもしれませんがよろしくお願いします。

回答No.3

tom04 · ベストアンサー

続けてお邪魔します。

＞書籍を見たのですがここま詳しく書いてあるものはありませんでした。

当方もVBAをかじり始めのころは色々な本を買って勉強していましたが、
書籍に書いてある方法は基本的なコトが主で、あまり応用が利かない経験があります。
もちろん基本的なコトは大切なのですが・・・
（当方の勉強方法に問題があるのかもしれません）
活字を見ながらモニタで確認という操作はどうも苦手なもので。

最近は本を買うコトはほとんどありません。
ネットで検索すればいくらでも問題解決方法は見つかると思います。

このようなサイトを覗いて自分で回答しなくても
他の方の回答を見るだけでも勉強になると思います。
（VBAのコードなどは人それぞれですので、特に参考になります）

ところで質問は解決したのでしょうか？m(_ _)m

回答No.2

tom04

No.1です。
たびたびごめんなさい。
mydayはちゃんと宣言がありましたね。
どうも失礼しました。

前回の方法でシリアル値でもエラーになる場合は
mydayを何も宣言せずValiant型にしたらどうなるでしょうか？

何度も失礼しました。。m(_ _)m

お礼

回答ありがとうございます。最初から正確な情報を提供すればよかったので、すみませんでした。
質問なのですが。
Criteria1が日付型ではなく文字型だと指摘していただきました。ありがとうございます。
書籍を見たのですがここま詳しく書いてあるものはありませんでした。どのようにしたらここまでの情報が得られるのですか？
よろしかったら教えていただけないでしょうか。

回答No.1

tom04

こんばんは！
コードを詳しくは見ていませんが、
＞myday
の宣言がないようですが、どこから来ているのでしょうか？

そして、日付でオートフィルタを掛けているようですが、
Excel2007までとExcel2010以降では注意が必要なようです。
↓のサイトが参考にならないでしょうか？

http://officetanaka.net/excel/vba/tips/tips151.htm

※　オートフィルタの列を一旦使っていない列にコピー＆ペースト　→　貼り付けたセルの表示形式を「G/標準」（シリアル値そのもの）としてみて
＞Criteria1:=Format(myday,"yyyy/m/d")
の部分を単純に
＞Criteria1:=myday
としたらどうなりますか？
（当然Field番号は変わってきますが・・・）m(_ _)m

お礼

回答ありがとうございます。