エクセルのセル内のある文字列に均等にルビをつけるマクロ

セル内のある文字列だけにルビを打ちたい。ところがエクセルでセルを振り仮名設定をすると、すべての漢字にルビが入ってしまい、それ以外の漢字のルビを一つずつ削除していかなければならず、大変手間がかかる。

俳句をまとめていて一つだけにルビを打つ手間が大変なことを最近、実感しました。そのことから、ある漢字列だけにルビを打つことを考えて見ました。同じ文字列が出ても最初だけにルビを振る。複数語句については後の事にしたい(というか、私の力ではなかなか進めない)。

漢字と書いたが、これはひらがなに英単語をとか、どのような組み合わせでも可能です。

私のホームページのエクセルVBA4「追加・削除する」

に追加しました。

エクセルのマクロ有効ブックをサンプルでアップします。文字列に均等ルビのマクロエクセルブック

文字列マクロ有効ブック

文字列マクロ有効ブック

ファイルを開いたら、マクロを有効にして使ってみてください。

サンプル:文字列に均等ルビのマクロ

エクセルのセルの文字列を改行する

A1のセルに入力されている文字列が◆でつながれているとする。

これをB1のセルに◆の部分で改行した形にする時

=SUBSTITUTE(TRIM(A1),”◆”,CHAR(10))

と関数式を入力し、セルの書式を「折り返して全体を表示する」に設定する。

これで◆の部分で改行された文字列をB1に表示させることができる。