寵物集市-寵物集市華東、華南、華北排行榜一覽表
355
2025-03-31
如何基于Excel中的單元格值打印某些頁面或工作表？
如何基于Excel中的單元格值打印某些頁面或工作表？
您是否曾經(jīng)嘗試過基于Excel中的單元格值打印某些頁面或工作表？ 以及如何實(shí)現(xiàn)呢？ 本文中的方法可以幫助您詳細(xì)解決它。
使用VBA代碼根據(jù)單元格值打印某些工作表 使用VBA代碼根據(jù)單元格值打印某些頁面
驚人的！ 在 Excel 中使用高效的選項(xiàng)卡，如 Chrome、Firefox 和 Safari！
每天節(jié)省50％的時(shí)間，并減少數(shù)千次鼠標(biāo)單擊！
例如，當(dāng)您在當(dāng)前工作表的單元格A1中輸入頁碼1時(shí)，您希望自動(dòng)打印某個(gè)頁面，例如當(dāng)前工作表的頁面1。 您可以執(zhí)行以下操作來實(shí)現(xiàn)它。
1.選擇包含要打印的頁碼的單元格，然后按 其他 和 F11 同時(shí)打開 Microsoft Visual Basic應(yīng)用程序 窗口。 然后點(diǎn)擊 插頁 > 模塊.
2.然后 Microsoft Visual Basic應(yīng)用程序 彈出窗口，請(qǐng)復(fù)制以下VBA代碼并將其粘貼到 代碼 窗口。
VBA代碼：根據(jù)單元格值打印頁面
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 鍵來運(yùn)行代碼。 在彈出 Kutools for Excel 對(duì)話框中，單擊 是 按鈕以打印特定頁面，或單擊 沒有 如果您不想打印，請(qǐng)按按鈕退出對(duì)話框。 看截圖：
然后將打開當(dāng)前工作表的特定頁面的預(yù)覽窗口，請(qǐng)單擊 打印 按鈕開始打印。
使用VBA代碼根據(jù)單元格值打印某些頁面假設(shè)您要在此工作表的單元格B2中的值等于1001時(shí)打印活動(dòng)工作表。您可以使用以下VBA代碼來實(shí)現(xiàn)它。 請(qǐng)執(zhí)行以下操作。
1.右鍵單擊 工作表標(biāo)簽 您要基于單元格值打印的內(nèi)容，然后單擊 查看代碼 從右鍵單擊菜單中。
2.然后 Microsoft Visual Basic應(yīng)用程序 彈出窗口，請(qǐng)復(fù)制以下VBA代碼并將其粘貼到“代碼”窗口中。
VBA代碼：根據(jù)單元格值打印工作表
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
備注：您可以根據(jù)需要在代碼中更改單元格和單元格的值。
3。 按 其他 + Q 關(guān)閉 Microsoft Visual Basic應(yīng)用程序 窗口。
在單元格B1001中輸入數(shù)字2時(shí)， Kutools for Excel 彈出對(duì)話框，請(qǐng)點(diǎn)擊 是 按鈕開始打印。 或點(diǎn)擊 沒有 按鈕直接退出對(duì)話框而不進(jìn)行打印。 看截圖：
提示： 如果要直接打印當(dāng)前工作表中的非連續(xù)頁面（例如第1、6和9頁），或僅打印所有偶數(shù)或奇數(shù)頁，則可以嘗試使用 打印指定頁面 實(shí)用程序pf Kutools for Excel 如下圖所示。 你可以去 免費(fèi)下載軟件，不受限制 30 天.
相關(guān)文章: 如何在Excel中創(chuàng)建動(dòng)態(tài)打印區(qū)域？ 如何僅在Excel中打印工作表的最后一頁？最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級(jí)功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項(xiàng)并執(zhí)行高級(jí)數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時(shí)，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報(bào)告：訪問各種附加圖表并生成富有洞察力的報(bào)告。
??? 強(qiáng)大的導(dǎo)航窗格：通過強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對(duì)于初學(xué)者來說輕而易舉，對(duì)于專家來說是一個(gè)強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時(shí)空！
閱讀更多
免費(fèi)下載... 采購...
Office Tab 為 Office 帶來選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
