Acest tutorial va explica modelul de obiecte VBA
Excel este alcătuit din obiecte - obiectul de registru de lucru, obiectul de foaie de lucru și obiectul de gamă pentru a menționa doar câteva. Fiecare dintre aceste obiecte este alcătuit din Evenimente, Proprietăți și Metode care pot fi controlate prin intermediul codului VBA.
Ierarhia obiectelor Excel
Vă puteți gândi la Ierarhia obiectelor în Excel și, de fapt, în orice program din Microsoft Office, ca un arbore genealogic cu obiectul aplicației (Excel în sine) fiind singurul obiect părinte din partea de sus a arborelui.
Nivelul superior - Aplicația Excel este un singur obiect. Cu toate acestea, fiecare dintre nivelurile ulterioare poate conține mai multe obiecte. Fiecare dintre aceste niveluri poate conține o COLECȚIE de obiecte - deci Excel în sine poate conține multe registre de lucru - o colecție de registre de lucru. Fiecare registru de lucru poate conține, la rândul său, multe foi de lucru și fiecare foaie de lucru poate conține apoi mai multe game diferite, forme, tabele pivot sau obiecte grafice, de exemplu. Există mult mai multe obiecte disponibile, dar graficul de mai sus vă va oferi o idee generală despre cum funcționează toate împreună.
Utilizarea obiectelor
Obiectele sunt utilizate în sub-proceduri și proceduri de funcționare pentru a controla modul în care se comportă Excel.
Următoarea procedură se referă la un registru de lucru curent utilizând Obiect de registru de lucru. Apoi creează o nouă foaie de lucru în acel registru de lucru folosind Foaie de lucru Obiect. În cele din urmă, folosește Obiectul Range pentru a îndrăzni și a colora o gamă de celule din foaia de lucru.
| 1234567891011121314 | Sub folosind obiecte ()Dim wkb Ca registru de lucruDim wks Ca foaie de lucruDim rngA As RangeDim rngB As Range'setează obiecteleSetați wkb = ActiveWorkbookSetați wks = wkb.Sheets.AddSetați rngA = wks.Range ("A1: E1")Setați rngB = wks.Range ("A2: E20")„manipulați obiectul de gamă prin îndrăzneală și schimbarea culoriirngA.Font.Bold = AdevăratrngB.Font.Color = -16776961Sfârșitul Sub |
