1. VBA命名规则一个好的命名规则可以提高程序的可读性，减少错误发生的概率，命名规则不是一定的，不同的人有不同的规则和习惯，但在编程过程中，对于个人或工作组，一定要遵守相同的命名规则。1.1. 变量、常量、自定义类型和枚举表 1‑1概括了变量、常量的基本
vba基础知识汇总
1.工作簿事件写到THISWORKBOOK中，工作表事件写到sheet中，其他通用代码和函数子程序之类的写到模块中，窗体代码写到对应的窗体中，类相关的代码写到类模块中。2.If 句法，if 有两种写法，单行和块结构。 1、If 条件 Then 符合条件后的语句 2、If  
目录使用 Do...Loop 语句直到条件为 True 时重复语句直到条件变成 True 才重复语句从循环内退出 Do...Loop 语句使用 For...Next 语句使用 For Each...Next 语句对某范围的单元格做循环在完成前退出 For Each...Next 循环使用 Do...Loop 语句可以使用 Do...Loop 语句去运行语句的块，而它所用掉的时间是不确定的。当条件为
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 语句在一个过程内的
'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
一直以来只知道mysql_query("SET NAMES UTF8");是设定数据库编码的，但是一直不清楚“SET NAMES UTF8”是什么。 直到今天才知道 SET NAMES ...是mysql语句。 真的感觉到自己的功课还没做到家，现有知识储备比较匮乏。现将所查相关资料记下： 1、SET
转载
2018-01-19 14:04:00
209阅读
2评论
一直以来只知道mysql_query("SET NAMES UTF8");是设定数据库编码的，但是一直不清楚“SET NAMES UTF8”是什么。
直到今天才知道 SET NAMES ...是mysql语句。
真的感觉到自己的功课还没做到家，现有知识储备比较匮乏。现将所查相关资料记下：
转载
精选
2012-12-04 09:57:46
469阅读
一、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是新的数据库存取技
