|
▼かみちゃん さん:
ありがとうございます。
>>ケース1
>>これを4〜6種類用意しランダムにオープンごとに
>>表示を変えることが出来るでしょうか。
>
>乱数を発生させて、その乱数に対応したメッセージでできるのではないでしょうか?
>
>たとえば、1〜100の整数をランダムに表示させるには、以下のような感じでできます。
>Sub Macro1()
> Dim lowerbound As Integer
> Dim upperbound As Integer
>
> lowerbound = 1
> upperbound = 100
> MsgBox Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
>End Sub
↑
数字は毎回ランダムにかわりましたが
文言でコードをいれるにはどうしたらいいのでしょう
>以下のような感じでできると思います。
>パソコンのシステム時刻をいろいろ変えて試してみてください。
>
> Select Case Hour(Time)
> Case 8 To 9
> MsgBox "おはようございます"
> Case 10 To 16
> MsgBox "こんにちわ"
> Case 17 To 19
> MsgBox "そろそろかえれ"
> Case 0 To 7, 20 To 23
> MsgBox "○○○○○"
> End Select
これはよくわかりました。
|
|