VBAの非可逆文字変換についていろいろ

VBA

気分転換にちょっと調べてみた
調査は Windows XP SP2 + Excel 2003 SP3 環境にて。

■シフトJIS ⇒ Unicode ⇒ シフトJIS で文字コードが非可逆に変換されるもの

元のシフトJISコード：sj
変換後のシフトJISコード：Asc(ChrW$(AscW(Chr$(sj))))

区点変換前ShiftJIS変換後ShiftJIS
1380≒8790≒81E0
1381≡8791≡81DF
1382∫8792∫81E7
1385√8795√81E3
1386⊥8796⊥81DB
1387∠8797∠81DA
1390∵879A∵81E6
1391∩879B∩81BF
1392∪879C∪81BE
8901纊ED40纊FA5C
8902褜ED41褜FA5D
8903鍈ED42鍈FA5E
8904銈ED43銈FA5F
8905蓜ED44蓜FA60
8906俉ED45俉FA61
8907炻ED46炻FA62
8908昱ED47昱FA63
8909棈ED48棈FA64
8910鋹ED49鋹FA65
8911曻ED4A曻FA66
8912彅ED4B彅FA67
8913丨ED4C丨FA68
8914仡ED4D仡FA69
8915仼ED4E仼FA6A
8916伀ED4F伀FA6B
8917伃ED50伃FA6C
8918伹ED51伹FA6D
8919佖ED52佖FA6E
8920侒ED53侒FA6F
8921侊ED54侊FA70
8922侚ED55侚FA71
8923侔ED56侔FA72
8924俍ED57俍FA73
8925偀ED58偀FA74
8926倢ED59倢FA75
8927俿ED5A俿FA76
8928倞ED5B倞FA77
8929偆ED5C偆FA78
8930偰ED5D偰FA79
8931偂ED5E偂FA7A
8932傔ED5F傔FA7B
8933僴ED60僴FA7C
8934僘ED61僘FA7D
8935兊ED62兊FA7E
8936兤ED63兤FA80
8937冝ED64冝FA81
8938冾ED65冾FA82
8939凬ED66凬FA83
8940刕ED67刕FA84
8941劜ED68劜FA85
8942劦ED69劦FA86
8943勀ED6A勀FA87
8944勛ED6B勛FA88
8945匀ED6C匀FA89
8946匇ED6D匇FA8A
8947匤ED6E匤FA8B
8948卲ED6F卲FA8C
8949厓ED70厓FA8D
8950厲ED71厲FA8E
8951叝ED72叝FA8F
8952﨎ED73﨎FA90
8953咜ED74咜FA91
8954咊ED75咊FA92
8955咩ED76咩FA93
8956哿ED77哿FA94
8957喆ED78喆FA95
8958坙ED79坙FA96
8959坥ED7A坥FA97
8960垬ED7B垬FA98
8961埈ED7C埈FA99
8962埇ED7D埇FA9A
8963﨏ED7E﨏FA9B
8964塚ED80塚FA9C
8965增ED81增FA9D
8966墲ED82墲FA9E
8967夋ED83夋FA9F
8968奓ED84奓FAA0
8969奛ED85奛FAA1
8970奝ED86奝FAA2
8971奣ED87奣FAA3
8972妤ED88妤FAA4
8973妺ED89妺FAA5
8974孖ED8A孖FAA6
8975寀ED8B寀FAA7
8976甯ED8C甯FAA8
8977寘ED8D寘FAA9
8978寬ED8E寬FAAA
8979尞ED8F尞FAAB
8980岦ED90岦FAAC
8981岺ED91岺FAAD
8982峵ED92峵FAAE
8983崧ED93崧FAAF
8984嵓ED94嵓FAB0
8985﨑ED95﨑FAB1
8986嵂ED96嵂FAB2
8987嵭ED97嵭FAB3
8988嶸ED98嶸FAB4
8989嶹ED99嶹FAB5
8990巐ED9A巐FAB6
8991弡ED9B弡FAB7
8992弴ED9C弴FAB8
8993彧ED9D彧FAB9
8994德ED9E德FABA
9001忞ED9F忞FABB
9002恝EDA0恝FABC
9003悅EDA1悅FABD
9004悊EDA2悊FABE
9005惞EDA3惞FABF
9006惕EDA4惕FAC0
9007愠EDA5愠FAC1
9008惲EDA6惲FAC2
9009愑EDA7愑FAC3
9010愷EDA8愷FAC4
9011愰EDA9愰FAC5
9012憘EDAA憘FAC6
9013戓EDAB戓FAC7
9014抦EDAC抦FAC8
9015揵EDAD揵FAC9
9016摠EDAE摠FACA
9017撝EDAF撝FACB
9018擎EDB0擎FACC
9019敎EDB1敎FACD
9020昀EDB2昀FACE
9021昕EDB3昕FACF
9022昻EDB4昻FAD0
9023昉EDB5昉FAD1
9024昮EDB6昮FAD2
9025昞EDB7昞FAD3
9026昤EDB8昤FAD4
9027晥EDB9晥FAD5
9028晗EDBA晗FAD6
9029晙EDBB晙FAD7
9030晴EDBC晴FAD8
9031晳EDBD晳FAD9
9032暙EDBE暙FADA
9033暠EDBF暠FADB
9034暲EDC0暲FADC
9035暿EDC1暿FADD
9036曺EDC2曺FADE
9037朎EDC3朎FADF
9038朗EDC4朗FAE0
9039杦EDC5杦FAE1
9040枻EDC6枻FAE2
9041桒EDC7桒FAE3
9042柀EDC8柀FAE4
9043栁EDC9栁FAE5
9044桄EDCA桄FAE6
9045棏EDCB棏FAE7
9046﨓EDCC﨓FAE8
9047楨EDCD楨FAE9
9048﨔EDCE﨔FAEA
9049榘EDCF榘FAEB
9050槢EDD0槢FAEC
9051樰EDD1樰FAED
9052橫EDD2橫FAEE
9053橆EDD3橆FAEF
9054橳EDD4橳FAF0
9055橾EDD5橾FAF1
9056櫢EDD6櫢FAF2
9057櫤EDD7櫤FAF3
9058毖EDD8毖FAF4
9059氿EDD9氿FAF5
9060汜EDDA汜FAF6
9061沆EDDB沆FAF7
9062汯EDDC汯FAF8
9063泚EDDD泚FAF9
9064洄EDDE洄FAFA
9065涇EDDF涇FAFB
9066浯EDE0浯FAFC
9067涖EDE1涖FB40
9068涬EDE2涬FB41
9069淏EDE3淏FB42
9070淸EDE4淸FB43
9071淲EDE5淲FB44
9072淼EDE6淼FB45
9073渹EDE7渹FB46
9074湜EDE8湜FB47
9075渧EDE9渧FB48
9076渼EDEA渼FB49
9077溿EDEB溿FB4A
9078澈EDEC澈FB4B
9079澵EDED澵FB4C
9080濵EDEE濵FB4D
9081瀅EDEF瀅FB4E
9082瀇EDF0瀇FB4F
9083瀨EDF1瀨FB50
9084炅EDF2炅FB51
9085炫EDF3炫FB52
9086焏EDF4焏FB53
9087焄EDF5焄FB54
9088煜EDF6煜FB55
9089煆EDF7煆FB56
9090煇EDF8煇FB57
9091凞EDF9凞FB58
9092燁EDFA燁FB59
9093燾EDFB燾FB5A
9094犱EDFC犱FB5B
9101犾EE40犾FB5C
9102猤EE41猤FB5D
9103猪EE42猪FB5E
9104獷EE43獷FB5F
9105玽EE44玽FB60
9106珉EE45珉FB61
9107珖EE46珖FB62
9108珣EE47珣FB63
9109珒EE48珒FB64
9110琇EE49琇FB65
9111珵EE4A珵FB66
9112琦EE4B琦FB67
9113琪EE4C琪FB68
9114琩EE4D琩FB69
9115琮EE4E琮FB6A
9116瑢EE4F瑢FB6B
9117璉EE50璉FB6C
9118璟EE51璟FB6D
9119甁EE52甁FB6E
9120畯EE53畯FB6F
9121皂EE54皂FB70
9122皜EE55皜FB71
9123皞EE56皞FB72
9124皛EE57皛FB73
9125皦EE58皦FB74
9126益EE59益FB75
9127睆EE5A睆FB76
9128劯EE5B劯FB77
9129砡EE5C砡FB78
9130硎EE5D硎FB79
9131硤EE5E硤FB7A
9132硺EE5F硺FB7B
9133礰EE60礰FB7C
9134礼EE61礼FB7D
9135神EE62神FB7E
9136祥EE63祥FB80
9137禔EE64禔FB81
9138福EE65福FB82
9139禛EE66禛FB83
9140竑EE67竑FB84
9141竧EE68竧FB85
9142靖EE69靖FB86
9143竫EE6A竫FB87
9144箞EE6B箞FB88
9145精EE6C精FB89
9146絈EE6D絈FB8A
9147絜EE6E絜FB8B
9148綷EE6F綷FB8C
9149綠EE70綠FB8D
9150緖EE71緖FB8E
9151繒EE72繒FB8F
9152罇EE73罇FB90
9153羡EE74羡FB91
9154羽EE75羽FB92
9155茁EE76茁FB93
9156荢EE77荢FB94
9157荿EE78荿FB95
9158菇EE79菇FB96
9159菶EE7A菶FB97
9160葈EE7B葈FB98
9161蒴EE7C蒴FB99
9162蕓EE7D蕓FB9A
9163蕙EE7E蕙FB9B
9164蕫EE80蕫FB9C
9165﨟EE81﨟FB9D
9166薰EE82薰FB9E
9167蘒EE83蘒FB9F
9168﨡EE84﨡FBA0
9169蠇EE85蠇FBA1
9170裵EE86裵FBA2
9171訒EE87訒FBA3
9172訷EE88訷FBA4
9173詹EE89詹FBA5
9174誧EE8A誧FBA6
9175誾EE8B誾FBA7
9176諟EE8C諟FBA8
9177諸EE8D諸FBA9
9178諶EE8E諶FBAA
9179譓EE8F譓FBAB
9180譿EE90譿FBAC
9181賰EE91賰FBAD
9182賴EE92賴FBAE
9183贒EE93贒FBAF
9184赶EE94赶FBB0
9185﨣EE95﨣FBB1
9186軏EE96軏FBB2
9187﨤EE97﨤FBB3
9188逸EE98逸FBB4
9189遧EE99遧FBB5
9190郞EE9A郞FBB6
9191都EE9B都FBB7
9192鄕EE9C鄕FBB8
9193鄧EE9D鄧FBB9
9194釚EE9E釚FBBA
9201釗EE9F釗FBBB
9202釞EEA0釞FBBC
9203釭EEA1釭FBBD
9204釮EEA2釮FBBE
9205釤EEA3釤FBBF
9206釥EEA4釥FBC0
9207鈆EEA5鈆FBC1
9208鈐EEA6鈐FBC2
9209鈊EEA7鈊FBC3
9210鈺EEA8鈺FBC4
9211鉀EEA9鉀FBC5
9212鈼EEAA鈼FBC6
9213鉎EEAB鉎FBC7
9214鉙EEAC鉙FBC8
9215鉑EEAD鉑FBC9
9216鈹EEAE鈹FBCA
9217鉧EEAF鉧FBCB
9218銧EEB0銧FBCC
9219鉷EEB1鉷FBCD
9220鉸EEB2鉸FBCE
9221鋧EEB3鋧FBCF
9222鋗EEB4鋗FBD0
9223鋙EEB5鋙FBD1
9224鋐EEB6鋐FBD2
9225﨧EEB7﨧FBD3
9226鋕EEB8鋕FBD4
9227鋠EEB9鋠FBD5
9228鋓EEBA鋓FBD6
9229錥EEBB錥FBD7
9230錡EEBC錡FBD8
9231鋻EEBD鋻FBD9
9232﨨EEBE﨨FBDA
9233錞EEBF錞FBDB
9234鋿EEC0鋿FBDC
9235錝EEC1錝FBDD
9236錂EEC2錂FBDE
9237鍰EEC3鍰FBDF
9238鍗EEC4鍗FBE0
9239鎤EEC5鎤FBE1
9240鏆EEC6鏆FBE2
9241鏞EEC7鏞FBE3
9242鏸EEC8鏸FBE4
9243鐱EEC9鐱FBE5
9244鑅EECA鑅FBE6
9245鑈EECB鑈FBE7
9246閒EECC閒FBE8
9247隆EECD隆FBE9
9248﨩EECE﨩FBEA
9249隝EECF隝FBEB
9250隯EED0隯FBEC
9251霳EED1霳FBED
9252霻EED2霻FBEE
9253靃EED3靃FBEF
9254靍EED4靍FBF0
9255靏EED5靏FBF1
9256靑EED6靑FBF2
9257靕EED7靕FBF3
9258顗EED8顗FBF4
9259顥EED9顥FBF5
9260飯EEDA飯FBF6
9261飼EEDB飼FBF7
9262餧EEDC餧FBF8
9263館EEDD館FBF9
9264馞EEDE馞FBFA
9265驎EEDF驎FBFB
9266髙EEE0髙FBFC
9267髜EEE1髜FC40
9268魵EEE2魵FC41
9269魲EEE3魲FC42
9270鮏EEE4鮏FC43
9271鮱EEE5鮱FC44
9272鮻EEE6鮻FC45
9273鰀EEE7鰀FC46
9274鵰EEE8鵰FC47
9275鵫EEE9鵫FC48
9276鶴EEEA鶴FC49
9277鸙EEEB鸙FC4A
9278黑EEEC黑FC4B
9281ⅰEEEFⅰFA40
9282ⅱEEF0ⅱFA41
9283ⅲEEF1ⅲFA42
9284ⅳEEF2ⅳFA43
9285ⅴEEF3ⅴFA44
9286ⅵEEF4ⅵFA45
9287ⅶEEF5ⅶFA46
9288ⅷEEF6ⅷFA47
9289ⅸEEF7ⅸFA48
9290ⅹEEF8ⅹFA49
9291￢EEF9￢81CA
9292￤EEFA￤FA55
9293＇EEFB＇FA56
9294＂EEFC＂FA57

※機種依存文字は表示されない可能性があるため表中の文字はグリフ等価なUnicodeポイントを使用している


13区（0x8790〜0x879C）の記号は機種依存文字。同じ字形の本来の（JISで定義されている）シフトJISコードに再マップされる。


89区〜92区はいわゆる「NEC選定IBM拡張文字」。0xED40〜0xEEFCの文字は同じ字形の「IBM拡張文字」（0xFA5C〜0xFA57）にマップされ直されてしまう。しかも例外的に0xEEF9（¬）だけ0x81CAに飛び地している。


なお、VBAの文字列処理は内部ではUnicodeで行われるため、StrConvなどを使って文字列操作を行った場合も暗黙的に上記と同じ現象が発生する。

■全角 ⇒ 半角 ⇒ 全角 で文字コードが非可逆に変換されるもの

元のシフトJISコード：sj
変換後のシフトJISコード：Asc(StrConv(StrConv(Chr$(sj), vbNarrow), vbWide))

区点変換前ShiftJIS半角ShiftJIS変換後ShiftJIS
0138‘8165'27＇FA56
0139’8166'27＇FA56
0140“8167"22＂FA57
0141”8168"22＂FA57
9292￤EEFA|7C｜8162
9293＇EEFB'27＇FA56
9294＂EEFC"22＂FA57


「’」はいつも困るんだよね。キーボードからSHIFT+7で半角時「'」全角時「’」入力できるくせに、Excelの検索では両者を分けて考えるから、「半角と全角を区別する」のチェックを外しても同一視してくれないから両方が混在してると同時に検索できない。


■テストコード

Option Explicit

Option Base 0
Sub test()
    Dim ku As Long

    Dim ten As Long

    Dim sj As Long, csj As Long, un As Long

    Dim sjc As String, uc As String

    Dim sjnc As String, csjc As String

    Dim r As Long

    

    r = 1

    

    For ku = 1 To 94

        For ten = 1 To 94

            sj = KutenToShiftJis(ku, ten)

            sjc = Chr$(sj)

            un = AscW(sjc)

            uc = ChrW$(un)

            csj = Asc(uc)

            If csj < 0 Then csj = csj + 65536

            If sj <> csj And csj <> 33093 Then

                ActiveSheet.Cells(r, 1).Value = _

                    Right$("000" & (ku * 100 + ten), 4) & " : " & _

                    sjc & "(" & Hex$(sj) & ") / " & _

                    uc & "(" & Hex$(csj) & ")"

                r = r + 1

            End If

        Next ten

    Next ku
    r = 1

    

    For ku = 1 To 94

        For ten = 1 To 94

            sj = KutenToShiftJis(ku, ten)

            sjc = Chr$(sj)

            sjnc = StrConv(sjc, vbNarrow)

            csjc = StrConv(sjnc, vbWide)

            csj = Asc(csjc)

            If csj < 0 Then csj = csj + 65536

            If sj <> csj And csj <> 33093 And sjnc <> csjc Then

                ActiveSheet.Cells(r, 2).Value = _

                    Right$("000" & (ku * 100 + ten), 4) & " : " & _

                    sjc & "(" & Hex$(sj) & ") / " & _

                    sjnc & "(" & Hex$(Asc(sjnc)) & ") / " & _

                    Chr$(csj) & "(" & Hex$(csj) & ")"

                r = r + 1

            End If

        Next ten

    Next ku
End Sub
Function KutenToShiftJis(ByVal ku As Long, ByVal ten As Long) As Long
    Dim hi As Long, lo As Long

    

    KutenToShiftJis = 0
    If ku < 1 Or ku > 94 Then Exit Function

    If ten < 1 Or ten > 94 Then Exit Function
    hi = Int((ku - 1) / 2) + &H81

    If (hi >= &HA0) Then

        hi = hi + &HE0 - &HA0

    End If

    

    If ku Mod 2 = 0 Then

        lo = ten - 1 + &H9F

    Else

        lo = ten - 1 + &H40

        If (lo >= &H7F) Then lo = lo + 1

    End If

    

    KutenToShiftJis = hi * 256 + lo
End Function