Sub SaveTextOnly() '备份文本 Dim p As Page Dim nPos As Long Dim strName As String Dim srAllShapes As New ShapeRange For Each p In ActiveDocument.Pages srAllShapes.AddRange p.Shapes.FindShapes() 'Add each ...
转载
2009-10-28 17:17:00
458阅读
2评论
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
307阅读
删除文档中所有内容为空的行Sub DelBlank() Dim i as Paragraph, n as Long Application.ScreenUpdating = False For Each i In ActiveDocument.Pange) = 1 Then i.R
原创
2023-04-23 07:04:57
1048阅读
最近有个朋友要处理很多的Excel数据，但是手工处理又太慢，让我帮忙处理。通过搜索和自己的编写，帮他写了几个脚
原创
2022-03-03 17:10:47
1053阅读
'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
1402阅读
目录使用 Do...Loop 语句直到条件为 True 时重复语句直到条件变成 True 才重复语句从循环内退出 Do...Loop 语句使用 For...Next 语句使用 For Each...Next 语句对某范围的单元格做循环在完成前退出 For Each...Next 循环使用 Do...Loop 语句可以使用 Do...Loop 语句去运行语句的块，而它所用掉的时间是不确定的。当条件为
转载
2024-06-03 22:50:16
628阅读
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阅读
//清除空列 Sub ClearNullMacro1() Dim j As Integer Dim colCount As Integer colCount = Cells(2, Columns.Count).End(xlToLeft).Column ...
转载
2015-11-13 15:05:00
293阅读
2评论
基本概念1 怎么样才能操作数据库？使用ADO建立和数据库的连接，然后用ADO对象和sql语言对数据库进行操作。2 SQL是什么?SQL（Structured Query Language)是一种查询语言，可以查询、更新数据库中的数据。3 SQL可以查询哪些数据库?SQL是一种通用的查询语言,可以查询EXCEL,ACCESS,SQL SERVER等各种数据库4 ADO是什么？ADO是新的数据库存取技
转载
2024-02-11 14:49:25
253阅读
系列列表前言在本系列的上一节已经介绍了如何读写 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阅读
access生成sql脚本，通过VBA调用ADOX。使用 MS Access 2016 的VBA，读取mdb文件中的所有表结构（数据类型/长度/精度等），生成对应的SQL create table语句，将结果SQL脚本保存到文件，每个表一行。access数据库中提取表结构，生成sql查询语句，通过sql脚本可以建表对原文代码做出的修改：原来的代码在生成文件后又使用了生成的sql语句进行创建，下面的
转载
2024-05-24 13:09:44
447阅读
学习VBA有时候会有一个阶段：一看代码就会，一写就错的感觉。归根到底还是眼高手低，对于代码不熟练。真正的勇士都是从一次一次的错误中总结经验，慢慢的减少代码错误。所以积累一些VBA错误提示及解决方法还是很有必要的。而对于出错提示，VBA不太人性化，一般只会惜字如金的提示一下。一般都要进行调试看下具体错误所在的行数，来有针对性的修改代码。 ▍常见错误总结错误通常都会有规律可循
转载
2024-05-06 17:14:03
335阅读
VBA 几个实用的界面控制函数
原创
2020-12-10 17:03:22
1856阅读
Excel规划求解的vba调用要用Excel自带的规划求解功能求解一个规划问题：首先在Excel中建立线性规划模型：如果没有开发工具选项卡，在文件–选项–自定义功能区–开发工具勾选上随后打开规划求解功能：开发工具–Excel加载项–勾选 规划求解加载项然后vba中要引用solver：alt+f11打开vbe编辑器，找 工具–引用–勾选 solver然后进行宏录制，就可以得到可以复用的代码了：之后进
转载
2024-05-31 07:43:12
119阅读
'
'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
3114阅读
选择当前活动的工作簿:ThisWorkbook.Activate如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀“.xls” ，例如：Windows("Totol.xls").Activate选择一个工作表：Sheets("Balance").Activate.选择单元格：Range("A1").Select选择连续的单元格：Range("A1:G8")....
转载
2009-10-29 10:21:00
331阅读
2评论
