x=x1的VBA速记？

Question

Sub btn1_Click()
Static value As Integer
value = value + 1
MsgBox value
End Sub

我发誓我在上VB的时候。net课程在大学里，有一种更短的方法告诉变量将“”添加到自身中。也许x=1。不过，我现在使用的是Access，而不是visual studio。当我在VBE中尝试时，它会删除。我甚至删除了选项Explicit，没有任何更改

假设答案是否定的，那就没有捷径了

Answer 1

如果您想直接在函数中调用递增的数字，此解决方案效果更好：

Function inc(ByRef data As Integer)
    data = data + 1
    inc = data
End Function

例如：

Wb.Worksheets(mySheet).Cells(myRow, inc(myCol))

如果函数inc（）不返回值，则上述行将生成错误。

Answer 2

遗憾的是，VBA中没有操作分配运算符。

（加法赋值=在VB. Net中可用）

无意义的解决方法；

Sub Inc(ByRef i As Integer)
   i = i + 1  
End Sub
...
Static value As Integer
inc value
inc value