细胞增值与胶印

-3

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细胞增值与胶印

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

来源

2014-10-13 Anon231125

确定。你有什么问题？ – ApplePie

因此，每次点击按钮，您想要将A6的值添加到A7？ –

尝试使用公共变量这样的：

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

来源

2014-10-13 05:48:23 L42

这工程兄弟但如果我选择一个单元然后删除它然后如果我再次单击按钮值应该是以前一样。 – Anon231125

@ Anon231125啊，这将是一个不同的方法。上面的代码将继续增加您单击时正在评估的单元格。 – L42

一旦我删除最后一行的单元格值，然后单击按钮重置为1，然后偏移1,0。我该如何制作类似的东西？ – Anon231125

细胞增值与胶印

回答

相关问题