Excel ish kitobidagi barcha izohlarning shriftlarini to'plamda o'zgartirishning 2 usuli

Excel ish kitobiga ko'plab sharhlar qo'shgandan so'ng, siz barcha sharhlarning shriftlarini sozlashni xohlashingiz mumkin. Bunday vaziyatda siz ushbu maqolaga murojaat qilishingiz mumkin. Bu erda biz sizga 2 ta oson usulni aytib beramiz.

Ko'rib turganimizdek, Excelga kiritilgan sharhlar avtomatik ravishda standart shriftdan foydalanadi. Ba'zida siz sharhlar shriftlarini o'zgartirishni xohlashingiz mumkin. Agar bir nechta sharhlar bo'lsa, ularni qo'lda o'zgartirish uchun quyidagi 1-usuldan foydalanishingiz mumkin. Biroq, agar yuzlab sharhlar mavjud bo'lsa, siz oxirgi vositalarni tanlaganingiz ma'qul.

1-usul: Birma-bir o'zgartiring

1. Birinchidan, ish varag'ida sharhni tanlang.
2. Keyin, ustiga o'ng tugmasini bosing va kontekst menyusidan "Izohni formatlash" -ni tanlang.

   

3. Keyinchalik, kichik qalqib chiquvchi dialog oynasida siz o'zingizning xohishingizga ko'ra shriftlar va uslublarni tanlashingiz mumkin.

   

4. Oxir-oqibat, "OK" tugmasini bosing.
5. Keyinchalik, sharhlarni birma-bir qo'lda o'zgartirish uchun bu usuldan foydalanishingiz mumkin.

2-usul: VBA orqali to'plamni o'zgartirish

1. Boshlash uchun, Excel VBA muharririni "ga havola qilib ishga tushiring.Excel-da VBA kodini qanday ishlatish kerak".
2. Keyin, "Microsoft Visual Basic for Applications" oynasida quyidagi VBA kodini loyiha yoki modulga qo'ying.

Sub BatchChangeFontsOfAllComments()

    Dim objWorksheet As Excel.Worksheet

    Dim objComment As Excel.Comment

   

    'Process all worksheet one by one

    For Each objWorksheet In ThisWorkbook.Worksheets

        If objWorksheet.Comments.Count > 0 Then

           For Each objComment In objWorksheet.Comments

               With objComment.Shape.TextFrame.Characters.Font

                    'Specify font name and size

                    .Name = "Comic Sans MS"

                    .Size = 10

                    'Use RGB function to create a color value

                    .Color = RGB(255, 0, 0)

                    .Italic = True

                    .Bold = True

               End With

           Next

        End If

    Next

End Sub

3. Keyinchalik, "F5" tugmachasini bosish orqali ushbu makrosni ishga tushiring.
4. Oxir-oqibat, makros tugagandan so'ng, ishchi varaqlarga qayting.
5. Ko'rib turganingizdek, quyidagi skrinshotda ko'rsatilganidek, barcha sharhlarning shriftlari o'zgartirildi:

qiyoslash

Buzilgan Excel faylini tiklash

Kompyuteringiz to'satdan yopilganda, ba'zi Excel fayllari saqlanmagan bo'lsa, keyingi safar kompyuter qayta yuklanganda, Excel fayllari buzilganligini ko'rishingiz mumkin. Ayni paytda, agar siz fayllarni qaytarib olishni istasangiz, kuchli va ishonchli Excel qutqaruv vositasidan foydalanishdan boshqa ilojingiz yo'q. DataNumen Excel Repair, tiklanishi mumkin buzilgan Excel osonlik bilan ma'lumotlar.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql-ni tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com