Xin hướng dẫn lấy dữ liệu ngẫu nhiên (4 người xem)

[hai69]

Kính gửi Anh/Chị. Em có tạo 1 file học từ vựng Anh văn ( file đính kèm )
Em sử dụng hàm RANDBETWEEN để truy xuất 1 từ vựng ngẫu nhiên và check với đáp án. Tuy nhiên khi em nhập đáp án vào ô B7 và Enter thì hàm RANDBETWEEN cũng thay đổi giá trị mới. Anh/Chị có cách nào giúp e làm cho ô B1 chỉ thay đổi giá trị khi nhấn vào "Nút NEXT" không ạ, còn các thao tác khác trên file thì cũng sẽ không làm thay đổi giá trị ô B1.
Mong Anh/Chị giúp đỡ ạ, em cảm ơn!

 

[Lê Hồng Minh83]

Kính gửi Anh/Chị. Em có tạo 1 file học từ vựng Anh văn ( file đính kèm )
Em sử dụng hàm RANDBETWEEN để truy xuất 1 từ vựng ngẫu nhiên và check với đáp án. Tuy nhiên khi em nhập đáp án vào ô B7 và Enter thì hàm RANDBETWEEN cũng thay đổi giá trị mới. Anh/Chị có cách nào giúp e làm cho ô B1 chỉ thay đổi giá trị khi nhấn vào "Nút NEXT" không ạ, còn các thao tác khác trên file thì cũng sẽ không làm thay đổi giá trị ô B1.
Mong Anh/Chị giúp đỡ ạ, em cảm ơn!

Chế chút xíu là được

Sub Macro4()
With Sheet2
.Range("B1").Value = "=RANDBETWEEN(1,20)"
.Range("B1").Value = .Range("B1").Value
End With

End Sub

Ô B1 nó chỉ thay đổi khi bạn nhấn nút NEXT

 

[hai69]

Chế chút xíu là được

Sub Macro4()
With Sheet2
.Range("B1").Value = "=RANDBETWEEN(1,20)"
.Range("B1").Value = .Range("B1").Value
End With

End Sub

Ô B1 nó chỉ thay đổi khi bạn nhấn nút NEXT

Dạ, em cảm ơn ạ. Thưa Anh, khi nhấn NEXT để chạy hàm RANDBETWEEN thì có giá trị lặp lại nhiều lần, có cách nào cho các giá trị xuất hiện ngẫu nhiên từ 1 đến 20 mà không lặp lại, sau khi xoay vòng đủ 20 giá trị thì bắt đầu lấy ngẫu nhiên lại 20 giá trị tiếp theo không ạ?

 

[ndu96081631]

Chế chút xíu là được

Sub Macro4()
With Sheet2
.Range("B1").Value = "=RANDBETWEEN(1,20)"
.Range("B1").Value = .Range("B1").Value
End With

End Sub

Ô B1 nó chỉ thay đổi khi bạn nhấn nút NEXT

Trong VBA có hàm RND đó bạn

 

[hai69]

Trong VBA có hàm RND đó bạn

Dạ, em cảm ơn ạ. Thưa Anh, khi nhấn NEXT để chạy hàm RANDBETWEEN thì có giá trị lặp lại nhiều lần, có cách nào cho các giá trị xuất hiện ngẫu nhiên từ 1 đến 20 mà không lặp lại, sau khi xoay vòng đủ 20 giá trị thì bắt đầu lấy ngẫu nhiên lại 20 giá trị tiếp theo không ạ?

 

[Lê Hồng Minh83]

Trong VBA có hàm RND đó bạn

Cảm ơn Thầy
Code ngắn hơn một khúc

Sub Macro4()

Sheet2.Range("B1") = Int((20 * Rnd) + 1)

End Sub

ngẫu nhiên từ 1 đến 20 mà không lặp lại,

Mình đang mần mà chưa có kết quả, chế hồi code chạy vi vu không có điểm dừng luôn, kaka

 

[ndu96081631]

Dạ, em cảm ơn ạ. Thưa Anh, khi nhấn NEXT để chạy hàm RANDBETWEEN thì có giá trị lặp lại nhiều lần, có cách nào cho các giá trị xuất hiện ngẫu nhiên từ 1 đến 20 mà không lặp lại, sau khi xoay vòng đủ 20 giá trị thì bắt đầu lấy ngẫu nhiên lại 20 giá trị tiếp theo không ạ?

"Ngẫu nhiên và không trùng" là chủ đề đã được bàn nhiều lần trên diễn đàn rồi. Tìm là thấy

 

[concogia]

Cảm ơn Thầy
Code ngắn hơn một khúc
Mình đang mần mà chưa có kết quả, chế hồi code chạy vi vu không có điểm dừng luôn, kaka

Thế "bi giờ" code có điểm dừng chưa hay vẫn....vi vu chạy ?
Thân

 

[HeSanbi]

...có cách nào cho các giá trị xuất hiện ngẫu nhiên từ 1 đến 20 mà không lặp lại, sau khi xoay vòng đủ 20 giá trị thì bắt đầu lấy ngẫu nhiên lại 20 giá trị tiếp theo không ạ?

Bên topic này bạn sẽ tìm thấy điều bạn muốn
https://www.giaiphapexcel.com/diendan/threads/tạo-dãy-số-ngẫu-nhiên-không-trùng.27286/

 

[Phuocam]

Xem thử chủ đề sau:

https://www.giaiphapexcel.com/diend...ho-trước-không-nhờ-chỉ-giúp.24785/post-883599

 

[hai69]

Bên topic này bạn sẽ tìm thấy điều bạn muốn
https://www.giaiphapexcel.com/diendan/threads/tạo-dãy-số-ngẫu-nhiên-không-trùng.27286/

Dạ, em cảm ơn ạ. Tuy nhiên e không phải muốn tạo một dãy số ngẫu nhiên không trùng. Em xin đính kèm file ạ: khi e nhấn "Nút NEXT thì ô B1 sẽ xuất hiện ngẫu nhiên các số từ trong khoảng 1 đến 20, nhưng vấn đề là có nhiều số xuất hiện lặp lại nhiều lần, có cách nào để số nào đã xuất hiện rồi thì không xuất hiện lại nữa, đến lúc xuất hiện đủ 20 số thì mới bắt đầu lại từ đầu.

Bài đã được tự động gộp: 23/10/18

Xem thử chủ đề sau:

https://www.giaiphapexcel.com/diendan/threads/excel-có-hàm-chọn-ngẫu-nhiên-trong-vùng-cho-trước-không-nhờ-chỉ-giúp.24785/post-883599

Dạ, em cảm ơn ạ, để e tham khảo!