excel vba
logo_28
这个作者很懒,什么都没留下…
展开
-
VBA 不连续的多行一次选中操作
不连续的多行一次选中操作,比如复制或者删除。这个用法,还是与前面说到过的多行一次选中删除一样的原理。为了更好操作,将不连续的多行用个range对象装起来,即可方便操作。原理:将不连续的多行使用字符串装起来,各行号间用逗号隔开。格式如:myrow = "1,3,9"然后使用这个轮子,把字符串代表的行给转换成单元格对象:Function RowsSelect(ByVal Rowstr As String) As Range Dim cc As Variant, ran As R.原创 2021-12-10 17:36:38 · 3215 阅读 · 0 评论 -
VBA 计算两个时间相差多少分钟
VBA中时间的处理,涉及文本,数字,时间格式,这篇文章用计算两个时间的差值,把这三者使用的函数进行了简述。原创 2021-11-24 10:32:44 · 7736 阅读 · 0 评论 -
VBA 筛选结果存入数组
:自动筛选--获取可见行(数据)数据自动筛选,按第3列的缺勤进行筛选后,将筛选结果复制到F:H.Sub 获取可见数据() Dim LastRow As Long Dim Rng As Range, Rng1 As Range With ActiveSheet .UsedRange LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row '返回最后一行行号 Set Rng ...原创 2020-11-20 20:15:25 · 8936 阅读 · 3 评论 -
VBA 二维数组整体直接赋值的方法小结
一维数组可以通过这样一行代码来整体赋值:arr = Array("你", "我", "他", "1", "2", "3", "aa", "bb", "cc")那么,如果想给二维数组采用类似的方法来整体赋值,要怎么办呢?arr=array("你", "我", "他" ;"1", "2", "3" ; "aa", "bb", "cc"),好像不行。一番搜索,网上给出的答案有如下:第一种:使用[{}]将字符串括起来,字符串行间用分号(;)分割,列间用逗号(,)分割:arr = [{"你", "..原创 2020-10-26 20:31:11 · 10515 阅读 · 2 评论 -
VBA 批量打印多工作簿的指定工作表
要解决的问题:同一个文件夹有多个工作簿,工作簿中有相同格式的多个sheet表,其中有两个固定的SHEET需要打印(所有EXCEL工作簿表格中两个固定SHEET的名字相同)。每次打开这么多文档,再将表格一个个打印很繁琐,有什么快捷的方法可以直接打印这个文件夹下所有EXCEL表中这两个固定的SHEET表内容?解决思路:1、将要打印的工作簿放在同一个文件夹内,如:D:\mywbooks\2、使用dir在文件夹中遍历文件,然后打开工作簿,再打印指定的工作表,然后关闭文件。EXCELVBA代码如.原创 2020-10-10 20:11:57 · 5327 阅读 · 2 评论 -
VBA 批量打印单工作簿内所有可见工作表(sheet)
要解决的问题:一个工作簿中有相同格式的多个sheet表,手动点击一张一张打印,太慢了。能不能一次性打印?解决思路:1、sheet表做好后,提前设置好打印的格式设置;2、有默认的打印机。3、根据工作表数量进行循环,然后打印,打印份数默认设为1份。EXCELVBA代码如下: Sub test() Dim ws As Worksheet For Each ws In Worksheets If ws.Visible = xlSheetV...原创 2020-10-10 16:20:26 · 3709 阅读 · 2 评论 -
VBA 一次性选中符合条件的单元格 整行删除
有同学问:能不能使用union函数将符合条件的单元格所在行全部选中,然后删除.如下图:删除黄色底纹的标题行为此,给出代码如下:Sub test()Dim arr, myrow As StringDim cc As Variant, ran As Ranger = Sheet1.Range("b65536").End(xlUp).Rowarr = Sheet1.Range(B...原创 2020-04-08 22:36:58 · 6506 阅读 · 0 评论 -
excel vba 将jpg图片批量转pdf文件
网友问题:如何能够将jpg图片批量转成pdf文件,并将pdf子文件合并成一个文件.?为此给出解题思路如下:将jpg图片批量插入到word文档中,然后使用word的导出功能将文档转为pdf文件。主要步骤:1,使用Scripting.FileSystemObject对象遍历图片文件.2,建立word.application的引用Set appWD = CreateObject(...原创 2020-03-14 11:19:12 · 2228 阅读 · 0 评论