안녕하세요. 답벤져스입니다.
네, 엑셀 함수를 사용하여 데이터에 포함된 문자를 가지고 어디로 수출되는지 한글로 표기할 수 있습니다. 다음과 같은 함수를 만들 수 있습니다.
함수명: GetExportInfo 인수: - data: 문자열 데이터 반환값: - 생산지와 출하지를 한글로 표기한 문자열
함수의 구현은 다음과 같습니다.
Function GetExportInfo(data As String) As String '생산지 Dim production As String production = data.Substring(0, 1) '출하지 Dim destination As String destination = data.Substring(1, 1) '생산지와 출하지를 한글로 표기한 문자열을 반환합니다. GetExportInfo = "23년 " & production & "생산 " & destination & "출하" End Function
이 함수를 사용하려면 다음과 같이 사용합니다.
Dim data As String data = "AXNH2" Dim exportInfo As String exportInfo = GetExportInfo(data) MsgBox exportInfo
이 코드를 실행하면 다음과 같은 결과가 나타납니다.
23년 한국생산 미국출하
생산지와 출하지의 정보가 다양하다면 다음과 같이 함수를 수정할 수 있습니다.
함수명: GetExportInfo 인수: - data: 문자열 데이터 - productionInfo: 생산지의 한글 표기 정보 - destinationInfo: 출하지의 한글 표기 정보 반환값: - 생산지와 출하지를 한글로 표기한 문자열
함수의 구현은 다음과 같습니다.
Function GetExportInfo(data As String, productionInfo As Variant, destinationInfo As Variant) As String
'생산지 Dim production As String production = data.Substring(0, 1) '출하지 Dim destination As String destination = data.Substring(1, 1) '생산지와 출하지를 한글로 표기한 문자열을 반환합니다. GetExportInfo = "23년 " & productionInfo(production) & "생산 " & destinationInfo(destination) & "출하"
End Function
이 함수를 사용하려면 다음과 같이 사용합니다.
Dim data As String data = "AXNH2" Dim productionInfo As Dictionary productionInfo.Add("A", "한국") productionInfo.Add("B", "중국") productionInfo.Add("C", "일본") Dim destinationInfo As Dictionary destinationInfo.Add("X", "미국") destinationInfo.Add("Y", "중국") destinationInfo.Add("Z", "일본") Dim exportInfo As String exportInfo = GetExportInfo(data, productionInfo, destinationInfo) MsgBox exportInfo
이 코드를 실행하면 다음과 같은 결과가 나타납니다.
23년 한국생산 미국출하
생산지와 출하지의 정보가 다양한 경우, 생산지와 출하지의 한글 표기 정보를 사전에 정의한 딕셔너리를 사용하여 함수를 구현하면 됩니다.