Xin phần mềm quay số (1 người xem)

[nhattruongonly8x]

Dựa vào code của bạn Rollover79 tôi cải tiến thêm 1 chút, dùng UserForm cho nó hoành tráng (code cũng đơn giản thôi)
Bạn chạy file xem thế nào nhé
Code này có tác dụng như sau:
- Bấm nút Start, sau 1 khoảng thời gian nó sẽ hiện ra màn hình tên và số thẻ của người trúng thưởng
- Nếu bấm tiếp lần nữa thì những người đã trúng thưởng lần trước sẽ được loại ra khỏi danh sách (dành quyền ưu tiên cho những người chưa trúng thưởng)
Code chính chỉ có vầy

Private Sub CommandButton1_Click()
  Dim i As Long, iRnd As Long, Clls As Range, Alert As String
  With Range("I2").CurrentRegion
    For i = 1 To 100
      iRnd = Int((.Rows.Count + 1) * Rnd())
      Label1.Caption = .Cells(iRnd, 1)
      Label2.Caption = .Cells(iRnd, 2)
      Sleep i
      UserForm1.Repaint
    Next
    .Find(Label2)(, 0).Resize(, 2).Delete xlUp
  End With
  Alert = "ALERT(""" & Evaluate("MsgText1") & Label1.Caption & Chr(10) & Evaluate("MsgText2") & Label2.Caption & Chr(10) & Evaluate("MsgText3") & """,2)"
  Application.ExecuteExcel4Macro (Alert)
End Sub

Thêm 1 vài hiệu ứng khác như ẩn cửa sổ Excel, chỉ có UserForm hiện ra
------------------
Xin lổi trước vì tôi không có năng khiếu thẩm mỹ lắm nên chỉ làm được có thế, các bạn hãy "màu mè" thêm nhé

cho em hỏi có hàm nào chỉnh tốc độ quay số nhanh chậm ko vậy,

Thank

 

[boconglam]

bạn có thể up tập tin lên kg vậy? không hiểu gì cả!

 

[fantasy_k50]

Dựa vào code của bạn Rollover79 tôi cải tiến thêm 1 chút, dùng UserForm cho nó hoành tráng (code cũng đơn giản thôi)
Bạn chạy file xem thế nào nhé
Code này có tác dụng như sau:
- Bấm nút Start, sau 1 khoảng thời gian nó sẽ hiện ra màn hình tên và số thẻ của người trúng thưởng
- Nếu bấm tiếp lần nữa thì những người đã trúng thưởng lần trước sẽ được loại ra khỏi danh sách (dành quyền ưu tiên cho những người chưa trúng thưởng)
Code chính chỉ có vầy

Private Sub CommandButton1_Click()
  Dim i As Long, iRnd As Long, Clls As Range, Alert As String
  With Range("I2").CurrentRegion
    For i = 1 To 100
      iRnd = Int((.Rows.Count + 1) * Rnd())
      Label1.Caption = .Cells(iRnd, 1)
      Label2.Caption = .Cells(iRnd, 2)
      Sleep i
      UserForm1.Repaint
    Next
    .Find(Label2)(, 0).Resize(, 2).Delete xlUp
  End With
  Alert = "ALERT(""" & Evaluate("MsgText1") & Label1.Caption & Chr(10) & Evaluate("MsgText2") & Label2.Caption & Chr(10) & Evaluate("MsgText3") & """,2)"
  Application.ExecuteExcel4Macro (Alert)
End Sub

Thêm 1 vài hiệu ứng khác như ẩn cửa sổ Excel, chỉ có UserForm hiện ra
------------------
Xin lổi trước vì tôi không có năng khiếu thẩm mỹ lắm nên chỉ làm được có thế, các bạn hãy "màu mè" thêm nhé

Anh ơi cho em hỏi có cách nào cho nó hiện lên 10 người 1 lần chứ không phải 1 người được không ạ

 

[cankiller]

Cho em xin code đi.....Muốn sử dụng file excel để chỉnh mà bị ẩn giao diện excel rồi

 

[samhieu]

Bạn mở file lên, bấm Disable macro rồi bấm Alt + F11 sẽ nhìn thấy toàn bộ code lẩn thiết kế

Hay quá, thanks bác nhiều