如何基于Excel中的单元格值打印某些页面或工作表？

网友投稿 · 2023-10-31 13:10 · 在线excel · 阅读 534

Excel是许多职场人士常用的烦恼之源，学习相关技巧需耗费大量时间。简道云作为一款办公神器，能很好地替代Excel。它是一个在线表单和数据管理工具，支持PC端和手机微信浏览器操作。除此之外，简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理，满足不同需求。

如何基于Excel中的单元格值打印某些页面或工作表？

您是否曾经尝试过基于Excel中的单元格值打印某些页面或工作表？以及如何实现呢？本文中的方法可以帮助您详细解决它。

如何基于Excel中的单元格值打印某些页面或工作表？

您是否曾经尝试过基于Excel中的单元格值打印某些页面或工作表？以及如何实现呢？本文中的方法可以帮助您详细解决它。

如何基于Excel中的单元格值打印某些页面或工作表？

使用VBA代码根据单元格值打印某些页面

使用VBA代码根据单元格值打印某些工作表 使用VBA代码根据单元格值打印某些页面

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

例如，当您在当前工作表的单元格A1中输入页码1时，您希望自动打印某个页面，例如当前工作表的页面1。您可以执行以下操作来实现它。

1.选择包含要打印的页码的单元格，然后按其他和 F11 同时打开 Microsoft Visual Basic应用程序 窗口。然后点击插页 > 模块.

2.然后 Microsoft Visual Basic应用程序 弹出窗口，请复制以下VBA代码并将其粘贴到代码窗口。

VBA代码：根据单元格值打印页面

Option Explicit Sub Print_Pages() Dim xPage As Integer Dim xYesorNo As Integer With ActiveCell If Not IsEmpty(.Value) And IsNumeric(.Value) Then xPage = .Value Else: MsgBox "Please specify a cell and enter a page in cell" Exit Sub End If End With xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel") If xYesorNo = vbYes Then ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True Else Exit Sub End If End Sub

Copy

3。按 F5 键来运行代码。在弹出 Kutools for Excel 对话框中，单击是按钮以打印特定页面，或单击没有如果您不想打印，请按按钮退出对话框。看截图：

然后将打开当前工作表的特定页面的预览窗口，请单击打印按钮开始打印。

使用VBA代码根据单元格值打印某些页面

假设您要在此工作表的单元格B2中的值等于1001时打印活动工作表。您可以使用以下VBA代码来实现它。请执行以下操作。

1.右键单击 工作表标签 您要基于单元格值打印的内容，然后单击 查看代码 从右键单击菜单中。

2.然后 Microsoft Visual Basic应用程序 弹出窗口，请复制以下VBA代码并将其粘贴到“代码”窗口中。

VBA代码：根据单元格值打印工作表

Private Sub Worksheet_Change(ByVal Target As Range) Dim xCell As Range, xYesorNo As Integer Set xCell = ActiveSheet.Range("B2") If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub If xCell.Value = 1001 Then xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel") If xYesorNo = vbYes Then ActiveSheet.PrintOut Else Exit Sub End If End If End Sub

Copy

备注：您可以根据需要在代码中更改单元格和单元格的值。

3。按其他 + Q 关闭 Microsoft Visual Basic应用程序 窗口。

在单元格B1001中输入数字2时， Kutools for Excel 弹出对话框，请点击是按钮开始打印。或点击没有按钮直接退出对话框而不进行打印。看截图：

提示： 如果要直接打印当前工作表中的非连续页面（例如第1、6和9页），或仅打印所有偶数或奇数页，则可以尝试使用 打印指定页面 实用程序pf Kutools for Excel 如下图所示。你可以去 免费下载软件，不受限制 30 天.

相关文章: 如何在Excel中创建动态打印区域？如何仅在Excel中打印工作表的最后一页？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！

⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？轻松批量导入、导出、组合和调整数据。

📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。

🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。

📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。

🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。

***

*** *** ***

Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。每天将您的工作效率提高50％，并减少数百次鼠标单击！

*** *** ***

标签：图表

点击体验模板

免费注册简道云