Function 함수이름(매개변수1 As 데이터타입, 매개변수2 As 데이터타입) As 반환타입
    ' 여기에 로직 작성
    함수이름 = 결과값  ' 이 줄이 반환값을 지정하는 부분!
End Function

Function 부가세포함(금액 As Double) As Double
    부가세포함 = 금액 * 1.1
End Function

Function 나이계산(주민번호 As String) As Integer
    Dim 생년 As Integer
    Dim 생월 As Integer
    Dim 생일 As Integer
    Dim 현재년도 As Integer
    
    ' 주민번호 앞 6자리에서 추출
    생년 = CInt(Left(주민번호, 2))
    생월 = CInt(Mid(주민번호, 3, 2))
    생일 = CInt(Mid(주민번호, 5, 2))
    
    ' 2000년대생 vs 1900년대생 구분 (7번째 자리로)
    If Len(주민번호) >= 7 Then
        Dim 성별코드 As Integer
        성별코드 = CInt(Mid(주민번호, 7, 1))
        If 성별코드 >= 3 Then
            생년 = 2000 + 생년
        Else
            생년 = 1900 + 생년
        End If
    End If
    
    현재년도 = Year(Now())
    나이계산 = 현재년도 - 생년
    
    ' 생일이 아직 안 지났으면 1 빼기
    If Month(Now()) < 생월 Then
        나이계산 = 나이계산 - 1
    ElseIf Month(Now()) = 생월 And Day(Now()) < 생일 Then
        나이계산 = 나이계산 - 1
    End If
End Function

Function 배경색코드(셀 As Range) As Long
    배경색코드 = 셀.Interior.Color
End Function

Function 배경색RGB(셀 As Range) As String
    Dim 색코드 As Long
    색코드 = 셀.Interior.Color
    ' RGB 분리
    Dim R As Integer, G As Integer, B As Integer
    R = 색코드 Mod 256
    G = (색코드 \ 256) Mod 256
    B = (색코드 \ 65536) Mod 256
    배경색RGB = "R:" & R & " G:" & G & " B:" & B
End Function

Function 초성추출(텍스트 As String) As String
    Dim 결과 As String
    Dim i As Integer
    Dim 코드 As Long
    Dim 초성목록 As String
    초성목록 = "ㄱㄲㄴㄷㄸㄹㅁㅂㅃㅅㅆㅇㅈㅉㅊㅋㅌㅍㅎ"
    
    결과 = ""
    For i = 1 To Len(텍스트)
        코드 = AscW(Mid(텍스트, i, 1))
        ' 한글 범위 체크 (가=44032, 힣=55203)
        If 코드 >= 44032 And 코드 <= 55203 Then
            Dim 초성인덱스 As Integer
            초성인덱스 = Int((코드 - 44032) / 588)
            결과 = 결과 & Mid(초성목록, 초성인덱스 + 1, 1)
        Else
            결과 = 결과 & Mid(텍스트, i, 1)
        End If
    Next i
    초성추출 = 결과
End Function

Function 색상합계(범위 As Range, 기준셀 As Range) As Double
    Dim 셀 As Range
    Dim 기준색 As Long
    Dim 합계 As Double
    
    기준색 = 기준셀.Interior.Color
    합계 = 0
    
    For Each 셀 In 범위
        If 셀.Interior.Color = 기준색 Then
            If IsNumeric(셀.Value) Then
                합계 = 합계 + 셀.Value
            End If
        End If
    Next 셀
    
    색상합계 = 합계
End Function

Function 조건텍스트합치기(범위 As Range, 구분자 As String, _
                          조건범위 As Range, 조건값 As Variant) As String
    Dim 셀 As Range
    Dim 결과 As String
    Dim i As Long
    
    결과 = ""
    i = 1
    
    For Each 셀 In 범위
        If 조건범위.Cells(i, 1).Value = 조건값 Then
            If 결과 <> "" Then 결과 = 결과 & 구분자
            결과 = 결과 & 셀.Value
        End If
        i = i + 1
    Next 셀
    
    조건텍스트합치기 = 결과
End Function

Function 반올림플러스(숫자 As Double, Optional 자릿수 As Integer = 0, _
                       Optional 방향 As String = "반올림") As Double
    Select Case 방향
        Case "올림"
            반올림플러스 = Application.WorksheetFunction.RoundUp(숫자, 자릿수)
        Case "내림"
            반올림플러스 = Application.WorksheetFunction.RoundDown(숫자, 자릿수)
        Case Else  ' 기본값: 반올림
            반올림플러스 = Application.WorksheetFunction.Round(숫자, 자릿수)
    End Select
End Function

Function 날짜범위생성(시작일 As Date, 종료일 As Date) As Variant
    Dim 날짜수 As Long
    Dim 결과() As Date
    Dim i As Long
    
    날짜수 = DateDiff("d", 시작일, 종료일) + 1
    ReDim 결과(1 To 날짜수, 1 To 1)
    
    For i = 1 To 날짜수
        결과(i, 1) = 시작일 + (i - 1)
    Next i
    
    날짜범위생성 = 결과
End Function

Function 가중평균(값범위 As Range, 가중치범위 As Range) As Double
    ' 엑셀의 SUMPRODUCT와 SUM을 VBA에서 직접 호출
    Dim 분자 As Double
    Dim 분모 As Double
    
    분자 = Application.WorksheetFunction.SumProduct(값범위, 가중치범위)
    분모 = Application.WorksheetFunction.Sum(가중치범위)
    
    If 분모 = 0 Then
        가중평균 = 0
    Else
        가중평균 = 분자 / 분모
    End If
End Function

Function 안전나누기(분자 As Double, 분모 As Double, _
                    Optional 에러시반환값 As Variant = 0) As Variant
    On Error GoTo 에러처리
    
    If 분모 = 0 Then
        안전나누기 = 에러시반환값
        Exit Function
    End If
    
    안전나누기 = 분자 / 분모
    Exit Function
    
에러처리:
    안전나누기 = 에러시반환값
End Function

' 이 코드는 워크북이 열릴 때 실행되도록 ThisWorkbook에 넣어야 해
Private Sub Workbook_Open()
    Application.MacroOptions _
        Macro:="부가세포함", _
        Description:="금액에 부가세(10%)를 포함한 금액을 반환합니다.", _
        Category:="사용자 정의", _
        ArgumentDescriptions:=Array("부가세를 계산할 금액을 입력하세요.")
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon>
    <tabs>
      <tab id="myTab" label="나의 도구">
        <group id="myGroup" label="사용자 정의 함수">
          
          <button id="btn1" 
                  label="부가세 계산기" 
                  imageMso="CalculatorInsert"
                  size="large"
                  onAction="버튼1클릭"/>
          
          <button id="btn2" 
                  label="데이터 정리" 
                  imageMso="TableStylesGallery"
                  size="normal"
                  onAction="버튼2클릭"/>
          
          <separator id="sep1"/>
          
          <button id="btn3" 
                  label="도움말" 
                  imageMso="Help"
                  size="normal"
                  onAction="도움말보기"/>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

' 리본 버튼 클릭 이벤트 처리
' 매개변수 control As IRibbonControl 은 반드시 있어야 해!
Sub 버튼1클릭(control As IRibbonControl)
    ' 부가세 계산기 폼 열기
    MsgBox "부가세 계산기를 실행합니다!", vbInformation, "나의 도구"
End Sub

Sub 버튼2클릭(control As IRibbonControl)
    ' 데이터 정리 매크로 실행
    Call 데이터정리매크로
End Sub

Sub 도움말보기(control As IRibbonControl)
    ' 도움말 URL 열기
    Shell "explorer.exe https://www.jaenung.net", vbNormalFocus
End Sub

<dropDown id="myDropDown" 
           label="함수 선택"
           onAction="드롭다운선택">
  <item id="item1" label="부가세 계산"/>
  <item id="item2" label="나이 계산"/>
  <item id="item3" label="초성 추출"/>
</dropDown>

Sub 드롭다운선택(control As IRibbonControl, id As String, index As Integer)
    Select Case index
        Case 0: MsgBox "부가세 계산 선택됨"
        Case 1: MsgBox "나이 계산 선택됨"
        Case 2: MsgBox "초성 추출 선택됨"
    End Select
End Sub

' UserForm1의 코드 창에 작성
Private Sub CommandButton1_Click()
    ' 계산 버튼 클릭 시
    Dim 금액 As Double
    
    If Not IsNumeric(TextBox1.Value) Then
        MsgBox "숫자를 입력해주세요!", vbExclamation
        Exit Sub
    End If
    
    금액 = CDbl(TextBox1.Value)
    
    Label_부가세.Caption = "부가세: " & Format(금액 * 0.1, "#,##0") & "원"
    Label_합계.Caption = "합계: " & Format(금액 * 1.1, "#,##0") & "원"
End Sub

Private Sub CommandButton2_Click()
    ' 닫기 버튼
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    ' 폼이 열릴 때 초기화
    Me.Caption = "부가세 계산기 v1.0"
    TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
    ' 실시간 계산 (입력할 때마다)
    If IsNumeric(TextBox1.Value) Then
        Dim 금액 As Double
        금액 = CDbl(TextBox1.Value)
        Label_부가세.Caption = "부가세: " & Format(금액 * 0.1, "#,##0") & "원"
        Label_합계.Caption = "합계: " & Format(금액 * 1.1, "#,##0") & "원"
    End If
End Sub

' ❌ 느린 방법: 셀을 하나씩 접근
Function 느린합계(범위 As Range) As Double
    Dim 셀 As Range
    Dim 합계 As Double
    For Each 셀 In 범위
        합계 = 합계 + 셀.Value  ' 매번 셀에 접근 → 느림!
    Next 셀
    느린합계 = 합계
End Function

' ✅ 빠른 방법: 배열로 한 번에 읽기
Function 빠른합계(범위 As Range) As Double
    Dim 데이터() As Variant
    Dim i As Long, j As Long
    Dim 합계 As Double
    
    데이터 = 범위.Value  ' 한 번에 배열로 읽기 → 빠름!
    
    For i = 1 To UBound(데이터, 1)
        For j = 1 To UBound(데이터, 2)
            If IsNumeric(데이터(i, j)) Then
                합계 = 합계 + 데이터(i, j)
            End If
        Next j
    Next i
    
    빠른합계 = 합계
End Function

Function 현재시간표시() As String
    Application.Volatile True  ' 항상 재계산
    현재시간표시 = Format(Now(), "yyyy-mm-dd hh:mm:ss")
End Function

MyOfficeTools.xlam
├── Module1: 텍스트 처리 함수들
│   ├── Function 초성추출()
│   ├── Function 전화번호정리()
│   └── Function 이메일검증()
├── Module2: 날짜/시간 함수들
│   ├── Function 영업일계산()
│   ├── Function 분기반환()
│   └── Function 주차계산()
├── Module3: 수치 계산 함수들
│   ├── Function 부가세포함()
│   ├── Function 가중평균()
│   └── Function 색상합계()
├── Module4: 유틸리티 매크로
│   ├── Sub 중복제거()
│   ├── Sub 빈행삭제()
│   └── Sub 시트정리()
├── UserForm1: 부가세 계산기 UI
├── UserForm2: 날짜 계산기 UI
└── ThisWorkbook: 초기화 코드

Function 전화번호정리(전화번호 As String) As String
    Dim 숫자만 As String
    Dim i As Integer
    Dim 글자 As String
    
    ' 숫자만 추출
    숫자만 = ""
    For i = 1 To Len(전화번호)
        글자 = Mid(전화번호, i, 1)
        If 글자 >= "0" And 글자 <= "9" Then
            숫자만 = 숫자만 & 글자
        End If
    Next i
    
    ' 길이에 따라 형식 적용
    Select Case Len(숫자만)
        Case 10  ' 02-XXXX-XXXX 또는 0XX-XXX-XXXX
            If Left(숫자만, 2) = "02" Then
                전화번호정리 = Left(숫자만, 2) & "-" & Mid(숫자만, 3, 4) & "-" & Right(숫자만, 4)
            Else
                전화번호정리 = Left(숫자만, 3) & "-" & Mid(숫자만, 4, 3) & "-" & Right(숫자만, 4)
            End If
        Case 11  ' 010-XXXX-XXXX
            전화번호정리 = Left(숫자만, 3) & "-" & Mid(숫자만, 4, 4) & "-" & Right(숫자만, 4)
        Case Else
            전화번호정리 = 숫자만  ' 형식 불명확 시 숫자만 반환
    End Select
End Function

Function 영업일계산(시작일 As Date, 영업일수 As Integer, _
                    Optional 공휴일범위 As Range = Nothing) As Date
    Dim 현재일 As Date
    Dim 카운트 As Integer
    Dim 공휴일 As Range
    Dim 공휴일여부 As Boolean
    
    현재일 = 시작일
    카운트 = 0
    
    Do While 카운트 < 영업일수
        현재일 = 현재일 + 1
        
        ' 주말 체크 (토=7, 일=1)
        If Weekday(현재일) <> 1 And Weekday(현재일) <> 7 Then
            ' 공휴일 체크
            공휴일여부 = False
            If Not 공휴일범위 Is Nothing Then
                For Each 공휴일 In 공휴일범위
                    If CDate(공휴일.Value) = 현재일 Then
                        공휴일여부 = True
                        Exit For
                    End If
                Next 공휴일
            End If
            
            If Not 공휴일여부 Then
                카운트 = 카운트 + 1
            End If
        End If
    Loop
    
    영업일계산 = 현재일
End Function

Function 이메일검증(이메일 As String) As Boolean
    ' 정규식 대신 기본 검증 로직 사용
    Dim 앳위치 As Integer
    Dim 점위치 As Integer
    
    이메일검증 = False
    
    ' @ 기호 확인
    앳위치 = InStr(이메일, "@")
    If 앳위치 <= 1 Then Exit Function
    If 앳위치 = Len(이메일) Then Exit Function
    
    ' @ 이후에 점(.) 확인
    점위치 = InStr(앳위치, 이메일, ".")
    If 점위치 = 0 Then Exit Function
    If 점위치 = Len(이메일) Then Exit Function
    
    ' 공백 없음 확인
    If InStr(이메일, " ") > 0 Then Exit Function
    
    이메일검증 = True
End Function

' ThisWorkbook 모듈에 작성
Private Const 현재버전 As String = "1.2.0"
Private Const 버전파일경로 As String = "\\서버\공유폴더\version.txt"

Private Sub Workbook_Open()
    ' 버전 체크
    On Error Resume Next
    Dim 최신버전 As String
    Dim 파일번호 As Integer
    
    파일번호 = FreeFile
    Open 버전파일경로 For Input As #파일번호
    Line Input #파일번호, 최신버전
    Close #파일번호
    
    If Err.Number = 0 Then
        If 최신버전 <> 현재버전 Then
            Dim 응답 As Integer
            응답 = MsgBox("새 버전(" & 최신버전 & ")이 있습니다. 업데이트하시겠습니까?", _
                          vbYesNo + vbQuestion, "업데이트 알림")
            If 응답 = vbYes Then
                Shell "explorer.exe \\서버\공유폴더\", vbNormalFocus
            End If
        End If
    End If
    On Error GoTo 0
    
    ' 함수 설명 등록
    Call 함수설명등록
End Sub

' ❌ 이렇게 하면 안 돼! (UDF에서 다른 셀 변경 시도)
Function 잘못된함수(값 As Double) As Double
    Range("B1").Value = 값 * 2  ' 에러! UDF에서 셀 변경 불가
    잘못된함수 = 값 * 1.1
End Function

' ✅ 이렇게 해야 해! (값만 반환)
Function 올바른함수(값 As Double) As Double
    올바른함수 = 값 * 1.1  ' 값만 반환
End Function

' 64비트/32비트 호환 코드 작성법
#If VBA7 Then
    ' 64비트 엑셀
    Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As LongPtr
#Else
    ' 32비트 엑셀
    Private Declare Function GetTickCount Lib "kernel32" () As Long
#End If

// JavaScript로 작성하는 Office.js 커스텀 함수
/**
 * @customfunction
 * @param {number} amount 금액
 * @returns {number} 부가세 포함 금액
 */
function addVAT(amount) {
    return amount * 1.1;
}

// 비동기 함수도 가능! (API 호출 등)
/**
 * @customfunction
 * @param {string} stockCode 주식 코드
 * @returns {Promise<number>} 현재 주가
 */
async function getStockPrice(stockCode) {
    const response = await fetch(`https://api.example.com/stock/${stockCode}`);
    const data = await response.json();
    return data.price;
}