(转)Excel中如何捕捉删除行操作
来源:互联网 发布:开淘宝店有人挣到钱吗 编辑:程序博客网 时间:2024/05/20 21:49
<script type="text/javascript"><!--google_ad_client = "pub-1992382271196226";/* 728x90, 创建于 08-3-9 */google_ad_slot = "1653402536";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
監控刪除行及列
原文来自: http://cat14051.mysinablog.com/index.php?op=ViewArticle&articleId=43207
'// Worksheet RowColumn Deleted Event
'// This is NOT a real event but just hack the command button.
'// You can know when the rows or the columns was deleted by user's opelation
...
'
' 執行監控程序
'
' Module
Option Explicit
Sub EventHack() ' 執行監控程序
AssignMacro "JudgeRng"
End Sub
Sub EventReset() ' 取消監控程序
AssignMacro ""
End Sub
Private Sub AssignMacro(ByVal strProc As String)
Dim lngId As Long
Dim CtrlCbc As CommandBarControl
Dim CtrlCbcRet As CommandBarControls
Dim arrIdNum As Variant
'// 293=Delete menu of the right click on row
'// 294=Delete menu of the right click on column
'// 293=Delete menu of the Edit of main menu
arrIdNum = Array(293, 294, 478)
For lngId = LBound(arrIdNum) To UBound(arrIdNum)
Set CtrlCbcRet = CommandBars.FindControls(ID:=arrIdNum(lngId))
For Each CtrlCbc In CtrlCbcRet
CtrlCbc.OnAction = strProc
Next
Set CtrlCbcRet = Nothing
Next
End Sub
Private Sub JudgeRng()
If Not TypeOf Selection Is Range Then Exit Sub
With Selection
If .Address = .EntireRow.Address Then
Call DelExecute("Row:" & .Row, xlUp)
ElseIf .Address = .EntireColumn.Address Then
Call DelExecute("Column:" & .Column, xlToLeft)
Else
Application.Dialogs(xlDialogEditDelete).Show
End If
End With
End Sub
Private Sub DelExecute(ByVal str, ByVal lngDerec As Long)
MsgBox "deleted:" & str ' call any program
Selection.Delete lngDerec
End Sub
'
...
crdotlin: 有時候我們要對儲存格個刪除或整欄的刪除或整列的刪除設限,需要監視刪除的動作。這是大家常遇到的問題。本程式使用一個類模組在當刪除了儲存格或整欄或整列時,分別產生CellDelete、ColDelete或RowDelete事件,您可依需要做適當的處置。本文的處理是在整列遭刪除時提示輸入密碼,密碼錯誤則使用Application.Undo復原該列。
<script type="text/javascript"><!--google_ad_client = "pub-1992382271196226";/* 728x15, 创建于 08-9-3 */google_ad_slot = "9127232582";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>- (转)Excel中如何捕捉删除行操作
- 如何从excel中删除奇数行或偶数行
- 如何在DELPHI中操作EXCEL电子表格
- 如何在DELPHI中操作EXCEL电子表格
- 如何操作Excel模板,往Excel模板中写入数据
- 如何批量隔行删除Excel行
- poi中怎么像操作excel一样删除一行
- EXCEL里如何把一列中重复的内容删除
- 如何在盘中捕捉短线机会
- TVideoGrabber中如何设置音频捕捉设备
- [转] C# 操作 Excel 如何设置格式
- c#如何操作excel??
- java如何操作Excel
- 如何操作Excel
- c#如何操作excel ?
- 如何批量删除Excel空行
- 如何在VB中操作EXCEL(一段代码,两个可以使用的过程)
- 如何在VB中操作EXCEL(一段代码,两个可以使用的过程)
- 使myeclipse新建jsp的默认编码为UTF-8
- Squid 3 终于可以稍微正常一点缓存asp页面了!
- SQL中的NULL详解
- 男人应当掌握的一些技能与知识 活得像个爷们儿
- 各种字符编码介绍 (网上转载)
- (转)Excel中如何捕捉删除行操作
- 2008年终盘点-十大惊艳Java应用程序
- 完成了treeview+复选框+遍历,开心
- 字符编码:ASCII,Unicode,UTF-8,GB2312
- 使用ofstream时必须使用g++编译的例子。
- 怎样给下属分配工作?
- 一份 PHP 面试题,据说是雅虎的
- 北大3673题
- 北大3414题