这段代码运行时提示过程太大，请问如何精简？

yjh_27

参见附件。

duzili

编译时，一个过程的代码不得超过 64k个字符。 此错误的原因和解决方案如下：
此过程的代码在编译时超出 64k个字符。 将此过程或任何其他较大的过程分割成两个或更多个较小的过程。

另外，且不论你的算法逻辑问题，但首先要养成显式声明的好习惯，便于调试，便于了解对象的属性\方法等。

lkqsmxw

阿智 发表于 2020-3-13 14:07
谢谢回复。这个代码跟源代码思路确实一样。发现个小问题，在对它进行连续100次测试时，它会一直处于未响 ...

Sub suiji()
    Dim STR1, M, X, N, Rng, rn, i, k
    '自己测试后，再修改一下吧
    For i = 1 To 300 '抽取次数
    STR1 = ""
    M = 3
    k = 0
    [a1:j10].Interior.ColorIndex = xlNone
    Set Rng = [a1:j10]
CF:
    For N = M To 0 Step -1
        X = WorksheetFunction.RandBetween(1, Rng.Cells.Count)
        Set rn = Rng.Cells(X).Offset(0, 0).Resize(1, 1)
        If rn.Interior.ColorIndex <> 4 Then
            M = M - 1
            If M >= 0 Then
            k = k + 1 '抽取单元格个数
            rn.Interior.ColorIndex = 4
            If STR1 = "" Then STR1 = rn Else STR1 = STR1 & "," & rn
            End If
        End If
    Next N
    If M > 0 Then GoTo CF
    Cells(Rows.Count, "m").End(3).Offset(1) = STR1
    Cells(Rows.Count, "l").End(3).Offset(1) = k
    Next i
End Sub

lkqsmxw

阿智 发表于 2020-3-13 14:07
谢谢回复。这个代码跟源代码思路确实一样。发现个小问题，在对它进行连续100次测试时，它会一直处于未响 ...

这次修改了,自己测试一下.认为行,自己再修改吧

阿智

lkqsmxw 发表于 2020-3-13 18:38
这次修改了,自己测试一下.认为行,自己再修改吧

谢谢回复，这个代码非常合适.
再次感谢。

lkqsmxw

本次是按区域单元格序号值来确定抽取的,非按单元格颜色来判断的.并填加了生成图片.让抽取的结果更直观了.

阿智

lkqsmxw 发表于 2020-3-15 09:06
本次是按区域单元格序号值来确定抽取的,非按单元格颜色来判断的.并填加了生成图片.让抽取的结果更直观了.

非常感谢你的再次补充，这种表示方式正好也用得上，再次感谢。这里还有一个跟这个问题有联系的问题，希望得到你的再次帮助，问题请看附件。

X。P

来学习来了，也是小白一个