A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
JISコードを返す関数は用意されていませんので、自作するしかないと思います。
Dim strUniCode As String
Dim strSJis As String
Dim l As Long
Dim lngSJis As Long
strSJis = "あ"
strJis = StrConv(strSJis, vbFromUnicode)
lng = AscW(strJis)
lngSJis = (lng And &HFF&) * &H100 + ((lng And &HFF00&) / &H100)
のようにすると、lngSJis に Shift JIS コードが入りますので、
あとはこれを Shift JIS → JIS の変換公式で JISコードに直せばよいでしょう。
Shift JIS → JIS の変換公式は
http://www.d2.dion.ne.jp/~imady/charset/charcode …
を参照してください。
( リンク先ページに記載されている 0x2121 などは 16進数で、VBA では &H2121、あるいは &H2121& になります。)
参考URL:http://www.d2.dion.ne.jp/~imady/charset/charcode …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# S-JIS → JIS コード変換するには 3 2023/02/09 23:55
- JavaScript jQueryローディングアニメーションのコードの以下のURL内参考サイトで提示されている 3 2023/07/03 18:29
- その他(パソコン・スマホ・電化製品) EXCELのSUMPRODUCT関数について 2 2022/09/21 17:30
- Ruby 1、Rstudioで回帰直線を求めるために必要な関数はなにか?アルファベット2文字で答えよ。 2、r 1 2022/08/03 11:38
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- その他(パソコン・スマホ・電化製品) JIS規格の変更履歴 2 2023/04/03 10:38
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- Excel(エクセル) 時間差を求めるマクロコードを教えてください。 4 2022/05/17 18:22
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「彡」って文字はなんという文...
-
セル内の文字列が日本語か英語...
-
EBCDIC⇒SJIS変換の方法
-
Excelマクロにて30分単位の計算...
-
CString ←→ BSTRの変換について
-
友人とのラインで 「~MBと書く...
-
sedで日本語の置換方法について
-
英数字を含む文字列(0-9,A-Z)...
-
DOUBLE型の16進HEX文字列変換に...
-
C言語でUTF-8コードで読み込ん...
-
PL/SQLでSJISの文字コードを取...
-
%fと%gについて
-
10進数→2進数への変換
-
COBOLによる全角・半角混...
-
ビット反転(Not)が機能しない
-
フォームのコントロールのバッ...
-
std::stringからLPCWSTR型への変換
-
VisualBasic6からVB2005に移行...
-
VB.NETのコンソールアプリケー...
-
JISコードにエンコードすると、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EBCDIC⇒SJIS変換の方法
-
セル内の文字列が日本語か英語...
-
「彡」って文字はなんという文...
-
std::stringからLPCWSTR型への変換
-
VS 2008(VB.NET)
-
ExcelVBA実行後に時々落ちる
-
ふりがなをアルファベット化す...
-
Excelマクロにて30分単位の計算...
-
Symfowareでのデータ型変換につ...
-
英数字を含む文字列(0-9,A-Z)...
-
JIS → S-JIS コード変換するには
-
sedで日本語の置換方法について
-
COBOLによる全角・半角混...
-
フォームのコントロールのバッ...
-
数字5桁文字コード?
-
バイナリデータ→ASCII 変換プ...
-
2バイト文字をJEFからSJISに変...
-
VBScript ASC関数:文字エンコ...
-
CString ←→ BSTRの変換について
-
入力した文字を全て自動で全角...
おすすめ情報