Dưới đây chúng ta sẽ xem xét một chương trình trong Excel VBA hiển thị bản xem trước bản in của tất cả các trận đấu bóng đá có thể xảy ra từ danh sách các đội.
Tình hình:
1. Đầu tiên, chúng ta khai báo một đối tượng Range và bốn biến. Chúng tôi gọi đối tượng Range là rng. Một biến Chuỗi mà chúng tôi gọi là matchname, và ba biến Integer chúng tôi gọi là counter, i và j.
Không córngNhưPhạm vi, tên đối sánhNhư Dây, quầy tính tiềnNhư Số nguyên, tôiNhư Số nguyên, NSNhư Số nguyên2. Chúng tôi khởi tạo rng với tên nhóm. Chúng tôi sử dụng CurrentRegion bởi vì chúng tôi không biết trước ranh giới chính xác của phạm vi (chúng tôi muốn chương trình này hoạt động cho 3 đội nhưng cũng cho 12 đội). Chúng tôi khởi tạo bộ đếm với giá trị 0.
công thức chỉ mục trong excel với ví dụBộrng = Range('A1').CurrentRegion
bộ đếm = 0
3. Chúng tôi viết tất cả các trận đấu bóng đá có thể có vào cột C. Đầu tiên, chúng tôi để trống cột C.
Trang tính (1). Cột (3) = ''4. Chúng tôi bắt đầu một Vòng lặp kép .
cách sử dụng solver trong excel 2010Vìi = 1Đếnrng.Count
Vìj = i + 1Đếnrng.Count
5. Chúng tôi viết một matchname cho biến matchname.
matchname = rng.Cells (i) .Value & 'vs' & rng.Cells (j) .ValueVí dụ: đối với i = 1 và j = 2, Excel VBA viết tên trận đấu Kickers vs Shooters. Đối với i = 1 và j = 3, Excel VBA viết tên trận đấu Kickers vs Little Giants, v.v.
6. Chúng tôi viết tên đối sánh vào cột C.
Các ô (bộ đếm + 1, 3) .Value = matchname7. Bộ đếm theo dõi số lượng các kết quả được ghi vào cột C. Excel VBA tăng bộ đếm lên 1 mỗi khi nó ghi một tên so khớp vào cột C. Để đạt được điều này, hãy thêm dòng mã sau:
counter = counter + 18. Đừng quên đóng hai vòng lặp.
Kế tiếpNSKế tiếptôi
9. Chúng tôi hiển thị bản xem trước của tất cả các trận đấu bóng đá có thể xảy ra.
tại sao tôi nhận được #### trong excelActiveSheet.Columns (3) .PrintPreview
10. Chạy thử chương trình.
Một phần của kết quả:
Lưu ý: cột C được căn giữa theo cách thủ công để có kết quả này.
Đi tới Chương tiếp theo: Biến