VBA语句集
(第1辑)
定制模块行为
(1) Option Explicit '强制对模块内所有变量进行声明
Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示
Option Compare Text '字符串不区分大小写
Option Base 1 '指定数组的第一个下标为1
(2) On Error
转载
2012-07-24 21:55:40
860阅读
GoTo 语句无条件地转移到过程中指定的行。语法GoTo line必要的 line 参数可以是任意的行标签或行号。说明GoTo 只能跳到它所在过程中的行。注意 太多的 GoTo 语句，会使程序代码不容易阅读及调试。尽可能使用结构化控制语句(Do...Loop、For...Next、If...Then...Else、Select Case)。GoTo 语句示例本示例使用 GoTo 语句在一个过程内的
目录使用 Do...Loop 语句直到条件为 True 时重复语句直到条件变成 True 才重复语句从循环内退出 Do...Loop 语句使用 For...Next 语句使用 For Each...Next 语句对某范围的单元格做循环在完成前退出 For Each...Next 循环使用 Do...Loop 语句可以使用 Do...Loop 语句去运行语句的块，而它所用掉的时间是不确定的。当条件为
vba基础知识汇总
1.工作簿事件写到THISWORKBOOK中，工作表事件写到sheet中，其他通用代码和函数子程序之类的写到模块中，窗体代码写到对应的窗体中，类相关的代码写到类模块中。2.If 句法，if 有两种写法，单行和块结构。 1、If 条件 Then 符合条件后的语句 2、If  
'1，VBA注释 'A，Rem 第一种注释方式(只能用于行收) 'B，'单引号为第二种注释方式 '例如： Rem 定义一个字符串变量 Dim wksName As String WksName = ActiveSheet.Name'获取当前活动的工作表名
原创
2011-09-17 11:59:07
1685阅读
'1，IF判断 Sub IfElseIfDemo() Dim Age As Integer Sheets("Sheet1").Select
原创
2011-09-17 19:59:10
1341阅读
1. 赋值语句Variable = expression2. 循环语句a. For...Next语句（在指定次数的情况下进行重复操作）b. For Each ...Next语句（用于遍历集合中的每个元素重复元素，执行重复操作）c. Do...Loop语句（不知道循环次数时使用起来事半功倍（反之，可使用For...Next或For Each ...Next语句）） c1. D
转载
2023-06-27 17:39:55
272阅读
Sub 项目状态查询()'如果“项目状态”是未转运营那么实施状态是不能选择的，因为还没有实施。
'如果“项目状态”选择状态后，那么项目名称里面只显示该状态的项目名称。如果“项目状态”选择的不是未转运营，那么“实施状态”也要选择，并确定项目名称的选项。
'如果“统计值”是项目数,那么标题行就是客户角色。如果是实施时长，标题行就是实施的时间。
lst = Range("a1048576").End(x
VBA基础学习之循环语句当需要多次执行一段代码时，就可以使用循环语句。 一般来说，语句是按顺序执行的：函数中的第一个语句首先执行，然后是第二个，依此类推。编程语言提供了各种控制结构，允许更复杂的执行路径。循环语句允许多次执行语句或语句组。 以下是VBA中循环语句的一般形式。1.5.1 For 循环 for循环是一种重复控制结构，它允许开发人员有效地编写需要执行特定次数的循环。For counter
系列列表前言在本系列的上一节已经介绍了如何读写 excel 数据，并快速进行汇总处理。但有些小伙伴看完之后有些疑惑：那只是简单读写数据而已，但有时候我需要设置 excel 的格式。我用透视表不用写代码，两三下也可以弄出结果来。今天，我就沿用上一节的数据，把需求升级一下，以解决上述的疑点。本文要点：使用 xlwings ，设置单元格格式使用 pandas 快速做高难度分组操作注意：虽然本文是"Pyt
今天有朋友留言反映，API改版后巨潮资讯爬虫失效了。之前正好更新了Kotlin版本的爬虫，由于各种语言实现的底层原理完全一致，移植到VBA也绝非难事。借此机会正好向大家具体展示 VBA爬虫的底层工具链以及VBA语言本身的魅力。问题分析改版之后巨潮资讯放弃了之前的服务器后台渲染的做法，采用可扩展性更好的JSON作为数据传递的媒介。简单抓包 response 返回的JSON字
'
'Date: 2012/05/04
'Author: xi wei cheng
'
'Option Explicit
Public Sub SqlInsert()
Dim flg As Boolean
flg = Worksheets("SQL-Tool&
原创
2012-05-10 09:24:33
2993阅读
循环语句是很多人开始使用VBA的理由，因为在批量处理大量数据的多条件判断时，函数已经没办法满足我们的需求了。而VBA可以使用简单的循环完成这一工作。循环语句 1.For...Next语句 在上一篇我们介绍判断语句的时候，就使用了For..Next的循环语句，在这里简单的讲一下。 案例中循环语句的意义是，设置n=1到6的循环，每次循环分别在F2到
ExcelVBA的迷人之处在于它可以解决很多函数无法完成的功能，同时代码具有一定的复用性，可重复利用，逻辑直观明了，极具实用性，今天我们就来说说VBA中最简单的一个语句，IF语句。 单条件IF语法：If 判断语句Then条件成立结果ELSE条件不成立结果END IF(其中ELSE及其后面的语句可以省略，只考虑条件成立的情况)示例：Sub IF语句()
If 1 > 2 Then
//清除空列 Sub ClearNullMacro1() Dim j As Integer Dim colCount As Integer colCount = Cells(2, Columns.Count).End(xlToLeft).Column ...
转载
2015-11-13 15:05:00
273阅读
2评论
一、VBA中的内置函数 合理使用函数不但可以节省处理数据的时间，提高工作效率还可以降低编程的难度，减少编写代码的工作量。例如想知道当前系统时间：Sub NowTime()
MsgBox "现在的时间是：" & Time() 'Time函
基本概念1 怎么样才能操作数据库？使用ADO建立和数据库的连接，然后用ADO对象和sql语言对数据库进行操作。2 SQL是什么?SQL（Structured Query Language)是一种查询语言，可以查询、更新数据库中的数据。3 SQL可以查询哪些数据库?SQL是一种通用的查询语言,可以查询EXCEL,ACCESS,SQL SERVER等各种数据库4 ADO是什么？ADO是新的数据库存取技
小爬之前的文章 【Excel VBA中写SQL，这些问题你一定为此头痛过】中详细讨论了一些常见的VBA 中使用SQL遇到的问题，这里再补充两个常见的问题场景及对应的解决方案，希望你们看了后能够思路开阔些，少走些弯路。一、数据源Excel文件的工作表有些列的列名相同 我们知道，在商业数据库中创建表时，同一个表名下是不允许创建相同的字段的，且字段名要遵从一定规范。但在Excel文件中则无此限制，
VBA是现在可用的最容易学习、最容易使用同时也是最复杂的应用程序自动化语言（过去常常称为宏语言）之一。VBA语言的基础认识第一节：标识符一、定义标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常量、过程、函数、类等引用。二、命名规则（1）字母打头，由字母、数字和下划线组成，如A987b_23Abc（2）字符长度小于40，（Excel2002以上中文版本等，可以
上一篇回顾：VBA语法基础，语法是语言的基础基本语句1、控制程序流程语句(1) GoTo语句该语句将执行的程序转到指定的标签所在的语句指令，但不能转移到过程之外的指令。例如，在进行错误捕捉时，发生错误后，程序转移至标签所在处执行。(2) If…Then语句这种类型的语句用于条件判断中，当满足条件时，执行相应的语句；当条件不满足时，执行其它的操作。基本语法为：If <条件> Th
原创
2022-11-01 09:42:59
428阅读
