スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

¥を含む文字列を全角化する

Excel VBA VB 6.0

Dim tmpS As String
tmpS = "\1000"
tmpS = Replace(tmpS, "\", "¥")
tmpS = StrConv(tmpS, vbWide)
MsgBox tmpS
 
VB 6.0やExcel VBAのStrConvは便利な命令であるが、 『¥』を含む文字列を全角に変換する際には注意が必要だ。
全角に変換する際に¥だけ無視されて半角のまま残ってしまう。
よって、¥を含む文字列を全角化する際には、 ¥だけ別途Replace命令で置換してやる必要がある。
 
また、¥以外にも『"』と『'』の2文字に関しては、全角に変換すると 通常使用する文字とは違う『"』と『'』に変換されてしまうので、 これらも次のように別途置換をかけてやるのが望ましいだろう。
 
Dim tmpS As String
tmpS = "a'"""
tmpS = Replace(tmpS, """", Chr(-32408))
tmpS = Replace(tmpS, "'", "’")
tmpS = StrConv(tmpS, vbWide)
MsgBox tmpS
 
関連記事
スポンサーサイト

テーマ : プログラミング
ジャンル : コンピュータ

プロフィール

みっちょ (田上 暢顕)

Author:みっちょ (田上 暢顕)
 
30年以上ひたすら毎日プログラミングを続けているエンジニアの『みっちょ』です。

ここでは開発を行う際の覚書の他、私が日頃から色々な開発を行う中で便利だと感じているツールやサービスなどを紹介しています。



連絡先
 110651321
 michyox
 4348126
 Ravijour

友達申請などWelcomeです☆
基本的に断りませんので、お気軽に申請してください♪

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
検索フォーム
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。