메인 컨텐츠로 가기

Excel의 모든 통합 문서에서 VBA 매크로를 저장하고 사용하는 방법은 무엇입니까?

어떤 경우에는 나중에 하나의 VBA 매크로를 여러 번 사용해야 할 수도 있습니다. ~하는 것이 가능하니 VBA 모듈을 새 문서에 어떻게든 저장 모든 통합 문서에서 사용할 수 있습니까? 대답은 예입니다. 이 튜토리얼에서는 목표를 달성하는 쉬운 방법을 소개합니다.
문서 save-use-vba-macros-in-all-workbooks 1

모든 통합 문서에서 VBA 코드 저장 및 사용


모든 통합 문서에서 VBA 코드 저장 및 사용

예를 들어 VBA 코드를 사용하여 숫자를 영어 단어로 변환모든 통합 문서에 VBA 모듈 저장 나중에 VBA 코드를 사용하려는 경우. 다음과 같이 하십시오.

1. 누르세요 Alt + F11 Excel에서 키를 클릭하고 응용 프로그램 용 Microsoft Visual Basic 창.

2. 클릭 끼워 넣다 > 모듈 모듈 창에 다음 매크로를 붙여넣습니다.

VBA 코드: 숫자를 단어로 변환

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. 을 클릭합니다 찜하기 리본의 왼쪽 상단 모서리에 있는 아이콘을 클릭하거나 Ctrl + S를 를 열려면 다른 이름으로 저장 창.문서 save-use-vba-macros-in-all-workbooks 2

4. 에서 다른 이름으로 저장 창에서 통합 문서 이름을 입력합니다. 파일 이름 상자. 그리고 선택 Excel 추가 기능(*.xlam) 에서 옵션 형식으로 저장 드롭 다운 목록.
문서 save-use-vba-macros-in-all-workbooks 3

5. 그런 다음 찜하기 버튼을 눌러 VBA 코드가 포함된 통합 문서를 엑셀 추가 기능.
문서 save-use-vba-macros-in-all-workbooks 4

6. 돌아 가기 뛰어나다, Excel 추가 기능으로 저장된 빈 통합 문서를 닫습니다.

7. 변환해야 하는 데이터가 있는 새 통합 문서를 엽니다. 수식 입력 = NumberstoWords (A2) 셀 B2에서 그만큼 # NAME? VBA 코드가 아직 모든 통합 문서에 적용되지 않았기 때문에 오류 값이 반환됩니다.
문서 save-use-vba-macros-in-all-workbooks 5

8. 로 이동 개발자 탭에서 엑셀 추가 기능 FBI 증오 범죄 보고서 추가 기능 그룹입니다.
문서 save-use-vba-macros-in-all-workbooks 6

9. 그만큼 추가 기능 대화 상자가 나타납니다. 클릭 검색 버튼을 클릭합니다.
문서 save-use-vba-macros-in-all-workbooks 7

10. 방금 저장한 추가 기능을 선택한 다음 OK 버튼을 클릭합니다.
문서 save-use-vba-macros-in-all-workbooks 8

11. 그런 다음 숫자를 단어로 변환 추가 기능 사용자 정의한 항목이 삽입되고 켜집니다. 클릭 OK 버튼을 눌러 설정을 마칩니다.
문서 save-use-vba-macros-in-all-workbooks 9

12. 이제 수식을 입력하면 = NumberstoWords (A2) B2 셀에서 엔터 버튼 키를 누르면 해당 영어 단어가 반환됩니다. 모든 결과를 얻으려면 자동 채우기 핸들을 아래로 끕니다.
문서 save-use-vba-macros-in-all-workbooks 10

노트:

코드를 실행해야 하는 경우 수동으로, 위의 단계에서 찾을 수 있는 방법이 없습니다. 걱정하지 마세요. 있다 두 가지 방법 코드를 실행합니다.

  1. 에 코드를 추가할 수 있습니다. 빠른 도구 모음 도구 모음에서 코드 버튼을 클릭할 때마다 코드를 실행합니다.
    문서 save-use-vba-macros-in-all-workbooks 11
  2. 직접 누를 수도 있습니다. Alt + F11 코드 작업 상자를 열려면 코드를 찾은 다음 키를 누릅니다. F5 실행합니다.

기타 작업 (문서)

Excel의 모든 추가 기능을 나열하는 VBA 코드
Excel에서는 데이터를 더 잘 처리하기 위해 추가 기능을 추가하거나 삽입 할 수 있습니다. 아시다시피 옵션 창으로 이동하여 모든 추가 기능을 볼 수 있지만 시트의 모든 추가 기능을 나열하는 방법이 있습니까? 이제이 자습서에서는 Excel의 모든 추가 기능을 나열하기위한 VBA 코드를 제공합니다.

통합 문서를 열거나 닫을 때 VBA 매크로를 실행하는 방법은 무엇입니까?
이 기사에서는 매번 통합 문서를 열거나 닫으면서 VBA 코드를 실행하는 방법을 알려 드리겠습니다.

Excel에서 VBA 코드를 보호/잠그는 방법?
암호를 사용하여 통합 문서 및 워크시트를 보호할 수 있는 것처럼 Excel에서 매크로를 보호하기 위한 암호를 설정할 수도 있습니다.

Excel에서 VBA 매크로를 실행한 후 시간 지연을 사용하는 방법은 무엇입니까?
경우에 따라 Excel에서 VBA 매크로를 트리거하기 위해 타이머 지연을 만들어야 할 수 있습니다. 예를 들어 지정된 매크로를 클릭하여 실행하면 10 초 후에 적용됩니다. 이 기사는 그것을 달성하는 방법을 보여줄 것입니다.

 


  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 및 데이터 보관; 셀 내용 분할; 중복 행과 합계 / 평균 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 즐겨 찾기 및 빠른 수식 삽입, 범위, 차트 및 그림; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 피벗 테이블 그룹화 기준 주 번호, 요일 등 ... 잠금 해제되고 잠긴 셀 표시 다른 색상으로; 수식 / 이름이있는 셀 강조 표시...
kte 탭 201905
  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you very much hundred timessss
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations