作者:iamlaosong 百度一下.非常easy找到debug.print解释和使用介绍.事实上非常简单.就是将代码运行结果显示在"马上窗体"中,但不影响程序运行.VBA程序调试过程中,常常须要监控变量的值,尽管MsgBox也能够完毕这个功能,但用debug.print显示变量或者表达式的值.有非常多长处.详细例如以下: 1.不影响程序运行.尽管MsgBox也能够显示代码运行结果,可是每次要按确定button才干继续下去,碰到大的循环语句简直无法进行: 2.程序调试结束后.应屏蔽这些

安装office2010的时候, 最好是 完全安装/完整安装 , 这样可以查阅 excel的 "帮助文档" 帮助文档中包含了更多的/更详细的 参考信息. 普通模块无事件, 只有 子过程和函数等.. / 而类模块(包括工作表/工作簿/窗体)模块 才有 事件! 工作表的名称: 要注意, 在vba代码中, 是用的 worksheet表示工作表, 而在excel中表示工作表的 默认名称直接是 : Sheet1, Sheet2,Sheet3 没有work- 但是在excel对象中, 是三个she

表 20‑1到表 20‑8是VBA编程中使用频率最高的英文单词,按字母排序.词性列中,a表示形容词,n表示名词,v表示动词,p表示介词以及其他词性. 表 20‑1 VBA编程常用词汇表 单词 中文 词性 单词 中文 词性 单词 中文 词性 Absolute 绝对 a Area 区域 n Book 书 n Accelerator 加速器 n Areas 区域 n Boolean 布尔 n Access 访问 v Arg 参数 n Border 边框 n Action 动作 n Array 数组 n

使用Debug.print可以用来更好的调试VBA程序 通过ALT+F11代开VBA编程窗口) 插入模块,接着在窗口中输入以下代码,按F5执行 Sub Excute() Debug.Print * + End Sub 结果如下: 实例二: Sub 执行() Debug.Print Range("a:a").Count '计算工作表最大的行数 Debug.Print Range("1:1").Count '计算工作表最大的列数 Debug.Print Applicat

地铁沉降观测数据分析之巧用VBA编程处理 当你观测了一天累的要死了,回来看着成百上千的测量数据,还要做报表.如果是三五页报表还好说,如果是2000个点的报表 按照一页纸张报30个点就得大约70页的报表.作为苦逼的测量员,而且更苦逼的是没有沉降数据处理分析软件的测量员,而且更更苦逼的有沉降数据处理分析软件的但是不配套当地监理要求的报表格式的测量员,是否只能人工去做这么多的日报表呢?想想还有周报,和月报吧!!!多恐怖啊!作为一个过来人,谨将自己的体验和VBA提出来让大家探讨.时间紧凑,没有多审阅文章

公司网点表存储的坐标是百度坐标,现需要将网点位置标注到高德地图上,研究了一下高德地图的云图数据模版 http://lbs.amap.com/yuntu/reference/cloudstorage和坐标转换服务http://lbsbbs.amap.com/forum.php?mod=viewthread&tid=724,云数据管理平台http://yuntu.amap.com/datamanager/   ,实现了excel文件的导入,现将实现步骤及使用的一些技巧总结一下: 本地数据导出为高德云

在主要的编程语言中, 结构体是用大括号来表示 代码段的 范围 界定的. 但是在一些比较"老的"语言中,由于历史原因, 还是使用的 是: 关键字来进行界定代码 的 结构段, 如vba中的 语法结构: if .. . then ... end if, if .... then ... else ... end if; if .... then .... elseif .... then .... elseif .... then.... end if for i=1 to 10 ... e

[访问工作簿] 对已经打开的工作簿,可以通过使用索引号来访问工作簿,也可以通过名称来访问工作簿 [代码区域] Sub 访问工作簿() Dim counter As Integer counter = Workbooks.Count Debug.Print Debug.Print "当前打开工作簿的数目为:" & CStr(counter) Debug.Print "按索引号访问工作簿如下:" Debug.Print ).name Debug.Print ).

使用Workbooks工作簿集合.工作簿对象.工作表集合.工作表对象,并且观察使用Add方法前后工作簿与工作表数目的变化 [代码区域] Sub 测试集合工作簿() Dim wbs As Workbooks '保存工作簿集合 Dim wb As Workbook '保存工作簿对象 Dim ws As Worksheet '保存工作表对象 Dim wbscount As Integer '保存工作簿集合中对象数目 Dim wscount As Integer '保存工作表集合中的对象数目 Dim i

初次编写程序并不一定能成功的运行,可能其中还存在逻辑上或语法上的错误,此时就需要逐步调试,排查错误,一般情况下,编写程序的工作讲究的是三分编程,七分调试. [代码区域] Sub Second() Dim Context As Integer '声明一个String类型变量context,用于保存对话框将要显示的内容 Dim title As String '声明一个String变量title,同于保存窗口标题内容 Dim a As Integer Dim b As Integer Dim c A

看过很多人写的VBA代码,一团一团的,一点规划都没有,为了VBA编程更具工程性,这里讨论一下,并列出自己的一些建议:0.给VBA工程定义一个名字,而非直接使用默认的名称——"VBAProject",以方便以后可能要进行的跨VBA工程编码1.定义一个命名为“O”的标准模块[拼音中“O”字母的读音,意指“我”这个字],用于定义所有的全局对象,管理本工程的代码与数据,主要API:    [1]About(Optional ShowDetail As Boolean = False)函数:对本

编程&学习总结格式 一.本周完成的作业: 题目1.A乘以B 题目内容描述:看我没骗你吧 -- 这是一道你可以在10秒内完成的题:给定两个绝对值不超过100的整数A和B,输出A乘以B的值. 1).实验代码 注意:将代码贴在此处.使用markdown格式. 2) 设计思路 主要描述题目算法.用流程图描述.使用绘图工具. 3).本题调试过程碰到问题及解决办法 注意1:必须有错误提示的截图 注意2:这块是评分重点,务必要把碰到问题如何解决说明清楚.没内容得负分. 4).运行结果截图 有多道题目的,请分题

[自己理解]sheet1是一个专有名词,不是任何对象的属性,只能单独使用,特指代码所在工作簿的那个sheet1(和顺序无关,是固定的一个表,sheets(1)则和顺序有关). 参考资料: 1.代码中一旦使用工作表的代码名称,如:Debug.Print Sheet1.Cells(1),那么代码句中的Sheet1始终代表代码句所在的工作簿中的那个Sheet1:2.如上述第1点所述,ThisWorkbook.Sheet1或就楼主代码中的Wb.Sheet1的写法是不成立的!再次指出:工作表代码名称She

Application对象常用属性[ActiveCell属性]ActiveCell属性返回一个Range对象,表示当前窗口或指定窗口中的单元格.如果窗口没显示工作表,则此属性无效.[代码区域] Sub 激活单元格() Worksheets("sheet1").Activate '激活当前单元格 With ActiveCell .Value = "娑娜" With .Font .Bold = True '设置为粗体 .Italic = True '设置为斜体 .Siz

自定义集合类型,类似于变量声明,只是要将Dim关键字和New collection关键字搭配起来使用,其语法描述如下:其中集合名的命名方式同于标准变量的命名 Dim 集合名 As New collection 对于已经定义的集合对象,可以使用集合的Add方法向集合中添加元素,语法如下: 集合名.add item[,key] [,before] [,after] item:是一个必要的参数,表示将要添加到集合的对象名称 Key: 是一个可选参数,表示该对象在集合中以关键字表示,以供访问结合元素时,

[数组简介]数组其实就是一组相同类型的数据的有序集合,其形象表示就像线性表.在存储数据的时候,首先在内存中分配一个连续的存储空间,将各个元素按顺序存放在连续的存储单元格中.[定义静态数组]Dim 数据组(数据元素的上下界,...) As 数据类型Dim a(10) As Integer '其数组名为a 其下标从0开始,下界为10 期中可访问的元素为a(0)到a(10)Dim b(1 To 10) As Double '可访问元素为a(1)到a(10)[Tips](1)多维数组的维数最高可达60维

[程序1] 所有程序语言的开始都源于Hello world,那么我们也使用Hello world进行第一个VBA编程 新建Excle文件-----文件-------选项-----自定义功能区域----开发工具(打钩)  如下图: 此时Excle界面就出现开发工具选项 点击Visual Basic后出现如下界面: 在该窗口中的“工程”子窗口中的Sheet1子节点上,单击鼠标右键,插入---模块 在模块中写下如下代码: [代码区域] Sub First_VB() MsgBox "Hello worl

.Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compare Text '字符串不区分大小写 '指定数组的第一个下标为 1 .On Error Resume Next '忽略错误继续执行 VBA代码,避免出现错误消息 .On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置 . '恢复正常的错误提示 .Applicat

试想这样一个业务需求:有一张合同表,由于合同涉及内容比较多所以此表比较庞大,大概有120多个字段.现在合同每一次变更时都需要对合同原始信息进行归档一次,版本号依次递增.那么我们就要新建一张合同历史表,字段跟原合同表一模一样,此外多了一个 合同版本号 字段.在归档时如何把原始合同信息插入到合同历史表呢? 很容易就能想到的一种解决方法: insert into 合同历史表(字段1,字段2,字段3…………字段120,版本号) select   字段1,字段2,字段3…………字段120,0 as 版本号

我又来了,这篇文章还是来做(da)推(guang)介(gao)我自己的!俗话说事不过三,我觉得我下次得换个说法了,不然估计要被厌恶了,但是我是好心呐,一定要相信我纯洁的眼神.由于这两年接触到了比较多的这方面的知识,不想忘了,我决定把他们记录下来,所以决定在GitBook用半年时间上面写下来,这是目前写的一节,后面会在gitbook上不断更新,欢迎大家star,主要是在写完之前欢迎各位给出指正的意见.最最重要的,地址在这里:https://www.gitbook.com/book/rogerzhu