Excel総合相談所 136 - 暇つぶし2ch

Excel総合相談所 136 ..

257:名無しさん＠そうだ選挙にいこう
19/08/18 13:02:03.75 .net
【1 OSの種類　　　　 .】 Window10
【2 Excelのバージョン　】 Excel2019
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
以下のコードは"あ","い","う","え","お" の5チームの総当たりのリーグ戦を示したものです。書籍からですのでところどころは変えてあります。（変数名など）
このコードを解読しようとしているのですが、どうしてもわかりません。お分かりになる方教えてください。よろしくお願い致します。
Sub リーグ戦 ()
Dim チーム,チーム1.チーム2.i
チーム=Array("あ","い","う","え","お")
チーム2=1
For Each チーム1 In チーム
For i =チーム2 To 4
Debug.Print チーム1 & "vs" & チーム(i)
Next
チーム2 = チーム2 + 1
Next
End Sub

次ページ

続きを表示

1を表示