[VBA]半角カタカナ

No.858407からの再質問です。

Excel2000を使っています。
D列に「ＮＢ／ＲＤ」といった色名略称が入っています。F列に、これを「ネイビー／レッド（半角カタカナ）」というふうに表示させたいと思っています。基本となる色名は約200あり、これはIMEの辞書に登録済みです。
下記のようなマクロを作ってみました。

Sub 色名ふりがな()
Dim rngTarget As Range

For Each rngTarget In Selection
rngTarget.Offset(0, 2).Value = Application. _
GetPhonetic(rngTarget)

Next
End Sub

ただし、この方法だとF列には全角カタカナで表示されます。これを同じプログラム上で半角カタカナにするには、どう書けばいいのでしょうか？

どなたかご存知の方、教えてください(>_<)
ちなみにVBAは勉強を始めたばかりの初心者です。

No.3 ベストアンサー 回答者： GuruGuru22 回答日時： 2004/05/17 14:54

VBAやるのにヘルプは必須ですよー。

まぁ、乗りかかった舟で答えとくけど。
rngTarget.Offset(0, 2).Value = StrConv(Application. _
GetPhonetic(rngTarget), vbNarrow)

この回答へのお礼

ありがとうございます！o(> <)o
これでやっと安眠できます。
ほんとに色々お世話になりました。

お礼日時：2004/05/17 15:23

No.4 回答者： imogasi 回答日時： 2004/05/17 14:57

＃２の補足で

＞全角カタカナまではこぎつけたので
とあります。
であれば＃１で使っている、
rngTarget.Offset(0, 2) = StrConv(rngTarget.Offset(0, 2), vbNarrow)
のように、StrConvとvbNarrowを使えばどうでしょう。
VBが入ってないと（StrConvや）vbNarrowは使えないでしょうか。
私の場合は旨く行きましたがVBが入っているお陰かも知れないが。

この回答へのお礼

imogasiさま、再度ありがとうございました。
教えていただいた方法で、うまく表示させることができました。本当に助かりました！

お礼日時：2004/05/17 15:33

No.2 回答者： GuruGuru22 回答日時： 2004/05/17 13:40

こんにちは、前スレで答えてたものです。

GetPhoneticメソッドとStrConv関数を
組み合わせればよいかと。

ヘルプで確認してみてください。

この回答への補足

GuruGuru22さま、再度のご回答ほんとにありがとうございます。
実は今代用品のパソコンを使ってるのですが、これにヘルプファイルがインストールされてないんです。StrConvを使うところまでは思いついて、ネットで調べたのですが、どうもうまくいきません。そこで再度どなたかにご教示願えたら…と思って投稿してみました。
前回の質問で最終補足したとおり、全角カタカナまではこぎつけたので、現在はそれを24行の列に表示させ、本来表示させるべきF列にascで持ってくる、というかっこわるい方法で無理やり表示させてます（悲）。

補足日時：2004/05/17 14:35

No.1 回答者： imogasi 回答日時： 2004/05/17 11:41

Sub 色名ふりがな2()

Dim rngTarget As Range
For Each rngTarget In Selection
rngTarget.Phonetic.CharacterType = xlKatakana
rngTarget.Offset(0, 2) = rngTarget.Phonetic.Text
rngTarget.Offset(0, 2) = StrConv(rngTarget.Offset(0, 2), vbNarrow)
Next
End Sub
（ＯＫＷＥＢで全角カナに強制変換されますが、現実は
半角カナで出ます）
青アオ
黄色キイロ
赤アカ
緑ミドリ
参考　ＳｔｒＣｏｎｖ関数を効かせる前段階は
Sub 色名ふりがな()
Dim rngTarget As Range
For Each rngTarget In Selection
rngTarget.Phonetic.CharacterType = xlKatakana
rngTarget.Offset(0, 2) = rngTarget.Phonetic.Text
Next
End Sub
で
青アオ
黄色キイロ
赤アカ
緑ミドリ

この回答への補足

早速のご回答ありがとうございました。
お教えいただいた方法だと、色名が漢字やひらがなのときはいいのですが、アルファベットだと半角アルファベットで表示されてしまいませんでしょうか？

＃色名略称がすべて全角アルファベットで入力されているんです。悲しいことに…。

補足日時：2004/05/17 12:06