ついに夏本番!さぁ、家族でキャンプに行くぞ! >>

エクセル2007です。

A列に漢字が入力してあります。
ルビを表示してます。
これを元にして、B列にカタカナを表示させたいのです。

ルビの部分だけを選択すればコピー&ペーストできますが、
いっきにすべて選択してコピペできないでしょうか?
100行ぐらいあるので。

よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

取り敢えず出来ることとしては,


=PHONETIC(A1)
のようにして,振り仮名を丸ごと別セルに書き出させることができます。


実際には
>漢字が入力してあります。
>ルビを表示してます

具体的に一体どんな漢字にどんなルビを表示しているのを取り出したいのかによって,上述のようにしてさくっと取り出しておしまいなのか,マクロでも組んでどうにかしないと出来ない問題なのか,いろいろです。
    • good
    • 0
この回答へのお礼

=PHONETIC(A1)
これで完璧です。
ありがとうございました。感謝です。

お礼日時:2011/04/16 23:38

エクセル2007の場合だと


ホームタブから「書式のコピー、張付」があるのでそれを元セル上で
クリックしてから、コピー先の部分でクリックすると張付けられます
    • good
    • 0
この回答へのお礼

ありがとうございます。
先の回答で=PHONETIC(A1)でできました。

>ホームタブから「書式のコピー、張付」
こんなのがあるとは知りませんでした。試してみたのですが
使い方が悪いのか、いまいち貼り付けできないんです。
あとからもう少しトライしてみます。
ありがとうございました。

お礼日時:2011/04/16 23:41

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル コピーしたセルにふりがなを表示させる方法

タイトルの通りなのですが、具体的に書きます。
エクセルに詳しい方、よろしくお願いします。

Sheet1のC6のセル(漢字の名前)を
Sheet2のD12のセルでコピー(=Sheet1!C6)させたのですが、
このセル(Sheet2のD12)にふりがなを表示させたいです。

私はマクロには疎いのですが、ネットで検索したところ、

Sub ふりがな設定()
Selection.SetPhonetic
Selection.Phonetics.Visible = True
End Sub

を登録して実行すれば良いと書いてあったので試したのですが
実行しても、ふりがなが表示されません。

別の方法でも構いませんので、何か良い方法があれば
教えていただきたく、よろしくお願いします。

Aベストアンサー

>複数のセルを結合して1つのセルとして認識させて
結合セル?orz ではこれで試してください。

Sub Macro2()
Dim r As Range
 If TypeName(Selection) = "Range" Then
  For Each r In Selection
   If r.Value <> "" Then
    r.Phonetic.Text = Application.GetPhonetic(r.Value)
   End If
  Next r
 End If
End Sub

Qエクセルのルビがついたセルを参照してルビ付きで表示

例えばシート1の”A1”のセルに
鈴木 と打ち込んでルビ付きで表示すると
鈴木 の上に すずき とルビが表示されます。
シート2でこの内容をそのまま表示したいと思い
=シート1!A1
と入力したとき、そこにはただ 鈴木 としか出ません。
この式を入力したセルのルビを表示するように指定しても
ルビが表示されることはありません。
式でシート1のA1を参照して、同時にルビも表示できるようにするには
何か方法があるでしょうか。

ちなみに、実際に表示したいセルは200くらいあり
それを表示したいシートも数枚あり、
条件設定で順序が変わったりするので
一つ一つコピーするというのは事実上無理があります。
また、上下二つのセルを使い、
上の段に =PHONETIC を使ってふりがな
下の段に漢字ということも考えたのですが
別の不具合が出てしまい断念しました。
シート1の A1 と同じように一つのセルで表示する方法が無いものでしょうか?

ちなみにエクセルのバージョンは2007です。

よろしくお願いします。

Aベストアンサー

> シート1の A1 と同じように一つのセルで表示する方法が無いものでしょうか?

基本的に関数で表示した値はふりがなを含めて書式情報を付加することはできません。

どうしても元データと同じように表示したいなら図のリンク貼り付けの機能を利用することになります。

参照元のデータを選択して「コピー」し、貼り付け先のセルを選択して、ホームタブの「貼り付け」の下の▼をクリックして「図のリンク貼り付け」を選択します。

数式で表示されているのではなく、ふりがな情報のない文字列のふりがなを一括して付加させたいなら(数式セルを普通の文字列に変換するには、数式セルを選択して、右クリック「コピー」し、そのままもう一度右クリック「形式を選択して貼り付けで「値」を選択する)、ふりがなのないセル範囲を選択してから、Alt+F11でVBEを起動しCtrl+Gでイミディエイトウィンドウを表示して、ここに以下のコードを入力してEnterしてみてください。

selection.setphonetic

ただし、上記の方法で自動的に作成したふりがなは必ずしも正しい読みと位置するとは限らないので(ワタナベとワタベなど)、最終的にはチェックする必要があります。

> シート1の A1 と同じように一つのセルで表示する方法が無いものでしょうか?

基本的に関数で表示した値はふりがなを含めて書式情報を付加することはできません。

どうしても元データと同じように表示したいなら図のリンク貼り付けの機能を利用することになります。

参照元のデータを選択して「コピー」し、貼り付け先のセルを選択して、ホームタブの「貼り付け」の下の▼をクリックして「図のリンク貼り付け」を選択します。

数式で表示されているのではなく、ふりがな情報のない文字列のふりがなを一括し...続きを読む

Qエクセルで別のセルにあるふりがなを,漢字の上に表示させる方法はあります

エクセルで別のセルにあるふりがなを,漢字の上に表示させる方法はありますか?
たとえばA2に漢字表示,B2にそのふりがなが表示されています。このふりがなをA2の漢字の上に表示したい(同じセルの中に)のですが関数でできますか?
マクロはほとんど分からないので,できれば関数か他の方法がいいのですが…。

Aベストアンサー

こんな感じだと思うよ

Sub test()
Dim i
For i = 2 To Cells(Rows.Count,1).End(xlUp).Row
With Cells(i, 1)
.Characters(1, Len(.Value)).PhoneticCharacters = Cells(i, 2).Value
.Phonetics.Visible = True
End With
Next i
End Sub

マクロの設定は
[Alt]を押しながら、[T][M][V][I][M]の順でキーを押す
表示された画面のカーソル位置へコードをコピペ
画面を閉じる

マクロの実行は
[Alt]を押しながら、[T][M][M]の順でキーを押す
testマクロを実行

参考まで


人気Q&Aランキング