Mai jos vom analiza un program în Excel VBA acea evidențiază rândul și coloana celulei active (celula selectată). Acest program vă va uimi și impresiona șeful.
Situatie:
De fiecare dată când schimbăm celula activă pe Sheet1, trebuie executată o macro. Puteți realiza acest lucru prin crearea unui eveniment SelectionChange Event Sheet.
1. Deschideți Editorul Visual Basic.
2. Faceți dublu clic pe Sheet1 (Sheet1) în Project Explorer.
3. Alegeți Foaie de lucru din lista derulantă din stânga. Alegeți SelectionChange din lista verticală dreaptă.
Adăugați următoarele linii de cod la Evenimentul de selecție a foii de lucru:
4. Declarăm patru variabile de tip Întreg. Un numit rowNumberValue, unul numit columnNumberValue, unul numit i și unul numit j.
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
5. Mai întâi, adăugăm linia care schimbă culoarea de fundal a tuturor celulelor la „Fără umplere”.
Cells.Interior.ColorIndex = 0
6. Inițializăm variabila rowNumberValue cu numărul de rând al celulei active și variabila columnNumberValue cu numărul de coloană al celulei active.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Evidențiem coloana albastră. Adică: toate celulele cu numărul rândului mai mic sau egal cu numărulNumărValor și numărul coloanei egal cu numărulNumărValor
For i = 1 To rowNumberValue
Celule (i, columnNumberValue) .Interior.ColorIndex = 37
Apoi eu
Explicație: pentru acest exemplu (a se vedea imaginea de mai sus), rowNumberValue este egal cu 12 și columnNumberValue este egal cu 8. Liniile de cod dintre For și Next vor fi executate de douăsprezece ori. Pentru i = 1, Excel VBA colorează celula de la intersecția rândului 1 și coloanei 8. Pentru i = 2, Excel VBA colorează celula de la intersecția rândului 2 și a coloanei 8 etc.
Notă: în loc de ColorIndex numărul 37 (albastru), puteți utiliza orice număr ColorIndex.
8. În mod similar, evidențiem rândul albastru. Adică: toate celulele cu numărul de rând egal cu rândulNumărValoare și numărul coloanei mai mic sau egal cu coloanaNumărValor.
Pentru j = 1 La columnNumberValue
Celule (rândNumărValoare, j) .Interior.ColorIndex = 37
Următorul j
9. Acum este timpul să testați programul. Descărcați fișierul Excel și vedeți cum sunt evidențiate rândul și coloana celulei active de fiecare dată când schimbați celula activă.
