エクセルVBAで「〜」が表現できなくて困っています。

Question

あるホームページに出てくる　○○から××へ　などの際に使用される（から記号）が、普通に（から）と打って変換して出てくるもの（～）と微妙に違い、これを普通の～記号に置換したいのですが、できずに困っております。

いちおう質問タイトルの～記号には、私の困るほうを使ってみました。
（質問をアップすると変換されてしまうかもしれませんので、違いについて補足いたします）

●困るほうの～記号の特徴：
セルにペーストすると、普通のものより若干太く見える。
テキストエディタに貼り付けると?（半角ハテナ記号）になる。
VBAのモジュールに貼り付けても上と同じくハテナ。

●使用されている場所：
例えばヤフオクのカテゴリーを下っていき、子ども服のサイズに辿りついたところで、ページ上部あたりにカテゴリー表示されているところ。

すべてのカテゴリ >   ファッション > キッズ、ベビーファッション > 子ども服（女の子用） > ボトムス > パンツ、スラックス > 150（145〜154cm


いったいなぜこんな記号が使われているのだろうか・・・とほほ。
すいませんが、どうかよろしくお願いいたします。

nicotinism · Accepted Answer

あの『～』はUniCode文字ですね。
ExcelのシートはUniCodeに対応しているので貼り付けて
IMEで再変換させると、環境依存文字unicodeと表示されます。
VBAはUniCodeには対応していないので直接は扱えません。

A
1|〜
2|　145〜154cm
3|
VBAではRangeオブジェクトごと渡してしまえば可能です。
msgbox Replace(Range("A2"), Range("A1"), "～")
（A1、A2ともUnicodeの『〜』です）

あるいはワークシート上で関数で
=SUBSTITUTE(A2,"〜","～")
とかでは？

WindFaller · Answer

こんにちは。

Unicode をJISに変換するなら、以下のような方法で可能です。
置換するのは、これだけでは足らないとは思いますが……。
どこかで話題になったNBSP(no-breaking space) も厄介ですね。これも、「?」になります。

'//
Sub U2JISConvert()
　Dim Fname As String
　Dim iFno As Integer
　Dim buf As String
　Dim bufbyt() As Byte
　Fname = "Unicode_Txt"
　iFno = FreeFile()
　Open Fname For Binary Access Read As #iFno
　bufbyt = InputB(LOF(iFno), #iFno)
　Close #iFno
　buf = MidB(bufbyt, 3)
　buf = Replace(buf, ChrW(&H301C), ChrW(&HFF5E)) '置換
　Debug.Print buf
End Sub
'///

keronjin · Answer

多分、添付画像のようなＡ1とＡ2の違いだと思いますが、
通常は　○○から××へ　などの範囲の指定の際に使われるのは「波ダッシュ」です。
＞　https://ja.wikipedia.org/wiki/%E6%B3%A2%E3%83%80%E3%83%83%E3%82%B7%E3%83%A5

?（半角ハテナ記号）になってしまうのはそれぞれ元の文字コードが違うからです。
全員が同じＯＳで入力しているわけではないので、ごちゃ混ぜになっているんですよね。
太字の～をコピペで持ってきたら環境によっては化けるので、あなたが書かれている「（から）と打って変換」に置き換えれば良いのでは？。
または全角入力でShiftキーを押しながら「へ」のキーを押せば出る～で良いと思いますけど。

エクセルVBAで「〜」が表現できなくて困っています。

あの『～』はUniCode文字ですね。

こんにちは。

多分、添付画像のようなＡ1とＡ2の違いだと思いますが、

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング