私たちはチームのリストからすべての可能なサッカーの試合の印刷プレビューを示しエクセルVBAでプログラムを見ていきます以下は。

状況：

Possible Football Matches in Excel VBA

1.まず、我々は1つのRangeオブジェクトと4つの変数を宣言します。私たちは、RangeオブジェクトのRNGを呼び出します。我々はmatchname呼び出す1つの文字列変数、および3つの整数の変数は、我々は、カウンタiとjを呼び出します。

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

2.私たちは、チーム名とRNG初期化します。我々は（我々は3つのチームのためだけでなく、12のチームのために仕事にこのプログラムをしたい）事前に範囲の正確な境界が分からないので、 `/ VBA-例-currentregion [CurrentRegion]：私たちは`リンクを使用します。私たちは、値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のキッカーズを書き込みます。私は1とjを=の場合= 3、エクセルVBA等リトルジャイアンツ、対matchnameのキッカーズを書き込み

6.私たちは、列Cにmatchnameを書く

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

7.カウンタが、それはこれを実現するために、列Cにmatchnameを書き込み、1ずつ列C.エクセルVBA刻みカウンターに書き込まmatchnamesの数を追跡し、次のコード行を追加します。

counter = counter + 1

8.二つのループを閉じることを忘れないでください。

Next j

Next i

9.我々は、すべての可能なサッカーの試合の印刷プレビューを表示します。

ActiveSheet.Columns(3).PrintPreview

10.テストプログラム。

結果の一部：

Possible Football Matches Result

注：列Cは、手動でこの結果を得るために中央に配置されます。