
No.4ベストアンサー
- 回答日時:
これはユーザ関数でないとできないと思います。
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さいシートでこのように式として使用します
=KtoH(A1) 半角カタカナ→(全角)ひらがな
=HtoK(A1) (全角)ひらがな→半角カタカナ
Function HtoK(ByVal trg As Range) As String
HtoK = StrConv(trg.Value, vbKatakana)
HtoK = StrConv(HtoK, vbNarrow)
End Function
Function KtoH(ByVal trg As Range) As String
KtoH = StrConv(trg.Value, vbWide)
KtoH = StrConv(KtoH, vbHiragana)
End Function
ユーザ関数は存在は知っていたのですが、まったく使ったことは無かったです。
この場合は、ユーザー定義関数がもっとも便利な気がします。
ありがとうございました。
No.6
- 回答日時:
前半は前の質問に答えてしまった。
そちらを見てください。後半は、VBEの標準モジュールに
Function wd(a)
wd = StrConv(StrConv(a, vbKatakana), vbWide)
End Function
で同じ例で
ハンナリハンナリ
ハンナリハンナリ
オカユガクイタイオカユガクイタイ
カンガエルトワカラナイカンガエルトワカラナイ
ご丁寧にすみません。
私が質問した時点では、まだimogasi様の回答を見ていない段階でしたので、二重の質問をしてしまいました。
大変参考になりました。
ありがとうこざいました。
No.5
- 回答日時:
こんばんは。
回答ではないのですが、数字やアルファベットと混じったものの中から、それだけを取り出して「ひらがな全角~カナ半角 」相互置換だとしたら、もっと難しいマクロか、ユーザー定義関数になるはずですね。
それは、どうなんでしょうか?
私が知らない方法で、もっと簡単な方法があるのではと思いましたが、マクロか、ユーザー定義関数が必要なのですね。
一般的には使わない機能だからでしょうね。
ご親切にありがとうございました。
No.3
- 回答日時:
A1に文字が入っており、B1に変換結果を表示するとすると、
=PHONETIC(A1)
とB1に入力し、A1セルを選択して「書式」>「ふりがな」>「設定」を選択し、「ひらがな」を選択するとB1の文字が全角ひらがなに、「半角カタカナ」を選択すると半角カタカナになります。
ただし、PHONETIC()関数はもともとふりがなを取得する関数なので、文字列に漢字が含まれていると、かなに変換されてしまいます。その場合はこの方法は使えないので、マクロを使います。
マクロで変換する方法ですが、Alt+F11でVBAの画面を開き、「挿入」>「標準モジュール」を選択して、右の画面に以下のマクロをコピーして貼り付けてください。
Sub 全角ひらがなに変換()
Dim r As Range
For Each r In Selection
r.Value = StrConv(r.Value, vbWide + vbHiragana)
Next
End Sub
Sub 半角カタカナに変換()
Dim r As Range
For Each r In Selection
r.Value = StrConv(r.Value, vbNarrow + vbKatakana)
Next
End Sub
VBAの画面を閉じ、Alt+F8からマクロを実行すると、選択されたセルの文字列がカタカナ半角/ひらがな全角へそれぞれ変換されます。
すごい。完璧ですね。
私も、昨晩、布団の中で、「=PHONETIC関数を使えばいいかも!」と思いつき、すぐに「漢字 かな交じり だったら漢字もカナになっちゃうからダメだ」とゲンナリしてしまいました。
すばらしいVBAコードを教えていただいてありがとうございました。
No.1
- 回答日時:
はい。実は、その質問を見て、自分なりの疑問を改めて質問させていただきました。
ASC や JIS 関数は知っていたのですが、ひらがな全角文字からカタカナ半角文字への置換を簡単にできる方法は知らないなーと思い、質問しました。
http://oshiete1.goo.ne.jp/qa2788626.html
では、imogasi様がVBAもしくはユーザー関数を作るとお答えになっているので、分かりましたが、私が質問した時点では、その回答は寄せられていない段階でしたので、質問させていただきました。
もし、nobu555様が良い方法をご存知でしたら、ご教示ください。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ハイパーリンクの中の半角カタ...
-
カタカナを小文字から大文字に...
-
Key Scramblerって
-
select case 大文字小文字を...
-
shifキーを押しながらの半角英...
-
「トゥ」をローマ字で打ちたい...
-
ウィンドウズパソコンを立ち上...
-
「”」と対になる「チョンチョン...
-
小さい「ウ」ってキーボードで...
-
ローマ字入力のキーボードで最...
-
X₁=3、X₂=4 の 小さい数字の...
-
=を縦にした キーボードの入力...
-
常にローマ字日本語入力にする...
-
【Windows11の新機能で驚いたこ...
-
パソコンの「Z」キーが不調
-
exp(13.4)を関数電卓で計算する...
-
プラス(足す)キーはどうやっ...
-
google chrome から yuotube.co...
-
プーリーのキーが外れない
-
PgDn、PgUpの設定が急に変わっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カタカナを小文字から大文字に...
-
ハイパーリンクの中の半角カタ...
-
ァ→ア (アクセス)
-
Enterキー左横上のキーの小さい...
-
ATOKの入力がおかしくなること...
-
半角カタカナがVBAだと全角...
-
ATOK ローマ字入力モードに一発...
-
エクセル:全角→半角の自動変換...
-
文字を打つときに文字に下線が...
-
WindowsのATOK (Passport: 現20...
-
エクセルでひらがな全角~カナ...
-
特打ヒーローズ名探偵コナン ...
-
日本語入力On/Offを音などで知...
-
select case 大文字小文字を...
-
ファイル名を半角大文字にする...
-
左上の半角/全角/漢字キーが利...
-
日本語入力に固定したい
-
Photoshopでローマ字が打てなく...
-
文字変換でなかなかひらがなに...
-
フリガナをふりがなに変換でき...
おすすめ情報