首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往
您找到你想要的搜索结果了吗?
是的
没有找到

撤销VBA工作操作

excelperfect 标签:VBA 当执行VBA过程代码后,如果想反悔,像在Excel中操作一样,使用Excel撤销功能或者按Ctrl+Z来撤销VBA代码对工作改变,不会起作用。...这里,在jkp-ads.com中找到了代码,可以用来撤销VBA工作操作。代码中,关键是两个类模块,创建了一个通用撤消处理程序,可以将其导入到任何项目。...类模块:clsUndoObject 这个类将“保留”必须更改对象(因此可能会改回)。此外,对对象所做任何更改都是在这个类中完成。最后,这个类记录更改后属性以前值。...这里程序可以撤消操作通常仅限于对对象属性更改,无法撤消插入或删除工作、刷新查询、更新数据透视等操作。...或者,在完美Excel微信公众号中发送消息: 撤销代码操作 获取原示例工作簿下载链接。 或者,直接到知识星球App完美Excel社群中下载原示例工作簿。

13710

杨老师课堂之Excel VBA 程序开发第六讲根据部门列创建工作

示例代码: Sub 根据部门创建并且完成数据拆分最终版() Dim sht As Worksheet '定义变量 sht作为一个工作对象 Dim i, k, j As Integer '定义变量...'根据部门建 For i = 2 To irow ' i 代表整数 从2到有效数据最后进行循环 k = 0 ' k 代表一个标记 初始化时...k = 0 那么 执行下列代表 但是如果不等于 则不执行 Sheets.Add after:=Sheets(Sheets.Count) '在最后一张后执行添加 操作...Sheets(Sheets.Count).Name = Sheet1.Cells(i, m) ' 添加名字wie 第一个单元格(行,列) End If '结束如果语句 Next...' 结束循环语句 '拷贝数据 :j 代表序号 For j = 2 To Sheets.Count ' 第一个单元格区域为 a1 到 f 有效数据最后一行 执行筛选

1.1K51

VBA程序:列出指定工作所有公式

标签:VBA 下面的VBA过程在指定工作中列出指定工作所有公式,包含具体公式、所在工作名称及其所在单元格地址。...rSheet As Worksheet Dim myRng As Range Dim newRng As Range Dim c As Range Dim endRow As Long '放置公式工作..., 可修改为你实际工作名 Set rSheet = Sheets("FormulasSheet") '要查找公式工作, 可修改为你实际工作名 Set sht = Sheets("Sheet1..." & endRow).Value = Mid(c.Formula, 2, (Len(c.Formula))) '放置包含公式工作名在列B中 .Range("B" & endRow..."") End With Next c On Error GoTo 0 '自动调整列宽 rSheet.Columns("A:C").AutoFit End Sub 注意,程序假设放置公式工作第一行是标题行

14310

VBA技巧:让代码识别工作形状

标签:VBA Q:我在工作中放置有一些形状,例如圆形、矩形等,我想当我在工作中使用鼠标单击这些形状时能够根据单击形状有不同操作,该如何实现?...我想在一个过程中实现,而不是每个形状关联不同过程。 如下图1所示,当我使用鼠标单击上方圆形时,会执行一个操作;单击下方矩形时,会执行另一个操作,但这两个形状都关联相同过程。...图1 A:在示例工作中,将上方圆形命名为“椭圆示例”,下方矩形命名为“圆角矩形”。...End If End Sub 然后,返回工作,在形状中单击鼠标右键,将其关联到宏过程testShape。当你单击工作形状时,结果如下图2所示。...图2 你可以代替过程中MsgBox行代码为你想要执行操作代码。

8810

Excel: 受保护工作使用筛选功能

文章背景:工作生活中,有时很多人都会用到同一份模板文件。为了防止文件内公式被修改,以及单元格误删除,往往都会给文件设置保护。受保护同时,希望可以正常使用筛选等功能。...(1)关于查找 设置保护后,如果要正常使用查找功能,需要确保查找范围内单元格没有勾选隐藏。 (2)关于筛选 设置保护后,如果要正常使用筛选功能,需要提前启用筛选模式。...选中标题行,然后选中菜单栏中筛选功能。最后再对表格进行保护设置,设置时勾选自动筛选这个选项。...dis_t=1663654969&vid=wxv_1829891023594913798&format_id=10002&support_redirect=0&mmversion=false 注意:在受保护状态下...参考资料: [1] 如何让受保护工作进行查找、筛选和排序操作(http://club.excelhome.net/thread-1029711-1-1.html)

3.2K10

EX-VBA:迄今为止最简单Excel工作密码解除方法

不知道是哪位大神发现这么一个类似Excel软件漏洞一样工作密码破解方法,太牛逼,分享如下,供忘记密码朋友应急使用: 『 动画解读 』 对于设置了工作密码工作簿,打开后,...具体操作步骤如下: Step-01:通过菜单【开发工具】-【Visual Basic】进入VBA编辑界面 Step-02:在VBA编辑窗口【立即窗口】中逐步执行以下代码(输完一句回车后再输入另一句并回车其中...sheet1为需要破解密码工作名称) sheet1.Protect AllowFiltering:=true sheet1.unProtect 逐步执行这两行代码后,工作密码将被解除...如果打开VBA编辑窗口时没有立即窗口,可以通过菜单【视图】-【立即窗口】调出来,如下图所示: 『 扩展应用 』 如果需要批量解除,可以自行加入循环控制语句,写成一个过程。...Worksheets sht.Protect AllowFiltering:=True sht.unprotect Next End Sub 在此再次感谢大神们分享

5.4K20

快速汇总多个工作簿工作数据(Excel工具推荐)

比方,我们有以下三个工作簿 这三个工作簿含有第一季度各品牌在各个国家销售数据,又分为若干不等工作。...我们需要将这些销售数据汇总做个统计,查看总体一季度销售情况,或者各个国家一季度情况,再或者各个品牌情况。这时候手头只有Excel,没有其他软件。...最笨办法是挨个打开这些工作簿,手动将数据源串联起来,然后做数据透视。可是 1.有时候数据源过大,超出单个Excel文件承载范围,你无法串联。...可以看到 1.所有工作簿所有工作都显示在了左侧列表里。这个时候我们可以选择部分工作簿/工作进行汇总,也可以全选,看需求而定。此处我们全选。...3.可以看到有“插入工作簿名”,“插入工作名”按钮,这两个按钮意思是是否需要将工作簿/工作名称作为数据透视字段,此处我们假设想看各月汇总情况,因此需要点击“插入工作簿名”。

10.6K10

Excel公式技巧14: 在主工作中汇总多个工作中满足条件

“三维”是经常应用于Excel中特定公式通用术语,这些公式不仅可以对单列或单行进行操作,也可以对由多列或多行组成单元格区域进行操作,还可以有效地对多个工作进行操作。...本文提供了一种方法,在给定一个或多个相同布局工作情况下,可以创建另一个“主”工作,该工作仅由满足特定条件所有工作数据组成。并且,这里不使用VBA,仅使用公式。...图3 想要创建一个主工作Master,其数据来源于上面三个工作中列D中值为“Y”数据: ?...D2:D10"),"Y"))) 可以根据实际情况,修改工作表列表和数据范围(D2:D10)。...k值,即在工作Sheet1中匹配第1、第2和第3小行,在工作Sheet2中匹配第1和第2小行,在工作Sheet3中匹配第1小行。

8.7K21

使用VBA删除工作多列中重复行

标签:VBAExcel 2010发布以来,已经具备删除工作中重复行功能,如下图1所示,即功能区“数据”选项卡“数据工具——删除重复值”。...图1 使用VBA,可以自动执行这样操作,删除工作所有数据列中重复行,或者指定列重复行。 下面的Excel VBA代码,用于删除特定工作所有列中所有重复行。...如果只想删除指定列(例如第1、2、3列)中重复项,那么可以使用下面的代码: Sub DeDupeColSpecific() Cells.RemoveDuplicates Columns:=Array...(1, 2, 3), Header:=xlYes End Sub 可以修改代码中代表列数字,以删除你想要列中重复行。...注:本文学习整理自thesmallman.com,略有修改,供有兴趣朋友参考。

11.1K30

隐藏工作簿中所有工作行列标题,VBA一次搞定

标签:VBA 有时候,我们不需要看到工作行列标题,如下图1所示。 图1 此时,可以修改Excel设置来实现。...单击“文件——选项”,在“Excel选项”对话框中,单击左侧“高级”选项卡,在“此工作显示选项”中取消选取“显示行和列标题”前勾选,如下图2所示。...图2 可以看出,这个设置只对指定工作有效,如果要隐藏工作簿中所有工作行列标题,则要逐个选择工作,并取消该选项选择。 如果工作簿中有很多工作,这样重复操作就有点浪费时间了。...这时,VBA可以出场了。...= False '遍历工作簿中工作 For Each wks In ThisWorkbook.Worksheets '名为"示例"工作除外 '你可以修改为自己工作

1.8K20
领券