[vba] اختزال ل س = س + 1؟


Answers

إذا كنت ترغب في الاتصال بالرقم المتزايد مباشرة في وظيفة ، يعمل هذا الحل bettter:

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

فمثلا:

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

إذا كانت الدالة inc() بإرجاع أية قيمة ، فسيؤدي السطر أعلاه إلى حدوث خطأ.

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

أقسم عندما كنت أتلقى دورة VB.net في الكلية كان هناك طريقة أقصر لإخبار متغير لإضافة '' إلى نفسه. ربما x = + 1. أنا أستخدم Access الآن على الرغم من استخدام الاستوديو المرئي. عندما أحاول ذلك داخل VBE فإنه يزيل +. حتى أنني أزلت Option Explicit بدون أي تغيير

بافتراض أن الإجابة ستكون بلا ، لا توجد طريقة للإمساك بها وخصائصها الخاصة فقط من VBA






Links