도쿄사는 외노자

일본어는 쓰는 문자가 많아서 사람 짜증나게 하는데, 그래서 VBA에서는 한자를 가나로 변환해주는 함수 「GetPhonetic()」를 지원한다. 이를 사용하여 아래와 같은 자동 변환 매크로를 만들 수 있다. A열 : 변환 대상 B열 : 전각 가타카나 C열 : 전각 히라가나 D열 : 반각 가타카나 Sub MakeWordDict() '// 시트 선언 Dim shtWork As String shtWork = "Work" '// 변수 선언 Dim endRow As String Dim targetRange As Range Dim targetCell As Range Dim cellValue As String Dim cellValueKana As String '// 시트 활성화 ThisWorkbook.Sheets(sh..