菜鸟求助各位大神，批量抽取不重复的评委设置失败，能否帮忙纠错！

Ruby_碧碧

各位大神：

      参考网上的教程设置了一个抽取文件出来，目前存在的问题为： 无效，结果出不来

小凡、、、

字典使用后期绑定，按钮重新制作指向对应的sub

Ruby_碧碧

小凡、、、 发表于 2024-12-18 17:23
字典使用后期绑定，按钮重新制作指向对应的sub

亲能帮我改改吗？

chxw68

修改好了。

gwjkkkkk

Dim isFlag As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub 开始()
    Dim ar, br, n&
   
    With Worksheets(2).[A1].CurrentRegion
        ar = Intersect(.Offset(), .Offset(1)).Value
    End With
    With Worksheets(1)
        .Activate
        n = .[B4].Value: isFlag = True
        ReDim br(1 To n, 1 To UBound(ar, 2))
        Range("d4:J33").ClearContents
        
        Do
            cr = RndNumCount(1, UBound(ar), n)
            For i = 1 To UBound(cr)
                For j = 1 To UBound(br, 2)
                    br(i, j) = ar(cr(i), j)
                Next j
            Next i
            .Range("D4").Resize(UBound(br), UBound(br, 2)) = br
            Sleep 100
            DoEvents
        Loop While isFlag = True
    End With
End Sub
Sub 停止()
    isFlag = False
End Sub

Sub 清除()
    Range("d4:J33").ClearContents
End Sub
Function RndNumCount(MinNum&, MaxNum&, CountNum&)
    Dim i&, n&, ar, xNum&, temp&
    Application.Volatile
    If MaxNum < MinNum Then temp = MaxNum: MaxNum = MinNum: MinNum = temp
    If CountNum > MaxNum - MinNum + 1 Then RndNumCount = "无解": Exit Function
    ReDim ar(1 To CountNum): n = 1
    Randomize
    Do While n <= CountNum
        xNum = Int((MaxNum - MinNum + 1) * Rnd + MinNum)
        ar(n) = xNum
        For i = 1 To n
            If ar(i) = xNum Then Exit For
        Next i
        If i = n Then n = n + 1
    Loop
    RndNumCount = ar
End Function

gwjkkkkk

用数组法重写一个。。。

Ruby_碧碧

gwjkkkkk 发表于 2024-12-18 19:44
Dim isFlag As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub  ...

谢谢亲的帮助！感激不尽！

Ruby_碧碧

chxw68 发表于 2024-12-18 17:33
修改好了。

谢谢亲的帮助！感激不尽！