如何将循环计数器重置为每行？

Question

我是VBA的新手。我正在创建一个程序，该程序将根据表格Cell的{​​{1}}值附加图像。 Cell3Text对应于＆＃34;图像＆＃34;中的图像文件的文件名。夹。例如，第一行的 15-001 有 15-001r1.jpg ， 15-001r2.jpg ， 15- 001r3.jpg ，..等等。每行都有不同数量的图像文件（* r1，* r2，* r3）。

我在这里使用循环的文件计数器。但是在下一行，计数器会增加前一行的计数。如何将循环计数器重置为每行？

Cell3Text

Answer 1

如果我过分简化您的问题，请道歉，但您不仅需要执行以下操作：

If Len(Cell3Text) = 6 And receiptsImg <> "" Then

    count=0'Reset the counter for a new matching cell

    While receiptsImg <> ""
        count = count + 1
        ...
    Wend
    MsgBox count 'debugger only. shows the number of files containing "r" according to 3rd cell in a row
                ' but seems every loop adds to the previous count
Else

  MsgBox "No scanned image for " & Cell3Text & ". otherwise it is improperly renamed."

End If