亞寵展、全球?qū)櫸锂a(chǎn)業(yè)風(fēng)向標(biāo)——亞洲寵物展覽會(huì)深度解析
1893
2025-03-31
如何在Excel工作表中插入浮動(dòng)表或文本框？
如何在Excel工作表中插入浮動(dòng)表或文本框？
如果您有一個(gè)表或帶有一些重要數(shù)據(jù)的文本框，即使您上下滾動(dòng)工作表，也希望它們始終在工作表屏幕上可見。 這可能是一個(gè)有趣的任務(wù)，本文中，我將介紹一個(gè)快速的技巧來(lái)解決它。
使用VBA代碼在Excel中插入浮動(dòng)表
使用VBA代碼在Excel中插入浮動(dòng)文本框
使用VBA代碼在Excel中插入浮動(dòng)表沒有直接的方法可以插入浮動(dòng)表，因此您需要將表數(shù)據(jù)轉(zhuǎn)換為圖像，然后應(yīng)用代碼來(lái)完成它，請(qǐng)按以下步驟操作：
1。 選擇要保持可見的數(shù)據(jù)表，然后單擊 復(fù)制 > 復(fù)制為圖片 在下面 首頁(yè) 標(biāo)簽，請(qǐng)參見屏幕截圖：
2。 在彈出 復(fù)制圖片 對(duì)話框中選擇 如屏幕所示 來(lái)自 外觀 部分，然后選擇 圖片 在下面 格式 部分，點(diǎn)擊 OK 關(guān)閉對(duì)話框，然后單擊一個(gè)單元格以輸出圖片，最后，按 按Ctrl + V 要粘貼此圖片，請(qǐng)參見屏幕截圖：
3。 將表格轉(zhuǎn)換為圖片后，然后右鍵單擊包含要始終顯示的表格圖片的工作表選項(xiàng)卡，然后選擇 查看代碼 從上下文菜單中，然后在打開的 適用于應(yīng)用程序的Microsoft Visual Basic 窗口，將以下代碼復(fù)制并粘貼到空白模塊中：
VBA代碼：在Excel中插入浮動(dòng)表：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Updateby Extendoffice
Application.ScreenUpdating = False
If Target.Cells.Count > 1 Then Exit Sub
With ActiveSheet.Shapes("Picture1")
.Top = ActiveWindow.VisibleRange.Top + 5
.Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
End With
Application.ScreenUpdating = False
End Sub
Copy
備注：在這段代碼中， Picure1 是您創(chuàng)建的圖像名稱，請(qǐng)根據(jù)需要進(jìn)行更改。
4。 然后保存并關(guān)閉代碼窗口，現(xiàn)在，當(dāng)您滾動(dòng)工作表并單擊一個(gè)單元格時(shí)，表格圖片始終保留在工作表的右上角。
使用VBA代碼在Excel中插入浮動(dòng)文本框要插入浮動(dòng)文本框，這也是解決此任務(wù)的VBA代碼。
1。 首先，您應(yīng)該從 開發(fā)商 標(biāo)簽，點(diǎn)擊 開發(fā)商 > 插頁(yè) > 文本框（ActiveX控件），然后繪制文本框，然后根據(jù)需要在文本框中輸入信息。 看截圖：
2。 然后右鍵單擊包含您要始終保持可見狀態(tài)的文本框的工作表標(biāo)簽，然后選擇 查看代碼 從上下文菜單中，然后在打開的 Microsoft Visual Basic應(yīng)用程序 窗口，將以下代碼復(fù)制并粘貼到空白處 模塊:
VBA代碼：在Excel中插入浮動(dòng)文本框：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Updateby Extendoffice
Application.ScreenUpdating = False
With ActiveWindow.VisibleRange
TextBox1.Top = .Top + 5
TextBox1.Left = .Left + .Width - TextBox1.Width - 45
End With
Application.ScreenUpdating = True
End Sub
Copy
備注：在這段代碼中， 文字框1 是您插入的文本框名稱，請(qǐng)根據(jù)需要進(jìn)行更改。
3。 然后保存并關(guān)閉代碼窗口，現(xiàn)在，當(dāng)您將工作表滾動(dòng)到任何位置時(shí)，插入的文本框始終保留在工作表的右上角。
最大化或最小化工作表窗口
為了最大化工作表窗口可以為用戶釋放更多的空間，在Excel中，您可以通過隱藏功能區(qū)，公式欄或狀態(tài)欄來(lái)最大化工作表窗口。 Kutools for Excels 工作區(qū)域 一鍵即可幫助您隱藏功能區(qū)。 下載并免費(fèi)試用 Kutools for Excel 現(xiàn)在！
最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級(jí)功能，可簡(jiǎn)化您在 1500 多種場(chǎng)景中的工作。
?? 卓越的數(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ì)。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對(duì)于初學(xué)者來(lái)說(shuō)輕而易舉，對(duì)于專家來(lái)說(shuō)是一個(gè)強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時(shí)空！
閱讀更多
免費(fèi)下載... 采購(gòu)...
Office Tab 為 Office 帶來(lái)選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購(gòu)...
版權(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)文章
