如何将excel公式打印到Word

网友投稿 664 2022-12-03

如何将excel公式打印到Word中

有时我们需要将指定单元格或区域中的公式打印出来,以便分析。下面的VBA代码可以实现这个功能,可以将选择的单元格或区域中的公式打印到Word中,方便打印。

使用方法:

1.单击菜单“工具→引用”,在弹出的“引用 VBAproject”窗口中,勾选“Microsoft Word 11.0 Object Library ”

如何将excel公式打印到Word中

2.在VBA编辑器中,单击菜单“插入→模块”,在右侧的代码窗口中输入下列代码。

Public Sub PrintFormulasToWord(

Dim Cnt As StringDim C As Range

Dim WordObj As Word.ApplicationDim HasArr As Boolean

On Error Resume NextErr.Number = 0

Set WordObj = GetObject(, "Word.Application")If Err.Number = 429 ThenSet WordObj = CreateObject("Word.Application")Err.Number = 0End If

WordObj.Visible = TrueWordObj.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.TypeParagraphEnd With

For Each C In SelectionHasArr = C.HasArrayCnt = C.FormulaIf HasArr ThenCnt = "{" + Cnt + "}"End IfIf Cnt <> "" ThenWith WordObj.Selection.Font.Bold = True.TypeText C.Address(False, False, xlA1) & ": ".Font.Bold = False.TypeText Cnt.TypeParagraph.TypeParagraphEnd WithEnd IfNext CMsgBox "已完成将指定单元格公式打印到Word中。 ", , "打印公式到Word"

End Sub

3.在工作表中选择需要打印的区域,回到VBA编辑器中,运行代码。

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:EXCEL如何使用VBA汇总当前路径下的工作簿的相应的工作表?
下一篇:用VBA判断指定的excel工作簿是否打开
相关文章