
No.3ベストアンサー
- 回答日時:
No.1です。
前回のコードに少し手を加えました。
Sub Sample2()
Dim c As Range
Dim myStr As String
For Each c In Selection '//①//
With c
myStr = Application.GetPhonetic(.Offset(, 1).Text)
With .Phonetic
.Text = myStr
.CharacterType = xlKatakana '//②//
.Alignment = xlPhoneticAlignCenter
.Visible = True '//③//
End With
End With
Next c
End Sub
コード内の①・②が補足の1・2になります。
3に関しては③の行を削除するだけで大丈夫だと思います。
※ 必ずデータがあるセルを範囲指定し、マクロを実行してください。
空白セルが指定した範囲にあるとエラーになります。m(_ _)m
後出しの補足に対して再度ご対応いただき、ありがとうございます!
無事できました。
ほんとうに助かります。
コードだけ提示いただくのではなく、説明も付けてくださり、勉強になりました。
No.2
- 回答日時:
こんにちは♪
下記のプログラムをコピーして、一旦、メモ帳等に貼り付け、全角スペースを半角スペースに置換してから、
VBEditorに貼り付けてください。
Sub Sample2()
Dim r As Range
Dim furigana As String
For Each r In Range("A1:A3")
furigana = r.Offset(0, 1).Text
With r.Phonetic
.Text = furigana
.CharacterType = xlHiragana
.Alignment = xlPhoneticAlignCenter
.Visible = True
End With
Next r
End Sub
ありがとうございます!
セルA1:A3については、ばっちりできました。
ただ、こちらの説明不足もあり、追加で補足を書かせていただきました。
お手すきでご対応いただけたら幸いです。
(回答No.1のかたへのお礼のコピペで恐縮です。)
No.1
- 回答日時:
こんばんは!
一例です。
Sub Sample1()
Dim c As Range
Dim myStr As String
For Each c In Range("A1:A3")
With c
myStr = Application.GetPhonetic(.Offset(, 1).Text)
With .Phonetic
.Text = myStr
.CharacterType = xlHiragana
.Alignment = xlPhoneticAlignCenter
.Visible = True
End With
End With
Next c
End Sub
こんな感じではどうでしょうか?m(_ _)m
ありがとうございます!
(返信が遅くなり、失礼致しました。)
セルA1:A3については、ばっちりできました。
ただ、こちらの説明不足もあり、追加で補足を書かせていただきました。
お手すきでご対応いただけたら幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
HYPERLINKのリンク先のセル範囲...
-
ワードからエクセルへのハイパ...
-
スピンボタンのコピー
-
Excelで数値→文字列変換で指数...
-
Excelで行ごとコピー、同じ行を...
-
塗りつぶしの色をコピーするには
-
エクセルでグラフタイトルが折...
-
テキストボックス内の文字のふ...
-
C+vのvは英語で何の頭文字...
-
エクセル 指定した文字列を含...
-
勝手にリンクするテキストボッ...
-
数字がセルの左側に寄っていて...
-
エクセルにおける、グラフの指...
-
負のデータが含まれている場合...
-
たくさん作った同じ設定のグラ...
-
【Excel】貼り付けた画像がいつ...
-
パワーポイントに貼り付けたエ...
-
エクセルのグラフの一部拡大
-
コピーされたセルの文字が途中...
-
VBAのテキストボックスに文字列...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
スピンボタンのコピー
-
エクセルVBAを使いセルを指...
-
エクセルで全部の数字を3倍したい
-
HYPERLINKのリンク先のセル範囲...
-
データベース関数のCriteria(...
-
エクセルでの先頭文字について
-
エクセル VBA 特定の範囲内に一...
-
【頭の良い人へ】同セル内の文...
-
エクセルVBA: 別のセルからの...
-
ワードからエクセルへのハイパ...
-
エクセル マクロでセルへ入力し...
-
countif関数で離れた場所を検索...
-
エクセルで最後に入力したセル...
-
少数点の表示形式について
-
セルに入力したファイル名を参...
-
if関数の連続を単純化するには...
-
こんな方法を探しています。
-
条件付き書式
-
Excelで数値→文字列変換で指数...
-
Excelで行ごとコピー、同じ行を...
おすすめ情報
お二人から回答いただいてからの、後出しの補足になってしまい、恐縮です。
ご対応いただけたら、助かります。
1. (例示した)セルA1:A3に限らず、現在選択しているすべてのセルについて、それぞれ一つ右のセルの文字列を見にいくようにできたら、ありがたいです。
(記述いただいたVBAの"A1:A3"の箇所を編集すればいいのかもしれませんが、毎度、セルの数や行・列は異なるためです。)
2. ふりがなを全角カタカナに指定できますでしょうか。
(表示する種類(ひらがな・全角カタカナ・半角カタカナ)は、エクセルのアプリケーションやワークシート全体に及ぶ設定かと誤解していましたが、セルごとに設定できることを、回答いただいてから理解した次第です。)
3. 「ふりがなの表示」はしないようにできますでしょうか。
よろしくお願い致します。