人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

質問です。
エクセルの文字列の中で全角カタカナ文字を半角カナに変換する関数またはマクロはできますか。

●質問者: inosisi
●カテゴリ:コンピュータ インターネット
✍キーワード:エクセル カタカナ マクロ 半角カナ 文字列
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● あすか
●20ポイント

ASC関数を使えばできます。

◎質問者からの返答

ありがとうございました。

大変参考になりました。

意外と簡単にできるものですね。


2 ● readmaster
●30ポイント ベストアンサー

できます。

ASC関数を使えばOKです。


使い方は、 B1などに、=ASC(A1)で、A1に「ハテナ」とあれば半角カナでB1に入力されます。

http://www.moug.net/tech/exopr/0100008.htm


またこちらの質問もご参考に。

http://q.hatena.ne.jp/1122380046

◎質問者からの返答

ありがとうございました。

早速やってみました。

上手くゆきました。


3 ● SALINGER
●30ポイント

ASC関数と言いたいところですが、ASC関数は全角を半角にする関数なので

カタカナ意外にも英数字が半角となってしまいます。

それでマクロでカタカナだけを変換してみます。


変換したいセルを選択して実行すると英数字はそのままでカタカナだけを半角にするマクロです。

Sub 半角カタカナ()
 Dim r As Range
 Dim str1 As String
 Dim str2 As String
 Dim i As Integer
 
 For Each r In Selection
 For i = 1 To Len(r.Value)
 str1 = Mid(r.Value, i, 1)
 If str1 Like "[ァ-ン,ー]" Then
 str2 = str2 & StrConv(str1, vbNarrow)
 Else
 str2 = str2 & str1
 End If
 Next i
 r.Value = str2
 Next r
End Sub
◎質問者からの返答

ありがとうございます。

上手くゆきました。

複数セルを選択して変換できるとより便利なのですが。

無理でしょうか。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ