vba
进阶中的菜鸟
这个作者很懒,什么都没留下…
展开
-
【VBA、Excel】VBA创建excel工作薄
Function Create_New_Workbook() '新建工作薄 Application.ScreenUpdating = False Dim gzb As Workbook Dim mypath, i, wb mypath = ThisWorkbook.Path '获取当前工作薄所在的路径 Set wb = GetObject(mypa原创 2017-06-22 16:31:26 · 1077 阅读 · 0 评论 -
【VBA、Excel】VBA遍历当前目录下指定类型的excel文件并复制文件内指定的内容到新表中
最近在做水质分析数据录入的时候,需要根据监测井编号到多个excel表中查询该编号对应的井的水质分析数据,并将单口井的水质分析数据复制到新表中。由于检测中心给的水质分析数据很多,而且还分布在不同的工作薄中,一个个得查询再复制不仅工作量巨大、而且容易出错。因此编写了以下代码,让这部分工作实现自动化。这部分内容涉及的知识点有:多工作薄交叉复制、获取某一目录下所有excel工作薄、获取某一原创 2017-06-22 17:07:56 · 15555 阅读 · 2 评论 -
【VBA、Excel】2018.01.25解答excel吧友问题代码
本代码提供一个示例代码功能:以当前工作薄sheet1的第一列中的数据为名,新建工作薄(有多少列建多少工作薄),并将当前工作薄sheet2中的数据复制到新建的工作薄中;复制规则为:当前工作薄sheet2中第k列的数据复制到第k个新建的工作薄的sheet1中涉及知识:vba在指定目录新建工作薄、对指定路径中的工作薄的特定工作表进行操作Sub test() Dim row, pat原创 2018-01-26 00:06:01 · 296 阅读 · 0 评论 -
【VBA、Excel】excelVBA设置图片背景
Sub test()Dim st As Worksheet, sp As ShapeFor Each st In ThisWorkbook.WorksheetsFor Each sp In st.Shapessp.PictureFormat.TransparencyColor = RGB(255, 255, 255)NextNextEnd Sub原创 2020-02-13 00:55:50 · 921 阅读 · 0 评论