Keisti langelio spalvą - .Interior.ColorIndex
Norėdami pakeisti langelio spalvą, galime naudoti:
Langelis.Interior.ColorIndex = Num
Kur:
• Langelis yra langelio nuoroda
• Interjeras - nurodo faktinės ląstelių spalvos spalvą (interjero ypatybė)
• „Colourindex“ yra vienos iš 56 „Excel“ spalvų vertė nuo 1 iki 56
O skaičius yra langeliui priskirta skaičiaus spalva. Tačiau ne visada lengva prisiminti, kuris skaičius atspindi kokią spalvą. Ši paprograma keičia langelio spalvą pagal eilutės numerį. Pavyzdžiui, 3 eilutė turės 3 spalvą ir pan.
Kadangi „Excel“ yra 56 iš anksto nustatytos spalvos, tai reiškia, kad 59, 115 langelių spalva bus tokia pati kaip 3 eilutės langelio:
| 123456789101112 | Pasirinkimas aiškusPrivati antrinė komandaButton1_Click ()„Colour_Range“ (skaičiuoklės („Sheet2“). Diapazonas („A1: A2000“))Pabaiga SubPapildomas spalvų diapazonas (langelio diapazonas kaip diapazonas)„Spalvins kiekvieną diapazono langelį„Dim Cell“Kiekvienai langeliui Cell_RangeCell.Interior.ColorIndex = Ląstelė. 56 eilutės modLangelis. Poslinkis (0, 0). Vertė = ląstelė. EilutėKitasPabaiga Sub |
Rutiną suaktyvina paspaudimo įvykis.
Norėdami atsisiųsti .XLSM failą šiai pamokai, spustelėkite čia.
