| |
返信ありがとうございます
For x = 下 To 上
Flg = False
Worksheets(3).Cells(a, 1).Formula = "xxxx'" & z & ".xxx'!xxxx"
Application.OnTime Now + TimeValue("00:00:1"), "値に変換"
Do While False = Flg
DoEvents
Loop
のWorksheets(3).Cells(a, 1).Formula = "xxxx'" & z & ".xxx'!xxxx"
でます数式をいれてます。
そのあとtimevalueで1秒間まった後
値を変換して
値の変換側で
Sub 値に変換()
Worksheets(3).Cells(a, 1) = Worksheets(3).Cells(a, 1)
Flg = True
フラグをtrueにすることによりtimevalueのあとの
do until loopを抜けることにより動機をとっているつもりですが?
この方法だとだめですかね。
forのzにたいするnext x についてはただの構文ミスです。
ここに書くとき数式の×とかぶるのでzに書き直したときに
next のxを書き直すことを忘れていました。
|
|