如何将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编辑器中,运行代码。
![](https://www.aspxhome.com/images/zang.png)
![](https://www.aspxhome.com/images/jiucuo.png)
猜你喜欢
- 利用2013的快速填充功能搞定,注意向下拖拽的时候,按住鼠标右键。是右键!具体操作如下: 是不是很惊讶,原来这样就搞
- Excel中经常需要使用到输入日期的功能,日期具体该如何进行输入呢?下面是由小编分享的excel表格输入日期的方法,以供大家阅读和学习。ex
- 蓝屏问题是所有使用电脑的用户最常遇到的一个系统问题,有时候电脑用着用着就会突然出现一个蓝屏,所有工作戛然而止,系统给出了错误代码提示vide
- 字符匹配时要使用Like运算符,它可以使用样式字符串来选择行,表6.11列出了Like运算符可以使用的特殊字符。
- 我们在制作word文档的时候总会有在文档中插入图片制作图文并茂的文档的时候,但是插入的图片和文字一般都是错开的,那么还有更好的方法吗?下面给
- 本文实际涵盖了15个Excel函数,但是按照分类只分了十类。很难说哪十个Excel函数就绝对最常用,但这么多年来人们的经验总结,一些函数总是
- 在word中如何提取目录?我们打开Word,打开需要生成目录的文章(已生成页码),点击视图,大纲接下来我们要把目录分级,即:1级目录、2级目
- 问题:只想显示一部分日期,怎样把其余部分隐藏起来?方法:分列Step1:选中需要修改的单元格——数据——分列。Step2:固定宽度——点击下
- 这是一个老问题,网上也可以查到很多身份证号码中提取生日、年龄和性别的提取公式,这里本文再重新整理一下,有两个目的,一是答复一位同学的提问,二
- Excel制作时间轴,自定义展示图标,让老板眼前一亮,时间轴可以明显的看到所发生的事件在时间上的先后顺序。那么如何使用excel来进行制作呢
- 在Excel表格中输入数据的时候,为了简便快捷的输入,经常需要给Excel单元格添加一个下拉菜单,这样在输入数据时不必按键盘,只是用鼠标选择
- Win10电脑怎么使用一键局域网共享工具?许多小伙伴在公司传输文件的时候经常会觉得很慢,而且在传输一些大的文件的时候经常会在中断传输。其实我
- excel选择对象在编辑选择多个图表或图形对象时,经常使用到的一个基本操作。excel选择对象,分为选择部分和全部选择对象。下面逐一介绍一下
- 当工作表中有很多控件或者图片等对象时,一个一个去删除会非常的繁琐。案例阐述了如何一次性删除整个工作表中图形、控件和影音等对象,方便快捷当工作
- 不删文字轻松减小Word文件的大小,其实方法很简单,首先利用Word生成的文档,每页在20KB左右,在用记事本生成文档,相同的内容只有1KB
- 在Word2007中编辑完文档后,常常会为了方便阅读,打印成纸张的形式,而市场上有许多中纸张的规格,为了文档能和纸张更加契合,就需要对文档进
- excel中有一个大家不常用的功能:合并计算。利用它我们可以快速对比出两个表的差异。例:如下图所示有两个表格要对比,一个是库存表,一个是财务
- 现在有很多用户都在使用Word,而在word中进行一二 * 标题设置可以更好的排版,不过有很多小伙伴还不懂一二 * 标题设置大纲,其实操作起来十
- 一般来说我们重新系统是为了使电脑更加的流畅,但是我们在重装系统时经常会遇到各种问题,例如小编就遇到了重装系统之后一直转圈的情况,下面就和小编
- 第1步:打开数据表格,如下图所示:第2步:选中数据区域的空单元格,如下图所示:第3步:选择diy工具箱,如下图所示:第4步:选择定位引用中的