前面是自己纯摸索的，这篇跟着书看，我喜欢这种先自学了再看书的感觉form的自学方法属性窗口，按照分类排序按F1 可以查看帮助 1 窗体 form1.1 创建窗体 form (默认名：userform)在VBE里和插入模块一样，插入用户窗体即可1.2 如何运行/显示 窗体？1.2.1 显示窗体的代码方法据说，单写一句 userform1.show 也是可以的，因为VB
转载
2024-08-07 13:08:04
137阅读
目录使用 Do...Loop 语句直到条件为 True 时重复语句直到条件变成 True 才重复语句从循环内退出 Do...Loop 语句使用 For...Next 语句使用 For Each...Next 语句对某范围的单元格做循环在完成前退出 For Each...Next 循环使用 Do...Loop 语句可以使用 Do...Loop 语句去运行语句的块，而它所用掉的时间是不确定的。当条件为
转载
2024-06-03 22:50:16
624阅读
'1，VBA注释 'A，Rem 第一种注释方式(只能用于行收) 'B，'单引号为第二种注释方式 '例如： Rem 定义一个字符串变量 Dim wksName As String WksName = ActiveSheet.Name'获取当前活动的工作表名
原创
2011-09-17 11:59:07
1777阅读
'1，IF判断 Sub IfElseIfDemo() Dim Age As Integer Sheets("Sheet1").Select
原创
2011-09-17 19:59:10
1399阅读
VBA语句集
(第1辑)
定制模块行为
(1) Option Explicit '强制对模块内所有变量进行声明
Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示
Option Compare Text '字符串不区分大小写
Option Base 1 '指定数组的第一个下标为1
(2) On Error
转载
2012-07-24 21:55:40
935阅读
GoTo 语句无条件地转移到过程中指定的行。语法GoTo line必要的 line 参数可以是任意的行标签或行号。说明GoTo 只能跳到它所在过程中的行。注意 太多的 GoTo 语句，会使程序代码不容易阅读及调试。尽可能使用结构化控制语句(Do...Loop、For...Next、If...Then...Else、Select Case)。GoTo 语句示例本示例使用 GoTo 语句在一个过程内的
转载
2024-07-12 10:45:24
61阅读
vba基础知识汇总
1.工作簿事件写到THISWORKBOOK中，工作表事件写到sheet中，其他通用代码和函数子程序之类的写到模块中，窗体代码写到对应的窗体中，类相关的代码写到类模块中。2.If 句法，if 有两种写法，单行和块结构。 1、If 条件 Then 符合条件后的语句 2、If  
转载
2024-04-01 17:04:10
295阅读
前几天有网友提出这样的需求，文件夹里有n个txt文档，每个文档的内容都是一列数据，现在需要将所有txt导入到Excel，按列排放，如果手动操作的话，那是相当耗时间的，今天我来讲一下用VBA怎么快速实现将txt文档批量导入至Excel。首先，创建一个Excel宏文件，按Alt+F11调出VBA代码界面，插入一个模块，新建一个过程Sub写入以下代码00Sub inTxt()01 Dim
转载
2024-06-07 10:22:57
172阅读
大家好，我们今日继续讲解VBA代码解决方案的第76讲内容：如何导入文本文件。我们在日常的工作中经常会需要从其他的文件中把一些文本拷贝到EXCEL中，往往会由于格式的问题要很长时间才可以完成，这里我讲解一下利用VBA导入文本文件的办法。可以明显提高自己的工作效率，当然下面的代码不是万能的，可以根据自己的实际情况来修改编写。如果需要从文本文件中导入数据，可以使用OpenTextFile方法，应用于Fi
系列列表前言在本系列的上一节已经介绍了如何读写 excel 数据，并快速进行汇总处理。但有些小伙伴看完之后有些疑惑：那只是简单读写数据而已，但有时候我需要设置 excel 的格式。我用透视表不用写代码，两三下也可以弄出结果来。今天，我就沿用上一节的数据，把需求升级一下，以解决上述的疑点。本文要点：使用 xlwings ，设置单元格格式使用 pandas 快速做高难度分组操作注意：虽然本文是"Pyt
转载
2024-05-31 09:37:58
69阅读
Sub 项目状态查询()'如果“项目状态”是未转运营那么实施状态是不能选择的，因为还没有实施。
'如果“项目状态”选择状态后，那么项目名称里面只显示该状态的项目名称。如果“项目状态”选择的不是未转运营，那么“实施状态”也要选择，并确定项目名称的选项。
'如果“统计值”是项目数,那么标题行就是客户角色。如果是实施时长，标题行就是实施的时间。
lst = Range("a1048576").End(x
转载
2024-02-23 12:36:49
234阅读
前几天有网友提出这样的需求，文件夹里有n个txt文档，每个文档的内容都是一列数据，现在需要将所有txt导入到Excel，按列排放，如果手动操作的话，那是相当耗时间的，今天我来讲一下用VBA怎么快速实现将txt文档批量导入至Excel。首先，创建一个Excel宏文件，按Alt+F11调出VBA代码界面，插入一个模块，新建一个过程Sub写入以下代码00 Sub inTxt()01 Dim tx
转载
2024-04-29 09:27:19
373阅读
使用ADO连接外部excel数据源补充小知识：在不打开文件的情况下，抓取数据1）打开数据-现有连接-浏览更多，然后导入你要导的数据，就能在不打开该文件的条件下，进行透视，操作等。 然后就是通过VBA来实现这个小功能Sub test1()
MsgBox "叫""张三""的那个人" '想要输出：叫“张三”的那个人,那么需要多加一层“”，将里面的双引号转义
End Su
转载
2023-11-24 20:34:01
160阅读
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
299阅读
python open学习open()函数一般情况下,使用open()函数时只需要调入文件名参数，而不添加其它任何参数，就可以获取文件内容。相反，如果要向文件中添加信息，就必须制定一个模式参数，用来声明它准备做什么，这个模式参数才是open()的灵魂。以下下代码是open()函数的使用语法：open(name[,mode[,buffering]])
其中,name参数表示需要打开的文件名称，mo
转载
2023-08-08 09:10:42
122阅读
'
'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
3111阅读
今天有朋友留言反映，API改版后巨潮资讯爬虫失效了。之前正好更新了Kotlin版本的爬虫，由于各种语言实现的底层原理完全一致，移植到VBA也绝非难事。借此机会正好向大家具体展示 VBA爬虫的底层工具链以及VBA语言本身的魅力。问题分析改版之后巨潮资讯放弃了之前的服务器后台渲染的做法，采用可扩展性更好的JSON作为数据传递的媒介。简单抓包 response 返回的JSON字
转载
2024-07-08 07:16:33
127阅读
循环语句是很多人开始使用VBA的理由，因为在批量处理大量数据的多条件判断时，函数已经没办法满足我们的需求了。而VBA可以使用简单的循环完成这一工作。循环语句 1.For...Next语句 在上一篇我们介绍判断语句的时候，就使用了For..Next的循环语句，在这里简单的讲一下。 案例中循环语句的意义是，设置n=1到6的循环，每次循环分别在F2到
转载
2024-06-10 00:36:52
331阅读
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> 使用VB实现Excel自动获取外部数据Excel表
转载
2024-04-14 10:28:27
47阅读
open函数，该函数用于文件处理操作文件时，一般需要经历如下步骤： 1 打开文件
2 操作文件
3 关闭文件 一、打开文件 1 # 文件句柄 = open('文件路径', '模式') 打开文件时，需要指定文件路径和以何种方式打开文件，打开后，即可获取该文件句柄，日后通过此文件句柄对该文件操作。打开文件的模式有：r ，只读模式【默认,读文件，文件不存在；报错】w，只写模式【不可
转载
2023-08-14 11:28:31
99阅读
