Excel İş Kitabında Bütün Şərhlərin Şriftlərini Toplu Dəyişdirmək üçün 2 Metod

İndi paylaş:

Excel iş kitabına çoxlu şərhlər daxil etdikdən sonra siz bütün şərhlərin şriftlərini fərdiləşdirmək istəyə bilərsiniz. Bu vəziyyətdə, bu məqaləyə müraciət edə bilərsiniz. Burada sizə 2 asan üsul paylaşacağıq.

Gördüyümüz kimi, Excel-ə daxil edilən şərhlər avtomatik olaraq standart şriftdən istifadə edir. Bəzən şərhlərin şriftlərini dəyişdirmək istəyə bilərsiniz. Bir neçə şərh varsa, onları əl ilə dəyişdirmək üçün sadəcə aşağıdakı Metod 1-dən istifadə edə bilərsiniz. Ancaq yüzlərlə şərh varsa, sonuncu vasitəni seçmək daha yaxşıdır.

Metod 1: Bir-bir dəyişdirin

  1. Əvvəlcə iş vərəqində şərh seçin.
  2. Sonra üzərinə sağ vurun və kontekst menyusundan "Şərhi Formatla" seçin.

    "Şərhi Formatla" menyu elementini seçin

  3. Sonra, kiçik açılan informasiya qutusunda siz öz zövqünüzə uyğun şriftləri və üslubları seçə bilərsiniz.

    "Şərh formatı" dialoqu

  4. Nəhayət, "OK" düyməsini basın.
  5. Daha sonra şərhləri bir-bir əl ilə dəyişmək üçün bu üsuldan istifadə edə bilərsiniz.

Metod 2: VBA vasitəsilə toplu dəyişdirmə

  1. Başlamaq üçün, ""a istinadən Excel VBA redaktorunu işə salınExcel-də VBA kodunu necə işlətmək olar".
  2. Sonra, “Proqramlar üçün Microsoft Visual Basic” pəncərəsində aşağıdakı VBA kodunu layihə və ya modula qoyun.
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

 

VBA Layihəsi

  1. Daha sonra bu makrosunu sadəcə “F5” düyməsinə basaraq işlədin.
  2. Nəhayət, makro bitdikdən sonra iş vərəqlərinə qayıdın.
  3. Gördüyünüz kimi, aşağıdakı ekran görüntüsündə göstərildiyi kimi bütün şərhlərin şriftləri dəyişdirilib:

Şərh Şrift Nəticəsini Dəyişin

Müqayisə

Üstünlüklər Dezavantajları
Metod 1 Az miqdarda şərhləri tez və asanlıqla emal etmək Çox şərh olması halında çox narahatdır
Metod 2 Şərhlərin sayından asılı olmayaraq çox effektivdir Virus infeksiyası riskini artırın

Təhlükəli Excel faylını bərpa edin

Kompüteriniz qəflətən bağlandıqda, bəzi Excel faylları saxlanmayıbsa, növbəti dəfə kompüter yenidən yükləndikdə, Excel fayllarının xarab olduğunu görə bilərsiniz. Bu nöqtədə, faylları geri qaytarmaq istəyirsinizsə, güclü və etibarlı Excel bərpa alətinin köməyindən istifadə etməkdən başqa çarəniz yoxdur. DataNumen Excel Repairbərpa edə bilən zədələnmiş Excel asanlıqla məlumat əldə edin.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql-ı düzəldin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com

İndi paylaş:

Şərhlər bağlıdır.