とあるEXCEL関係の掲示板であった質問。

内容としては、入力に従って料金計算をしたいというよくあるものだけれども、地図を使って選択したいというのが面白そう。

セルを使って画面はこんな感じ。

マクロを使ってと言いながら、イベント処理ぐらいしかしていないので、マクロのテーマというよりは EXCEL の実装例になってしまった感じがするけれど、そこはまぁご愛嬌ということで。

ファイルはこちら。

地図を使って料金計算.xls

ご参考までに。

[気になる質問][　プログラミング][　VBA]お茶当番２

もう2年も前の記事だったけれど、コメントをもらったので機能改善してみました。

日曜や土曜を選択できるようにしたり、機能を整理したいと思うけれど

とりあえず土曜までできるようにしています。

2012/3/31

作成時のカレンダーがおかしくなる不具合を修正

お茶当番2.xls

[気になる質問] マクロの読み上げ機能

興味深い質問を見たので、マクロで組んでみた。

短いものだが我ながら中々面白い。

読み上げ機能もこれまで使ったことがなかったが、こんな使い方をしてみると意外と面白いかも。

New York Times の記事などを読ませてみたが、なかなかうまく聞こえる。

試してみるには、読みたい英文を A1 セルに入れておいて、下記を実行するだけだ。

Sub ReadIt()
    Application.Speech.Speak Range("A1").Value
End Sub

件の質問への回答は以下の通り。

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

マクロで簡単に作ってみました。

下記のようにEXCEL のA列に単語、B列に意味を入れて、下のマクロを実行してみてください。

	A	B
1	Apple	リンゴ
2	Orange	みかん
3	Banana	バナナ
4	Grape	ぶどう
5	Strawberry	いちご

マクロの使い方：

1. Excel で Alt+F11 で VBE を起動
2. VBE で 「挿入」メニューから「標準モジュール」を選択
3. 開いたウィンドウに下記のコードをコピー
4. Excel に戻って Alt+F8 でWordQuiz を実行

終了は END を入力です。

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub WordQuiz()
    Dim r As Long
    Dim rr As Long
    Dim i As Long
    Dim wd As String
    Randomize
    Do
        rr = r
        Do While rr = r
            r = Int(Rnd() * Range("A1").End(xlDown).Row) + 1
        Loop
        wd = ""
        For i = 1 To 3
            wd = InputBox("意味:" & Cells(r, "B").Value, "回答" & i & "回目", wd)
            
            '// 「END」 で終了
            If UCase(wd) = "END" Then
                Application.Speech.Speak "Good Bye"
                Exit Sub
            End If
            
            '// 合っていたら読み上げ
            If UCase(wd) = UCase(Cells(r, "A").Value) Then
                Application.Speech.Speak wd
                Exit For
            Else
            '// 外れ
                Beep 120, 300
                Sleep 50
                Beep 120, 800
            End If
        Next
        If i = 4 Then
            Application.Speech.Speak "Answer is " & Cells(r, "A").Value
            MsgBox Cells(r, "A").Value, , "答え"
        End If
    Loop
End Sub

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

■[気になる一曲]手を取りあって 00:00

9/5 に Queen の Freddie の誕生日の記事を書いたが、加奈さんから

クイーンは、キラークイーンと、メトロポリスの主題歌と、
三味線のようなギターが長い時間演奏されてる曲と
あと、手を取りあって　が私は大好きです。
・・・δ_δ 

とコメントをもらった。Killer Queen と Love Kills は聴いたことがあったが手を取りあっては馴染みがなかったので、早速聞いてみた。本当にネットは便利だね。

うーん、なかなかいい曲だね。意外に感じたが作曲は Brian。

Queen は親日家で知られているし、日本語が歌詞に出てくる曲も何曲かあるが、やはり何となく嬉しくなる。

震災でも彼ら（Brian と Roger）よりメッセージが寄せられ、この曲を聴いて励まされたという人も多いようだ。

コメントをもらった加奈さんは某質問掲示板での質問で知り合った人だが、回答した内容にも一生懸命取り組んでくれて、気持ちのいい質問者さんだ。

偶然にも今日が誕生日とのこと。改めて

Happy Birthday Kana ！！

Queenの演奏ではないが Queen 風ということで。

朝ふと Google を見るとこんなロゴが出ていた。

あぁ、今日はFreddie の誕生日だったか。

先日はてなでFreddieの質問を見てから、ここ最近 QUEEN を聞く日々が続いていた。

正直 Freddie が元気で活躍していた頃、残念ながらロックにはほとんど興味がなくうるさい音楽だくらいにしか思っていなかった。

QUEEN を聞くようになったのは、彼がこの世を去った後だった。

今やネットで世界中の音楽が聴け、様々な情報を簡単に読める時代だ。懐かしくネットを彷徨いながら Freddie の美声に浸っている。

だが一方でいろいろと情報を探してみると、やはり日本語の情報は世界全体に比べると乏しいのも現実である。

QUEEN や Freddie の情報を調べてみても、Wiki でさえ日本語に翻訳されているのは半分以下の情報に過ぎない。

乏しい英語力ながらも、英語の情報を読み漁ってみた。

後年、彼が熱望して実現した Montserrat Caballé との共演は演奏としても素晴らしいが、Caballé は彼の声と歌唱力を高く評価していることが書かれている。このあたりも日本語のWikiでは割愛されているのも残念なことだ。

1992年に彼の追悼コンサートで多くの著名なボーカリストが彼の曲を歌うのだが、どれを聞いてもしっくりこない。どれも Freddie ならではの曲であり、誰をしても彼の代わりたり得ないことを感じるだけであった。これを最後にメンバーの一人である John Deacon は音楽活動から退くが、やはり Freddie 以外のボーカルを受け入れられなかったというような、記事がいくつか目についた。

最近一番聞いているのは、彼の最後のプロモーションビデオとなったこの映像だ。

当初病状が進んでいたため、このビデオは当初アニメによる制作の予定だったが、Freddie の強い要望により実写版が合わせて制作されたらしい。

確かに80年代のたくましい姿の面影はないが、彼のこの一曲は見るものを魅了してやまない何かがある。

最後のセリフである“I still love you”とその直前の微笑みは誰に伝えたかったのであろう。

なくなってから20年たち、映像はモノクロでも、まったく色あせることのない素晴らしい声が今も世界中で多くの人の心を惹きつけ続けている。

Happy Birthday Freddie！！