2 Компьютермен жұмыс жасау әдісі. Барлық түсініктемелердің қаріптерін Excel жұмыс кітабына өзгерту

Excel жұмыс кітабына көптеген түсініктемелерді енгізгеннен кейін, сіз барлық түсініктемелердің қаріптерін теңшеуіңіз мүмкін. Бұл жағдайда сіз осы мақалаға сілтеме жасай аласыз. Мұнда біз сізге 2 қарапайым әдіспен бөлісеміз.

Көріп отырғанымыздай, Excel бағдарламасына енгізілген түсініктемелер автоматты түрде әдепкі қаріпті қолданады. Кейде сіз түсініктемелердің қаріптерін өзгерткіңіз келуі мүмкін. Егер бірнеше түсініктемелер болса, оларды қолмен өзгерту үшін келесі 1-әдісті қолдануға болады. Алайда, егер жүздеген пікірлер болса, онда сіз соңғы құралдарды таңдағаныңыз жөн.

1-әдіс: Бірінен соң бірін өзгерту

1. Алдымен жұмыс парағындағы түсініктемені таңдаңыз.
2. Содан кейін оны тінтуірдің оң жағымен басып, контекстік мәзірден «Пікірді пішімдеу» тармағын таңдаңыз.

   

3. Әрі қарай, кішкене қалқымалы диалог терезесінде қаріптер мен стильдерді өз қалауыңыз бойынша таңдауға болады.

   

4. Сайып келгенде, «Жарайды» басыңыз.
5. Кейінірек сіз осы тәсілмен түсініктемелерді қолмен бір-бірлеп өзгертуге болады.

2-әдіс: VBA арқылы пакеттік өзгерту

1. Бастау үшін, Excel VBA редакторын « сілтемесімен іске қосыңызExcel бағдарламасында VBA кодын қалай іске қосуға болады«.
2. Содан кейін, «Microsoft Visual Basic for Applications» терезесінде жобаға немесе модульге төмендегі VBA кодын салыңыз.

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. Кейін бұл макросты «F5» батырмасын басу арқылы іске қосыңыз.
4. Ақырында, макро аяқталғаннан кейін, жұмыс парағына оралыңыз.
5. Көріп отырғаныңыздай, барлық түсініктемелердің қаріптері келесі скриншотта көрсетілгендей өзгертілген:

салыстыру

Бұзылған Excel файлын қалпына келтіру

Компьютеріңіз кенеттен өшіп қалған кезде, егер кейбір Excel файлдары сақталмаған болса, келесіде компьютер жүктелгенде, сіз Excel файлдарының бұзылғанын байқай аласыз. Егер сіз файлдарды қайтарғыңыз келсе, онда сізде мықты және сенімді Excel қалпына келтіру құралы сияқты көмекке жүгінуден басқа амал жоқ, мысалы DataNumen Excel Repairқалпына келтіруге болады бүлінген Excel деректер оңай.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com