![見出し画像](https://blogimg.goo.ne.jp/image/upload/f_auto,q_auto,t_image_head_long/v1/user_image/78/23/f91b3df48c9e441ddc3c00290abba5eb.jpg)
次、入れるかも知れないお仕事で、
UTF-16を使うとのことなので・・・
**************************************************
Option Explicit
Sub MojiCodeTbl()
Dim i As Long ' 行
Dim k As Long ' 区
Dim t As Long ' 点
Dim jisCd As String ' JISコード
Dim SjisCd As String ' Shift-JISコード
Dim uniCd As String ' Unicode
Dim Moji As String ' 文字
On Error Resume Next
i = 1
For k = 1 To 94
For t = 1 To 94
' 区点 ==> JIS(16進数)
jisCd = CStr(Hex(k + 32)) & CStr(Hex(t + 32))
' JIS(16進数) ==> S-JIS(16進数)
SjisCd = Jis2SJis(jisCd)
' S-JIS(16進数) ==> 文字
Moji = Chr(Int("&H" & SjisCd))
' 文字 ==> UTF16(16進数)
uniCd = Right("00" & Hex(AscW(Moji)), 4)
If uniCd = "30FB" And jisCd > "2126" Then
' Cells(i, 5).Value = "----"
Else
i = i + 1
Cells(i, 1).Value = k '区
Cells(i, 2).Value = t '点
Cells(i, 3).Value = jisCd 'JIS
Cells(i, 4).Value = SjisCd 'S-JIS
Cells(i, 5).Value = uniCd 'UTF16
Cells(i, 6).Value = Moji '文字
Cells(i, 6).Select
If i = Int(i / 25) * 25 Then
Application.ScreenUpdating = True
Cells(i, 6).Select
Application.ScreenUpdating = False
End If
End If
Next t
Next k
Range(Cells(1, 1), Cells(i, 6)).Select
Selection.Borders.LineStyle = xlContinuous
Cells(1, 1).Select
Application.ScreenUpdating = True
Cells(2, 1).Select
End Sub
Function Jis2SJis(jis As String) As String
Dim hi As Long
Dim lo As Long
hi = "&H" & Left(jis, 2)
lo = "&H" & Right(jis, 2)
If hi And 1 Then
If lo < &H60 Then
lo = lo + &H1F
Else
lo = lo + &H20
End If
Else
lo = lo + &H7E
End If
If hi < &H5F Then
hi = (hi + &HE1) \ 2
Else
hi = (hi + &H161) \ 2
End If
Jis2SJis = CStr(Hex(hi * &H100 + lo))
End Function
コメント一覧
![](https://blogimg.goo.ne.jp/image/upload/f_auto,q_auto,t_profile_square_m/v1/noimage/user_photo/gb25_noimage.png)
⇒画像
![](https://blogimg.goo.ne.jp/image/upload/f_auto,q_auto,t_profile_square_m/v1/noimage/user_photo/gb25_noimage.png)
ブログオーナー
![](https://blogimg.goo.ne.jp/image/upload/f_auto,q_auto,t_profile_square_m/v1/noimage/user_photo/gb25_noimage.png)
ブログオーナー
![](https://blogimg.goo.ne.jp/image/upload/f_auto,q_auto,t_profile_square_m/v1/noimage/user_photo/gb25_noimage.png)
ブログオーナー
![](https://blogimg.goo.ne.jp/image/upload/f_auto,q_auto,t_profile_square_m/v1/noimage/user_photo/gb25_noimage.png)
ブログオーナー
![](https://blogimg.goo.ne.jp/image/upload/f_auto,q_auto,t_profile_square_m/v1/noimage/user_photo/gb25_noimage.png)
⇒画像
最新の画像もっと見る
最近の「EXCEL VBA」カテゴリーもっと見る
最近の記事
カテゴリー
- VBScript(2)
- Weblog(314)
- お仕事ツール(0)
- Saloon(1099)
- Node.js他(Python)(16)
- HTA(32)
- 決め・分け論(70)
- 映画・ドラマ(37)
- EXCEL VBA(35)
- PL/SQL(10)
- Java(11)
- 詩(自作)(5)
- 詩(塚原将)(298)
- 短歌(200)
- 題詠100首鑑賞(96)
- 題詠100首(109)
- ALIAS SMITH and JONES エピソード(1)
- 題詠100首2010(11)
- 読書(74)
- プロスポーツ(プロ野球、格闘技)(27)
- 日常・育児とか(88)
- 仕事(IT関係)(61)
- とほほ(33)
- 夢(32)
- 勝手にバトン(7)
- 写真(36)
- スタートレック視聴日誌草稿(24)
- 旅行(25)
- 嫌いな言葉(6)
- 好きな言葉(4)
バックナンバー
人気記事