Copierea unei zone de celule cu ajutorul unui buton de comanda

In a doua aplicatie vom realiza copierea unei zone de celule dintr-o foaie de calcul in alta cu ajutorul unui buton de comanda. Stabilim parametrul name pentru primele doua foi de calcul dintr-un fisier Excel astfel: prima foaie se va numi Foaie1 (cea in care se va copia), iar cea de-a doua se va numi Foaie2 (cea din care se va copia). Dupa aceasta vom insera un buton de comanda pe prima foaie de calcul si vom edita codul pentru evenimentul Click al butonului:

Private Sub CommandButton1_Click()

Foaie2.Range('A1:B2').Value = Foaie1.Range('A1:B2').Value

End Sub

Parametrul Range este de tip obiect si reprezinta o zona de celule. Zona de celule la care parametrul Range face referire se scrie intre paranteze rotunde si ghilimele astfel: se scrie adresa celulei aflate in coltul stanga sus, urmata de ":", dupa care se scrie adresa celulei aflate in coltul dreapta jos al zonei de celule. Parametrul Range fiind de tip Object are si el la randul lui mai multi parametri, intre care si parametrul Value. Acest parametru face referire la continutul celulelor din zona de memorie respectiva.

Exemple

Exemplul 1.

Private Sub Worksheet_Activate()

MsgBox 'a fost activata foaia de calcul'

End Sub

In acest exemplu este afisat un mesaj atunci cand este activata o foaie de calcul.

Exemplul 2

Dim linie As Integer

Dim coloana As Integer

Dim continut As String

Private Sub Afisare_Click()

linie = InputBox('introduceti rindul :') ' introduceti randul de pe care se face citirea.

coloana = InputBox('introduceti coloana:') 'introduceti coloana de pe care se face citirea.

Feuil2.Cells(1, 1) = Feuil1.Cells(linie, coloana) ' muta continutul randului si coloanei cerute

in alta pagina.

Feuil2.Activate

End Sub

Acest exemplu copiaza o zona de celula de la o alta locatie.

TEMA: -Sa se introduca de la tastatura randul si coloana de unde se face citirea.

-Sa se coloreze in galben scrisul si in albastru fundalul in celula unde se afiseza

valoarea celulei.

-Copierea sa se realizeze din alta foaie de calcul.