关注
分享
可以利用VBA使这些软件的应用更高效率，例如：通过一段VBA代码，可以实现画面的切换；可以实现复杂逻辑的统计（比如从多个表中，自动生成按合同号来跟踪生产量、入库量、销售量、库存量的统计清单）等。
gocpplua
这个作者很懒，什么都没留下…
展开
-
【一步一步学习VBA】将Excel内容导出为单个txt文件
这里我就直接上源码：Sub 导出txt1()Dim file As String, arr, i'定义文本文件的名称file = ThisWorkbook.Path & "\新工资表.txt"'判断是否存在同名文本文件，存在先行删除If Dir(file) <> "" Then Kill file'将当前的数据读入数组arr = Sheet1.Range("a1").CurrentR原创 2016-08-14 10:51:03 · 21824 阅读 · 2 评论 -
【一步一步学习VBA】Excel VBA 获取指定单元格的数据并进行字符串匹配
从上一篇文章我们可以获取到指定单元格的数据，并判断出类型。这次要做的就是，如果这个单元格数据类型是字符串，我们就去进行子字符串的匹配，说的简单点就是判断指定单元格有没有我们需要找的字符串。例如：判断单元格J6有没有‘√’，代码如下：Sub aa() Set a = Range("J6") If InStr(a, "√") Then MsgBox (a)原创 2016-08-06 17:09:39 · 14478 阅读 · 0 评论 -
【一步一步学习VBA】Excel VBA 获取当前单元格的数据类型
从上一篇文章我们已经可以获取某单元格的数据，现在我们只要执行：MsgBox VarType(curCell)就可以获取到类型，完整代码如下：Sub Macro1()'' Macro1 Macro' 宏由 cq 录制，时间: 2016/08/02x = Sheets("Sheet1").[a5]MsgBox VarType(curCell)End Sub我们会在弹窗看到一原创 2016-08-06 16:28:29 · 11265 阅读 · 0 评论 -
【一步一步学习VBA】Excel VBA 在当前目录创建一个excel表
首先我们新建一个EXcel表，然后调用出Visual Basic，同时写入代码：Sub AddNew()Dim path As String, filepath As Stringfilepath = ThisWorkbook.pathpath = filepath + "\Allsales.xls"Set NewBook = Workbooks.Add With NewBo原创 2016-08-06 16:07:35 · 5483 阅读 · 0 评论 -
【一步一步学习VBA】WORD 中创建表格并插入文本
Sub create()'' create 宏''Dim docActive As Document Dim tblNew As Table Dim celTable As Cell Dim intCount As Integer Set docActive = ActiveDocument Set tblNew = docAc原创 2016-08-03 22:30:34 · 8465 阅读 · 1 评论 -
【一步一步学习VBA】在WORD中插入文字
1、在活动文档末尾插入文字：Sub InsertTextAtEndOfDocument() ActiveDocument.Content.InsertAfter Text:=" The end."End Sub2、在所选内容前插入文字Sub AddTextBeforeSelection() Selection.InsertBefore Text:="n原创 2016-08-03 22:19:52 · 15718 阅读 · 0 评论 -
【一步一步学习VBA】VBA获取单元格数值并弹窗显示
表格如下图：1122 21 2 3 11 2 1 2 123原创 2016-08-03 00:12:06 · 5671 阅读 · 0 评论 -
【一步一步学习VBA】在当前选中的单元格右边插入1,2,3
Sub Macro1()'' Macro1 Macro' 宏由 cq 录制，时间: 2016/08/02' ActiveCell.Offset(0, 1).Range("A1").Select Selection.FormulaR1C1 = "1" ActiveCell.Offset(0, 1).Range("A1").Select Sele原创 2016-08-03 00:00:23 · 4165 阅读 · 0 评论 -
【一步一步学习VBA】WPS 使用 VBA
我安装了wps2016，无法使用VBA功能，安装了vba for 2013,还是不行。其实我们可以使用更老的吧，VBA for wps2012，下载路径如下：下载 （资源绝对好用，有问题请留言）下载以后我们就可以按照下述文章进行简单的VBA使用：点击原创 2016-08-01 23:43:27 · 15421 阅读 · 2 评论 -
【一步一步学习VBA】创建用户自定义类或者自定义类型
不同类型的变量可以组合起来用来创建用户定义的类型（如熟知的 C 编程语言中的 structs）。当需要创建单个变量来记录多项相关的信息时，用户定义类型是十分有用的。可以用 Type 语句创建用户定义的类型，该语句必须置于模块的声明部分。用户定义类型可以用适当的关键字声明为 Private 或 Public，例如：Private Type MyDataType -或-原创 2016-08-14 10:08:59 · 9639 阅读 · 0 评论 -
【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格
我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下：1111 222222 333333 444接着我们进行文件的读取，并且写入到Excel中，代码如下：Sub bb()Dim a, k%, i%Open "a.txt" For Input As #1 a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCr原创 2016-08-06 17:41:49 · 37899 阅读 · 0 评论 -
【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格（友好版）
上一篇文章我们提到：更好的处理方式就是读取将每一行，按照空格再分为不同的单元格代码实现如下：Sub bb()Dim a, b, k%, i%, j%, q%Open "a.txt" For Input As #1 a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) Close #1k = UBound(a)For原创 2016-08-06 17:57:40 · 29417 阅读 · 1 评论 -
【一步一步学习VBA】WORD 中创建表格进行单元格合并
在WORD中插入表格我们已经在多篇文章中进行描述了，现在我们需要做的是对插入的表格进行单元格行列的合并。在网上找了很久，发现都是行的合并，关于列的合并没有找到，于是我就只能自己写了，代码如下：Sub ctreatetable() Dim Tbl As Table Set Tbl = ActiveDocument.Tables.Add(ActiveDocument.Range原创 2016-08-07 10:46:52 · 9803 阅读 · 0 评论 -
【一步一步学习VBA】WORD 创建表格并合并表格
vba代码向word文档中插入表格并合并单元格，代码如下：Sub mergeCell()Dim Tbl As TableSet Tbl = ActiveDocument.Tables.Add(ActiveDocument.Range(0, 0), numrows:=2, numcolumns:=4) '在文档开头插入一个两行四列的表格With Tbl With .Borders原创 2016-08-07 09:44:37 · 5829 阅读 · 3 评论 -
【一步一步学习VBA】WORD 返回每个表格单元格的内容
返回每个表格单元格的内容，并将文字指定给相应的数组元素Sub ReturnCellContentsToArray() Dim intCells As Integer Dim celTable As Cell Dim strCells() As String Dim intCount As Integer Dim rngText As Range原创 2016-08-06 19:26:26 · 5955 阅读 · 0 评论