VBA-Lecția 5. Proprietăți (Properties)

În acest articol, vom învăța cum să scriem codul VBA pentru a controla conținutul celulelor, celulele în sine și literele.

O proprietate este un atribut al obiectului care definește una dintre caracteristicile obiectului, cum ar fi dimensiunea, culoarea sau poziția acestuia pe ecran, sau un aspect al comportamentului său, cum ar fi dacă este activat sau vizibil pe ecran.

Pentru a modifica caracteristicile unui obiect, trebuie să modificați valoarea proprietăților acestuia.

1. Scrieți valorile în celulă

Mai întâi, deschideți editorul, adăugați un modul, copiați această macrocomandă acolo:

Sub Properties() 'moonexcel.com.ua
   Range ("A1")
End Sub

Am apelat la celula A1. Acum să încercăm să controlăm această celulă. Pentru a vedea ce putem face, să adăugăm un punct după Range ("A1").

Selectați Value și apăsați Tab. Vom obține următorul cod:

Sub Properties() 'moonexcel.com.ua
        Range ("A1").Value
End Sub

Valoarea Value afișează conținutul celulei.

Acum să scriem valoarea 35 în celula A1:

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = 35
   'Valoarea celulei A1 este 35
End Sub

Acum să încercăm să scriem textul în celulă (atunci când atribuim o valoare de text, aceasta trebuie inclusă între ghilimele duble „”):

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = "Există ceva text aici"
End Sub

Rețineți că macro-ul va afișa valorile din foaia pe care ați deschis-o ultima dată. Prin urmare, pentru a controla conținutul unei celule pe orice foaie a cărții, va trebui să scriem calea completă către celulă, și anume, să adăugăm numele foii în fața codului, de exemplu:

Opțiunea 1. Aplicam după numele literei - Sheets("Sheet2").

Sub properties() 'moonexcel.com.ua
   Sheets("Sheet2").Range("A1").Value = "Există ceva text aici"
   'Înseamnă: deschideți foaia 2, selectați celula A1 și scrieți textul în valoarea acesteia
End Sub

Opțiunea 2. Aplicam nu după numele literei, ci după numărul de serie - Sheets(2).

Sub properties() 'moonexcel.com.ua
   Sheets(2).Range("A1").Value = "Există ceva text aici"
End Sub

În mod similar, dacă vrem să ne referim la o celulă dintr-un alt registru de lucru, trebuie să scriem numele registrului de lucru la începutul codului:

Sub properties() 'moonexcel.com.ua
   Workbooks("Book2.xlsx").Sheets("Sheet2").Range("A1").Value = "Există ceva text aici"
End Sub

Deși specificăm parametrul Value în exemplele noastre, acesta poate fi de fapt omis deoarece este implicit. Adică, aceste două linii de cod vor fi echivalente:

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = 35
   Range("A1") = 35
End Sub

2. Ștergerea valorilor

Să ștergem valoarea 35 din celula A1, pe care am înregistrat-o la începutul lecției:

Sub properties() 'moonexcel.com.ua
   Range("A1").Clear
   'Mijloace: selectați celula A1 și ștergeți-o
End Sub

3. Formatarea valorilor

Dacă selectați Font, va apărea o listă de proprietăți pe care le puteți aplica celulei:

Formatare: modificarea dimensiunii textului

Să setăm celula la 35 și să reducem dimensiunea fontului la 8:

Sub properties() 'moonexcel.com.ua
   Range("A1") = 35
   Range("A1").Font.Size = 8
End Sub

Formatare: faceți textul aldine

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Bold = True
End Sub

Îndepărtați secrețiile uleioase:

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Bold = False
End Sub

Formatare: faceți textul italic

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Italic = True
End Sub

Formatare: text subliniat

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Underline = True
End Sub

Formatare: setați tipul fontului

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Name = "Arial"
End Sub

Formatare: colorați celula

Sub properties() 'moonexcel.com.ua
   Range("A1").Interior.ColorIndex = 6
End Sub