엑셀 VBA 함수 Mid 문자열의 일부를 추출하기

VBA에서 Mid 함수는 문자열의 일부분을 추출하는 데 사용하는 함수입니다. Mid 함수를 사용하면 문자열 처리와 분석 작업을 수행하는 데 유용하며, 원본 문자열에서 필요한 부분을 추출할 수 있습니다. 아래에서 Mid 함수의 개념, 구문, 예제, 실행 결과, 그리고 소스 설명을 설명하겠습니다.

 

 

 

◎ 구문

 

Mid 함수는 문자열에서 특정 위치부터 일정 길이의 문자열을 추출하는 함수로, 원본 문자열을 변경하지 않고 일부분을 새로운 문자열로 반환합니다.

 

Mid(String, Start, Length)

l  [String]: 원본 문자열입니다.

l  [Start]: 추출을 시작할 위치를 나타내는 정수입니다. 1부터 시작합니다.

l  [Length]: 추출하려는 문자열의 길이를 나타내는 정수입니다.

 

 

◎ 예제 1: 문자열 일부분 추출

 

예제에서는 "Hello, VBA" 문자열에서 7번째 위치부터 3개의 문자를 추출합니다. Mid 함수를 사용하여 원본 문자열의 일부를 추출하고 그 결과를 메시지 상자에 표시합니다.

 

Sub ExtractSubstring()
    Dim originalString As String
    originalString = "Hello, VBA"
 
    Dim subString As String
    subString = Mid(originalString, 7, 3)
 
    MsgBox "추출한 부분 문자열: " & subString, vbInformation, "문자열 추출"
End Sub

 

 

 

◎ 예제 2: 문자열에서 부분 문자열 교체

 

예제에서는 "The quick brown fox" 문자열에서 5번째 위치부터 5개의 문자를 추출하여 "quick" 부분 문자열을 교체합니다. Mid 함수를 사용하여 원본 문자열의 일부를 추출하고, 추출한 부분 문자열을 새로운 문자열로 교체합니다.

 

Sub ReplaceSubstring()
    Dim originalString As String
    originalString = "The quick brown fox"
 
    Dim replacedString As String
    replacedString = Mid(originalString, 5, 5) ' "quick"
 
    MsgBox "교체 전: " & originalString, vbInformation, "문자열 교체"
    MsgBox "교체 후: " & replacedString, vbInformation, "문자열 교체"
End Sub

 

 

  

◎ 문자열 길이와 범위 확인

 

예제에서는 문자열의 길이와 추출 범위를 확인한 후 부분 문자열을 추출합니다. Len 함수를 사용하여 문자열의 길이를 확인하고, 추출 범위가 유효한지 확인한 후 Mid 함수를 사용하여 부분 문자열을 추출합니다.

 

Sub CheckSubstring()
    Dim originalString As String
    originalString = "Programming is fun"
 
    Dim start As Integer
    start = 15
 
    Dim length As Integer
    length = 3
 
    If start > 0 And start + length - 1 <= Len(originalString) Then
        Dim subString As String
        subString = Mid(originalString, start, length)
 
        MsgBox "추출한 부분 문자열: " & subString, vbInformation, "문자열 확인"
    Else
        MsgBox "유효한 범위를 입력하세요.", vbExclamation, "입력 확인"
    End If
End Sub