1：Excel表中数据的行列数Sheets(1).UsedRange.Rows.CountSheets(1).UsedRange.Columns.Count或者，Sheets(1).Range("A65536").End(xlUp).RowSheets(1).Range("A65536").End(...
分类：
编程语言 时间：
2014-10-11 15:25:25
阅读次数：
151
VBA对象体系Application对象——代表整个Microsoft Excel应用程序常用属性常用方法常用事件ActiveCellOnWindowCalculateSheetActiveActiveSheetPathConvertFormulaSheetDeactiveActiveWindowP...
分类：
编程语言 时间：
2014-10-11 12:51:25
阅读次数：
644
作者：iamlaosong
百度一下，很容易找到debug.print解释和使用介绍，其实很简单，就是将代码执行结果显示在“立即窗口”中，但不影响程序执行。VBA程序调试过程中，经常需要监控变量的值，虽然MsgBox也可以完成这个功能，但用debug.print显示变量或者表达式的值，有很多优点，具体如下：
1、不影响程序执行，虽然MsgBox也可以显示代码执行结果，但是每次要按确定按钮才能继...
分类：
其他好文 时间：
2014-10-09 02:32:47
阅读次数：
138
Sub 沪深股市关注度()
On Error Resume Next
Cells.Clear
Columns("A:A").NumberFormatLocal = "@"
Cells(1, 1) = "代码"
Cells(1, 2) = "名称"
Cells(1, 3) = "关注该股人数（人）"
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", "http://d...
分类：
其他好文 时间：
2014-10-07 13:34:53
阅读次数：
116
(大部分搜集于网络博客 总结整理)字符串函数====================================================================================mid(字符串，从第几个开始，长度) 在[字符串]中[从第几个开始]取出[长度个字符串]...
分类：
其他好文 时间：
2014-09-28 17:54:53
阅读次数：
282
调试F9：设置程序断点，在代码左侧栏点击有相同效果。重新按F9即取消断点。F8：单步跟踪，当调用子函数会跟踪到子函数内部Shift+F8：单步跟踪，但不会进入子函数内部Ctrl+Shift+F8：跳出正在跟踪的函数，直接返回上一层函数。F5：运行程序，直到出现错误、程序结束或程序断点为止Ctrl+F...
分类：
其他好文 时间：
2014-09-28 16:02:13
阅读次数：
224
Excel VBA工程的工作表类及对象一、新建工作簿时的工作表类与对象：1.类与对象的创建：2.类与对象的名称：二、修改CodeName:1.CodeName在运行期间是只读的，即运行期间不能用代码改变工作表的这个属性，只能读取这个属性，否则会弹出错误对话框如下。2.同步修改：[1]CodeName...
分类：
其他好文 时间：
2014-09-26 18:38:20
阅读次数：
241
Public Sub Filter()
' sheet1 是从乾坤里导出的总表
' sheet2 是自己维护的已经开票的提单号
' 此函数是用来自动筛选已经开票的提单号，如果已经开票则在sheet1的S列的值为 1 ，否则为 0
' 只要把已经开票的提单号拷贝到sheet2 的E列就可以了，sheet1 从乾坤导出来的格式不变化，唯一要做的就是在sheet1里的S列添加一个标题filter...
分类：
其他好文 时间：
2014-09-23 10:19:04
阅读次数：
181
Excel2007为例：“可用加载宏”快捷键——Alt+T+IMicrosoft Visual Basic——Alt+F111：通过快捷键（Alt+F11）打开VBA编程窗口；2：在对应Sheet处右键“插入”-“模块”；3：在新建的“模块”中添加如下代码，运行子过程即可； 1 Function P...
分类：
其他好文 时间：
2014-09-19 17:22:15
阅读次数：
796
偶尔用到Excel中VBA处理一些事情，毕竟鄙人比较懒，总是喜欢把那些重复性的工作想方设法交给计算机来处理，那样才能证明自己的大脑还在运转着，总结一些VBA中读取解析本地文件目录的方法。 1 ' 该函数是获取指定目录下所有的 文件夹 名 2 Sub readFile() 3 Path = "...
分类：
其他好文 时间：
2014-09-19 17:18:45
阅读次数：
397
