マクロでの次の実行マクロへの記述

質問

マクロでの次の実行マクロへの記述

役に立った：0件

質問者：noname#72697
投稿日時：2002/03/18 13:56
困り度：

下記のマクロを記述しました。
一つのマクロ処理を終わらせて、次のマクロ（例：test）を動かしたいのですが何処に
記述したら良いかわかりません。
教えてください。

Sub Macro1()
Dim i As Integer
Dim buff As String
i = 2
While 1
If Range("B" & i).Value = "" Then
End
End If
buff = Range("B" & i).Value
Range("B" & i).Value = Left(buff, 7) + " " + Mid(buff, 8, 5) + " " + Right(buff, 6)
i = i + 1
Wend
　　Call　test →ここに仮に記述したのですが、testのマクロに行きません。
End Sub
以上

この質問への回答は締め切られました。

回答(2件)

No.2ベストアンサー20pt

回答者：nishi6
回答日時：2002/03/18 16:24

gonta_gomaさんとほとんど同じ？違う？

Sub Macro1()
　　Dim i As Integer
　　Dim buff As String

　　i = 2
　　buff = Range("B" & i).Value
　　While buff <> ""
　　　　Range("B" & i).Value = Left(buff, 7) & " " & Mid(buff, 8, 5) & " " & Right(buff, 6)

　　　　i = i + 1
　　　　buff = Range("B" & i).Value
　　Wend

　　Call test
End Sub

通報する

この回答へのお礼

出来ました。ありがとうございました。

No.1ベストアンサー10pt

回答者：gonta_goma
回答日時：2002/03/18 14:33

このマクロには繰り返し終了条件が無く、Range("B" & i).Value = "" がTRUEになったところでマクロが終了しますのでtestは実行されません。

繰り返しを次の様にしたらどうでしょう。

While Not Range("B" & i).Value = ""
　buff = Range("B" & i).Value
　Range("B" & i).Value = Left(buff, 7) + " " + Mid(buff, 8, 5) + " " + Right(buff, 6)
　i = i + 1
Wend
Call　test

通報する