Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39022 / 76732 ←次へ | 前へ→

【42831】Re:MsgBoxをランダムに表示できるかな
発言  まーくん  - 06/9/23(土) 0:19 -

引用なし
パスワード
   ▼かみちゃん さん:

ありがとうございます。

>>ケース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
これはよくわかりました。

0 hits

【42826】MsgBoxをランダムに表示できるかな まーくん 06/9/22(金) 22:38 質問
【42828】Re:MsgBoxをランダムに表示できるかな ichinose 06/9/22(金) 23:37 発言
【42829】Re:MsgBoxをランダムに表示できるかな まーくん 06/9/23(土) 0:02 発言
【42841】Re:MsgBoxをランダムに表示できるかな かみちゃん 06/9/23(土) 9:37 発言
【42830】Re:MsgBoxをランダムに表示できるかな かみちゃん 06/9/23(土) 0:04 回答
【42831】Re:MsgBoxをランダムに表示できるかな まーくん 06/9/23(土) 0:19 発言
【42832】Re:MsgBoxをランダムに表示できるかな かみちゃん 06/9/23(土) 0:25 発言
【42834】Re:MsgBoxをランダムに表示できるかな まーくん 06/9/23(土) 1:01 発言
【42835】Re:MsgBoxをランダムに表示できるかな Blue 06/9/23(土) 1:12 回答
【42836】Re:MsgBoxをランダムに表示できるかな まーくん 06/9/23(土) 1:23 発言
【42871】Re:MsgBoxをランダムに表示できるかな まーくん 06/9/24(日) 1:31 お礼

39022 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free