お世話様です。
質問です。
たとえば、「今日のニューヨークは晴れです」という文章を
「キョウノニューヨークハハレデス」というように、半角カタカナに一発で変換することは可能でしょうか?
仕事で商品などを登録する際に半角カタカナでの入力が原則なので、
ひとつひとつ手作業で変換するのは非常に時間がかかってしまいます。
ほかのデータから引っ張ってくることが多いので、phonetic関数は使えないようです。
現在は先輩の作った変換FMがあるのですが、別途立ち上げる必要がありますし、データが重いので会社の貧弱なスペックのパソコンではすぐフリーズしてしまいます。
できれば、A1に「今日のニューヨークは晴れです」とあれば、B1に自動で「キョウノニューヨークハハレデス」と表示されると楽なのですが・・・
何かいい方法をご存知の方がいらっしゃれば教えていただきたいです。
よろしくお願いいたします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
VBAを経験して無いだろうが、小数行数のコードなので上げておく。
例データ
今日のニューヨークは晴れです
今日は秋田の山で初雪が降った。
ーー
テストするには、メモ帳ででも、上記文章を作り、エクセルのセルにコピペすること。<=ほかのデータから引っ張ってくることが多いので、phonetic関数は使えないようです。<=良く判りましたね。この点からの注意事項です。
ーーー
VBAコード
標準モジュールに
Sub test01()
For i = 1 To 2
x = Cells(i, "A")
Cells(i, "B") = StrConv(Application.GetPhonetic(x), vbNarrow)
Next i
End Sub
ーーーー
半角カナにしている。Application.GetPhonetic(x)だけだと全角に
なるようだ。
ーー
結果
キョウノニューヨークハハレデス
キョウハアキタノヤマデハツユキガフッタ。
ーーー
!!!この変換は絶対ではない。再度良く人間がチェックのこと。
でも大幅省力化になると思う
ーーー
ユーザー関数化するには
標準モジュールに
Function kana(a)
kana = StrConv(Application.GetPhonetic(a), vbNarrow)
End Function
ーー
セルでは=kana(A1)と入れる。
===
VBAに関連したことは、ちょっとだけ勉強のこと。
下記語句などでWEB照会して勉強。
VBE画面
VBA 標準モジュール
ユーザー関数
For Next
最下行を捉える
VBA Cells
Application.GetPhonetic
などGoogleででも照会のこと。沢山記事が出るだろう。
早速の返答ありがとうございます。
確かに先輩の変換FMはVBEを使って変換しているようですので、
このような返答がくるだろうと予想はしていました。
自分でも作れるようになれば一番なのですが、今の私には少し敷居が高いようです。。。
もう少しVBEの基本を勉強してから実践してみようと思います。
それまでは、使いにくいですが、先輩FMを使います(++)
No.2
- 回答日時:
エクセルに正しくキーボードから入力された文字なら
=PHONETIC(A1)
で変換されますが、別の場所からコピペで持ってきた様な
文字列は読み仮名の情報を持っていないので、変換は難しいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
文字コードの%E3%80%とは何です...
-
CString から LPCTSTRの型に変換
-
HTMLユニコード?の変換
-
エクセルでの漢字(全角ひらが...
-
gccでiconvを使った文字コード...
-
シングルクォーテーションの変換
-
SJIS->UTF8->SJISコード変換に...
-
ひらがなから全角カタカナへの...
-
【PHP】全角記号を半角記号...
-
シャープ(#)の受け渡し
-
Kシェルでの文字型→数値型変換
-
エクセル(Exsel)についての質...
-
CSVファイルの中で、「 , 」カ...
-
perl でエラー:Wide character...
-
エクセルで数値を全角文字(カ...
-
カンマ区切りの数字をCSVフ...
-
住宅にカナを入力する際に丁目...
-
全角英数字の必要性が理解できない
-
VB2005のTextBoxでカン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
CString から LPCTSTRの型に変換
-
Excel VBAでPDFファイルをMicro...
-
文字コードの%E3%80%とは何です...
-
SJIS->UTF8->SJISコード変換に...
-
SQLのデータで半角カナを全角に...
-
gccでiconvを使った文字コード...
-
テキストをhtml変換するには
-
Visual Studio プロパティペー...
-
Encode.pmで「髙」(ハシゴ高)...
-
ローマ字からカナに変換する方...
-
LINUX上でシリアル通信(C++)
-
VBScript文字列をSJISからUTF8...
-
【PHP】全角記号を半角記号...
-
VB6にも「ToString」ってあり...
-
五十音の並べ替えsortを教えて...
-
これはなんの文字コードでしょうか
-
エクセルでの漢字(全角ひらが...
-
ウイザードからのVBAでクエリー...
-
漢数字の変換
-
文字化けしてしまって困っています
おすすめ情報