Excel代码问题，非常感谢！

LSYYLW

2024-8-25.zip (8.8 KB, 下载次数: 5)

2024-8-24 21:36 上传

点击文件名下载附件

饮冰e士

没太看明白，是这个意思？要用代码实现？

饮冰e士

LSYYLW

饮冰e士 发表于 2024-8-24 22:14

非常感谢老师，K列里的数字是我用来给老师演示依次显示结果数字的顺序用的，实际应用时没有这一列数字。

gwjkkkkk

.............

饮冰e士

LSYYLW 发表于 2024-8-24 22:22
非常感谢老师，K列里的数字是我用来给老师演示依次显示结果数字的顺序用的，实际应用时没有这一列数字。

没有这些数据，那怎么知道显示的规律？

LSYYLW

gwjkkkkk 发表于 2024-8-24 22:24
.............

非常感谢老师，K列里的数字是我用来给老师演示依次显示结果数字的顺序用的，实际应用时没有这一列数字。

ztsss161511

偶也是新人，试一下错了别笑话：

Sub xunhuan()
Dim arr(1 To 252, 1 To 5), i1, i2, i3, i4, i5, k
For i1 = 0 To 5
   For i2 = i1 + 1 To 6
     For i3 = i2 + 1 To 7
       For i4 = i3 + 1 To 8
         For i5 = i4 + 1 To 9
         n = n + 1
         arr(n, 1) = i1
         arr(n, 2) = i2
         arr(n, 3) = i3
         arr(n, 4) = i4
         arr(n, 5) = i5
         Next
       Next
     Next
   Next
Next
k = Range("b23").Value
Range("H26") = arr(k, 1)
Range("H27") = arr(k, 2)
Range("H28") = arr(k, 3)
Range("H29") = arr(k, 4)
Range("H30") = arr(k, 5)
End Sub

LSYYLW

饮冰e士 发表于 2024-8-24 22:24
没有这些数据，那怎么知道显示的规律？

非常感谢老师，我在K列演示的数字组，您从中可以看出规律。

醉眼看尘世

以下代码放在工作表事件程序窗格中

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim x1, x2, x3, x4, x5, i, Arr(1 To 252)
   
3. If Target.Cells(1, 1).Address = "$B$23" Then
   
4.     Application.EnableEvents = False
   
5.         [h26:h30].ClearContents
   
6.         If [b23] <> "" Then
   
7.             i = 0
   
8.             For x1 = 0 To 5
   
9.                 For x2 = x1 + 1 To 6
   
10.                     For x3 = x2 + 1 To 7
    
11.                         For x4 = x3 + 1 To 8
    
12.                             For x5 = x4 + 1 To 9
    
13.                                 i = i + 1
    
14.                                 Arr(i) = Join(Array(x1, x2, x3, x4, x5), "，")
    
15.                             Next
    
16.                         Next
    
17.                     Next
    
18.                 Next
    
19.             Next
    
20.             i = [b23]
    
21.             [h26:h30] = Application.WorksheetFunction.Transpose(Split(Arr(i), "，"))
    
22.         End If
    
23.     Application.EnableEvents = True
    
24. End If

复制代码