/ / Excel VBA에서 가능한 축구 경기

Excel VBA에서 가능한 축구 경기

아래에서 우리는 Excel VBA 모든 인쇄 미리보기를 보여줍니다. 가능한 축구 경기 팀 목록에서.

상태:

Excel VBA에서 가능한 축구 경기

첫째, 우리는 하나의 Range 객체와 4 개의 변수를 선언합니다. 우리는 Range 객체 rng를 호출합니다. 하나의 String 변수 인 matchname과 세 개의 Integer 변수 인 counter, i 및 j를 호출합니다.

Dim rng As Range, matchname As String, counter As Integer, i As Integer, j As Integer

2. 우리는 팀 이름으로 rng를 초기화합니다. 우리는 범위의 정확한 경계를 미리 알지 못하기 때문에 CurrentRegion을 사용합니다 (우리는이 프로그램이 3 개 팀뿐만 아니라 12 개 팀에도 적용되기를 원합니다). 값 0으로 카운터를 초기화합니다.

Set rng = Range("A1").CurrentRegion
counter = 0

3. 가능한 모든 축구 경기를 C 열에 씁니다. 먼저 C 열을 비 웁니다.

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

4. 이중 루프를 시작합니다.

For i = 1 To rng.Count
    For j = i + 1 To rng.Count

5. 우리는 matchname을 변수 matchname에 씁니다.

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

예를 들어 i = 1 및 j = 2 인 경우 Excel VBA는 matchname Kickers vs Shooters를 씁니다. i = 1 및 j = 3 인 경우 Excel VBA는 matchname Kickers vs Little Giants 등을 씁니다.

6. 우리는 matchname을 C 열에 씁니다.

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

7. 카운터는 열 C에 작성된 matchnames 수를 추적합니다. Excel VBA는 matchname을 C 열에 쓸 때마다 카운터를 1 씩 증가시킵니다.이를 수행하려면 다음 코드 행을 추가하십시오.

counter = counter + 1

8. 두 개의 고리를 닫는 것을 잊지 마십시오.

    Next j
Next i

9. 가능한 모든 축구 경기의 인쇄 미리보기를 보여줍니다.

ActiveSheet.Columns(3).PrintPreview

10. 프로그램을 테스트하십시오.

결과의 일부 :

가능한 축구 경기 결과

참고 :이 결과를 얻으려면 C 열을 수동으로 중앙에 배치하십시오.

또한 읽으십시오 :