Zemāk mēs apskatīsim programmu Excel VBA ka izceļ aktīvās šūnas rindu un kolonnu (atlasītā šūna). Šī programma pārsteigs un pārsteigs jūsu priekšnieku.
Situācija:
Katru reizi, kad mainām lapas 1 aktīvo šūnu, ir jāizpilda makro. To var panākt, izveidojot darblapas atlases maiņas notikumu.
1. Atveriet Visual Basic redaktoru.
2. Veiciet dubultklikšķi uz Sheet1 (Sheet1) Project Explorer.
3. Kreisajā nolaižamajā sarakstā izvēlieties Darblapa. Labajā nolaižamajā sarakstā izvēlieties SelectionChange.
Darblapas atlases maiņas notikumam pievienojiet šādas koda rindiņas:
4. Mēs deklarējam četrus Integer tipa mainīgos. Viens ar nosaukumu rowNumberValue, viens ar nosaukumu columnNumberValue, viens ar nosaukumu i un viens ar nosaukumu j.
Dim rowNumberValue kā vesels skaitlis, columnNumberValue kā vesels skaitlis, i kā vesels skaitlis, j kā vesels skaitlis
5. Pirmkārt, mēs pievienojam rindu, kas maina visu šūnu fona krāsu uz “No Fill”.
Šūnas.Interior.ColorIndex = 0
6. Mēs inicializējam mainīgo rowNumberValue ar aktīvās šūnas rindas numuru un mainīgo columnNumberValue ar aktīvās šūnas kolonnas numuru.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Mēs izceļam kolonnu zilā krāsā. Tas ir: visas šūnas, kuru rindas numurs ir mazāks vai vienāds ar rowNumberValue un kolonnas numurs ir vienāds ar columnNumberValue
Attiecībā uz i = 1 uz rindasSkaitļaVērtība
Šūnas (i, columnNumberValue) .Interior.ColorIndex = 37
Tālāk i
Paskaidrojums: šajā piemērā (skatīt attēlu iepriekš) rindasSkaitlisVērtība ir 12 un kolonnaNumuruVērtība ir vienāda ar 8. Koda rindas starp For un Next tiks izpildītas divpadsmit reizes. Ja i = 1, Excel VBA krāso šūnu 1. rindas un 8. kolonnas krustojumā. Ja i = 2, Excel VBA krāso šūnu 2. rindas un 8. kolonnas krustojumā utt.
Piezīme. ColorIndex numura 37 (zils) vietā varat izmantot jebkuru ColorIndex numuru.
8. Līdzīgā veidā mēs izceļam rindu zilā krāsā. Tas ir: visas šūnas, kuru rindas numurs ir vienāds ar rowNumberValue un kolonnas numurs ir mazāks vai vienāds ar columnNumberValue.
J = 1 uz kolonnuNumuruVērtība
Šūnas (rowNumberValue, j). Interjers.ColorIndex = 37
Nākamais j
9. Tagad ir pienācis laiks pārbaudīt programmu. Lejupielādējiet Excel failu un skatiet, kā tiek mainīta aktīvās šūnas rinda un kolonna katru reizi, kad maināt aktīvo šūnu.
