前回、マクロを使ってセル内の1つの文字列だけにルビを打つことができた。ところが俳句をまとめていて一つの俳句に複数の文字列にルビを打つことが必要になることがある。そこで次のようなマクロを作ってみた。
漢字と書いたが、これはひらがなに英単語をとか、どのような組み合わせでも可能です。ここではルビは「ひらがな」、文字列に対して「均等割り付け」のルビにする、指定のセルのフォントサイズの「半分のサイズ」のルビにするという設定にしています。マクロの記述については、リンク先ホームページやエクセルマクロ有効ファイルを参考にしてください。

ホームページ内の記述

複数文字列にルビhtml

http://www.can-chan.com/vba/tsuika.html#m12 です。

エクセルのサンプルは以下のようなものです。3行目に文字列としてあげたもの全てを4行目のルビをふります。

複数語句

複数語句にルビ

に均等ルビのマクロ。複数語句に均等ルビのマクロ。ファイルをダウンロードして使用するときは、マクロを有効にしてご利用ください。ファイルサイズは17.5 KBです。

[開発]タブが表示されていないときは、エクセルのリボンの[エクセルオプション]＞[基本設定]＞

「[開発]タブをリボンに表示する」にチェックを入れる。

[ 開発 ]タブの[ コントロール ]メニューの[ 挿入 ]から｢チェックボタン｣をクリックして、必要なセルでクリックする。

チェックボックスの後ろの｢チェック・・」は不要なので、削除する。

チェックボックスを右クリックし、プロパティから｢コントロールの書式設定」をクリックし、

リンク先のセルを設定しておく。これにより、チェックされると、「TRUE」、そうでなければ「FALSE」と表示され、集計や書式設定にも利用できる。

こうして、書式設定しておけば、チェックに合わせてその行全体を把握しやすくなる。

チェックボックスをコピーして貼り付けや、セルのドラッグでコピーしても、リンク先を一つ一つ設定しなおさないといけないのは、ちょっと厄介。マクロでの設定方法もあるようなので、またいつか、学ばせてもらおう。

項目や行数が多くなると、1行おきに色を変えたくなる。

そんな時に便利なのが、条件付き書式で、色を設定することだ。

｢条件付き書式｣＞｢新しいルール｣＞｢数式を使用して、書式設定するセルを決定」と選んでいって、

｢ルールの内容」＞｢次の数式を満たす場合に値を書式設定｣の欄に次のように入力する。

「 =MOD(ROW(),2)=0 」という数式を入力し、書式で｢塗りつぶし｣タブのところで、適当な色を選択する。

列の方も1列ごとに色を変えたい場合は、同様にして

「　=MOD(COLUMN(),2)=0　」という数式を入力して、同様に書式を設定する。

「適用先」を表の範囲として例えば「 $A$1:$R$50 」というふうに設定すれば、1行ごと、1列ごとに色が塗り分けられていく。

数式で設定しておくと便利なのが、途中から行や列を増やしたり、逆に減らしたりしても、｢1行ごとに色を変える｣ということには変わりがないということだ。数式を使わずに色を変えることはできるが、その時は、行列の増減で同じ色が並んでしまって、また最初から設定という面倒なことが生じてしまう。また、表を並び変えたりしても、1行列ごとの色に変わりがないということも数式で設定のメリットがある。

電子黒板やスマートボードに映し出して使用できるように、エクセルでフラッシュカードを作りました。使いたい（１）用語の登録、（２）利用のしかた（順番に表示する、ランダムに表示する、設定した秒数によって自動的に切り替わるようにする）を選択する、（３）用語は1000項目まで登録できる（たぶん別ファイルに分ける方がよいかもしれないが）、登録した用語の何番から何番までの用語を表示させるのかの設定、などを行う。これにより、1時間単位、あるいは数週間単位で利用できるので一度登録したデータを繰り返し使うことができる。用語の登録も表面と裏面の登録及び表示ができるので、小テストなどに利用するという使い道もできるかもしれない。

　ここではその使用法のファイルと、実際のエクセルファイルをリンクしている。エクセルファイルで、ランダムに表示させたり、タイマーによりランダム表示などをさせるために、マクロを設定しています。マクロを有効にして利用下さい。　　

使用方法

エクセルでフラッシュカードをつくってみました＆使用法

エクセルのシートに必要語句を入力するだけでフラッシュカードができます。

フラッシュカード　エクセル作成　昇降順 ランダム タイマー自動

• ファイルを開いたら、ファイル名を変えて作成して下さい。

• ①にデータの登録。出題の範囲は表示するシートの方で設定するので、1000件は表示可能にしている。必要があれば設定し直すことも可能だが、多すぎても使いづらいかも。
• フラッシュカードにしたい用語を登録したら、その時間に使用したいカードの最初と最後の番号を控えておく。
• フラッシュカード用のシートは「手動　昇順・降順」「自動タイマー」「手動ランダム表示」のシートがあるので必要に応じて選択する。
• 「手動　昇順・降順」
• その他

　電子黒板などでの画面表示がどうなるのか分からないので、ご意見下さい。

使ってみてエラーなどが出たら、ご指摘ください。

毎月決まったシートに同じようなデータを入力し、それを月毎に集計するといったことがある。集計欄をまとめて表示できると、毎月の変化を比較しやすい。ここに取り上げたのはとても、簡単なシートである。各シートには２つのデータしか入っていないが、それは合計欄の数字であったり、あることを示した文字列であったりする。非常に簡単なエクセルのシートとデータを利用して、他のシートを参照するしかたをまとめてみる。

シート２からシート４には次のようにデータが入っている。

シート２から４に入っているデータをシート１にまとめて表示する。

セルに入力されている関数式は次のようになっている。

毎月作るエクセルのシート。
いちいちシート名を変えるのは面倒なこと。
そんなときに、セルの値を利用して自動的にシート名をつけることができれば、同じシートをコピーして増やしていっても、楽である。

シート名のタブの所で、右クリックして表示されるメニューから「コードの表示」をクリック。
表示されるファイル名sheet（番号）（コード）という白紙の窓の中に以下の記述をコピーして貼り付ける。

D2には月を示す数字を入力している。D2はセルの書式設定で、ユーザー定義＞「G/標準"月"」、として「６」と数字を入れるだけだが、「6月」と表示されることになる。

シート名は「○月」という表示にするために、D2の値に「月」をプラスしている。下のコードの「&"月"」の部分である。
 

///////////

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_HANDLER
If Target.Address(False, False) = "D2" Then
ActiveSheet.Name = Range("D2").Value & "月"
End If
Exit Sub
ERR_HANDLER:
MsgBox "現在のD2セルの値はシート名にできません。"
End Sub

///////////////

実際に、D2の値あるいは文字を変更すると、シートの名前が変わっていくことを確認することができる。