![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
gocpplua
这个作者很懒,什么都没留下…
展开
-
【一步一步学习VBA】WPS 使用 VBA
我安装了wps2016,无法使用VBA功能,安装了vba for 2013,还是不行。其实我们可以使用更老的吧,VBA for wps2012,下载路径如下:下载 (资源绝对好用,有问题请留言)下载以后我们就可以按照下述文章进行简单的VBA使用:点击原创 2016-08-01 23:43:27 · 15958 阅读 · 2 评论 -
【一步一步学习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 · 22158 阅读 · 2 评论 -
【一步一步学习VBA】将Excel的每行数据导出为txt文本
这里我就直接上源码:Sub 导出每行为txt()Dim i, j, arr(), brr(), myRow, myColarr = Sheet1.UsedRange '将工作表的内容放入arr数组中myRow = UBound(arr, 1) '计算出数组的行数myCol = UBound(arr, 2) '计算出数组的列数For i = 1 To myRow原创 2016-08-14 10:55:52 · 11224 阅读 · 5 评论 -
【一步一步学习VBA】创建用户自定义类或者自定义类型
不同类型的变量可以组合起来用来创建用户定义的类型(如熟知的 C 编程语言中的 structs)。当需要创建单个变量来记录多项相关的信息时,用户定义类型是十分有用的。可以用 Type 语句创建用户定义的类型,该语句必须置于模块的声明部分。用户定义类型可以用适当的关键字声明为 Private 或 Public,例如:Private Type MyDataType -或-原创 2016-08-14 10:08:59 · 9751 阅读 · 0 评论 -
【一步一步学习VBA】WORD 中创建表格进行单元格合并
在WORD中插入表格我们已经在多篇文章中进行描述了,现在我们需要做的是对插入的表格进行单元格行列的合并。在网上找了很久,发现都是行的合并,关于列的合并没有找到,于是我就只能自己写了,代码如下:Sub ctreatetable() Dim Tbl As Table Set Tbl = ActiveDocument.Tables.Add(ActiveDocument.Range原创 2016-08-07 10:46:52 · 9981 阅读 · 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 · 5919 阅读 · 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 · 6077 阅读 · 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 · 8653 阅读 · 1 评论 -
【一步一步学习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 · 38377 阅读 · 0 评论 -
【一步一步学习VBA】Excel VBA 获取指定单元格的数据并进行字符串匹配
从上一篇文章我们可以获取到指定单元格的数据,并判断出类型。这次要做的就是,如果这个单元格数据类型是字符串,我们就去进行子字符串的匹配,说的简单点就是判断指定单元格有没有我们需要找的字符串。例如:判断单元格J6有没有‘√’,代码如下:Sub aa() Set a = Range("J6") If InStr(a, "√") Then MsgBox (a)原创 2016-08-06 17:09:39 · 14556 阅读 · 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 · 4308 阅读 · 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 · 11418 阅读 · 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 · 5582 阅读 · 0 评论 -
【一步一步学习VBA】VBA获取单元格数值并弹窗显示
表格如下图:1122 21 2 3 11 2 1 2 123原创 2016-08-03 00:12:06 · 5757 阅读 · 0 评论 -
【一步一步学习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 · 16192 阅读 · 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 · 29666 阅读 · 1 评论