エクセルｖｂａ 値渡しのｓｕｂプロシージャ

お世話になります。

エクセルＶＢＡにて、ｌｏｏｐ処理中にＣＡＬＬかけている
ｓｕｂが最初の一度だけしか呼べません。
なにか、特別にしなければならないことがあるのでしょうか。

こんな感じです。

dim　i　as　integer

sub　main()

　　i　=　1
　　max　=　5
　　do

　　　　if　day1　=　day2　then

処理１　データ１, データ2

　　　　end　if
　　　　i　=　i　+　1
loop　until　i　=　max
　　
end　sub

sub　処理１(Byval　引数1　as variant, 引数2 as　variant)


　　　msgbox("引数１" & 引数１)
　　　msgbox("引数2" & 引数２)


end sub


データ１　及び　データ２、
ＤＡＹ１　ＤＡＹ２は、必要に応じて
転送処理等やっています。

No.1 ベストアンサー 回答者： nag0720 回答日時： 2012/01/12 15:23

単に、

if　day1　=　day2　then
の条件が１回しか満たしていないからでは？
day1 , day2 の値を確認しましたか？

この回答へのお礼

解決はできませんでしたが、他の方法を
試しています。

お返事遅くなり申し訳ありませんでした。
ありがとうございました。

お礼日時：2012/02/09 20:17