害人虫的夏天 发表于 2021-11-20 21:17:00

随机选择，限定次数


民之大者 发表于 2022-1-16 13:21:03

大神 ，伸下援手

肖月墨白 发表于 2022-2-19 05:02:17

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, ) Is Nothing Then
Application.EnableEvents = False
For i = 2 To 13
    If Cells(i, 1) <> "" Or Cells(i, 2) <> "" Then k = k + 1
    If k > 8 Then MsgBox "够了": Target.ClearContents: GoTo 100
Next
100:
Application.EnableEvents = True
End If
End Sub

运花 发表于 2022-2-22 12:59:43

完美解决，感谢
页: [1]
查看完整版本: 随机选择，限定次数