EXCEL中工作表事件中全选择工作表不执行的命令

yjwdjfqb

各位老师上午好

在EXCEL工作表事件中
如果按CTRL+A时，不执行相关命令
如附件中：
在指定区域中，选择一个单元格时，才执行命令
如果按CTRL+A时，不执行命令
请老师们帮帮忙，谢谢老师们了！！！
测试.rar (13.39 KB, 下载次数: 10)

2024-3-9 10:34 上传

点击文件名下载附件

半百

这样行不？

yjwdjfqb

半百 发表于 2024-3-9 11:36
这样行不？

谢谢老师的帮助
我在附件中测试了下，不能实现需要的效果
谢谢你了老师

yjwdjfqb

老师们，这个有什么好的解决方案不，谢谢大家了！

yjwdjfqb

老师们有没有什么好的办法喃，谢谢老师们了！！！

ykcbf1100

附件供参考。。。

ykcbf1100

代码如下：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     r = Me.Cells(Rows.Count, 2).End(3).Row
   
3.     If Not Intersect(Target, Me.Range("B4:B" & r)) Is Nothing Then
   
4.         MsgBox "合法区域"
   
5.     Else
   
6.         MsgBox "非法区域"
   
7.     End If
   
8. End Sub
   
9. 
   

复制代码

tanglf188

按下Ctrl+A在你的代码中已经报溢出错误了，只是被跳过了
加一句Application.OnKey "{^A}", "ThisWorkbook.ActiveSheet.Cells.Select"试试

yjwdjfqb

ykcbf1100 发表于 2024-3-11 10:22
代码如下：

谢谢老师的帮助
我想
只是合法区域，弹出提示
非法区域，不弹出提示（包括全选时，也不弹出提示）
谢谢老师了！

yjwdjfqb

tanglf188 发表于 2024-3-11 10:24
按下Ctrl+A在你的代码中已经报溢出错误了，只是被跳过了
加一句Application.OnKey "{^A}", "ThisWorkbook. ...

谢谢老师的帮助
下载了老师的附件，全选工作表时，也弹出了提示
如何让，全选工作表时，不弹出提示喃
谢谢老师了！