/ / Excel VBAで可能なサッカーの試合

Excel VBAで可能なサッカーの試合

以下では、 Excel VBA すべての印刷プレビューが表示されます 可能なサッカーの試合 チームのリストから。

状況:

Excel VBAで可能なサッカーの試合

まず、1つのRangeオブジェクトと4つの変数を宣言します。 Rangeオブジェクトrngを呼び出します。私たちはmatchnameと呼ばれる1つのString変数と、counter、i、jと呼ばれる3つのInteger変数。

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

2.チーム名でrngを初期化します。 私たちはCurrentRegionを使用しています。なぜなら、範囲の正確な境界を事前に知る必要がないからです(このプログラムは3つのチームだけでなく、12チームでも必要です)。

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に書き込まれたマッチナンバーの数を追跡します。Excel VBAは、マテナームを列Cに書き込むたびにカウンターを1ずつインクリメントします。これを行うには、次のコード行を追加します。

counter = counter + 1

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

    Next j
Next i

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

ActiveSheet.Columns(3).PrintPreview

10.プログラムをテストします。

結果の一部:

可能性のあるサッカーの試合結果

注:この結果を得るには、列Cを手動で中央に配置します。

また読む: