条件が満たされるまでマクロを繰り返します。

Question

私は繰り返し作業をするためにマクロを作成しています。あなたのクリアな視界を与えるために、私はそれが何をしたと何のフローチャートと同様の下に私の最初のマクロ（VBA）コードを用意しました：

ここ

マクロの物語の説明：

1. チェックマクロは単語が「合併」が見つかった場合の列Kのすべてのセルは、それが言葉「MFC済」
2. が含まれている場合、それはマクロを呼び出した後、それはすべて再チェックする別のマクロ（Macro_X）
3. を呼び出します"MERGED"という単語がまだ含まれている場合は、列Kのセル
4. マクロで "Merged"という単語が見つかった場合は、Macro_Xが再び呼び出されます。
5. 条件は、列Kに「結合」という単語が含まれていない場合にのみ停止します。

6. マクロが列「K」に「結合」単語を見つけなかった場合は、Macro_Zを呼び出します。列の

   Last = Cells(Rows.Count, "K").End(xlUp).Row 
   For i = Last To 1 Step -1 
       If (Cells(i, "K").Value) = "Merged" Then 
   
        Call macro_x 
   
       End If 
   Next I 
   

スクリーンショットK

私はすでに上記のコードを持っているが、それは働いていません。理由は分かりません。何が間違っているのか、より良いコードを提案するのを助けてください。

Answer 1

単純なブール変数を追加して、 "MERGED"という単語が見つかったかどうかを確認できます。

Dim Word_Found as Boolean 

Last = Cells(Rows.Count, "K").End(xlUp).Row 
For i = Last To 1 Step -1 
    If (Cells(i, "K").Value) = "Merged" Then 
     Call macro_x 

     Word_Found = True 
     i = LAST 

    End If 
Next I 

If Not(Word_Found) Then Call macro_z 

上記のコードは、コードから変更することができます。

以下のコードは、フローチャートを見ながら書かれています。

While Not (Columns("K").Find("Merged") Is Nothing) 
    Call macro_x 
Wend 
Call macro_z 

Answer 2

Macro_Xの最後に最初のマクロを呼び出すことができます。 macro_xため

Sub checker() 
Last = Cells(Rows.Count, "K").End(xlUp).Row 
For i = 1 To Last Step -1 
    If (Cells(i, "K").Value) = "Merged" Then 

     Call macro_x 

    End If 
Next I 
Call macro_z 
End Sub 

：最初のマクロの

Sub macro_x() 
'DO SOMETHING HERE 

Call checker 
End Sub 

編集：私は大文字で始まっていない、あなたのセルに "マージ" されて表示さ

For i = 1 To Last Step -1 

Answer 3

最初のものしかし、あなたのコードではありません。

ですので、これに変更してください。

Last = Cells(Rows.Count, "K").End(xlUp).Row 
For i = Last To 1 Step -1 
    If (Cells(i, "K").Value) = "merged" Then 

     Call macro_x 

    End If 
Next I