- ベストアンサー
エクセルでひらがな・漢字はそのままでカタカナを全角・英数字を半角にする方法
エクセル2000を使っています。 会社で住所録作成を引き継ぎましたが、 一つのセルにひらがな、漢字、カタカナ、英数字 が半角・全角ごちゃ混ぜで入っているので 管理がしづらくて困っています。 例えば、 あいうアジアＮＥＴ株式会社 株式会社ABC１２３ などなど・・・・ ひらがな・漢字はそのままで、 カタカナを全角、英数字を半角にする方法は ありませんか？ 最初にASC関数を使ってみたらカタカナも半角になり、 Phonetic関数を使うと、 カタカナだけ全角になりましたが、 ひらがなまでカタカナになり・・・ JIS関数も試しましたが今度は英数字まで全角になり、 どうしたものかと困っております。 よろしくお願いします。
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (3)
- KenKen_SP
- ベストアンサー率62% (785/1258)
No.2です。 ＞なぜかportという単語が ppsu になったり、 申し訳ないです。関数で変換部分がマズかったです。私が関数のコードを作成したPCではOKだったのですが、ほかのPCでは、誤置換されてしまいました。 修正コードをアップしますので、少々お待ちいただけたら幸いです。
お礼
お手数をおかけします。 よろしくお願いいたします。
- KenKen_SP
- ベストアンサー率62% (785/1258)
こんにちは。 一般操作による方法が思い付きません。ユーザー定義関数にしてみました。したがって、ワークシートで使用することも、マクロで使用することも可能です。 1. ワークシートで使用する場合 A1セル：変換対象となるデータ B1セル：＝myStrFmt(A1) ASC関数などと同じように使用します。 2. マクロで使用する場合 サンプルマクロを示します。セルを範囲選択し、実行すると漢字・ひらがな・カタカナは全角、英数字は半角に統一します。 ただし、あまり効率的なやり方では無いような気がしてます。置換をゴリゴリやっているだけですから。でも、以下の環境で10,000件のテストデータ変換に1分程度ですから、実用には耐えるのではないでしょうか？ CPU:C400 Memory:256M Win98SE Excel2000 ========== 次行からコード ================================== 'ユーザー定義関数（ワークシートで使えます） '文字列中のひらがな・カタカナを全角、英数字を半角にします。 Function myStrFmt(Target As String) As String Target = StrConv(Target, vbWide) '全角アルファベット置換 For i = -32160 To -32135 Target = Replace(Target, Chr(i), Chr(i + 32225)) Target = Replace(Target, Chr(i + 32), Chr(i + 32 + 32225)) Next i '全角数字置換 For i = -32177 To -32168 Target = Replace(Target, Chr(i), Chr(i + 32225)) Next i myStrFmt = Target End Function 'マクロで関数を使用するサンプル（セルを選択した状態で実行） Sub サンプル() On Error Resume Next Dim rngCell As Range Application.ScreenUpdating = False For Each rngCell In Selection If rngCell.Value <> "" Then rngCell.Value = myStrFmt(rngCell.Value) End If Next rngCell Application.ScreenUpdating = True End Sub
補足
丁寧に教えていただき、ありがとうございました。 教えていただいたとおりにやったつもりなのですが、 なぜかportという単語が ppsu になったり、 e が f になってしまいました。 全てのportが ppsuに、eがfになるわけではないので、 もともとのデータの入力時になにか問題があったのかしら？ と思います。 また、最初に触れませんでしたが、「・」も リスト中にあり、それは全て「a」に変換されました。 頂いた関数を見ればなにかわかるかな・・・ と思いましたが、なにぶん、マクロ・関数は（も） 初心者でよくわかりませんでした・・・。 何か思いつくことがございましたら、 今一度ご教授いただけますでしょうか。 よろしくお願いいたします。
- BLUEPIXY
- ベストアンサー率50% (3003/5914)
拙作のユーザー定義関数で指定した文字を置き換えることができます。 変換が必要なセルをA1だとして いったん全角に変換してから英数字を半角に置き換えるという方針で =tr(JIS(A1),"ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ＠＋－．０１２３４５６７８９","ABCDEFGHIJKLMNOPQRSTUVWXYZ@+-.0123456789") みたいな、感じで置き換えたい文字の種類を書きます。お好みで英記号を追加して下さい。 ALT+F11でＶＢＥにて標準モジュールで以下を貼り付けて使用して下さい。 Public Function tr(str As String, replaceList As String, convertList) As String Dim i, c For i = 1 To Len(replaceList) str = Replace(str, Mid(replaceList, i, 1), Mid(convertList, i, 1)) Next tr = str End Function
お礼
ご教授ありがとうございました。 コピペでやってみたら解決しました！ ユーザー定義関数などは 利用したことがなかったので、 これから教えていただいた関数の中身を 理解したいと思います！ 本当にありがとうございました。
お礼
ありがとうございました！ 今度は問題なく全て変換されました。 過去にお答えになったという質問も 読ませていただきました。 過去の質問も一応は チェックしましたが、完全に見落としておりまして、 恥ずかしい限りです。 問題もおかげで解決し、 本当にありがとうございました。