使用宏处理多个Excel工作簿-个人工作簿
来源:互联网 发布:网络舆情内参价格 编辑:程序博客网 时间:2024/05/06 18:03
excel 2007显示开发工具的方法:
excel 2007 和2003区别很大,很多设置的地方经常找不到。比如excel的开发工具,在2007里就缺省是没有显示。
个人宏工作簿
个人宏工作簿,是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。第一次将宏创建到个人宏工作簿时,会创建名为“PERSONAL.XLS"的新文件。如果该文件存在,则每当EXCEL启动时会自动将此文件打开并隐藏在活动工作簿后面(在“窗口”菜单中选择“取消隐藏”后,可以很方便地发现它的存在。)如果你要让某个宏在多个工作簿都能使用,那么就应当创建个人宏工作簿,并将宏保存于其中。个人宏工作簿保存在“XLSTART”文件夹中。具体路径为:C:\WINDOWS\Profiles\Application Data\Microsoft\Excel\XLSTART。可以以单词“XLSTART”查询。
注意:如果存在个人宏工作簿,则每当EXCEL启动时会自动将此文件打开并隐藏。因为它存放在XLSTART文件夹内。
我的一个例子
用于将工作簿中特定行删除,该例子删除了:第一列中内容为''d"的行、第二列为" "的行、第二列为空的行、第二列为"$0.00"的行
Sub kk()
Dim j As Integer
j = 0
ir = Range("a65535").End(xlUp).Row
For i = ir To 2 Step -1
If Cells(i, "A").Value = "d" Or Cells(i, "B") = 0 Or Cells(i, "B").Value = " " Or Cells(i, "B").Value = "" Or Cells(i, "B").Value = "$0.00" Then
Rows(i).Delete
j = j + 1
End If
Next i
MsgBox (j & "行被删除了")
End Sub
Dim j As Integer
j = 0
ir = Range("a65535").End(xlUp).Row
For i = ir To 2 Step -1
If Cells(i, "A").Value = "d" Or Cells(i, "B") = 0 Or Cells(i, "B").Value = " " Or Cells(i, "B").Value = "" Or Cells(i, "B").Value = "$0.00" Then
Rows(i).Delete
j = j + 1
End If
Next i
MsgBox (j & "行被删除了")
End Sub
- 使用宏处理多个Excel工作簿-个人工作簿
- 使用工作区一次打开多个Excel工作簿
- 使用VBA合并多个Excel工作簿
- 使用VBA合并多个Excel工作簿
- 合并多个EXCEL工作簿
- Excel 2007中的个人宏工作簿(Personal.xlsb)
- Excel中的个人宏工作簿Personal.xls(b)
- NPOI导出Excel表功能实现(多个工作簿)
- 在多个Excel工作簿间快速切换
- NOPI技术实现 Excel表格多个sheet工作簿
- 多个excel工作簿汇总,同一工作簿中sheets合并
- 怎么拆分一个Excel工作簿中的多个工作表
- 怎么拆分一个Excel工作簿中的多个工作表?
- Excel多工作簿例程
- Excel共享工作簿
- EXCEL保护Excel 工作簿
- EXCEL共享Excel工作簿
- SSIS FOR EXCEL 多工作簿多工作表合并
- 少走六年弯路
- Premiere剪辑细节-帧与像素的宽高比
- Java Servlet及其特点
- 编码,charset,乱码,unicode,utf-8与net简单释义(转)
- 架构学习笔记—Amazon
- 使用宏处理多个Excel工作簿-个人工作簿
- 百度海量数据题++更新...
- httpWatch的使用介绍
- 对Person对象按年龄排序
- tomcat配置虚拟机
- telnet的命令使用介绍
- NOIP-2009 表达式输出
- listbox控件的一些操作
- 深入提高PHP运行效率