エクセル２０１３ＶＢでオーバーフロー

質問

よろしくお願いします。

エクセル２００７で動いていたＶBを２０１３で動くようにしているところです。
下記のVBを動かしたところ最終行のところでオーバフロー　エラーが出ました。

'オーフィルターの設定

Workbooks(book1).Activate
Sheets("A").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) >>>>>オーバフロー

２００７では動いていたのですが
対処方法を教えてください。

回答No.1

nishi6 · ベストアンサー

前回も同じような質問に答えた記憶がありますが、違うプロシージャでしょうか。

エラーが出て対処法が分からず質問されているのでしょうが、分からない側で元のプローシージャをほとんど削除しているということは、その部分は無関係と断定しているわけです。その断定ができるならエラーの原因もわかるはずです。しかし質問しています。どこかおかしいですね。

提示するコードはなるべく削除しない方がいいでしょう、公開できない部分だけを隠すこともできるはずです。「個人の処理」とか「特殊処理」と書けばいいわけです。

また今回の最後の行というのも何かおかしいですね。「format」や「"」が抜けているようで実際の一行ではないように思えます。

エラーが出れば、「オーバーフローしました。」のダイアログボックスで「デバッグ」ボタンを押すと、エラー行は黄色くなっていて、その行の変数にマウスポインタを置けばその変数の内容が表示されるはずです。ブレークポイントを設けて一行ずつ実行することもできます。

前回書きましたが、この最後の行でエラーが起きる可能性はたぶん「myday」です。で、消されているので「myday」がどのような変数かわかりません。

想像ですが、このようなときは「Dim myday」などと、意味があるのかないのかわからない宣言を見かけます。「myday」は日付でしょうが、この型を省略した場合はVariant型になってしまいます。この最後の行までエラーが出ないということはVariant型になっている可能性があります。

たぶん、前回の質問で「Format」を追加されたのではないかと思います。そうすると今回オーバーフローが出た原因もうなずけます。2007時点でうまくいっていなかった可能性もあります。

とにかくこの数行では想像しかできませんが、「myday」にどんな値が入っているか調べてみるべきでしょう。

あくまでも、数行を見ての想像です。ご参考に。

お礼

ありがとうございます.
補足入力できないので新たに質問として投稿します。

補足

回答ありがとうございました。前回のプロシージャーではformatの部分を追加変更してたら正常に作動しました。今回は違うプロシージャです。オートフイルターの使い方は同じです。補足入力できるよう加工して補足入力します。よろしくお願いします。