Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6832 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【42826】MsgBoxをランダムに表示できるかな
質問  まーくん  - 06/9/22(金) 22:38 -
引用なし
パスワード
   皆さんよろしくお願いします。
ブックオープン時に下記メッセージが出るのですが
ケース１
これを４〜６種類用意しランダムにオープンごとに
表示を変えることが出来るでしょうか。

ケース２
時間帯で表示を変える
例として
8:00〜9:59まで"おはようございます"
10:00〜16:59"こんにちわ"
17:00〜19:59"そろそろかえれ"
20:00〜7:59"○○○○○"
お分かりになる方教えて下さい。

Sub Auto_Open()
　　MsgBox "今日の天気は晴れです？！"
End Sub
【42828】Re:MsgBoxをランダムに表示できるかな
発言  ichinose  - 06/9/22(金) 23:37 -
引用なし
パスワード
   ▼まーくん さん：
こんばんは。

>皆さんよろしくお願いします。
>ブックオープン時に下記メッセージが出るのですが
>ケース１
>これを４〜６種類用意しランダムにオープンごとに
>表示を変えることが出来るでしょうか。
>
Sub test1()
　　Dim mesarray As Variant
　　mesarray = Array("aaa", "bbb", "ccc", "ddd", "eee", "fff")
'メッセージを配列にしておく
　　Randomize Timer()
　　MsgBox mesarray(Int(Rnd() * (UBound(mesarray) + 1)))
　　'乱数を使用して0〜5を無作為に取得する
End Sub

>ケース２
>時間帯で表示を変える
>例として
>8:00〜9:59まで"おはようございます"
>10:00〜16:59"こんにちわ"
>17:00〜19:59"そろそろかえれ"
>20:00〜7:59"○○○○○"
Sub test2()
　　Dim tmarray As Variant
　　Dim mesarray As Variant
　　Dim ans As Variant
　　tmarray = Array(420, 600, 1020, 1200)
　　mesarray = Array("おはようございます", "こんにちは", "そろそろかえれ", "○○○○○○")
　　ans = Application.Match(Time() * 24 * 60, tmarray, 1)
　　If IsError(ans) Then ans = 4
　　MsgBox mesarray(ans - 1)
End Sub


試してください
【42829】Re:MsgBoxをランダムに表示できるかな
発言  まーくん  - 06/9/23(土) 0:02 -
引用なし
パスワード
   ▼ichinose さん：

>Sub test1()
>　　Dim mesarray As Variant
>　　mesarray = Array("aaa", "bbb", "ccc", "ddd", "eee", "fff")
>'メッセージを配列にしておく
>　　Randomize Timer()
>　　MsgBox mesarray(Int(Rnd() * (UBound(mesarray) + 1)))
>　　'乱数を使用して0〜5を無作為に取得する
>End Sub
>
>>ケース２
>>時間帯で表示を変える
>>例として
>>8:00〜9:59まで"おはようございます"
>>10:00〜16:59"こんにちわ"
>>17:00〜19:59"そろそろかえれ"
>>20:00〜7:59"○○○○○"
>Sub test2()
>　　Dim tmarray As Variant
>　　Dim mesarray As Variant
>　　Dim ans As Variant
>　　tmarray = Array(420, 600, 1020, 1200)
>　　mesarray = Array("おはようございます", "こんにちは", "そろそろかえれ", "○○○○○○")
>　　ans = Application.Match(Time() * 24 * 60, tmarray, 1)
>　　If IsError(ans) Then ans = 4
>　　MsgBox mesarray(ans - 1)
>End Sub
>
>
>試してください
ichinoseさんありがとうございます。
バッチリです
時間変更の場合を聞きたいのですが(420, 600, 1020, 1200)は
どういう意味ですかまた、Arrayの意味も？ヘルプだとHasArray、FormulaArray
CurrentArray、IsArrayただArrayというのは出てきませんが？

'乱数を使用して0〜5を無作為に取得する
数を変えることは可能ですかたとえば0〜20とか？
よろしくお願いします。
【42830】Re:MsgBoxをランダムに表示できるかな
回答  かみちゃん  - 06/9/23(土) 0:04 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>ケース１
>これを４〜６種類用意しランダムにオープンごとに
>表示を変えることが出来るでしょうか。

乱数を発生させて、その乱数に対応したメッセージでできるのではないでしょうか？

たとえば、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

>ケース２
>時間帯で表示を変える
>例として
>8:00〜9:59まで"おはようございます"
>10:00〜16:59"こんにちわ"
>17:00〜19:59"そろそろかえれ"
>20:00〜7:59"○○○○○"

以下のような感じでできると思います。
パソコンのシステム時刻をいろいろ変えて試してみてください。

　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
【42831】Re:MsgBoxをランダムに表示できるかな
発言  まーくん  - 06/9/23(土) 0:19 -
引用なし
パスワード
   ▼かみちゃん さん：

ありがとうございます。

>>ケース１
>>これを４〜６種類用意しランダムにオープンごとに
>>表示を変えることが出来るでしょうか。
>
>乱数を発生させて、その乱数に対応したメッセージでできるのではないでしょうか？
>
>たとえば、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
これはよくわかりました。
【42832】Re:MsgBoxをランダムに表示できるかな
発言  かみちゃん  - 06/9/23(土) 0:25 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>数字は毎回ランダムにかわりましたが
>文言でコードをいれるにはどうしたらいいのでしょう

Select Case で分岐させればいいだけだと思います。

Select Case Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
　Case 1 To 50
　　MsgBox "文言１"
　Case 51 To 100
　　MsgBox "文言２"
End Seelct

※私がモタモタしているうちにichinoseさんからコメントがついていましたね。
　横から失礼しました。
【42834】Re:MsgBoxをランダムに表示できるかな
発言  まーくん  - 06/9/23(土) 1:01 -
引用なし
パスワード
   ▼かみちゃん さん：
下記標準モジュールに書込オープンさせるたびに
MsgBoxの表示が変わるはずなのですが
毎回"今日は儲かりました？"
しかでないのですが
コードおかしいですか？

Sub Auto_Open()
　Dim lowerbound As Integer
　Dim upperbound As Integer
　
　lowerbound = 1
　upperbound = 100
　
　Select Case Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
　Case 1 To 10
　　MsgBox "血圧は正常ですか？"
　Case 11 To 20
　　MsgBox "今日のあなたの運勢は○吉です"
　Case 21 To 30
　　MsgBox "今日もお仕事頑張るぞ！"
　Case 31 To 40
　　MsgBox "昨日の夕飯何食べました？"
　Case 41 To 50
　　MsgBox "おとといの朝食はなに？"
　Case 51 To 60
　　MsgBox "今日は儲かりました？"
　Case 61 To 70
　　MsgBox "今日は残業無しで帰りましょう。家族が待ってますよ？"
　Case 71 To 80
　　MsgBox "今日のあなたの運勢は○凶です車の運転は要注意です"
　Case 81 To 90
　　MsgBox "貴方の名前・年齢・血液型は"
　Case 91 To 100
　　MsgBox "お元気ですか？"
　 End Select
End Sub
【42835】Re:MsgBoxをランダムに表示できるかな
回答  Blue  - 06/9/23(土) 1:12 -
引用なし
パスワード
   Rnd関数のヘルプより
<MSDN>
引数 number の値によって、Rnd 関数が返す乱数が決まります。

初期シード値が変わらない限り、一連の Rnd 関数が返す乱数系列は同じになります。これは、連続する各 Rnd 関数が乱数系列の中の直前の乱数をシード値として、次の乱数をそれぞれ生成するためです。

システム タイマーから取得した新しいシード値を使って、乱数ジェネレータを初期化するには、Rnd 関数を呼び出す前に、引数を指定せずに Randomize ステートメントを実行してください。
</MSDN>

「Randomizeステートメントを実行してください」とのことです。

つまり

>Sub Auto_Open()
>　Dim lowerbound As Integer
>　Dim upperbound As Integer
>　
>　lowerbound = 1
>　upperbound = 100
>　
'☆追加
Randomize　　' 乱数発生ルーチンを初期化します。
>　Select Case Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
(略)
【42836】Re:MsgBoxをランダムに表示できるかな
発言  まーくん  - 06/9/23(土) 1:23 -
引用なし
パスワード
   ▼Blue さん：
ありがとうございます。
うまくいきました。
申し訳ないですが
[#42829]　の疑問わかりますか？

>Rnd関数のヘルプより
><MSDN>
>引数 number の値によって、Rnd 関数が返す乱数が決まります。
>
>初期シード値が変わらない限り、一連の Rnd 関数が返す乱数系列は同じになります。これは、連続する各 Rnd 関数が乱数系列の中の直前の乱数をシード値として、次の乱数をそれぞれ生成するためです。
>
>システム タイマーから取得した新しいシード値を使って、乱数ジェネレータを初期化するには、Rnd 関数を呼び出す前に、引数を指定せずに Randomize ステートメントを実行してください。
></MSDN>
>
>「Randomizeステートメントを実行してください」とのことです。
>
>つまり
>
>>Sub Auto_Open()
>>　Dim lowerbound As Integer
>>　Dim upperbound As Integer
>>　
>>　lowerbound = 1
>>　upperbound = 100
>>　
>'☆追加
>Randomize　　' 乱数発生ルーチンを初期化します。
>>　Select Case Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
>(略)
【42841】Re:MsgBoxをランダムに表示できるかな
発言  かみちゃん  - 06/9/23(土) 9:37 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

横から失礼します。

>時間変更の場合を聞きたいのですが(420, 600, 1020, 1200)は
>どういう意味ですかまた、Arrayの意味も？

Array関数もヘルプに載っていますので、確認してみてください。
(420, 600, 1020, 1200)
の意味は、「分」です。7:00の場合だと7*60=420ですよね？
Match関数の特性も活かしてあるので、そちらのヘルプも確認してみてください。
【42871】Re:MsgBoxをランダムに表示できるかな
お礼  まーくん  - 06/9/24(日) 1:31 -
引用なし
パスワード
   ▼Blue さん：
▼ichinose さん：
▼かみちゃん さん：
ありがとうございました。
自分でも工夫しながら完成させます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6832 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free