[VBA] vba string.format, printf 기능

아쉽게도 vba는 문자열을 쉽게 이어 붙일수 있는 함수가 따로 없다...

 

함수 짜기 귀찮아서 구글 여기저기 찾아보다 이상한것만 있길래 간단하게 직접 짰다. 

 

기본적인 예외처리만 해두었음.

Function printf(Input_Text As String, ParamArray Args()) As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim strReturn As String

Debug.Print UBound(Split(Input_Text, "{"))

If UBound(Args) <> UBound(Split(Input_Text, "{")) - 1 Then

    printf = "배열 개수 Error"
    GoTo 종료:

End If

strReturn = Input_Text

For i = LBound(Args) To UBound(Args)
    
    If InStr(Input_Text, "{" & i & "}") <> 0 Then
        strReturn = Replace(strReturn, "{" & i & "}", Args(i))
    Else
        printf = i & " index error"
        GoTo 종료:
    End If
Next

printf = strReturn


종료:

Application.ScreenUpdating = False
Application.DisplayAlerts = False

End Function

Sub test()

Debug.Print printf("인수 : {0}, 인수1 : {1}, {2}", "000", "111", "2222")


End Sub

 

 

아래는 위에 예외처리 코드를 삭제함..

 

예를 들어

 

"인수 : {0}, {1}, {0}" 과 같이 한 인수를 중복되게 넣을경우 에러로 return 되어서 이를 삭제함.

Function printf(Input_Text As String, ParamArray Args()) As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim strReturn As String

strReturn = Input_Text

For i = LBound(Args) To UBound(Args)
    
    If InStr(Input_Text, "{" & i & "}") <> 0 Then
        strReturn = Replace(strReturn, "{" & i & "}", Args(i))
    Else
        printf = i & " index error"
        GoTo 종료:
    End If
Next

printf = strReturn


종료:

Application.ScreenUpdating = False
Application.DisplayAlerts = False

End Function

Sub test()

Debug.Print printf("인수 : {0}, 인수1 : {1}, {2}", "000", "111", "2222")


End Sub