CODE関数から他の文字コードの求め方

セル A1 に１文字が入力されているとき、私は今まで JIS、SJISコードを次式で求めてきました。間違い、あるいは、より簡便な方法があればご指摘ください。

JISコード　B1: =DEC2HEX(CODE(A1),4)
SJISコード C1: =DEC2HEX(IF(ROUNDUP(HEX2DEC(LEFT(B1,2))/2,0)+112<=159,ROUNDUP(HEX2DEC(LEFT(B1,2))/2,0)+112,ROUNDUP(HEX2DEC(LEFT(B1,2))/2,0)+112+64))&DEC2HEX(IF(MOD(HEX2DEC(LEFT(B1,2)),2),IF(HEX2DEC(RIGHT(B1,2))+32>=127,HEX2DEC(RIGHT(B1,2))+32,HEX2DEC(RIGHT(B1,2))+32-1),HEX2DEC(RIGHT(B1,2))+126))

それから、上記の関数を利用して、あるいは、他の方法でも、UNICODE を求める数式を教えてください。
ついでながら、区点コードを求める方法はありますでしょうか？

No.1 ベストアンサー 回答者： kmee 回答日時： 2019/03/23 20:26

Shift JISコードとは、JISコードをずらす(シフトする)ことで実現しているコードです。

そのため、その法則に従って計算することで JIS←→Shift JIS の変換ができます。

UNICODEは、JISとは違った文字の並び順になっています。
そのため、対応表を使った変換となります。

JISを使った CODE / CHAR に対応した
UNICODE盤の UNICODE / UNICHAR があります。
ただし、古いExcelにはありません
https://support.office.com/ja-jp/article/unicode …



> ついでながら、区点コードを求める方法はありますでしょうか？

「JIS 区点 Excel」で検索してみましょう。

この回答へのお礼

Excel に UNICODE関数が存在すること、知りませんでした！

http://oshiete.goo.ne.jp/mypage/history/question …
で SortaNerdさんから、戻り値 8830 を呈する =CODE("◯") の UNICODE が 25EF と教えられていました。

私の Excel 2013 にも UNICODE があることが確認できたので、試してみたところ、
=DEC2HEX(UNICODE("◯"),4) → 25EF になることを確認できました。

区点コードについては此れから検索してみます。

此の度は誠にありがとうございました。

お礼日時：2019/03/23 22:07