Hamish는 어려운 작업에 직면 해 있습니다. 그는 수많은 Excel 통합 문서에 사용되는 기본 글꼴을 변경해야합니다. 그는 100 개가 넘는 통합 문서를 보유하고 있으며 이러한 통합 문서에 사용 된 글꼴을 회사 위임에 지정된 새 글꼴로 변경해야합니다. (기업 명령이 어떻게 될 수 있는지 알고 있습니다!)

이 작업에 접근하는 수동 방법은 각 통합 문서를로드하고, 각 워크 시트를 살펴보고, 셀을 선택하고, 해당 셀의 글꼴을 변경하는 것입니다. Hamish의 작업을 더욱 복잡하게 만들려면 각 통합 문서에서 여러 글꼴을 변경해야합니다. 즉, 글꼴 A, B, C 및 D가 주어지면 Hamish는 글꼴 A를 C로, 글꼴 B를 D로 변경해야합니다.

이 문제에 접근하는 가장 좋은 방법은 매크로를 사용하는 것입니다.

로드, 검색 및 변경이 너무 많아서 작업을 매크로에 관련시키는 것이 합리적입니다. 다음 매크로가 작업을 수행해야합니다.

Sub ChangeFontNames()

Dim vNamesFind     Dim vNamesReplace     Dim sFileName As String     Dim Wkb As Workbook     Dim Wks As Worksheet     Dim rCell As Range     Dim x As Integer     Dim iFonts As Integer     Dim sPath As String

'Change these lines as appropriate     'These are the fontnames to find     vNamesFind = Array("Arial", "Allegro BT")

'These are the fontnames to replace     vNamesReplace = Array("Wingdings", "Times New Roman")

'This is the folder to look for xls files     sPath = "C:\foldername\"



Application.ScreenUpdating = False     iFonts = UBound(vNamesFind)

If iFonts <> UBound(vNamesReplace) Then         MsgBox "Find and Replace Arrays must be the same size"

Exit Sub     End If     sFileName = Dir(sPath & "*.xls")

Do While sFileName <> ""

Set Wkb = Workbooks.Open(sPath & sFileName)

For Each Wks In Wkb.Worksheets             For Each rCell In Wks.UsedRange                 For x = 0 To iFonts                     With rCell.Font                         If .Name = vNamesFind(x) Then _                             .Name = vNamesReplace(x)

End With                 Next             Next         Next         Wkb.Close(True)

sFileName = Dir     Loop     Application.ScreenUpdating = True     Set rCell = Nothing     Set Wks = Nothing     Set Wkb = Nothing End Sub

자체 통합 문서에서 매크로를 사용하려면 몇 가지 작업을 수행해야합니다. 먼저 변경하려는 모든 통합 문서가 단일 폴더에 저장되어 있고 폴더 이름을 알고 있는지 확인하십시오. 그런 다음 매크로 내에서 매크로 시작 부분에 정의 된 변수를 변경합니다. vNamesFind 및 vNamesReplace 배열의 요소를 각각 찾고 바꾸려는 글꼴의 이름과 일치하도록 변경합니다. 그런 다음 통합 문서를 포함하는 폴더의 전체 경로를 포함하도록 sPath 변수를 변경해야합니다.

(경로에서 후행 백 슬래시를 잊지 마십시오.)

매크로를 실행하면 폴더의 각 통합 문서가 차례로로드됩니다.

그런 다음 각 통합 문서의 각 워크 시트를 살펴보고 모든 셀을 검사합니다. 셀에 찾을 글꼴 중 하나가 있으면 해당 글꼴로 바뀝니다. 통합 문서로 매크로가 완료되면 저장되고 다음 통합 문서가 처리됩니다.

새 워크 시트에서 이러한 유형의 문제를 피하려는 경우 Excel에서 스타일을 사용하는 방법을 살펴 봐야합니다. 원하는 수의 스타일을 정의하고 통합 문서 전체에서 사용할 수 있습니다. 나중에 특정 셀의 서식을 변경해야하는 경우 기본 스타일을 변경하기 만하면됩니다. (스타일은 _ExcelTips._의 다른 문제에서 다루었습니다.)

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (564)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Changing_Fonts_in_Multiple_Workbooks [여러 통합 문서에서 글꼴 변경].