Катак ичида форматни узгартириш. Изменение формата внутри ячейки.

         Баъзан катак ичидаги матнни бир кисмини "жирный", ёки "подчеркнутый" килиш зарурати булади. Оддий макросда бутун катакни узгартириш мумкин, лекин катак ичидаги матнни бир кисмини узгартираман десангиз, бирозгина бошкачарок код ёзиш керак булади. Шунга мисоллардан биттасини куриб утамиз.

            Мисол сифатида B2, B3 катагига 2 та фамилия ёзамиз, ва шуни ичида бор булган "М" харфини дастур топиб, "жирный" ва "подчеркнутый килиб куйсин деган вазифани куяйлик.

Энди код тахминан шу куринишда булиши керак. Кодни ичида ' белгиси оркали изохларимни колдираман хар битта сатр, функция учун.

Sub KatakIchidaFormat()

For r = 2 To 3

'for next ni tushuntirishga hojat bo'lmasa kerak, chunki oldingi maqolalarda bor ma'lumot

'r ni e'lon qilamiz 2 dan 3 gacha bu satrlar

Cells(r, 2).Select

'A katakni qiymatini o'ziga olsin

A = Cells(r, 2)

'instr funksiyasi matn ichidagi biror harf yoki matnning nechanchi simvoldan boshlanishini

'ya'ni pozitsiyasini aniqlab beradi

'masalan bu yerda birinchi simvoldan qidirishni A matndan boshlaydi, ichidan M harfini qidiradi, qidirish kriteriyasi: matn sifatida

D = InStr(1, A, "М", vbTextCompare)

'Activecell bu biz turgan katak, characters - harflari D - M harfining nechanchi simvol ekani,

'1 - esa M dan boshlab nechta simvolga ishlov berayotganimiz

ActiveCell.Characters(D, 1).Font.Bold = True

ActiveCell.Characters(D, 1).Font.Underline = True

'Font, Bold bu svoystva (xususiyatlar). Bold - Жирный, Underline - Подчеркнутый

Next r

End Sub

Куриб турганингиздай, изохлар алохида рангда. Агар бу кодни ишга туширсангиз натижа мана шундай ахволда булади:

Каерда куллаш мумкин, мисол:
Агар Лавозим & ФИШ битта катакда акс этаётган булса, буни лавозим кисмини бурттириб ("жирный" килиб), курсатиш зарурияти булган холатларда мана шундай макрос ёрдам бериши мумкин.



(c) Умрбек.