Fig. 1

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ă
Fig. 2

Î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 distanţã"
        Case "FF", "ff"
            Tip_student = "Student la fãrã frecvenţã"
        Case "FR", "fr"
            Tip_student = "Student cu frecvenţã redusã"
        Case Else
            Tip_student = "Nu este student!"
    End Select
End Function

Lasă un răspuns

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate cu *

9 + 1 =