Dưới đây chúng ta sẽ xem xét một chương trình trong Excel VBA hiển thị bản in xem trước của tất cả các trận đấu bóng đá có thể có từ danh sách các đội.

Tình huống:

Possible Football Matches in Excel VBA

  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 số nguyên mà chúng tôi gọi là counter, i và j.

Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer
Set rng = Range("A1").CurrentRegion

counter = 0

  1. Chúng tôi ghi tất cả các trận đấu bóng đá có thể vào cột C. Đầu tiên, chúng tôi để trống cột C.

Worksheets(1).Columns(3) = ""

  1. Chúng tôi bắt đầu một Vòng lặp kép.

For i = 1 To rng.Count

For j = i + 1 To rng.Count

  1. Chúng tôi viết một matchname cho biến matchname.

matchname = rng.Cells(i).Value & " vs " & rng.Cells(j).Value

Ví 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 là Kickers vs Little Giants, v.v.

  1. Chúng tôi viết tên đối sánh vào cột C.

Cells(counter + 1, 3).Value = matchname

  1. Bộ đếm theo dõi số lượng các tên khớp đượ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 khớp vào cột C. Để đạt được điều này, hãy thêm dòng mã sau:

counter = counter + 1

  1. Đừng quên đóng hai vòng.

Next j

Next i

  1. Chúng tôi hiển thị bản in xem trước của tất cả các trận đấu bóng đá có thể xảy ra.

ActiveSheet.Columns(3).PrintPreview

  1. Chạy thử chương trình.

Một phần của kết quả:

Possible Football Matches Result

Lưu ý: cột C được căn giữa theo cách thủ công để có kết quả này.