No.2ベストアンサー
- 回答日時:
単語単位での読み仮名でしたら、EXCELやWORDでは手作業でやるしかありません。
文字単位でいいですか?例えば、EXCEL という語なら
× エクセル
○ イー エックス シー イー エル
ならVBAで出来ますが。
読み仮名をふるセル範囲を選択し、下記マクロを実行します。ちなみに数字の場合には、先に文字列にしておく必要があります。完了したら、EXCELのPHONETIC関数で読み仮名を表示できます。
Sub 英数字フリガナ()
Dim strTarget$, strYomi$, strTmp$, Buf$
Dim rngCurrent As Range
Dim aryYomi(35, 1) As String
Dim tmp
Dim i As Long, j As Long
strTarget = "0123456789abcdefghijklmnopqrstuvwxyz"
strYomi = "ゼロ,イチ,ニ,サン,ヨン,ゴ,ロク,ナナ,ハチ,キュウ,"
strYomi = strYomi & "エイ,ビー,シー,ディ,イー,エフ,ジー,エイチ,アイ,ジェイ,"
strYomi = strYomi & "ケイ,エル,エム,エヌ,オウ,ピー,キュウ,アール,エス,ティ,"
strYomi = strYomi & "ユウ,ブイ,ダブリュ,エックス,ワイ,ゼット"
tmp = Split(strYomi, ",")
For i = 1 To 36
aryYomi(i - 1, 0) = Mid(strTarget, i, 1)
aryYomi(i - 1, 1) = tmp(i - 1)
Next i
For Each rngCurrent In Selection
If Not IsEmpty(rngCurrent) Then
Buf = CStr(Trim(rngCurrent.Value))
Buf = StrConv(Buf, vbNarrow)
Buf = StrConv(Buf, vbLowerCase)
strYomi = ""
For i = 1 To Len(Buf)
strTmp = Mid(Buf, i, 1)
For j = 1 To 36
If strTmp = aryYomi(j - 1, 0) Then
strYomi = strYomi & aryYomi(j - 1, 1) & " "
Exit For
End If
Next j
Next i
rngCurrent.Characters.PhoneticCharacters = Trim(strYomi)
End If
Next rngCurrent
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
アルファベットの会社名のふりがなの書き方を教えてください。
日本語
-
ローマ字→カタカナへ変換(エクセルで)
Excel(エクセル)
-
ローマ字「T」のふりがな
日本語
-
-
4
excel 2010で数字にふりがなを付けたい。
その他(Microsoft Office)
-
5
振込先の名義にアルファベットが含まれる
銀行・ネットバンキング・信用金庫
-
6
アルファベットの「K」
英語
-
7
エクセルのデータにふりがなを付けたい(英字・漢字・カナを含む)
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで文字を含む式に、カ...
-
Excelで、空白を表示したい
-
エクセルで文字が白くなる
-
エクセル(2003) 「1900/1/0...
-
アクセスで#エラーを表示させ...
-
エクセルで、時間 0:00を表示...
-
EXCELの散布図で日付が1900年に...
-
エクセル条件付書式で指定の時...
-
エクセルの書式設定に時間(0:0...
-
Excel関数 マイナスは赤字、+の...
-
Excelのテーブルでセルの書式設...
-
today関数で日付を全角文字で表...
-
小数点以下の数字だけ小さいフ...
-
Access ¥マークを表示しない
-
エクセル、ユーザー定義
-
エクセルで日数計算
-
エクセルで上付き,下付き文字...
-
Excelで勝手に小数点以下が増える
-
強調の・
-
スプレッドシート、関数込みの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで文字が白くなる
-
Excelで、空白を表示したい
-
エクセルで文字を含む式に、カ...
-
エクセルで、時間 0:00を表示...
-
アクセスで#エラーを表示させ...
-
エクセル条件付書式で指定の時...
-
小数点以下の数字だけ小さいフ...
-
エクセル(2003) 「1900/1/0...
-
excelの軸
-
EXCELの散布図で日付が1900年に...
-
Excelのテーブルでセルの書式設...
-
today関数で日付を全角文字で表...
-
Access ¥マークを表示しない
-
エクセルのセルの書式ユーザー...
-
Excel 書式の一致を調べる関数...
-
INDESIGNで空改行などのマーク...
-
エクセルの書式設定が解除でき...
-
エクセル/グラフのデータテー...
-
TO_CHARでのゼロ非表示について
-
エクセルでゼロ「0」が「-」に表示
おすすめ情報