VBA
Gaodes
成功来自点滴的坚持
展开
-
VBA学习之从sheet1页复制到sheet2页
在学习VBA的时候遇到一个问题,想拷贝一个模板的数据,去网上搜索很多资料,都是杂的,现在整理下:如何拷贝?Worksheets("sheet1").Select '选择sheet1range("A1:F2").select ‘选择A1:F2的区域Selection.Copy ‘进行复制Work...原创 2019-05-26 17:20:58 · 8030 阅读 · 3 评论 -
VBA之sheet页的生成
在生成sheet页中有几种常用的方法,这里整理一下:1.直接生成sheet页:Worksheets.add '直接生成sheetActivesheets.name = "sheet1" ‘给当前生成的sheet页命名为sheet12.生成的sheet页在指定的页面前面Worksheets.add before:=Worksheets("sheet2") ...原创 2019-05-26 17:27:58 · 10287 阅读 · 1 评论 -
VBA之获取目录(一)
例子[01]一级目录 [02]二级目录 [3]三级目录 内容1 内容2.............................................................................................如何使用v...原创 2019-05-26 18:07:14 · 2566 阅读 · 0 评论 -
VBA之获取目录(二)
接上一篇,如果我们获取完目录,需要生成新的sheet页Sub main() Dim line As Integer Dim row As Integer Dim dic_arr(0 To 10) As String Dim dic_index As String Dim sheetname As String dic_index = 0 ...原创 2019-05-26 18:09:25 · 841 阅读 · 0 评论 -
VBA之跨文件复制拷贝
我们在使用VBA的时候,如果想对文件里面的内容进行跨文件拷贝,我需要使用到一种方法,首先对我们需要拷贝的文件,进行路径写死进行访问,如下代码示例: a = "xxx.xlsm" Workbooks(a).Activate Workbooks(a).Worksheets("Sheet1").Select ...原创 2019-06-23 09:34:01 · 10682 阅读 · 0 评论 -
VBA之单元格
我们如何对单元格进行公式赋值dim bookname as stringdim sheetname as stringdim rangename as stringWorkbooks(bookname).Worksheets(sheetname).Range(rangename).Formula = "=sum("E1")"对单元格里面的内容进行加粗Workbooks(...原创 2019-06-23 09:40:30 · 699 阅读 · 0 评论