Makrolarni yozib olish

5) Tanlangan barcha hujayralar uchun bir xil
Siz xuddi shu so'lni oldinroq qilishingiz mumkin, lekin biroz to'liqroq, ya'ni harakat bosqichma -bosqich bajarilmaydi. Quyidagi misolda "Salom" barcha kataklarga yozilgan.
DoSomethingAllAsCells () vazifasi
Selection.Cells.Value = "(! LANG: Salom"!}
Sub tugatish


Matn rangini, shrift hajmini, shrift turini va boshqalarni o'zgartirish kabi juda ko'p kod qo'shish mumkin.
6) Har bir yacheykadagi formulalarni aniqlash
Sub CheckFormula ()
Agar diapazon ("A1") HasFormula = To'g'ri bo'lsa
MsgBox "Formula bor"
Shunga qaramay
MsgBox "Formula emas"
Agar tugasa
Sub tugatish

7) Sichqoncha ustidagi hujayra rangini o'zgartiring
Bundan tashqari, elektron jadval foydalanuvchilari bilan ko'proq interaktivlikni ta'minlashingiz mumkin. Ideal holda, interaktivlik ma'lumotni saqlash va vizualizatsiya qilishni osonlashtirish uchun mo'ljallangan. Quyidagi so'l sichqoncha bu hujayralarga mos keladigan ma'lumotlarni uzatganda, sizning jadvallaringiz bir xil rangdagi hujayralarni ko'rsatishi mumkinligiga misol.
Maxsus ishchi varaq_SelectionChange (ByVal maqsad sifatida)
Uy chizig'ining diapazoni
Range
Dim Line 2 uzun
Cells.Interior.ColorIndex = xlNone
Line2 = Target.Row
Chiziq boshlanishini = oralig'ini o'rnating ("A" va 2 -satr, maqsad)
5 -ustunda tanlangan katakchani bo'yaydi
Chiziqni o'rnatish = Range (hujayralar (Target.Row, 1), hujayralar (Target.Row, 5))
Hukmdor bilan
.Ichki.ColorIndex = 12
Bilan tugatish

8) Ichki rangni va shriftlarni o'zgartiring
Bu makro hujayralar harfiga ko'ra, hujayralar ichidagi va manbaidagi ranglarni o'zgartiradi.
Pastki Colorir_interior_letra ()
N = 1 uchun diapazongacha ("O65536"). Oxir (xlUp). Qator
O'lchov oralig'ini tanlang ("O" va "N")
"A" holati
Diapazon ("O" va N) .Intery.ColorIndex = 3
Range ("O" va N) .Font.ColorIndex = 1
"B" holati
Diapazon ("O" va N) .Intery.ColorIndex = 4
Range ("O" va N) .Font.ColorIndex = 2
"C" holati
Diapazon ("O" va N) .Intery.ColorIndex = 5
Rang ("O" va N) .Font.ColorIndex = 3
"D" holati
Diapazon ("O" va N) .Intery.ColorIndex = 7
Range ("O" va N) .Font.ColorIndex = 12
Boshqa holat
Diapazon ("O" va N) .Intery.ColorIndex = 6
Diapazon ("O" va N) .Font.ColorIndex = 4
Tanlashni tugatish
Keyingi N.