Excel利用VBA列出工作表中的所有公式
发布时间:2022-07-31 02:23:53
如果我们要查看一个工作表中的所有公式,可以用VBA来实现。下面的VBA代码可以在工作簿中插入一个新工作表,并在其中列出指定工作表中的所有公式、公式所在单元格及其值。使用方法是将VBA代码放入标准模块中,选择一个工作表,然后执行代码。
Sub ListFormulas()
Dim FormulaCells As Range, Cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer
'创建Range对象
On Error Resume Next
Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)
'没有找到公式
If FormulaCells Is Nothing Then
MsgBox "当前工作表中没有公式!"
Exit Sub
End If
'增加一个新工作表
Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = "“" & FormulaCells.Parent.Name & "”表中的公式"
'列标题
With FormulaSheet
Range("A1") = "公式所在单元格"
Range("B1") = "公式"
Range("C1") = "值"
Range("A1:C1").Font.Bold = True
End With
'读取公式,同时在状态栏中显示进度。
Row = 2
For Each Cell In FormulaCells
Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
With FormulaSheet
Cells(Row, 1) = Cell.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
Cells(Row, 2) = " " & Cell.Formula
Cells(Row, 3) = Cell.Value
Row = Row + 1
End With
Next Cell
'调整列宽
FormulaSheet.Columns("A:C").AutoFit
Application.StatusBar = False
End Sub
猜你喜欢
- 在用EXCEL中,我们常常用到函数,你知道该如何使用函数吗?下面小编就为大家详细介绍excel连接函数怎么使用方法,不会的朋友快快来学习吧e
- 在苹果发布 iOS 14 测试版之后,不少小伙伴纷纷抢先升级手上的 iOS 设备,希望第一时间体验到新的功能。但是 iOS 14 测试版存在
- win10系统刚安装完后,如果选择的是默认设置,自带的字体看起来会发虚模糊,这是因为没有正确的配置好。那win10字体模糊发虚要怎么设置?很
- WPS中怎么设置不同的页眉页脚在wps的使用中,通常会需要设置不同的页眉页脚,那么WPS中怎么设置不同的页眉页脚?小编来告诉你吧!按更换页眉
- 32位和64位的Office Tab 都有免费版本, 免费版本有极少部分功能及用途限制,无使用期限和注册提示框等限制32位和64位的Offi
- 有时用户希望页眉和页脚在打印输出时与页边距对齐。这时可以通过以下两种方法进行设置,用户可根据实际情况任选一种进行操作。方法一:切换至“页面布
- 其实这里说是文件格式的转化,也不大准确,因为小编要教的是将常见的doc后缀文件,改为html网页格式,这个技巧,相信一般的用户都没有用过。首
- 我协助很多企业客户批量部署过 Office ProPlus,其中被问到最多的问题就是为什么不能自定义安装路径,安装完成之后 C
- 你是否遇到过,Word中的空白页怎么样也删除不掉?Word上的空白页无法删除,是因为在Word文档中有多种类型的格式标记,很多时候隐藏在页面
- 编辑excel时,默认的按下回车后自动移到下一个单元格,但我们需要移动的方向是左或右,该如何设置呢?不懂的朋友会请多多学习哦,下面就跟小编一
- Excel是三大办公软件之一的一个软件,他经常用于数据的整理、分析、以及对比等。而有很多时候需要用到Excel里的直方图进行数据分析。下面是
- 小编在这里运用一个例子具体介绍:1、在d2处插入输入"=if("这时候表格就会提示if函数怎么用,第一列函数是,测试的条
- 很多网友不清楚Excel2021如何批量加前缀?这篇文章主要介绍了excel2021批量给单元格加固定前缀方法,需要的朋友可以参考下exce
- 当我们使用计算机进行日常工作学习时,某些情况下可能在运行应用程序时系统会出现该内存不能为red的提示。所以对于这个问题小边认为可能是因为我们
- reader只是阅读器,没有转换功能的。1,可以通过adobe acrobat pro转换,效果最好,但是比较大,安装完1G以上2,可以通过
- PV函数是返回某项投资的一系列将来偿还额的当前总值的函数,如何在excel当中使用呢?下面就跟小编一起看看吧。excel表格使用PV函数的步
- excel2013去除重复项的方法:去除重复项步骤1:首先打开一个具有重复项的excel文件,例子中的学生名册有一半的学生信息是重复的。我们
- 函数说明ISERR的主要作用是判断值是否为错误值(除去 #N/A)。函数语法ISERR(value)ISERR(需要进行检验的数值)参数说明
- 相信很多用户都能感受到在很长时间使用电脑的过程中会慢慢的变慢,如果一直下去就会非常的卡顿,那么当我们遇到这种情况应该如何去解决呢?其实解决起
- 今天小编为大家带来了在excel中使用if函数的一种使用方法,大家知道具体该怎么操作吗?还不会的小伙伴快快来看看下面的教程吧在excel中输