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

質問

お世話になります。

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

こんな感じです。

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 · ベストアンサー

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

お礼

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

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