x = x + 1的简写？

Question

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

我发誓当我在大学学习VB.net课程时，有一种较短的方法可以告诉变量为自己添加''。也许x = + 1。我现在使用Access而不是visual studio。当我在VBE中尝试它时，它会删除+。我甚至删除了Option Explicit而没有更改

假设答案是否定的，那么就没有办法简单地将其简称为＆amp;它只是一个特殊的VBA

Answer 1

可悲的是，VBA中没有operation-assignment个运营商。

（加法赋值+=等可在VB.Net中获得）

毫无意义的解决方法;

function Inc(ByRef i As Integer)
   i = i + 1  
end function
...
Static value As Integer
inc value
inc value

Answer 2

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

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

例如：

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

如果函数inc()没有返回值，则上面的行将生成错误。