特定の条件に当てはまるループ序数(1回)を境に処理を分ける方法

Question

以下のコードで、
Flg="/（BB）"の時の変数lを別の変数mに代入する方法
を知りたいです。

以下は、変数lを配列Itemsのインデックス番号として利用しているループ構文です。
lが特定の条件に当てはまるとき(要素の行頭5字が/(BB)の時)、そのループ序数以上か、以下か、で処理を分けたいです。
Items配列中、/(BB)は1回のみのため、mは1つの数字に定まります。

Sub LoopTestMacro()
Dim l As Integer, m As Integer, Origin
Origin = "あいうえお、かきくけ、さしす、せそなにぬ、たちつ、/（BB）たちつて、なにぬね"
Dim Items: Items = Split(Origin, "、")

For l = 0 To UBound(Items)
    Flg = Mid(Items(l), 1, 5)
        If Flg = "/（BB）" Then
            m = l
        End If

Next l

If l < m Then
        ActiveSheet.Range("A" & l).Value = "AA"
    ElseIf l >= m Then
        ActiveSheet.Range("A" & l).Value = "BB"
    End If

End Sub

現状のコードでは、m=lの時しかmにlが代入されないため、"たちつて"の行しかBBと示さ
れません。
'"たちつて"と"なにぬね"にBBを表示し、それ以外はAAを表示したいです。
実際はItemsの個数は不明のため、直接指定する方法は無しでお願いします。
最初に/BBで分けて別配列に挿入する方法も無しでお願いします。
実際は既に他部分と合わせて各要素が分かれて格納されてしまっているためです。
どうぞよろしくお願いいたします。

Answer 1

フラグっていうかこういうのなんていうんですかね。。。。。？

Sub test001()
    Dim v
    Dim strFlg As String
    Dim ix As Long
    Const cOrigin As String = "あいうえお、かきくけ、さしす、せそなにぬ、たちつ、/（BB）たちつて、なにぬね"
    Const cKey As String = "/（BB）"
    
    strFlg = "AA"
    For Each v In Split(cOrigin, "、")
        If InStr(1, v, cKey) Then strFlg = "BB"
        ix = ix + 1
        Range("A1")(ix).Value = strFlg
    Next
End Sub

あ、

要素の行頭5字が/(BB)の時

前方一致でしたか。。。。Like演算子でやった方がいいのかな。。。。

Answer 2

やりたいことがよく分からないですが、
下記のようなことでしょうか。

Sub LoopTestMacro()
    Dim l As Integer, Origin As String, Item As String, Flg As Boolean
    Origin = "あいうえお、かきくけ、さしす、せそなにぬ、たちつ、/（BB）たちつて、なにぬね"
    Dim Items: Items = Split(Origin, "、")
    Flg = False

    For l = 0 To UBound(Items)
        If Mid(Items(l), 1, 5) = "/（BB）" Then
            Flg = True
        End If
        If Flg = True Then
            ActiveSheet.Range("A" & l + 1).Value = "BB"
        Else
            ActiveSheet.Range("A" & l + 1).Value = "AA"
        End If
    Next l
End Sub

Comments

[ttyp03]

もはやFlgすら要らないんじゃないかと思いますが。

[ttyp03]

いや、訂正。"/（BB）"以降をBBにしてるのね。問題ないです。