Acest tutorial vă va învăța cum să apelați o funcție dintr-o procedură secundară în VBA.
Când creați o funcție în VBA, puteți folosi funcția ca UDF (Funcție definită de utilizator) în registrul dvs. de lucru Excel, sau o puteți apela dintr-o procedură secundară.
Apelarea unei funcții dintr-o procedură secundară
Odată ce ați creat o funcție, o puteți apela de oriunde din codul dvs. utilizând o procedură secundară pentru a apela funcția.
Luați în considerare funcția de mai jos:
123 | Funcția GetValue () Ca întregGetValue = 50Funcția de sfârșit |
Deoarece funcțiile returnează o valoare, pentru a apela funcția, trebuie să transmitem valoarea către ceva. În acest caz, vom transmite valoarea unei variabile:
123456789 | SubTestValues ()Dim intVal As Integer'executați funcția GetValueintVal = GetValue ()'și arată valoareaMsgBox intValSfârșitul Sub |
Apelarea unei funcții cu parametri
Dacă funcția are parametri, va trebui să treceți acești parametri din procedura secundară la funcție pentru a recupera valoarea corectă.
123 | Funcția GetValue (intA as Integer) Ca IntegerGetValue = intA * 5Funcția de sfârșit |
Pentru a apela această funcție, putem rula următoarea procedură secundară.
123 | SubTestValues ()MsgBox GetValue (10)Sfârșitul Sub |
Această procedură secundară ar trimite valoarea 10 funcției, care la rândul său ar multiplica acea valoare cu 5 și ar returna valoarea la 50 procedurii secundare.