Excel利用VBA将公式打印到Word中
发布时间：2022-04-17 23:40:53
有时我们需要将指定单元格或区域中的公式打印出来，以便分析。下面的VBA代码可以实现这个功能，可以将选择的单元格或区域中的公式打印到Word中，方便打印。
使用方法：
1.单击菜单“工具→引用”，在弹出的“引用 VBAproject”窗口中，勾选“Microsoft Word 11.0 Object Library ”
2.在VBA编辑器中，单击菜单“插入→模块”，在右侧的代码窗口中输入下列代码。
Public Sub PrintFormulasToWord(
Dim Cnt As String
Dim C As Range
Dim WordObj As Word.Application
Dim HasArr As Boolean
On Error Resume Next
Err.Number = 0
Set WordObj = GetObject(, "Word.Application")
If Err.Number = 429 Then
Set WordObj = CreateObject("Word.Application")
Err.Number = 0
End If
WordObj.Visible = True
WordObj.Documents.Add
With WordObj.Selection
.Font.Name = "Courier New"
.TypeText "工作表名称：" + ActiveSheet.Name
.TypeParagraph
.TypeText "单元格： " + Selection.Cells(1, 1).Address(False, False, xlA1) _
& " to " & Selection.Cells(Selection.Rows.Count, _
Selection.Columns.Count).Address(False, False, xlA1)
.TypeParagraph
.TypeParagraph
End With
For Each C In Selection
HasArr = C.HasArray
Cnt = C.Formula
If HasArr Then
Cnt = "{" + Cnt + "}"
End If
If Cnt <> "" Then
With WordObj.Selection
.Font.Bold = True
.TypeText C.Address(False, False, xlA1) & ": "
.Font.Bold = False
.TypeText Cnt
.TypeParagraph
.TypeParagraph
End With
End If
Next C
MsgBox "已完成将指定单元格公式打印到Word中。 ", , "打印公式到Word"
End Sub
3.在工作表中选择需要打印的区域，回到VBA编辑器中，运行代码。
0
投稿猜你喜欢
在Excel表格中我们可以根据自己的实际需要输入想要的内容，比如我们可以在表格中输入指定格式的日期等等。如果有需要我们还可以设置快速输入日期- 如何使用WPS表格制作个性二维码？平时制作二维码都是通过一些在线网站生成的，今天才发现原来 WPS 表格也是可以制作个性二维码的，比如文本、
- 小清新的风格，相信很多人都喜欢，特别是众多小女生，应该都对其毫无抵抗力。在熟悉了PPT中各种形状合并方式的基本操作之后，我们就可以一起来使用
- 不少玩家在安装游戏时遇到这样的错误提示：OpenGL版本过低，请升级显卡驱动！这种情况会导致玩家安装游戏失败，首先要知道，opengl是和显
- Word的段间距主要是指Microsoft Word或WPS软件中段落与段落之间的距离。以下小编整理的设置段间距的方法，供大家参考，希望大家
- Win10无法打开Windows Defender报错“0x80070422”怎么解决？Windows Defender是系统自带的杀毒程序
- Win7系统提示等待后台程序关闭的情况怎么解决？在我们平常电脑的使用中，随着使用时间越长，多少还是会出现一些问题，就比如近期有用户反映自己的
- 小伙伴们好啊，今天老祝和大家分享一期简单好玩还比较实用的内容：在题目库中随机抽取测试题。先看效果： 接下来咱们说说具体的操作步骤：
- 腾讯手游助手是一款在电脑上就可以玩上手机游戏的软件，而且大量优化了软件的特性，操作也非常方便，还可以轻松查看你的帧数，有些刚入手的玩家就不太
- 今天我们来介绍Excel中关于通配符的另外一个运用，即在筛选时使用通配符。实例一：例如：现有一份Excel表格，是关于客户的信息表，如下：我
- 现在的电脑不管是笔记本还是台式机，基本上都是用了USB3.0，但是一些比较老式的台式电脑依然是USB2.0借口，那么如何将其升级为USB3.
- Win10系统怎么设置远程桌面日志写入调试信息？有用户想知道如何允许通过远程方式连接自己的电脑，应该怎么设置，同时还想通过设置，将事件写入系
- 美图秀秀app是一款专业的图像处理软件。有着一键美颜以及私人相册等功能，对于如何创建私人相册还有很多小伙不知道怎么操作，那么接下来小编就为大
- 在excel表格中做一个含有三个参数的图表的方法很简单，下面就说说如何在excel表格中做一个含有三个参数的图表。01、先打开EXCEL空白
- 我们平时玩手机、电脑的时候可以发现，现在登录、注册各种网站和应用都十分方便，很多只需要授权QQ账号就可以直接登录。但是有些网站或者应用们已经
- Excel中经常需要使用到公式进行计算，用公式具体该如何进行计算呢?下面是由小编分享的excel2003运用公式进行计算的方法，以供大家阅读
- Win10预览版已进入RedStone测试阶段（RS1分支），目前对外发布的版本为11082。此前微软表示在今年1月要加快推送频率，前不久微
- 众所周知，当我们在使用电脑的时候总是会遇到各种各样的小毛病、大问题。最近小编的笔记本在外接耳机后发现根本听不到声音。在其他电脑上排除了耳机的
- 怎么在Word 2019中协作？大多数文档更改都是按顺序进行的：您先写一些东西，保存，然后其他人对该文档进行处理。如果您还不能解决混乱的情况
- 办公软件Word是我们这些上班族每日必备的工具，平常只是用它来办公处理文档用。在办公之余我们可能会在办公室偷偷的上下QQ，或者躲着玩玩小游戏
