Question

Dim storenum As Integer, cellval As Range, cellval1 As Range
cellval = Range("A6").Select
cellval1 = Range("A7").Select
Select Case cellval
    Case Is = Range("A6").Activate
    Range("A6").Value = 1

    End Select
Select Case cellval1
    Case Is = Range("A7").Activate
    Range("A7").Value = 2


End Select

当点击命令按钮时，A6将具有值1然后移动到A7如果再次按下按钮它将增加1，这将给出2。

编辑：即使一个单元格被删除，如何使值保持不变。我认为使用静态，但我不知道如何以正确的方式使用它我一直都会遇到错误。

Answer 1

尝试使用公共变量，如下所示：

Public n As Long '~~> Declare a public variable at the top of the module

然后在你的子尝试中尝试这样的事情：

With Sheets("Sheet1").Range("A6").Offset(n, 0) '~~> change to suit
    If n = 0 Then
        .Value =  1
    Else
        .Value =  .Parent.Range(.Address).Offset(-1, 0) + 1
    End If
    n = n + 1
End With

单元格值增量和偏移量

1 个答案: