Afisarea valorii unei celule

Afisarea valorii unei celule

Vom realiza o prima aplicatie care va afisa pe ecran valoarea unei celule din alta foaie de calcul decat cea care este activa.

Pentru acesta vom crea un nou fisier Excel, iar in prima foaie de calcul vom insera un buton de comanda, caruia ii vom schimba parametrul Caption (din cel implicit CommandButton1 in "Afiseaza") cu ajutorul tabelei de proprietati (parametri).

Dupa aceasta vom activa editorul de cod VBA (apasand pe al treilea buton) si din lista derulanta cu obiecte de pe prima foaie de calcul vom alege CommandButton1, iar din lista de evenimente corespunzatoare lui vom alege evenimentul Click.

Declararea evenimentului Click corespunzator controlului CommandButton1

Lista derulanta cu obiectele care se afla pe prima foaie de calcul

Controlul CommandButton1

Codul corespunzator evenimentului Click este urmatorul:

Private Sub CommandButton1_Click()

Dim continut_celula As Variant

continut_celula = Feuil2.Cells(1, 'A')

MsgBox continut_celula

End Sub

In aceasta secventa de cod variabila continut_celula se declara ca fiind de tip Variant deoarece in ea se retine continutul celulei (care poate fi de orice tip), iar Feuil2 este numele celei de-a doua foi de calcul din care vom afisa valoarea celulei aflata pe primul rand  si prima coloana

Dupa scrierea codului se inchide editorul de cod VBA si se iese din modul de proiectare (se apasa pe primul buton de pe bara de controale standard). Acum poate fi folosit butonul de pe prima foaie de calcul. Daca se efectueaza un click pe buton atunci continutul primei celule din a doua foaie de calcul va fi afisat pe ecran.