高手帮助Excel急！！！

来源：百度知道 编辑：UC知道 时间：2024/05/05 18:33:49
怎么样才能把这段代码放在Excel里运行啊

Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim nn As Integer

nn = 0
For i = 0 To 21 - 4
For j = i + 1 To 21 - 3
For k = j + 1 To 21 - 2
For l = k + 1 To 21 - 1
For m = l + 1 To 21
nn = nn + 1
Print nn,i,j,k,l,m
Next m
Next l
Next k
Next j
Next i
End Sub

Excel
宏，工具，Visual Basic编辑器，在里面建立一个窗体
，放进去执行。。。。
或者用公式解决，公式没有那么简单的。。。

Sub noky()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim nn As Integer

nn = 0
For i = 0 To 21 - 4
For j = i + 1 To 21 - 3
For k = j + 1 To 21 - 2
For l = k + 1 To 21 - 1
For m = l + 1 To 21
nn = nn + 1
Debug.Print nn, i, j, k, l, m
Next m
Next l
Next k
Next j
Next i
End Sub