如何将excel公式打印到Word中
发布时间：2023-07-01 23:06:12
有时我们需要将指定单元格或区域中的公式打印出来，以便分析。下面的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
投稿猜你喜欢
红警2是一款策略游戏、单机游戏，非常受玩家的欢迎。最近有玩家发现红警2的游戏速度太快了，手都跟不上游戏的运行速度，这可怎么办？下面小编就教教- 第一、故障描述今天去一家公司做电脑维护，有个客户说他用联想thinkpad x270笔记本办公的时候，经常电脑上的光标会自动跑，而且在做数据
- Win8无法连接到应用商店怎么办?相信很多人都用上了Win8系统了，Win8系统有一个很特别的功能，正是因为这个特别的功能，一部分用户才升级
- 360安全卫士不仅仅是一款清理垃圾、查杀木马、优化加速等的软件，它也会在用户的文档受到病毒侵害时保护文档，会在文档被加密隐藏并勒索钱财时，全
- 尽管Windows Vista和Windows 7上的Aero毛玻璃特效颇受用户欢迎，但微软还是冒着犯众怒的风险在Windows 8上将这个
- Win10夜灯模式打不开如何解决？最近一位Win10用户发现自己电脑的夜灯模式开关变成灰色的了，因此无法打开夜灯模式，该用户尝试卸载重装显卡
- Excel用SUMPRODUCT函数进行分组排名，对每个小组内的总量进行排名在H2单元格中输入公式：=SUMPRODUCT(($B$2:$B
- 在小红书社区，用户可以通过文字、图片、视频笔记的分享，记录了这个时代年轻人的正能量和美好生活，并通过机器学习对海量信息和人进行精准、高效匹配
- 打开一个电子表格，我们找到“工具”菜单，打开菜单，从中执行“选项”命令；在打开的选项对话框中，选择“安全性”选项卡。在安全性选项卡中， 把“
- 有网友反映Windows7系统在进行宽带连接时出现错误676的提示，这种情况怎么办呢？本文将提供宽带连接出现错误676的解决方法供大家了解，
- Win11如何启用启动修复 ? 本文就为大家带来了Win11执行启动修复的三种方法，需要的朋友一起看看吧启动修复是Windows系统中的一项
- DNF启动时提示文件已损坏如何处理？这是一个很蛋疼的问题，明明游戏好好的，更新之后就变成这样了，可能很多用户都会有怨气，无妨，因为笔者找到了
- 每当有新的系统测试版本发布，用户们总是希望能够尽快的体验，不过由于新的系统处于测试阶段，因而有着许多不完善之处。因此许多用户便想将测试的系统
- 苹果并没有生产过红色的 MacBook AIr，但这并不妨碍粉丝们构想这样一款产品，例如这款（PRODUCT）RED 的红色 MacBook
- 大部分优秀的专业书籍的最后都有索引目录，在制作索引目录之前，需要先标记索引项位置，才能生成索引的目录。创建索引最简单最直观的方法是手动标记索
- “透明度+颜色”渐变是我们在做PPT的过程中使用的比较多的一种形式，其原理很简单，就是将已渐变好的颜色加上透明度，这样使整个渐变过渡非常自然
- 用户在百度Hi中不仅可以添加同好的好友及群聊，还可以关注一些服务号以获得所需的服务。那么问题出现了，在百度Hi中要怎么添加服务号呢？下面小编
- 就输入 =OFFSET(Sheet1!$A$1，OFFSET函数的行偏移量由E9单元格指定，第二个比如叫数据，弹出的窗口是新建自定义名称。，
- 360WiFi连不上怎么办?360免费WiFi可以让一台电脑变成路由器发出无线网络，移动设备可以搜索到该无线网络进行连接上网，但是有些用户碰
- Excel工作表中的网格线虽然可以方便我们区分各单元格，但有时却不需要网格线，如工作表中仅包含文字内容时。这时可以将工作表中的网格线隐藏起来
