Loops 在VBA Excel中创建循环

我是新加入博客的，在循环方面遇到了一些问题

我编写了下一个代码来生成一个随机值（范围C4），并继续添加，直到达到100为止

代码运行得很好，但我想让它成为一个循环

此外，还有3个条件： 1） 如果范围C6的值为1，则变量“valor”将为+5 2） 如果范围D6的值为1，则变量“valor”将为-1 3） 如果范围C6和范围D6都是和2：第一个C6将得到5，总和将为-1

有没有一种方法可以让它也使用循环？或者如果是这样的话

非常感谢你的帮助

干杯 赫克托

Sub-Crashers（）
价值=范围（“d4”）。价值“累积”
'========================================值=============================
如果勇气<100，则
随机化
范围（“c4”）。值=整数（20*Rnd）+1'a=随机
如果范围（“c6”）=1，则
valor=valor+（范围（“c4”）。值+5）
范围（“c6”）。值=0
范围（“d4”）。值=价值
其他的
如果范围（“d6”）=1，则
价值=（价值-1）+范围（“c4”）。价值
范围（“d6”）。值=0
范围（“d4”）。值=价值
其他的
如果（范围（“c6”）+范围（“d6”）=0，则
价值=价值+范围（“c4”）。价值
范围（“d4”）。值=价值
其他的
如果结束
如果结束
如果结束
MsgBox“Maximo es”和valor
'========================================值=============================
其他的
范围（“C4:D4”）。选择
选择.ClearContents
范围（“C4”）。选择
范围（“d4”）。值=0
范围（“c4”）。值=0
如果结束
端接头

Sub Crashers()

valor = Range("d4").Value 'acumulado

'=========================== VALUES =============================
If valor < 100 Then

Randomize
Range("c4").Value = Int(20 * Rnd) + 1 'a = random

If Range("c6") = 1 Then
valor = valor + (Range("c4").Value + 5)
Range("c6").Value = 0
Range("d4").Value = valor

Else

If Range("d6") = 1 Then
valor = (valor - 1) + Range("c4").Value
Range("d6").Value = 0
Range("d4").Value = valor
Else


If (Range("c6") + Range("d6")) = 0 Then
valor = valor + Range("c4").Value
Range("d4").Value = valor
Else

End If
End If
End If

'   MsgBox "Maximo es " & valor
'=========================== VALUES =============================
Else
    Range("C4:D4").Select
    Selection.ClearContents
    Range("C4").Select

    Range("d4").Value = 0
    Range("c4").Value = 0

End If
End Sub