Excel 条件格式随机选择

Excel 条件格式随机选择,excel,Excel,我有一个项目,我需要随机选择一些案例文件进行审计。我想为执行特定任务的特定员工随机选择案例文件(员工在a列中标识,任务在B列中标识) 我找到了以下公式,但它不是我想要的: =索引(A$2:A$100,大(IF(B$2:B$100=“Task”,行(B$2:B$100)-行(B$2)+1),INT(RAND()*COUNTIF(B$2:B$100,“Task”)+1)) 上面的公式只是根据选择的任务从A列返回一个随机名称。我只想突出显示行,以便识别案例文件,因此我想将其构造为条件格式的公式。您可以

我有一个项目,我需要随机选择一些案例文件进行审计。我想为执行特定任务的特定员工随机选择案例文件(员工在a列中标识,任务在B列中标识)

我找到了以下公式,但它不是我想要的:

=索引(A$2:A$100,大(IF(B$2:B$100=“Task”,行(B$2:B$100)-行(B$2)+1),INT(RAND()*COUNTIF(B$2:B$100,“Task”)+1))


上面的公式只是根据选择的任务从A列返回一个随机名称。我只想突出显示行,以便识别案例文件,因此我想将其构造为条件格式的公式。

您可以更改oneCellPaintedPer以获得所需的百分比。如果你想突出显示五分之一,请输入五分之一、三分之一、三分之一等

Sub generateRandoms()
    Dim rngOne                  As Range
    Dim rngTwo                  As Range
    Dim rngThree                As Range
    Dim rngFour                 As Range
    Dim arr()                   As Variant
    Dim counter                 As Long
    Dim rng                     As Range
    Dim cell                    As Range
    Dim oneCellPaintedPer       As Long

    oneCellPaintedPer = 5

    Set rngOne = Range("A1:A25")
    Set rngTwo = Range("B1:B25")
    Set rngThree = Range("C1:C25")
    Set rngFour = Range("D1:D25")

    arr = Array(rngOne, rngTwo, rngThree, rngFour)

    For counter = 0 To UBound(arr())
        Set rng = arr(counter)
        For Each cell In rng
            If Application.WorksheetFunction.RandBetween(1, oneCellPaintedPer) Mod oneCellPaintedPer = 0 Then
                cell.Interior.Color = vbRed
            Else
                cell.Interior.Color = vbGreen
            End If
        Next cell
    Next counter
End Sub

您是否有任何想要分享的随机抽样标准?每个任务需要多少样本?需要一种方法才能有条件地格式化。有6名员工,他们可以执行7-8项不同的任务。我想每个员工每个任务抽取20-25个随机样本