Excel 条件格式随机选择
我有一个项目,我需要随机选择一些案例文件进行审计。我想为执行特定任务的特定员工随机选择案例文件(员工在a列中标识,任务在B列中标识) 我找到了以下公式,但它不是我想要的: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$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个随机样本