找回密码
 立即注册
搜索

随机选择,限定次数

3
回复
432
查看
[复制链接]

1

主题

4

帖子

1

幻币

初入江湖

Rank: 1

积分
6
2021-11-20 21:17:00 显示全部楼层 |阅读模式
9d08e9467a12d2ad9d23e8f3c0b4f6d5.png
工作簿1.zip (8.27 KB, 下载次数: 15)
PPT学习论坛
回复

使用道具 举报

0

主题

6

帖子

-1

幻币

初入江湖

Rank: 1

积分
4
2022-1-16 13:21:03 显示全部楼层
大神 ,伸下援手
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

5

帖子

2

幻币

初入江湖

Rank: 1

积分
9
2022-2-19 05:02:17 显示全部楼层
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [A2:B13]) 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

c71593a4c4442c7b9681c9096e440c73.png
PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

5

帖子

1

幻币

初入江湖

Rank: 1

积分
4
2022-2-22 12:59:43 显示全部楼层
完美解决,感谢
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册