우리는 엑셀 VBA에서 프로그램을보고 아래 그 쇼 팀의 목록에서 가능한 모든 축구 경기의 인쇄 미리보기.

상황 :

Possible Football Matches in Excel VBA

  1. 먼저, 우리는 하나의 Range 개체와 네 개의 변수를 선언합니다. 우리는 Range 개체의 RNG를 호출합니다. 우리가 matchname 전화를 하나 개의 문자열 변수, 3 개 정수 변수는 우리가 카운터 i와 j를 호출합니다.

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

  1. 우리는 팀 이름으로 RNG 초기화합니다. 우리는`링크 사용 / VBA – 예 – currentregion [CurrentRegion을]`우리가 사전에 범위의 정확한 경계를 알 수 없기 때문에 (우리는 3 개 팀뿐만 아니라 12 개 팀의 작품이 프로그램을 원하는). 우리는 값이 0으로 카운터 초기화

Set rng = Range("A1").CurrentRegion

counter = 0

  1. 우리 모두에게 우리가 빈 열 C. 열 C. 첫째로 가능한 축구 경기를 쓰기

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

  1. 우리는 더블 루프를 시작합니다.

For i = 1 To rng.Count

For j = i + 1 To rng.Count

  1. 우리는 변수 matchname에 matchname 물품.

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

예를 들어, I는 1, J = 2는 엑셀 VBA가 사수를 대 matchname 키커를 기록 = 대한. i가 1, J =를 들어 = 3, 엑셀 VBA 등 리틀 자이언트 대 matchname 키커를 기록

  1. 우리는 열 C.에 matchname 쓰기

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

제 카운터가이를 컬럼 C.에 matchname를 기입 한 각 시간 열 C. 엑셀 VBA 증분 카운터에 기록 matchnames의 수를 추적, 다음의 코드 라인을 추가

counter = counter + 1

두 루프를 닫을 것을 잊지 마십시오 8..

Next j

Next i

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

ActiveSheet.Columns(3).PrintPreview

  1. 시험 프로그램.

결과의 일부 :

Possible Football Matches Result

참고 : 열 C가 수동으로이 결과를 얻을 중심.