Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9141 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【27316】ルーレット（人名） サイケ 05/8/5(金) 10:54 質問[未読]
【27340】Re:ルーレット（人名） kobasan 05/8/5(金) 19:30 発言[未読]
【27344】Re:ルーレット（人名） サイケ 05/8/5(金) 21:26 お礼[未読]
【27350】Re:ルーレット（人名） kobasan 05/8/6(土) 0:10 発言[未読]
【27355】Re:ルーレット（人名） サイケ 05/8/6(土) 12:44 お礼[未読]
【29138】ルーレット（写真） サイケ 05/9/26(月) 16:32 質問[未読]
【29142】Re:ルーレット（写真） ちくたく 05/9/26(月) 17:19 回答[未読]
【27316】ルーレット（人名）
質問  サイケ  - 05/8/5(金) 10:54 -
引用なし
パスワード
   VBAを全く知らないものなのですが、
以前ルーレット（数字が回転する）のを拝見しました。

そうゆう感じで、人名で回転して止まるようにしたいのですが
親切な方お願いします★

使用目的は今月の会議の議事進行は？？
という感じにしたいのです。
【27340】Re:ルーレット（人名）
発言  kobasan  - 05/8/5(金) 19:30 -
引用なし
パスワード
   ▼サイケ さん　今晩は

>VBAを全く知らないものなのですが、
>以前ルーレット（数字が回転する）のを拝見しました。

ルーレットで検索すると

【15072】スロットマシーンのような
http://www.vbalab.net/vbaqa/c-board.cgi?page=&no=15072&mode=psn&id=excel&cmd=jmp

があります。
検索すると、結構、参考になるものが出てきます。
【27344】Re:ルーレット（人名）
お礼  サイケ  - 05/8/5(金) 21:26 -
引用なし
パスワード
   ▼kobasan さん：
>▼サイケ さん　今晩は
>
「以前ルーレット（数字が回転する）のを拝見しました。」
↑↑はそれを拝見したのです･･･汗

言葉足らずですいませんでした。
そして教えてくれてありがとうございました☆
【27350】Re:ルーレット（人名）
発言  kobasan  - 05/8/6(土) 0:10 -
引用なし
パスワード
   >▼サイケ さん　今晩は


>「以前ルーレット（数字が回転する）のを拝見しました。」
>↑↑はそれを拝見したのです･･･汗


こんな感じですか？

'コントロールツールボックスのコマンドボタンを２つ作ってください。
'Sheet1 モジュールに、下記コードを貼り付けてください。

Private flag As Boolean

Private Sub CommandButton1_Click()　　　'startボタン
Dim Hname As Variant
Dim max As Long
　　Hname = Array("一太郎", "二太郎", "三太郎", "四太郎", "五太郎")
　　max = UBound(Hname)
　　flag = False
　　Do While flag = False
　　　　Range("A1").Value = Hname(Int((max + 1) * Rnd))
　　　　DoEvents 'Button2のクリックを可能にするため
　　Loop
End Sub

Private Sub CommandButton2_Click()　　　'Stopボタン
　　flag = True
End Sub
【27355】Re:ルーレット（人名）
お礼  サイケ  - 05/8/6(土) 12:44 -
引用なし
パスワード
   ▼kobasan さん：

できましたぁ♪
ありがとうございました☆
【29138】ルーレット（写真）
質問  サイケ  - 05/9/26(月) 16:32 -
引用なし
パスワード
   人名を写真ではできませんよね。。。
【29142】Re:ルーレット（写真）
回答  ちくたく  - 05/9/26(月) 17:19 -
引用なし
パスワード
   サイケ さん こんにちは。
こんな感じでできますよ。出来は荒いですが。

人物名を配列に格納していたのを、ファイルに格納。
ここは、Dirを使って精査したほうがいいかもしれません。
あとは、同じで、ランダムで取り出した文字列を使って、ファイルをインサート。

Private Sub CommandButton1_Click()　　　'startボタン
　　Dim Hname As Variant, myName As String
　　Dim max As Long
　　Dim myPhoto As Object
　　Hname = Array("D:\tmp\A.jpg", "D:\tmp\B.jpg", "D:\tmp\C.jpg")
　　max = UBound(Hname)
　　flag = False
　　Do While flag = False
　　　　myName = Hname(Int((max + 1) * Rnd))
　　　　Set myPhoto = ActiveSheet.Pictures.Insert(myName)
　　　　DoEvents 'Button2のクリックを可能にするため
　　　　If flag = False Then myPhoto.Delete
　　Loop
End Sub

Private Sub CommandButton2_Click()　　　'Stopボタン
　　flag = True
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9141 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free