EXCEL VBAで「ByRef引数の・・」コンパイルエラー

EXCEL VBAで以下のコンパイルエラーでました。

bw_uploads_excelbyreferr

原因らしきものが、以下のサイトで見つかりました。

http://www.vbalab.net/vbaqa/data/excel/log/tree_460.htm

型宣言を以下のようにしていたのですが、

Dim k, iGyo, kGyo As Long

どうも、これでは、「k」と「iGYo」は、バリアント型と解釈されるようです。
すべての変数をLong型と宣言するには、

Dim k As Long, iGyo As Long, kGyo As Long

とするか、

Dim k As Long
Dim iGyo As Long
Dim kGyo As Long

としないといけないようです。



コメントを残す