Šī apmācība parādīs, kā izmantot VBA, lai izceltu šūnu vai šūnu diapazonu.
Nosacījuma formatēšana ir viens no veidiem, kā izcelt šūnas programmā Excel. Mēs varam izmantot arī VBA, lai veiktu šūnu izcelšanu.
Iezīmējiet šūnu
Lai izceltu šūnu VBA, mēs varam izmantot vienkāršu procedūru, kā parādīts zemāk.
| 123 | Sub HighlightCell ()ActiveCell.Interior.Color = vbRedBeigu apakš |
Iezīmējiet šūnu diapazonu
Līdzīgi mēs varam atlasīt šūnu diapazonu un izcelt visas diapazona šūnas.
| 1234 | Sub HighlightRange ()Diapazons ("A1: A10"). AtlasietAtlase.Interjers.Krāsa = vbSarkanaBeigu apakš |
Iezīmējiet šūnas, pamatojoties uz šūnu vērtību
Lai pievienotu nosacījumu šūnas izcelšanai, mēs varam izmantot IF paziņojumu, lai iezīmētu šūnu, ja šūnas vērtība ir virs noteiktas vērtības, šajā gadījumā lielāka par 10.
| 12345 | Sub HightlightCell_1Ja ActiveCell.Value> 10 tadActiveCell.Interior.Color = vbRedBeigas JaBeigu apakš |
Iezīmējiet šūnu diapazonu, pamatojoties uz šūnu vērtību
Lai pārbaudītu vērtības šūnu diapazonā, mums vajadzētu izlaist katru šūnu, noteikt tās vērtību un pēc tam attiecīgi izcelt šūnu. Tālāk sniegtajā piemērā vispirms noskaidrosim, ka diapazonā esošā vērtība ir skaitlis, un pēc tam pārbaudīsim, vai šis skaitlis ir lielāks par 10.
| 12345678910 | Sub HighlightRangeOfCells ()Dim rng As RangeKatram diapazonam ("A1: A10")Ja IsNumeric (rng.Value) TadJa rng.Vērtība> 10 Tadrng.Interior.Color = vbSarkansBeigas JaBeigas JaNākamais rngBeigu apakš |
Iezīmējiet šūnu ar nosacītu formatējumu
Mēs varam arī izmantot VBA, lai šūnai piemērotu nosacītu formatējumu, lai iezīmētu šūnu. Tālāk sniegtajā piemērā nosacījuma formatējums tiks piemērots katrai diapazona šūnai. Tāpat kā iepriekšējā piemērā, vispirms pārbaudām, vai šūnai ir skaitliska vērtība, un pēc tam piemērojam nosacījuma formatējumu.
| 12345678910 | ApakškopaConditionalFormatting ()Dim rng As RangeKatram diapazonam ("A1: A10")Ja IsNumeric (rng.Value) Tadrng.FormatConditions.Add Type: = xlCellValue, Operators: = xlGreater, Formula1: = "= 10"rng.FormatConditions (1) .Interior.Color = vbSarkansrng.FormatConditions (1) .StopIfTrue = NepareiziBeigas JaNākamais rngBeigu apakš |
Iezīmējiet šūnu, kad mainās atlase
Mēs varam padarīt šūnas izcelšanu dinamisku, kad šūnu rādītājs pārvietojas pašreizējā darblapā, izmantojot notikumu Worksheet_Change. Tālāk redzamajā piemērā tiks noņemta visa lapas izcelšana (izņemot nosacīto formatējumu), un aktīvā šūna tiks iezīmēta sarkanā krāsā (ColorIndex = 3).
| 1234 | Privāta apakšdarblapa_SelectionChange (pēc mērķa kā diapazons)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3Beigu apakš |
