De cele mai multe ori, în Excel – program de calcul tabelar – ne este comod să aplicăm funcţii pentru a realiza acest lucru; sau se pot utiliza operaţiuni matematice (înmulţiri, scăderi etc.).
Mai comod este, în cazul în care se folosesc foarte des acele calcule, să fie constituite într-o funcţie particularizată. Spre exemplu, ne-ar interesa să calculăm preţul cu TVA sau să afişăm TVA-ul, dacă ştim preţul fără TVA şi procentul care se aplică. Simpla operaţiune matematică ar însemna:
Pret cu TVA = pret fara TVA * (1 + procent TVA)
Această operaţiune se poate materializa în funcţia
Pret_cu_TVA = pret_fara_tva * (1 + proc_tva)
Pentru aceasta, în VBA, inserăm un modul, în care vom crea funcţia de mai sus:
Public Function Pret_cu_TVA(pret_fara_tva As Double, proc_tva As Double)
Pret_cu_TVA = pret_fara_tva * (1 + proc_tva)
End Function
Dacă se doreşte calculul doar a TVA-ului, se poate similar, fiind chiar mai simplu:
Public Function TVA(pret_fara_tva As Double, proc_tva As Double)
TVA = pret_fara_tva * proc_tva
End Function
În figura 1 poate fi văzut cum se aplică funcţiile şi care este rezultatul.
Funcţiile particularizate pot fi, de asemenea, utile şi în cazul utilizării lui Select Case. Astfel, după cum se poate remarca în figura 2, în funcţie de acronimul tipului de studii, se afişează tipul studentului, fiind aşadar mai comod de lucru.
Public Function Tip_student(tip As String)
Select Case tip
Case "IF", "if"
Tip_student = "Student la zi"
Case "ID", "id"
Tip_student = "Student la distantã"
Case "FF", "ff"
Tip_student = "Student la fãrã frecventã"
Case "FR", "fr"
Tip_student = "Student cu frecventã redusã"
Case Else
Tip_student = "Nu este student!"
End Select
End Function
