• 締切済み

excel マクロでふりがなをふる

A1にふりがなをふる漢字、B1にA1にふりがながあります(A1はコピー貼り付けしたデータ)。    A1         B1 木村 慎吾    きむら しんご この場合、B1のふりがなをA1にマクロでふることは可能なのでしょうか?

みんなの回答

  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.2

ん? 同じ回答の繰り返しじゃ面白くないので、別のマクロで sub macro2()  dim h as range  for each h in range("A1:A" & range("A65536").end(xlup).row)   h.phonetic.text = h.offset(0,1).value  next end sub みたいな。 >追加させていただきます。 お断りします。 こんな具合についでに聞いちゃえがダラダラ終わらないご相談がホントに多くて、とても迷惑しています。 「マクロを使って振り仮名を設定する」というのが当初のご相談です。 それが片付いたら一度そのご相談は「解決」で閉じる操作を行い、次の思い付きは改めてご質問の状況をキチンと添えて、新しいご相談として投稿し直して下さい。 これはこちらのような質問相談掲示板での、ごく一般的なマナーなので、覚えておいてください。

AkB373
質問者

お礼

ご回答ありがとうございました。

  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.1

作成例: sub macro1()  range("A1").characters.phoneticcharacters = range("B1").value end sub 新しいマクロの記録で実際に「ふりがなの編集」の操作をマクロに録ってみると、ほぼそのまま使えるサンプルマクロが入手できます。 #参考 A1のふりがなが「ひらがな」なのか「カタカナ」なのかは、振り付けた振り仮名の文字列とは「無関係」に、A1セルの「振り仮名の設定」に依存するので間違えないように注意してください。

AkB373
質問者

お礼

ご回答ありがとうございました。

AkB373
質問者

補足

追加させていただきます。 A行にふりがなをふる漢字(A行はコピー貼り付けしたデータです)、B行にA行にふるふりがなが複数個あります(個数は変動あり)。 (例)    A行       B行    木村       きむら     齋藤       さいとう     ・         ・     ・         ・    加藤       かとう こういう場合、A1からA列の最終データに、B1からB列の最終データに入力された、それぞれのふりがなをマクロを使ってふることは可能なのでしょうか? よろしくお願いいたします。

関連するQ&A

  • excel2010 ふりがなをふる マクロ

    セルA1にふりがなをふる漢字、セルB2にA1にふるふりがながあります(A1はコピー貼り付けしたデータです)。 (例)   セルA1      セルB1  木村 慎吾   きむら しんご こういう場合、セルA1にセルB1に入力されたふりがなをマクロを使ってふることは可能なのでしょうか? よろしくお願いいたします。

  • エクセル ふりがな

    すでにあるデータで A列に漢字 となりのB列にはフリガナが入力されています 漢字は 地名で読み方が普通ではなく、数も1000ほどあるので このデータのフリガナをそのまま使いたいのですが 方法はありますか? 検索しても普通のふりがなを付ける方法しか 出て来ません。 よろしく お願いします

  • ひらがな・カタカナのふりがなを削除する excel

    A行に名字、B行に名前が複数個あり(個数は変動あり)、すべてにふりがながふってあります。 (例:ふりがなは省略)    A行    B行    木村   五郎     齋藤   はじめ      ・      ・     ・      ・    後藤   なびき    加藤    良太 こういう場合、B1からB列の最終データに入力された名前に中から、ひらがな・カタカナ(例では、はじめ と なびき のみ)を見つけ出し、そこだけふりがなを非表示にすることはマクロを使って可能なのでしょうか? よろしくお願いいたします。

  • エクセルのマクロでフリガナをつけるには

    初歩的なことだと推測しますが、一つのセルに対してメニュー[書式]-[ふりがな]-[編集]でふりがなをつけられるのですが、一度にひとつの列の沢山の漢字の読みを追加するにはどうしたらいいでしょうか。 「新しいマクロの記録」でマクロに操作を記録しても結果が表示されるだけで繰り返し処理に応用できません。 下記の例 ActiveCell.FormulaR1C1 = "・・・" ActiveCell.Characters(1, 3).PhoneticCharacters = "・・・" ActiveCell.Offset(1, 0).Range("A1").Select

  • EXCEL VBAを使ってマクロを組んだのですが、消えてしまいます。

    VBAを使ってマクロをEXCELに組んだのですが、貼り付け先のデータをダブルクリックするとデータが消えてしまいます。 組んでいるマクロは (前提) ファイルA・・コピー元データ ファイルB・・貼り付け先データ (内容) Aファイルでマクロを実行すると、Aファイルの内容がBファイルにコピーされるというものです。 Aファイルの元データは数式のため、Aファイル内でいったん値として貼り付けてから再度コピーして、Bファイルに貼りつけています。 Aファイルは自分で作成したものですが、Bファイルは他社作成のため、もろもろ変更ができません。 Aファイルにもロックが必要のため、保護をかけています。(ロック、表示ともに) マクロ実行後、Bファイルの貼りつけされたデータをダブルクリックすると、ダブルクリックしたセル内容が消えてしまいます。 まったく原因がわからず困っています。すみませんがどなたかわかるかたお願いいたします。

  • エクセルで一括でフリガナを表示させる方法

    A列に漢字が3000行ぐらいあります。 B列に一括でふりがな(カタカナ)を表示させたいのですが、どのようにしたらいいでしょうか? 検索してみたら同じ質問がありマクロを使ってやってみたのですが、うまくできませんでした。 マクロは全くの初心者です。どうぞよろしくお願いします。

  • フリガナの位置を変えるには?

    他のデータからCSVインポートしてエクセル編集しています。A1にフリガナ、A2に氏名、A3にフリガナ、A4に氏名、と続きます。A2氏名、B2フリガナに変更したいのですが、どうすればいいのでしょうか。PHONETIC関数を使ってみましたが、B2はフリガナではなく、漢字表記されてしまいます。どなたか教えてください。

  • エクセルのマクロ

    素人なのですみませんが教えてください エクセルのマクロを使用して エクセルを起動して ウィンドウズ内のあるフォルダ内のエクセルファイルをコピーをして違うフォルダに貼り付けをしたいのですが、どのようにマクロを組み込むのか教えてください(マクロの式) (例)エクセル起動後エクセルのマクロにて c\Aフォルダ\aファイル←コピー c\Bフォルダ\aファイル←貼り付け

  • エクセルのPHONETIC関数(もしくはマクロ)で一括してフリガナ変換をしたい。

    よろしくお願いいたします。 エクセルの名簿で100名以上あるのですが、 フリガナがなく、漢字の「氏名」しかありません。 そこで、氏名の右に列を挿入して、PHONETIC関数をコピーして入れましたが、漢字のままの氏名しか変換されてきません。 ◆漢字のあるセルで”「shift」+「alt」+「↑」”をひとつひとつやってみまると、フリガナに返還されますが、手間がかかってしかたありません。 ◆関数を使用もしくは、マクロを使用して、一括してフリガナ変換できる方法を教えてください。 よろしくご指導をお願いいたします。

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

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

専門家に質問してみよう