数据复位后，If语法嵌套使用请教

tonehe

如附档及说明请教：

1.操作1按钮实现了，当前单元从4B，3B，2B，1B环的过程
2.增加了一个复位健，复位后让当前单元格显示4B，则再执行操作1时，应是从4B，3B，2B，1B
3.但是，当扫行操作1到3B时，安了复位健，B3单元格应是由4B变成3B（我想实现此），但是，是接复位前的3B变成2B
谢谢！

半百

fanyoulin

直接用单元格内容计算即可，不用设置公共变量：

   If Cells(3, 2) <> "1B" Then
       Range("B3") = Trim(Str(Val(Mid(Cells(3, 2), 1, 1)) - 1)) & "B"
    Else
       Cells(3, 2) = "4B"
    End If

大灰狼1976

是不是这样
Sub test()
Dim s$
s = "4B3B2B1B4B"
[A1] = Left(Split(s, [A1])(1), 2)
End Sub

Sub resetstr()
[A1] = "4B"
End Sub

tonehe

谢谢楼上的三位老师，我有在试，都是好方法，从不同的角度，。谢谢老师们，谢谢！

tonehe

各位老师，我现共设置操作1~5共5个按钮，共一个复位键，如同0楼的请教，按复位键后，分别复位成4A,4B，4W，4S，4K，再来点击各按钮时，都能从4-->3->2->1,我复位键加了如下代码，应还是哪里有不足，

Sub ControlMultipleCells()
Range("B3").Value = 4 & "A"
Range("C3").Value = 4 & "B"
Range("D3").Value = 4 & "W"
Range("E3").Value = 4 & "S"
Range("F3").Value = 4 & "K"
End Sub