글 수 20
출처 : http://www.program1472.com/bbs/board.php?bo_table=TB_03&wr_id=62&page=2
원출처 : https://dorobo.tistory.com/354
[이하 퍼옴]
Function fnName(inName As String) As String Dim 초성 As Variant, 중성 As Variant, 종성 As Variant Dim vr() As Variant Dim i As Integer, j As Integer, n As Long, k1 As Integer, k2 As Integer, k3 As Integer 초성 = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") 중성 = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅘ", "ㅙ", "ㅚ", "ㅛ", "ㅜ", "ㅝ", "ㅞ", "ㅟ", "ㅠ", "ㅡ", "ㅢ", "ㅣ") 종성 = Array("", "ㄱ", "ㄲ", "ㄳ", "ㄴ", "ㄵ", "ㄶ", "ㄷ", "ㄹ", "ㄺ", "ㄻ", "ㄼ", "ㄽ", "ㄾ", "ㄿ", "ㅀ", "ㅁ", "ㅂ", "ㅄ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") For i = 1 To Len(inName) If Mid(inName, i, 1) Like "[가-힇]" Then n = AscW(Mid(inName, i, 1)) + 21504 k1 = Int(n / (21 * 28)) k2 = Int((n Mod 21 * 28) / 28) k3 = n Mod 28 j = j + 1 ReDim Preserve vr(1 To j) vr(j) = 초성(k1) & 중성(k2) & 종성(k3) End If Next i '분리된 자,모음에 들어간 띄어쓰기 없애며 Join fnName = Replace(Join(vr), " ", "") End Function 실제 타이핑에 사용하도록 수정 Function fnName(inName As String) As String Dim 초성 As Variant, 중성 As Variant, 종성 As Variant Dim vr() As Variant Dim i As Integer, j As Integer, n As Long, k1 As Integer, k2 As Integer, k3 As Integer 초성 = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") 중성 = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅗㅏ", "ㅗㅐ", "ㅗㅣ", "ㅛ", "ㅜ", "ㅜㅓ", "ㅜㅔ", "ㅜㅣ", "ㅠ", "ㅡ", "ㅡㅣ", "ㅣ") 종성 = Array("", "ㄱ", "ㄲ", "ㄱㅅ", "ㄴ", "ㄴㅈ", "ㄴㅎ", "ㄷ", "ㄹ", "ㄹㄱ", "ㄹㅁ", "ㄹㅂ", "ㄹㅅ", "ㄹㅌ", "ㄹㅍ", "ㄹㅎ", "ㅁ", "ㅂ", "ㅂㅅ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") For i = 1 To Len(inName) If Mid(inName, i, 1) Like "[가-힇]" Then n = AscW(Mid(inName, i, 1)) + 21504 k1 = Int(n / (21 * 28)) k2 = Int((n Mod 21 * 28) / 28) k3 = n Mod 28 j = j + 1 ReDim Preserve vr(1 To j) vr(j) = 초성(k1) & 중성(k2) & 종성(k3) End If Next i '분리된 자,모음에 들어간 띄어쓰기 없애며 Join fnName = Replace(Join(vr), " ", "") End Function 사용중 Function Jamo(T As String) Dim ChoSung As Variant, JOONGSUNG As Variant, JongSung As Variant Dim i As Integer, K As Long Dim T1 As String, T2 As String, T3 As String ChoSung = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") JOONGSUNG = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅗㅏ", "ㅗㅐ", "ㅗㅣ", "ㅛ", "ㅜ", "ㅜㅓ", "ㅜㅔ", "ㅜㅣ", "ㅠ", "ㅡ", "ㅡㅣ", "ㅣ") JongSung = Array(Empty, "ㄱ", "ㄲ", "ㄱㅅ", "ㄴ", "ㄴㅈ", "ㄴㅎ", "ㄷ", "ㄹ", "ㄹㄱ", "ㄹㅁ", "ㄹㅂ", "ㄹㅅ", "ㄹㅌ", "ㄹㅍ", "ㄹㅎ", "ㅁ", "ㅂ", "ㅂㅅ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") For i = 1 To Len(T) If Mid(T, i, 1) Like "[가-힣]" Then K = AscW(Mid(T, i, 1)) K = K - &HAC00 T1 = Int(K / (21 * 28)) T2 = Int((K Mod 21 * 28) / 28) T3 = K Mod 28 Jamo = Jamo & ChoSung(T1) & JOONGSUNG(T2) & JongSung(T3) Else Jamo = Jamo + Mid(T, i, 1) End If Next End Function 영타로 바로출력 << 사용중... Function SplitEnglish(T As String) Dim ChoSung As Variant, JoongSung As Variant, JongSung As Variant Dim vR() Dim i As Integer, j As Integer, n As Long, k1 As Integer, k2 As Integer, k3 As Integer ChoSung = Array("r", "R", "s", "e", "E", "f", "a", "q", "Q", "t", "T", "o", "w", "W", "c", "z", "x", "v", "g") JoongSung = Array("k", "o", "i", "il", "j", "p", "u", "ul", "h", "hk", "ho", "hl", "y", "n", "nj", "np", "nl", "b", "m", "ml", "l") JongSung = Array("", "r", "R", "rt", "s", "sw", "sg", "e", "f", "fr", "fa", "fq", "ft", "fx", "fv", "fg", "a", "q", "qt", "t", "T", "d", "w", "c", "z", "x", "v", "g") For i = 1 To Len(T) If Mid(T, i, 1) Like "[가-힣]" Then K = AscW(Mid(T, i, 1)) K = K - &HAC00 T1 = Int(K / (21 * 28)) T2 = Int((K Mod 21 * 28) / 28) T3 = K Mod 28 SplitEnglish = SplitEnglish & ChoSung(T1) & JoongSung(T2) & JongSung(T3) Else SplitEnglish = SplitEnglish + Mid(T, i, 1) End If Next End Function '// 초성, 중성, 종성 Join Function PlusKorean(inName As String) As String Dim 초성, 중성, 종성 Dim vr() As String Dim worD As String Dim i%, j% Dim k1%, k2%, k3% Dim wkF As WorksheetFunction Set wkF = WorksheetFunction 초성 = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") 중성 = Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅘ", "ㅙ", "ㅚ", "ㅛ", "ㅜ", "ㅝ", "ㅞ", "ㅟ", "ㅠ", "ㅡ", "ㅢ", "ㅣ") 종성 = Array("", "ㄱ", "ㄲ", "ㄳ", "ㄴ", "ㄵ", "ㄶ", "ㄷ", "ㄹ", "ㄺ", "ㄻ", "ㄼ", "ㄽ", "ㄾ", "ㄿ", "ㅀ", "ㅁ", "ㅂ", "ㅄ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") For i = 1 To Len(inName) worD = Mid(inName, i, 1) '초성, 종성 구분(뒤에 오는 자,모의 종류에 따라서 구분) If worD Like "[ㄱ-ㅎ]" Then '자음 다음에 모음이 오면 초성 If Mid(inName, i + 1, 1) Like "[ㅏ-ㅣ]" Then k1 = wkF.Match(worD, 초성) - 1 '자음 다음에 자음이 오거나 글자 길이와 같으면 종성 ElseIf Mid(inName, i + 1, 1) Like "[ㄱ-ㅎ]" Or i = Len(inName) Then k3 = wkF.Match(worD, 종성) - 1 '종성이 끝나면 배열에 값 삽입 ReDim Preserve vr(j) vr(j) = ChrW(-21504 + (28 * 21 * k1) + (28 * k2) + k3) j = j + 1 End If '모음은 중성 ElseIf worD Like "[ㅏ-ㅣ]" Then k2 = wkF.Match(worD, 중성) - 1 '모음의 두칸 뒤가 또 모음이거나 글자의 마지막이면 종성이 없는 것으로 보고 배열에 값 삽입 If Mid(inName, i + 2, 1) Like "[ㅏ-ㅣ]" Or i = Len(inName) Then k3 = 0 '모음으로 끝나는 글자이므로 종성 초기화 ReDim Preserve vr(j) vr(j) = ChrW(-21504 + (28 * 21 * k1) + (28 * k2) + k3) j = j + 1 End If End If Next i PlusKorean = Replace(Join(vr), " ", "") End Function 자음,모음 합치기 << 사용중 Private Const HAN_FIRST As Double = 44032# Public Function HanJoin(ByVal Cho As String, ByVal Jung As String, Optional ByVal Jong As String = "") As String Dim ChoSeong As Integer Dim JungSeong As Integer Dim JongSeong As Integer Dim i As Integer Dim Ch As Variant, Ju As Variant, Jo As Variant Ch = Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") Ju = Array("ㅏ", "ㅐ", "ㅑ", "ㅐ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅘ", "ㅙ", "ㅚ", "ㅛ", "ㅜ", "ㅟ", "ㅞ", "ㅟ", "ㅠ", "ㅡ", "ㅢ", "ㅣ") Jo = Array("", "ㄱ", "ㄲ", "ㄳ", "ㄴ", "ㄵ", "ㄶ", "ㄷ", "ㄹ", "ㄺ", "ㄻ", "ㄼ", "ㄽ", "ㄾ", "ㄿ", "ㅀ", "ㅁ", "ㅂ", "ㅄ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ") ChoSeong = -1 For i = 0 To 18 If Cho = Ch(i) Then ChoSeong = i: Exit For Next i If ChoSeong < 0 Then Exit Function JungSeong = -1 For i = 0 To 20 If Jung = Ju(i) Then JungSeong = i: Exit For Next i If JungSeong < 0 Then Exit Function JongSeong = -1 For i = 0 To 27 If Jong = Jo(i) Then JongSeong = i: Exit For Next i If JongSeong < 0 Then Exit Function HanJoin = ChrW((ChoSeong * 21 + JungSeong) * 28 + JongSeong + HAN_FIRST) End Function |