코드블럭 입력할 수 있도록 해 주세요.

@오빠두엑셀 님  

서식적용하지않고 하니까 색칠됩니다..

근데.. VBA나 JAVA서식은 왜 필요한지요??

@오빠두엑셀 님 코드블럭 테스트입니다.

언어를 선택하지 않고 진행하니, 이전에 사용했던 것과 같은 기능으로 구현됩니다.

수고하셨습니다.

Private Function ExcelLangCode(Optional ID As String)
    Dim sLang As String, sCode As String, sID As String, vCode As Variant, vID As Variant
    If ID = "" Then ID = CStr(Application.LanguageSettings.LanguageID(msoLanguageIDUI))
    
    sCode = "ar,bg,ca,zh-Hant,cs,da,de,el,en,es,fi,fr,he,hu,is,it,ja,ko,nl,nb,pl,pt,ro,ru,hr,sk,sq,sv,th,tr,ur,id,uk,be,sl,et,lv,lt,vi,hy,az,eu,af,ka,hi,mt,ms,kk,uz,tt,pa,or,ta,te,kn,ml,as,mr,mn-Cyrl,cy,km,gl,sd,am,ne,gn,mi,ar,zh-Hans,de,en,es,fr,it,nl,nn,pt,ro,ru,sr-Latn,sv,az,ms,uz,mn-Mong,ar,zh-Hant,de"
    sCode = sCode & "," & "en,fr-ca,sr-Cyrl,ar,zh-Hant,de,en,es,fr,ar,zh-Hant,de,en,es,fr,bs,ar,en,es,fr,ar,en,es,fr,ar,en,es,ar,en,es,fr,ar,en,es,fr,ar,en,es,fr,ar,en,es,fr,ar,en,es,fr,ar,es,fr,ar,es,ar,en,es,es,es,es,es"
    sID = "1025,1026,1027,1028,1029,1030,1031,1032,1033,1034,1035,1036,1037,1038,1039,1040,1041,1042,1043,1044,1045,1046,1048,1049,1050,1051,1052,1053,1054,1055,1056,1057,1058,1059,1060,1061,1062,1063,1066,1067,1068,1069,1078,1079,1081,1082,1086,1087,1091,1092,1094,1096,1097,1098,1099,1100,1101,1102,1104,1106,1107,1110,1113,1118,1121,1140,1153,2049,2052,2055,2057,2058,2060,2064,2067,2068,2070,2072,2073,2074,2077,2092,2110,2115,2128,3073,3076,3079"
    sID = sID & "," & "3081,3084,3098,4097,4100,4103,4105,4106,4108,5121,5124,5127,5129,5130,5132,5146,6145,6153,6154,6156,7169,7177,7178,7180,8193,8201,8202,9217,9225,9226,9228,10241,10249,10250,10252,11265,11273,11274,11276,12289,12297,12298,12300,13313,13321,13322,13324,14337,14346,14348,15361,15370,16385,16393,16394,17418,18442,19466,20490"
    vCode = Split(sCode, ",")
    vID = Split(sID, ",")
    
    ExcelLangCode = Application.Index(vCode, Application.Match(ID, vID, 0))
    If IsError(ExcelLangCode) Then ExcelLangCode = "ko"
    
End Function