Ai có phần mềm quay số thì cho em xin với! Em muốn tìm phần mềm giống như phần mềm chọn biển số xe bên CSGT ấy! Khi mình nhần nút thì nó hiện ra cho mình một số bất kỳ có trong cơ sở dữ liệu số của mình. Vì công ty em giờ định quay số trúng thưởng, dựa theo mã số nhân viên. Khi mình nhấn một nút thì mã số nhân viên bất kỳ hiện ra thì người mang mã số đó trúng thưởng!
Xin cảm ơn mọi người!
Ai có phần mềm quay số thì cho em xin với! Em muốn tìm phần mềm giống như phần mềm chọn biển số xe bên CSGT ấy! Khi mình nhần nút thì nó hiện ra cho mình một số bất kỳ có trong cơ sở dữ liệu số của mình. Vì công ty em giờ định quay số trúng thưởng, dựa theo mã số nhân viên. Khi mình nhấn một nút thì mã số nhân viên bất kỳ hiện ra thì người mang mã số đó trúng thưởng!
Xin cảm ơn mọi người!
Để gây cảm hứng, nên quay chọn làm nhiều lần, mỗi lần mỗi số
Ví dụ ta phải chon 4 số: Hàng vạn, hàng ngàn, trăm & chục
Ta có thể quay làm 4 hay năm lần
(*) 4 lần: Mỡi lần công bố quay 1 số
(*) Cũng quay 4 lần chọn ra 4 con số, nhưng không công bô đó ở hàng nào;
(Ví dụ: 1 , 0 , 8 & 5)
Sau đó quay chọn 1 số ngẫu có bốn chữ số; Ví dụ 4567
Nếu 4 con số quay lần đầu đem ráp lại gần với số ngẫu này nhứt thì trúng giải.
(Số trúng sẽ là 5018)
Ai có phần mềm quay số thì cho em xin với! Em muốn tìm phần mềm giống như phần mềm chọn biển số xe bên CSGT ấy! Khi mình nhần nút thì nó hiện ra cho mình một số bất kỳ có trong cơ sở dữ liệu số của mình. Vì công ty em giờ định quay số trúng thưởng, dựa theo mã số nhân viên. Khi mình nhấn một nút thì mã số nhân viên bất kỳ hiện ra thì người mang mã số đó trúng thưởng!
Xin cảm ơn mọi người!
Anh ơi! Sao em bổ sung thêm dữ liệu vào vùng dữ liệu (lên đến số ST413) thì khi nhấn phím F9 nó vẫn chạy loanh quanh những số nhỏ thôi như ST001 đến ST021. Vì sao vậy anh??
Anh ơi! Sao em bổ sung thêm dữ liệu vào vùng dữ liệu (lên đến số ST413) thì khi nhấn phím F9 nó vẫn chạy loanh quanh những số nhỏ thôi như ST001 đến ST021. Vì sao vậy anh??
Trời ơi! Dử liệu tôi giả lập chỉ có 30 dòng, nên công thức là: =INDEX($A$1:$A$413,INT(RAND()*31))
Còn khi bạn thêm dử liệu vào đến 413 dòng thì phải sửa số 31 này chứ: =INDEX($A$1:$A$413,INT(RAND()*414))
Anh không biết nhiều về Excel nên mong anh thông cảm! Anh không giải thích công thức nên em không biết đó! Giờ thiết kế một button để thay cho phím F9 là được phải không anh!? Tại vì em muốn cho nó pro một chút! Khi đó mình nhấn phím đó, rồi cho nó chạy thoải mái đến lúc mình bấm nút dừng thì sẽ ra kết quả! Anh thấy ý tưởng như thế được không vậy?
Anh không biết nhiều về Excel nên mong anh thông cảm! Anh không giải thích công thức nên em không biết đó! Giờ thiết kế một button để thay cho phím F9 là được phải không anh!? Tại vì em muốn cho nó pro một chút! Khi đó mình nhấn phím đó, rồi cho nó chạy thoải mái đến lúc mình bấm nút dừng thì sẽ ra kết quả! Anh thấy ý tưởng như thế được không vậy?
Có nút dừng lại thì không được khách quan lắm. Bạn nên cho nó chạy ngẫu nhiên sau 1 khoảng thời gian nào đó sẽ cho ra kết quả sẽ hay hơn.
- Cái công thức nên loại bỏ con số bí ẩn kia đi bằng hàm ROWS sẽ hay hơn: =INDEX($A$1:$A$413,INT(RAND()*ROWS($A$1:$A$413))+1)
Anh có thể chỉ chi tiết cho em cách làm nút chọn được không. Em đang cần gấp phần này. vì công ty em cũng đang chuẩn bị tổ chức rút thăm trúng thưởng. Xin cản ơn nhiều
Ai có phần mềm quay số thì cho em xin với! Em muốn tìm phần mềm giống như phần mềm chọn biển số xe bên CSGT ấy! Khi mình nhần nút thì nó hiện ra cho mình một số bất kỳ có trong cơ sở dữ liệu số của mình. Vì công ty em giờ định quay số trúng thưởng, dựa theo mã số nhân viên. Khi mình nhấn một nút thì mã số nhân viên bất kỳ hiện ra thì người mang mã số đó trúng thưởng!
Xin cảm ơn mọi người!
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
PHP:
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é
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
PHP:
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, tải tập tin đính kèm về máy rồi làm sao để nó hiện bảng excel lên, em muốn thay đổi nội dung danh sách nhân viên và số thẻ nhưng không được, bảng excel cứ ẩn không ah!! giúp em với....
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
PHP:
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é[/QUOTE
Phần này cũng rất hay và có ích cho nhiều công việc, nhưng khi tôi chạy thì nó rất hay báo lỗi Run-time error '50290' APPlication-defined or object-defined error, ai biết lỗi này chỉ gium tôi với
Và xin hỏi tác giả là cột số thứ tự ngẫu nhiên trong bảng ấy là để làm gì (tại sao không đánh theo số 1,2,3...) và để ý thấy có đến vài số thứ tự trùng nhau
Các bạn ơi, tôi lơ mơ về excel nên muốn các bạn trả lời dùm tôi chuyện này với:
Bây giờ tôi muốn click vào 1 dòng (vd: Chương I) có thể chỉ ra cho tôi những phần nhỏ như I, II, III của Chương I, giống như mục lục vậy. Làm thế nào để khi không cần có thể thu gọn lại chỉ để mỗi dòng Chương I cho văn bản gọn gàng (nếu có thể chỉ cho tôi cả thao tác trên MS Word nữa nhé.
Cám ơn các bạn nhiều.
Chào các bạn, mình là thành viên mới của diễn đàn excel. Mình có thấy bài viết của bạn anhtuan1066 rất hay và đã down code về dùng để cho các cuộc thi trong lớp.
Mình thấy thông báo hiện ra rất tốt. Tuy nhiên có một vấn đề lớn mình đã search trên mạng rất nhiều mà vẫn chưa ra: khi chạy đến gần hết cơ sở dữ liệu tên thì hiện ra thông báo lỗi "Run-time error 91: Object variable or With block variable not set".
Các bạn giải thích giúp mình nhé, mình bí chỗ này rồi!
toi thay rat hay, nhan tien minh muon hoi co cao thu nao viet code cho cong thuc tinh nhap truoc xuat truoc ko? neu co xin gui cho minh xin theo dia chi vukhacdiepssc@gmail.com minh xin cam on