貴方は 人目の訪問者です。 ･･'2016/12/11 更新･

---

百人一首読上げ君

１　読上げ君誕生まで

　　１０〜１５年前、娘が小学校上級〜中学生の時　”お父さん百人一首をやろうよ”　 といわれ、私が読上げれば取手が一人、それでは面白くない。そこで当時文字を 読上げるプログラムを作って、よく分からないような発音の読上げで百人一首をやりました。
その後、自然な言葉で読上げができれば少人数の家族でもパソコンで百人一首を楽しめると思い、 簡単に音声を扱える言語がないかと思っていましたが、VBでは音声を扱えるバージョンは高すぎて 手が届かない、趣味の範囲を超えていることからできませんでした。
ところが、仕事の関係でエクセルのマクロを作っていてエクセルのVBA（ビジュアル　ベイシック　ア プリケーション）でも音声を扱える事を知り、本プログラムを作成しました。

２　読上げ君の概要

　読上げ君はマイクロソフト　エクセルを使用して作成されていますから。マイクロソフト　エクセル が使用できるパソコンならばほとんど使えると思います。（Excel　97-2007のマクロ）
音声は読上げを録音し、プログラムで自動的に再生していますからごく自然な感じで使用できます。

読み上げ試聴

３　読上げ君の内容

３−１　初代読上げ君
　Excel　97-2000のマクロで作成されています。 読上げ方法はちらし取用、競技用、暗記用の３方法あります。

（１）ちらし取用
　　家族で楽しむ一般的な遊び方のものです。上の句に続けて下の句をよみあげ、マウスをクリック するまで下の句を繰り返し読上げます。
　　読上げ順はその都度違います（ランダム）ので、読み手が読み札を良く切って読上げると同様で す。
（２）競技用
　　二人で向き合い取り合う競技用です。前の句の下の句に続けて取り札の上の句を読上げます。 上の句を読上げると直ぐ取ってしまうので上の句に続けて下の句は読上げません。取り手の 体制が整いマウスクリックで下の句に続けて次の取り札上の句を読上げます。
読上げ順はランダムです。
（３）暗記用
　　百人一首の暗記のためにランダムに百首連続で読上げます。
３−２　読み上げ君２
　Excel　2003のマクロで作成されています。初代の改良版で、読み上げの間の調整、読み上げ方法 の追加を行いました。Excel　2007でも動作します。（窓の杜　”１月６日の今日のお気に入り”　で Ｗｉｎｄｏｗｓ　７上の　Excel　2010でも正常に使用出来たとありました。）
　Ｗｉｎｄｏｗｓ　１０のノートで使ってみました、Excel　2016ですが互換モードで動作しました。 Ｑ＆Ａをご覧ください。
（１）ちらし取用
（２）競技用
（３）暗記用
　以上は初代と同様です。
（４）指定句の読み上げ。５０首以下の句を指定して読み上げが可能です。
初代読上げ君の利用者から要望がありました。五色百人一首と言うものがあることを知りました。 そこで自由に句を指定して読み上げられるようにしました。いちいち入力するのは大変ですから 句指定の組み合わせを６組保存できるようにして対応することとしました。
（５）下の句のみの読み上げ。北海道地区独特の方法で、北海道の方からご要望がありました。
４.ダウンロード
　ダウンロードはこちらから。

５. Q＆A

６.ご使用後の感想、ご意見をおきかせください。

お便りはこちらへ！ westriver02@nifty.com

 



























  

Q＆A

 

1.（質問）ダウンロードしてa百人一首.exlを立ち上げたところ、全然動きません。

　（回答）エクセルのセキュリテイが「高」になっているものと思われます。次によりセキュリテイ
　　　　　を「中」に設定してください。

　　　　　
         
            (1)エクセル２０００ の場合
               エクセルを立ち上げ、「ツール」−「マクロ」−[セキュリテイ」でセキュリテーレ
　　　　　　　 ベルを「中」に変更してください。


　　　　　　(2)エクセル２００２の場合
              「ツール」→「オプション」→「セキュリティ」→「マクロセキュリティ」→
              「セキュリティレベル」で　「中」に変更してください。

　　　　　　　
            (3)エクセル２００３の場合
               「ツール」−「オプション」のセキュリティ　タグの
　　　　　　　一番下のマクロセキュリティをクリックし、セキュリティのタグで
　　　　　　　　中の○をクリックして（○の中に黒丸をつけ）　OK　OK　をクリックしてセキュリ
              ティを「中」に変更してください。

　　　　　　　



２.（質問）読上げ（競技）の時、読上げ（競技）をクリックして序歌を読上げ後　”次の句読上げ”
　　をクリックして最初の句の読上げをさせるとエラーとなってしまう。

　（回答）最初の句の読上げは、”次の句読上げ”でなく　”最初の句読上げ”のボタンをクリック
　　　　してください。次の句から　”次の句読上げ”で読上げさせてください。


３.（質問）立ち上がり、動作はしますが音声がでません。
　（回答）他のソフトで音声が出ている場合は、エクセルのインストール時に音声対応部分がインス
        トールされていない場合も考えられます。（カスタムインストールで基本部分しかインスト
        ールされていない）

４（質問）２００７の場合エクセルの画面が表示されますが初期画面が表示されません。
　（回答）メッセージ バーに「セキュリティの警告　一部のアクティブコンテンツが無視されました」
　　　　　と表示されます。
　　　　　表示の次にある「オプション」をクリック→表示された警告ボックスの「このコンテンツ
　　　　　を有効にする」を選んでＯＫをクリックすると
　　　　　マクロが有効になり初期画面が表示されます。

５（質問）Vista上のOffice2007の環境上ですがa百人一首.xlsがクリックしても起動しません。 
　（回答）ダウンロードしたZIPファイルを解凍したファイル内の　　a百人一首.xlsについて、拡張子
　　　　　が全角になっている場合があるようです。拡張子を半角に変更してください、正常に起動
　　　　　し使用できます。

６（質問）Ｗｉｎｄｏｗｓ７でダウンロードしたＺｉｐファイルを解凍して生成されたフォルダのエク
　　　　　セルを立ち上げてやるとカンカンと音がして読み上げされない。 
　（回答）Ｚｉｐファイルを解凍して生成されたフォルダ内ではファイル相互を認識できないようです。
　　　　　そこで、ダウンロードしたフォルダ以外の任意の場所にフォルダを作成し、そこへ生成され
　　　　　たフォルダをコピーしてください。
　　　　　コピーしたフォルダ内のエクセルを立ち上げて使用すれば正しく動作して読み上げられます。

７（質問）Ｗｉｎｄｏｗｓ１０では使えますか。
　（回答）使えます。以下によりオフィスの互換モードで動作します。
　　　　　１．Ｗｉｎｄｏｗｓ１０でダウンロードしたＺｉｐファイルを解凍
　　　　　　　（１）読み上げ君のソフトを置くフォルダを作成します。
　　　　　　　（２）ダウンロードしたＺｉｐファイルを開きます。
　　　　　　　（３）読み上げ君２のフォルダが表示されています。
　　　　　　　（４）圧縮フォルダー展開　タブの「すべて展開」をクリック
　　　　　　　（５）表示された画面の展開先に（１）で作成したフォルダを指定し、展開します。
　　　　　２．解凍して出来たa百人一首.xlsをクリックしてエクセルを立ち上げます。
　　　　　３．「セキュリティの警告　無効にされました」が出たら、その右側にある「コンテンツの
　　　　　　　有効化」をクリックするとマクロが有効になり初期画面が表示されます。
　　　　　　　
　　　　　注、一部読み上げが始まっても画面が表示されないところがありますがそのまま待って
　　　　　　　いれば正常に画面が表示されます。