エクセルマクロ中の再計算について

質問

A1 -> 11(初期値)
A2 -> if(A1>10,1,2)

上記の様に表にデータが入っている場合に以下のマクロを実行した時に再計算されずにマクロの処理が進み遅くなって再計算が実行されるため正確なマクロが実行されないのですが、どうしたら確実に再計算を実行したあとにマクロが処理を継続するようにさせる事が出来るのでしょうか、よろしくお願いします。なお、実際のマクロ及び関数は違います。

Range("A1").value = 1
Calculate
if Range("A2").value = 1 then
　msgbox "OK"
endif
end

以上の場合に『OK』メッセージが表示されるものと理解していますが、表示されずに終了してしまいます。

回答No.8

papayuka

#6です。
変数　i2　と　i3　と　Range("AD46").Value　の式、Range("C26").Value　のセルに入っている関数式が不明で良く解かりませんのでアドバイスを。

if 条件　then
　真の時
else
　偽の時
end if

のように else を使った方がコードが見渡しやすくなります。

i が 0 のループはループ前に Sheets("合計").Range("A1").ClearContents を入れれば不要に思います。

※２の条件は
Sheets("合計").Range("AD46").Value 　が「空白かどうかだけの判断」
で、空白以外なら条件内に入り、※３も実行される仕組みになっていますよね？
ループ中に、Sheets("合計").Range("A1").Value = b　が「再計算される」と
Sheets("合計").Range("AD46").Value　が「空白になり」
※２が「実行されない」事を望んでいるのですか？？

お礼

補足漏れをさせて下さい。

AD46が職場別の合計金額であり、私の実行したい処理は、例を言うと
　A.○部署の実績なし(AD46=0)　－＞　IF文内を実行しない(別シートを作成しない)
　B.△部署の実績あり(AD46>0)　－＞　IF文内を実行する(シート名「合計」を別シートにコピーして当該部署の実績表を作成する)
ところが、実績の無い部署を一度処理すると、その後、実績が有ってもIF文内が処理されず、実績なし(AD46=0)と処理されて、職場ごとの実績シートが作成されない。

また、AD46は別に関数を記載しましたがそれ以外が記載漏れであったので、下記に記載します。なお、#6さんの言われた通りに単純にAD46=sum(・・・)に変更しました。

※i2 -> シート名「請求先」に職場名を入力してあるのですが当該請求先の数以上ループさせる必要が無いために、部署数をカウントする関数をSheets("請求先").Range("A5")に入力して、その値を当該変数に代入しています。
※i3 -> 部署番号が連番（同一の番号は付与していません）でないために、シート名「請求先」に入力している部署名の表の上から順番に部署番号を表から抽出する時の当該部署のセルの行数です。
※Sheets("合計").Range("C26") -> =IF($A26="","",VLOOKUP($A26,品名等!$C$6:$F$45,2,FALSE))
※Sheets("合計").Range("A26") -> =IF(ISERROR(SMALL(実績!J$5:J$596,B26))=TRUE,"",SMALL(実績!J$5:J$596,B26))
※Sheets("合計").Range("A26") -> 21(上下に２つの表がありA26は２枚目の１行目のデータセル)
※実績!J$5:J$596 -> 全体で実績のある品目を品目番号を昇順にJ5から列べた

最後に、「if then else end if」等は、この後、実施します。

補足

何回も有り難う御座います。

職場毎のデータがあり、各職場毎に集計表を作成させるマクロなんですが、シート名『合計』は職場別の合計を作成するシートで、
Sheets("合計").Range("AD46").Valueは合計金額欄であり、=IF(SUM(F46,H46,J46,L46,N46,P46,R46,T46,V46,X46,Z46,AB46)=0,"",SUM(F46,H46,J46,L46,N46,P46,R46,T46,V46,X46,Z46,AB46))となっています。
ですから、その職場に実績がある場合には、If内のマクロにて、別シートを作成し、実績が無い場合には、次の職場へ変更して処理を継続させる。
以上です。よろしくお願いします。