- 博客(17)
- 资源 (75)
- 问答 (1)
- 收藏
- 关注
原创 【一步一步学习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 11238 5
原创 【一步一步学习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 22212 2
原创 【一步一步学习VBA】创建用户自定义类或者自定义类型
不同类型的变量可以组合起来用来创建用户定义的类型(如熟知的 C 编程语言中的 structs)。当需要创建单个变量来记录多项相关的信息时,用户定义类型是十分有用的。可以用 Type 语句创建用户定义的类型,该语句必须置于模块的声明部分。用户定义类型可以用适当的关键字声明为 Private 或 Public,例如:Private Type MyDataType -或-
2016-08-14 10:08:59 9770
原创 【一步一步学习VBA】WORD 中创建表格进行单元格合并
在WORD中插入表格我们已经在多篇文章中进行描述了,现在我们需要做的是对插入的表格进行单元格行列的合并。在网上找了很久,发现都是行的合并,关于列的合并没有找到,于是我就只能自己写了,代码如下:Sub ctreatetable() Dim Tbl As Table Set Tbl = ActiveDocument.Tables.Add(ActiveDocument.Range
2016-08-07 10:46:52 10003
原创 【一步一步学习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 5925 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 6087
原创 【一步一步学习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 29700 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 38469
原创 【一步一步学习VBA】Excel VBA 获取指定单元格的数据并进行字符串匹配
从上一篇文章我们可以获取到指定单元格的数据,并判断出类型。这次要做的就是,如果这个单元格数据类型是字符串,我们就去进行子字符串的匹配,说的简单点就是判断指定单元格有没有我们需要找的字符串。例如:判断单元格J6有没有‘√’,代码如下:Sub aa() Set a = Range("J6") If InStr(a, "√") Then MsgBox (a)
2016-08-06 17:09:39 14565
原创 【一步一步学习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 11431
原创 【一步一步学习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 5620
原创 【一步一步学习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 8678 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 16269
原创 【一步一步学习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 4329
原创 【一步一步学习VBA】WPS 使用 VBA
我安装了wps2016,无法使用VBA功能,安装了vba for 2013,还是不行。其实我们可以使用更老的吧,VBA for wps2012,下载路径如下:下载 (资源绝对好用,有问题请留言)下载以后我们就可以按照下述文章进行简单的VBA使用:点击
2016-08-01 23:43:27 16002 2
原创 The source files...are both configured to produce the output file,The project cannot be built.
问题如下图:解决方案如下:
2016-08-01 19:20:55 2552
Snipaste工具
2019-01-30
vba6.3提取自WPS2012专业增强版
2016-08-01
BabeLua插件
2015-10-29
VS2010~2015 番茄助手VA_X
2015-09-20
番茄助手VA_X 2073
2015-09-20
cocos2dxHttp实战-星座运势
2015-08-01
FotoMorph(照片变形动画工具)
2014-12-09
2013-Deep Learning for Signal and Information Processing
2013-07-02
PEview.exe
2013-05-21
ext2explore
2013-05-13
vssettings
2020-12-08
EmEditorPro_30420.zip
2020-05-12
Dorado标注
2019-08-24
Review Assistant (支持VS2019)
2019-07-15
Navicat Premium.rar
2019-07-10
Review Assistant
2019-01-29
kubernetes下minio扩容
2023-08-08
cocos2dx 纹理丢失问题
2015-08-28
TA创建的收藏夹 TA关注的收藏夹
TA关注的人