엑셀으로 데이터를 관리하고 있습니다. 데이터에 포함된 문자를 가지고 어디로 수출 되는지 한글로 표기할 수 있는 함수를 만들 수 있을까요?
엑셀으로 데이터를 관리하고 있습니다. 데이터에 포함된 문자를 가지고 어디로 수출 되는지 한글로 표기할 수 있는 함수를 만들 수 있을까요? 예를 들어, 'AXNH2' 에서 'A'는 한국 생산, 'X'는 미국으로 출하를 나타낸다면, 23년 '한국생산 미국출하' 제품이라고 표현 하고 싶은데요. 생산지와 출하지의 정보가 다양하다면 어떻게 하면 될까요?
안녕하세요. 답벤져스입니다.
네, 엑셀 함수를 사용하여 데이터에 포함된 문자를 가지고 어디로 수출되는지 한글로 표기할 수 있습니다. 다음과 같은 함수를 만들 수 있습니다.함수명: 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년 한국생산 미국출하
생산지와 출하지의 정보가 다양한 경우, 생산지와 출하지의 한글 표기 정보를 사전에 정의한 딕셔너리를 사용하여 함수를 구현하면 됩니다.