Bài viết: Chiêu thứ 31: Sắp xếp ngẫu nhiên

Liên hệ QC

TranThanhPhong

Ngày mai trời lại sáng!
Thành viên danh dự
Tham gia
16/3/07
Bài viết
2,104
Được thích
19,156
Giới tính
Nam
Chiêu thứ 31: Sắp xếp ngẫu nhiên


Bạn có thể dùng Excel để chọn ra một cách ngẫu nhiên ba người thắng cuộc - 1, 2 và 3 từ một danh sách trên bảng tính. Để thực hiện điều này một cách dễ dàng nhất và công bằng nhất, bạn nên dùng hàm RAND kết hợp với tính năng sắp xếp của Excel.

Giả sử bạn có một bảng dữ liệu như hình sau:

36154780104_807d603044_o.jpg


Tại ô A2 bạn nhập vào hàm =RAND và sao chép xuống đến ô A10. Bạn có thể sắp xếp các cột Name, Age và ID No. theo cột A và từ đó chọn ra được ngẫu nhiên 3 người thắng cuộc.

Hàm RAND sẽ được tự động tính lại mỗi khi có sự thay đổi trên bảng tính, do vậy chúng ta có thể nhấn F9 để ép Excel tính toán lại và từ đó chọn ra được những phần tử trong danh sách một cách ngẫu nhiên. Tuy nhiên chúng ta cần phải tạo một thủ tục sắp xếp lại dữ liệu sau khi Excel tạo ra bộ số ngẫu nhiên mới.

Để việc chọn lựa được dễ dàng, chúng ta sẽ ghi một Macro và gán nó vào một nút lệnh trên bảng tính. Mỗi khi muốn chọn ra nhóm người thắng cuộc thì bạn chỉ cần nhấn nút lệnh này. Bạn làm theo hướng dẫn sau:

Bước này bạn sẽ tiến hành ghi Macro, bạn chọn một ô bất kỳ và vào Developer -> Code -> Record Macro (E2003: Tools -> Macro -> Record New Macro…). Chọn 4 cột A, B, C và D rồi nhấn F9. Vào Data -> Sort & Filter -> Sort -> chọn sắp xếp cột A theo thứ tự tùy ý (nhỏ -> lớn hoặc lớn -> nhỏ).

36154779934_7dbe882caa_o.jpg


Bước tiếp theo, bạn hãy vào ngăn Developer -> nhóm Controls -> Insert (E2003: View -> Toolbars -> Forms) -> chọn Button (Form Control) và vẽ thành một nút trên bảng tính -> chọn tên Macro vừa ghi -> nhấn OK để hoàn tất.

36819401402_8d868e1aa1_o.jpg


Bạn chọn cột A và ẩn nó để người dùng không thấy các số ngẫu nhiên. Mỗi lần bạn nhấp chuột lên nút Pick Winner thì dữ liệu của bạn sẽ được sắp xếp một cách ngẫu nhiên và bạn có thể dễ dàng chọn ra 3 người thắng cuộc.

36154779644_c78403d67e_o.jpg



Một số bài viết có liên quan:
1/ Chiêu thứ 29: Tùy biến chú thích của ô bảng tính
2/ Chiêu 28: Trích xuất dữ liệu số trong 1 chuỗi bằng VBA

3/ Chiêu thứ 27: Chuyển đổi con số dạng văn bản sang số thực
4/ Chiêu 26: Sử dụng chức năng thay thế (Replace) để gỡ bỏ các ký tự không mong muốn
5/ Chiêu thứ 25: Tạo một danh sách xác thực thay đổi theo sự lựa chọn từ một danh sách khác
6/ Chiêu số 24: Dùng nhiều List cho 1 Combobox
7/ Chiêu số 23: Bật, tắt chức năng Conditional Formatting bằng 1 checkbox
8/ Chiêu thứ 22: Tạo hiệu ứng 3D trong các bảng tính hay các ô
9/ Chiêu thứ 21: Tô màu dòng xen kẽ
10/ Chiêu thứ 20: Đếm hoặc cộng những ô đã được định dạng có điều kiện
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Web KT
Back
Top Bottom