excel vbabutton来循环范围并增加值

需要帮助，任何人都可以教我如何使button回到原来的价值之后，它还是到最后一个？ 例如。 我设置循环值从1到10，10之后它应该回到1。

Sub LOOP_BUTTON() Sheet17.[L2] = Sheet17.[L2].Value + 1 End Sub 

谢谢

Answer 1

编辑：1

 Sub Demo() If Sheet17.[L2].Value = 10 Then Sheet17.[L2].Value = 1 Else Sheet17.[L2] = Sheet1.[L2] + 1 End If End Sub 

编辑：2如果你想要的结果为1,2,3,4,5,6,5,4,3,2,1

 Public IsDecrease As Boolean Sub Demo() If IsDecrease Then If Sheet17.[L2].Value = 1 Then IsDecrease = False Sheet17.[L2].Value = 2 Else Sheet17.[L2] = Sheet17.[L2] - 1 End If Else If Sheet17.[L2].Value = 6 Then IsDecrease = True Sheet17.[L2].Value = 5 Else Sheet17.[L2] = Sheet17.[L2] + 1 End If End If End Sub 

Answer 2

使用Mod ：

 Sub LOOP_BUTTON() Sheet17.[L2] = (Sheet17.[L2].Value Mod 10) + 1 End Sub