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没有改变就删除了

假设答案是否定的,那么就没有办法简单地说它并且它只是一个特殊的VBA

Answer 1

可悲的是operation-assignment,VBA 中没有运营商.

(Addition-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()返回任何值，则上面的行将产生错误。