Excel VBA-da ColorIndex-dan qanday foydalanish (4 ta misol)

Hugh West

16-10-2023 Makroslar va amp; Excel VBA
  • Buni Baham Ko'Ring
Hugh West

Ushbu maqolada men sizga Excel VBA da ColorIndex xususiyatidan qanday foydalanishingiz mumkinligini ko'rsataman. Siz VBA ning ColorIndex xususiyatidan foydalangan holda bir yoki bir nechta katakchalarning fonini, shriftini va chegara rangini belgilashni, shuningdek, bir katak rangini boshqasinikiga mos ravishda belgilashni o'rganasiz.

Excel VBA ColorIndex kodlari

Asosiy muhokamaga o'tishdan oldin Excelda mavjud bo'lgan barcha ranglarning ColorIndex ni bilish uchun quyidagi rasmga qarang VBA .

Amaliy ish kitobini yuklab oling

Ushbu maqolani o'qiyotganda mashq qilish uchun ushbu mashq kitobini yuklab oling.

VBA ColorIndex.xlsm

Excel VBA-da ColorIndex xususiyatidan foydalanish uchun 4 ta misol

Mana bizda mavjud Jupyter Group deb nomlangan kompaniyaning ayrim xodimlarining Ismlari, boshlang'ich maoshlari va Hozirgi ish haqi bilan ma'lumotlar to'plami.

Bizning maqsadimiz ushbu ma'lumotlar to'plamida VBA ning ColorIndex xususiyatidan turli xil foydalanishni ko'rishdir.

1. Excel VBA-da ColorIndex-dan foydalanib hujayra fon rangini o'rnatish

Siz VBA ning ColorIndex xususiyatidan foydalanib, hujayra fon rangini xohlaganingizcha o'rnatishingiz mumkin.

Keling, B4:B13 diapazonining fon rangini yashil rangga o'zgartiraylik.

⧭ VBA kodi:

Kod qatori quyidagicha bo'ladi:

Range("B4:B13").Interior.ColorIndex = 10

[10 - ColorIndex rangi yashil . Ranglar jadvaliga qarang.]

⧭ Chiqish:

Ushbu kodni ishga tushiring va siz fon rangini topasiz. diapazon B4:B13 yashil ga aylandi.

2. Excel VBA-da ColorIndex-dan foydalanib hujayra shrifti rangini o'rnatish

Shuningdek, Excelning ColorIndex xususiyatidan foydalanib istalgan katak matnining shrift rangini VBA yordamida ham o'rnatishingiz mumkin. .

Keling, B4:B13 diapazonining shrift rangini qizil rangga o'zgartiraylik.

⧭ VBA kodi:

Kod qatori quyidagicha bo'ladi:

Range("B4:B13").Font.ColorIndex = 3

[3 bu ColorIndex ning Qizil .]

⧭ Chiqish:

Ushbu kodni ishga tushiring , va siz B4:B13 diapazonining shrift rangini qizil ga aylantirganini topasiz.

3. Excel VBA da ColorIndex yordamida hujayra chegarasi rangini o'rnatish

Endi biz hujayra chegarasining rangini VBA ning ColorIndex xususiyatidan foydalanib o'rnatamiz.

Keling, B4:B13 diapazon chegarasining rangini qizil rangga o'zgartiraylik.

⧭ VBA kodi:

Kod qatori quyidagicha bo'ladi:

Range("B4:B13").Borders.ColorIndex = 3

⧭ Chiqish:

Ushbu kodni ishga tushiring. U B4:B13 diapazoni chegaralarining rangini qizil rangga o'zgartiradi.

4. ColorIndex yordamida hujayra rangini boshqa hujayraning rangiga o'rnating

Nihoyat, men sizga bir katak rangini boshqa hujayraning rangiga qarab o'zgartirish mumkinligini ko'rsataman.

Keling, fonni o'zgartiramiz. katak rangi B5 dan yashil .

Endi, biz D5 katakchaning fon rangini B5 katakchasiga mos ravishda o'zgartiring.

⧭ VBA kodi:

Kod qatori quyidagicha bo'ladi:

Range("D5").Interior.ColorIndex = Range("B5").Interior.ColorIndex

⧭ Chiqish:

Ushbu kodni ishga tushiring. U D5 katakning fon rangini B5 katakchasinikiga mos ravishda o'zgartiradi.

Shunga o'xshab, siz ColorIndex xususiyatidan foydalangan holda boshqa katakchaning shrift rangi yoki chegara rangi.

Qo'shimcha ma'lumot

Ushbu maqolada biz VBA ning ColorIndex xususiyatidan foydalangan holda hujayralar rangini o'zgartirdi.

ColorIndex xususiyatidan tashqari Ranglar bilan shug'ullanuvchi VBA ichidagi rang .

Uni batafsil bilish uchun shu yerni bosing.

Oldingi xabar Excelda ochiladigan o'qni qanday olib tashlash mumkin (6 usul)
Keyingi post Excelda daqiqalarni o'nlik sanoqqa qanday aylantirish mumkin (3 ta tezkor usul)

Hugh West - bu sohada 10 yildan ortiq tajribaga ega bo'lgan yuqori tajribali Excel treneri va tahlilchisi. Buxgalteriya hisobi va moliya yo‘nalishi bo‘yicha bakalavr va biznes boshqaruvi bo‘yicha magistr darajasiga ega. Xyu o'qitishga ishtiyoqi bor va unga amal qilish va tushunish oson bo'lgan o'ziga xos o'qitish usulini ishlab chiqdi. Uning Excel bo'yicha ekspert bilimlari butun dunyo bo'ylab minglab talabalar va mutaxassislarga o'z malakalarini oshirishga va o'z martabalarida muvaffaqiyat qozonishlariga yordam berdi. Xyu o'z blogi orqali o'z bilimlarini dunyo bilan baham ko'radi, jismoniy shaxslar va korxonalarga o'z salohiyatini to'liq ro'yobga chiqarishga yordam berish uchun bepul Excel darsliklari va onlayn treninglarni taklif qiladi.