Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1756|回复: 1

[已解决]这个为什么没有运行?

[复制链接]
发表于 2012-5-17 08:37 | 显示全部楼层 |阅读模式
我在书上看的呀 ,改变单元格就提示 呀  怎么 什么提示都没有  也可以删除列?老师帮我看看
最佳答案
2012-5-17 09:24
本帖最后由 lisachen 于 2012-5-17 09:36 编辑

代码应该写在工作表事件中,不应在工作簿事件。不过这个代码会出现死循环
在工作簿中可改为
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("D1").Value <> "金" Then
MsgBox "不允许删除", 16, "删除提示"
Application.Undo
End If
End Sub

为什么可以删除列呢?.rar

5.38 KB, 下载次数: 7

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-5-17 09:24 | 显示全部楼层    本楼为最佳答案   
本帖最后由 lisachen 于 2012-5-17 09:36 编辑

代码应该写在工作表事件中,不应在工作簿事件。不过这个代码会出现死循环
在工作簿中可改为
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("D1").Value <> "金" Then
MsgBox "不允许删除", 16, "删除提示"
Application.Undo
End If
End Sub
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 23:51 , Processed in 0.266244 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表