Excel VBA質問箱 IV

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

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


9139 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   >▼サイケ さん 今晩は


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


こんな感じですか?

'コントロールツールボックスのコマンドボタンを2つ作ってください。
'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

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