阔别了好久的VBA这两天又有人让我做东西，就又捡了起来，在使用的过程中，发现遗忘的厉害，于是就想记录一下这两天用到的一些东西，以后有机会再补充吧。先贴一段简单的代码，先熟悉一下vba是怎么写代码的'设置行背景色
Private Sub SetRowColor()
'
' SetRowColor Macro
'
Dim currentSheet As Worksheet
Set currentShe
1. VBA在EXCEL中能解决什么问题EXCEL很好用，尤其是在数据统计和处理的时候，但是EXCEL本身提供的函数有它自己的局限性，很多特定的功能无法实现，用起来不够灵活，那么EXCEL中嵌入的VBA编程语言就可以解决这个问题，它可以： 处理若干单元格中重复的具有同一特征的数据。举个例子，一个单元格里面有字符和数字，现在想只保留单元格中数字，去除其他字符。这个可以用VBA语言中的循环语句+数字
转载
2023-10-03 20:13:41
297阅读
FileSystemObject对象模型，是微软提供的专门用来访问计算机文件系统的，具有大量的属性、方法和事件。其使用面向对象的“object.method”语法来处理文件夹和文件，使用起来十分方便（需Office 2000以后版本）。FileSystemObject并不是VBA的一部分，它是以一个COM组件的形式提供的。因此，要使用先要创建FileSystemObject对象。FileSyste
# 使用VBA在iOS上的Excel指南
作为一名新手开发者，学习如何在iOS上的Excel中使用VBA（Visual Basic for Applications）可以是一个有趣且具挑战性的过程。虽然iOS的Excel对VBA的支持非常有限，但我可以指导你如何在Excel的桌面版上使用VBA，并最终将其导入到iOS设备上。以下是一个逐步的指南，包括每一步的详细说明和代码示例。
## 整体流程
wps vba是款专用于wps办公软件的宏插件，可以利用VBA制作Excel登录系统，实现一些VB无法实现的功能，操作界面人性化，方便用户的操作，还可以利用VBA来Excel内轻松开发出功能强大的自动化程序。软件简介：wps vba是一款wps office插件，安装wps vba 7.1就可以让office支持一些vba功能了，主要用于执行自动化任务，规范用户操作，实现vb无法达到的功能，配合e
转载
2024-04-26 08:25:01
389阅读
VBA 类模块学习1 问题背景2 创建自己的对象3 属性过程4 创建集合4.1 `Collection` 对象创建集合4.2 在类模块中创建集合5 封装 本文中，大部分内容源于书籍《Excel 2007 VBA 参考大全》，ISBN：9787115311696。感谢原书第一作者及译者。 工作表模块、图表工作表模块、工作簿模块和用户窗体模块都是类模块。不过，这些模块都是特定类型的类
转载
2024-02-16 20:18:09
155阅读
在最近的工作中遇到很复杂的Excel的处理，仅仅用公式根本无法完成，百度搞了一天多，现在记录一下用到的语法；以防以后忘记，不喜勿喷。1. Excel和VBA1.1 vba如何编写1、首先打开Excel，右键点击sheet，选择查看代码，可以打开Excel编写代码的页面，语言采用vba语言 2、如下图，为编辑器页面的介绍1.2 代码同文件的保存当我们完成代码逻辑之后，保存并推出，会发现代码并没有保存
转载
2023-10-18 14:55:43
149阅读
Sub 宏1() ' ' 宏1 宏 ' ' Range("E3:E33").Select Selection.Copy tyear = 2010 tmonth = 1 For startIndex = 3 To 2701 Step 31 '2436 Range("E" & startIndex).Se...
转载
2018-03-22 03:26:00
643阅读
2评论
VB控件和对象：ScriptControl 控件3. ScriptControl 控件 Microsoft Script Control 控件可以创建运行任何 ActiveX(R) scripting 引擎，例如 Microsoft(R) Visual Basic (R) Scripting Edition 或Microsoft(R) JScript(TM) 的
转载
2023-08-21 17:25:01
782阅读
range().resize(x,y) 方法语法Range(i,j).resize(行数,列数) resize(x,y) 表示的区域，x是行，往下。Y是列，往右。重新定位出来的区域 resize() 得出的是一个区域范围！！！因为X 是表示行数，必须大于0因为Y是表示列数，必须大于0resize(x,y)可以为负数吗？比如 resize(-1
转载
2024-06-09 08:57:37
788阅读
大家好，我是东哥。经常给大家推荐好用的数据分析工具，也收到了铁子们的各种好评。这次也不例外，我要再推荐一个，而且是个爆款神器。Excel和Jupyter Notebok都是我每天必用的工具，而且两个工具经常协同工作，一直以来工作效率也还算不错。但说实在，毕竟是两个工具，使用的时候肯定会有一些切换的成本。最近，在逛GitHub突然发现了一款神器「PyXLL-Jupyter」，它可以完美将Jupyte
转载
2024-08-09 17:46:52
187阅读
1. 在工具栏中将"开发工具"菜单调出来，点击VBA script或者快捷键ALT+F11, 打开编程窗口 1. 下拉列表：选中要处理的单元格 数据 数据验证(数据有效性) 序列 输入示例:1,2,3 1. function和sub最大区别在两点 1.function可以返回值，sub则不可以返回值
转载
2017-05-24 08:47:00
923阅读
2评论
ThisWorkbook 返回一个 Workbook 对象，该对象代表当前宏代码运行的工作簿 Screenupdating Application的一个属性，是Boolean 数据类型，意思是屏幕窗口刷新是否打开,Application.Screenupdating=False，意思是屏幕窗口刷新关闭，可以加快程序运行，加在程序开头；Application.Screenupdating=True，意思是屏幕窗口刷新打开，加在程序结尾。以上两句应在程序调试好之后再添加。 VBA程序一般需要在开头结尾加上Screenupdating控制语句,以加快程序运行 Calculation Applica.
转载
2010-04-09 10:13:00
732阅读
2评论
VBA术语这些术语将在很多的模块中使用，因此理解其中的每一个术语都很重要。模块模块是编写代码的区域。如下图中，这是一个新的工作簿，因此没有任何模块。要插入模块，请导航到插入 -> 模块。当插入模块之后，就会有一个名称为“模块1”的模块被创建了。插入模块完成之后，就可以在模块中编写VBA代码，代码写在一个过程(Sub)中。 一个过程/子过程是一系列的VBA语句，指示要做什么工作。程序/过程程序
转载
2024-04-18 14:21:55
401阅读
在编写代码时，常需要依据指定内容在指定区域查找符合条件的单元格，这时就需要用查找的方法。在工作表中，可以执行【编辑】／【查找】命令查找指定的单元格，同样也可以利用在公式中使用Match 等函数对单元格进行查找。工具/原料 Excel 2013一、Find查找 1单元格范围.Fing. （查找内容，查找开始位置，搜‘索范围，单元格区配γ 搜索方式，搜索类别，区分大小写，区分全／半
转载
2024-03-04 17:04:38
661阅读
Sub 产品图片导出重新对应命名()
Dim Ad$, FileName$, sfolder$, Shp As Shape, FSO
Application.ScreenUpdating = False
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
转载
2023-06-27 21:59:20
206阅读
因为数组也是变量，所以，你必须用声明其它变量的类似方法声明数组——使用Dim语句。当你声明一个数组时，你便设定了该数组储存数据所需要的内存空间。数组声明的例子：Dim cities(6) As String
Dim daysOfWeek(7) As String
Dim lotto(6) As Integer
Dim exchange(5, 3) As Varian注意，变量名称后面带有括号以及括
转载
2024-03-21 10:22:09
378阅读
[内容为转贴,感谢原作者]
转载
2024-08-17 09:31:45
111阅读
第十二部分 ActiveX控件一、ActiveX控件属性ActiveX控件英文名称中文名称特殊属性通用属性CommandButton命令按钮caption\enable\visibleleft\top微调按钮无caption属性Label文本框OptionButton单选按钮GroupName、ValueSpinButton微调按钮控件Value、min、max案例：选择题考试系统Dim max1
例一、用cells(行，列)定位Private Sub CommandButton1_Click()Cells(12, 6) = IIf(Cells(1, 2) > 80, "优秀", "不优秀")'cells(2,3)表示第12行第6列位置显示后面的判断内容结果Cells(13, 6) = IIf(Cells(1, 11) <> "", "第一行第1列的内容是：" &
转载
2024-02-15 14:24:51
341阅读
