利用VBA列出工作表中的所有公式
发布时间:2023-02-11 13:30:39
如果我们要查看一个工作表中的所有公式,可以用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
猜你喜欢
- 在日常工作或学习生活中,有的时候需要对一篇文档进行添加封面操作,如果手动进行操作的话,十分的不方便,而且不美观,如果能够利用Word的自有功
- Excel文档中,只想打印文档中的一部分,又不想重新排版,怎么办?1.选中打印区域2.点击菜单中【页面布局】选项卡3.点击【打印区域】图标
- 我们除了可以填充excel图表背景以外,我们还可以向excel图表的图例区域、绘图区域、图表背景或者图表的基地内填充背景,今天我们就了解下向
- ①启动Excel表格,单击左上角office按钮,然后点击另存为按钮。 ②弹出另存为对话框,设置好保存路径之后,单
- 我们在使用Win10的时候经常会需要使用到管理员账户,管理员就是权限不受控的人,针对系统或者一些应用可以使用,但是对于一些用户来说都不知道如
- 在Word文档中,掌握一些小技巧,可以帮助我们提高工作效率。下面给大家分享word标题样式怎么设置的快捷键小技巧。1、快速设置标题样式标题的
- 在使用Office中的Excel 2007中,我们可能会需要向一些空白单元格中写入相同的内容,办公用户更是经常要如此,如果手工一个一个输入的
- 大家在使用电脑系统的时候经常会出现一些小毛病,不知道大家有没有出现过电脑的任务栏没办法点击的情况,这时候可能是系统除了问题或者其他程序所导致
- 你是要把公式以文本方式显示在一个单元格中,还是只想看看这个公式?使用宏表函数可以得到一个单元格引用的公式宏表函数不能在单元格里使用,只能定义
- 在考生文件夹下打开文档word.docx,按照要求完成下列操作并以该文件名(word.docx)保存文件按照参考样式“word参考样式.gi
- 有时一篇文档很重要不想让别人看到,那就需要给自己的文档加个密码,那么如何给自己的文档加密呢?那么下面就由小编给大家分享下word2010中加
- 解决出现 The product can’t be install ont the selection update channel…无法安
- 本文讲解excel输入0的技法,主要使用到了设置单元格格式为没有小数点的货币格式来实现excel自动填充0.在excel栏目里面,之前的文章
- 不知道word如何设置页码从第三页开始,这是我们写毕业论文时要用到的,第一页是封面,第二页是目录,第三页才是正文开始,所以我们目录显示的页码
- 如何在word文档中间插入横向页面?这个问题其实在工作中经常遇到,有些部门经常在造册的时候有些表就是纵向的而有些是横向的,最后订成一个册子。
- 平时的学习工作中,word几乎是一种必备工具。当你一页一页的手打页码,当你一条一条输入目录。辛苦不说,还极易出错,那么下面就由小编给大家分享
- 有的朋友在玩OFFICE软件的时候,经常性忘记保存,导致有些时候文档没保存就丢失了,例如断电啊,等等情况。那么word文档没存盘被删除怎么找
- 演示动画操作步骤在Excel中也完全可以添加网页中一样超链接:选中作为链接对象的单元格(如G5),执行“插入→超链接”命令,打开“插入超链接
- 平时比较少用Excel的朋友都会遇到这个问题,在Excel表格中输入001之后,只会显示一个数字1,如何在Excel中输入0开头的数字呢?1
- 当excel表格中文字多的时候,我们需要将其换行,怎么设置为自动换行呢。以下是小编为您带来的关于Excel表格中的文字设置自动换行,希望对您