Note: The other languages of the website are Google-translated. Back to English

在Excel中滾動時如何始終保持圖表在視圖中?

如果在工作表中插入了圖表,則在向下滾動工作表以查看數據時,無法與下面顯示的屏幕截圖同時查看該圖表,該屏幕截圖必須是討厭的。 在本文中,我介紹了一個VBA代碼,即使向下或向上滾動工作表也可以始終查看圖表。

doc保持圖表在視圖1
doc向下箭頭
doc保持圖表在視圖2

始終查看圖表


箭頭藍色右氣泡 始終查看圖表

要在滾動工作表時保留圖表在視圖中,可以在VBA代碼下面應用以解決該問題。

1.右鍵單擊要保持圖表可見的工作表選項卡,然後單擊 查看代碼 形成上下文菜單。 看截圖:
doc保持圖表在視圖3

2.在彈出 Microsoft Visual Basic for Applications 窗口,將下面的代碼粘貼到空白腳本。

VBA:始終查看圖表

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
    Dim CPos As Double
    Application.ScreenUpdating = False
    CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.Shapes("Chart 2").Top = CPos
    ActiveWindow.Visible = False
    Application.ScreenUpdating = True
End Sub

doc保持圖表在視圖5

3.保存並關閉對話框,然後在單擊任何單元格時圖表將上下移動。
doc保持圖表在視圖6

筆記:

(1)在VBA代碼中,“圖表2”是您要保留的圖表名稱,您可以根據需要進行更改。

(2)此VBA不能始終查看一組圖表。


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (15)
4.75中的5評分 · 2評級
網站主持人對此評論進行了最小化
這很好,但我希望有一種方法可以隨滾輪移動,就像標題線一樣。 此外,如果我想選擇一個單元格,則需要單擊兩次。 第一次單擊移動圖表,但也選擇了圖表,因此我必須再次單擊以選擇單元格。
網站主持人對此評論進行了最小化
我在這段代碼的最後一行添加了“activecell.select”,它修復了雙擊問題。 它將自動選擇最後一個活動單元格,這將是您單擊以移動圖表的單元格。 希望這可以幫助。
網站主持人對此評論進行了最小化
這就是我需要的! 金的!
網站主持人對此評論進行了最小化
這個宏完全符合我的要求。 但是,它產生了另一個問題,我想知道您是否有解決方案。

雖然此宏處於活動狀態,但我無法選擇用於其他目的的單元格,例如格式化或合併它們。 單擊並拖動、shift 或 ctrl 工作以選擇一組單元格。 我只能選擇我單擊的一個單元格。 我經常想更改格式(背景、填寫公式等)。我能夠做到這一點的唯一方法是刪除宏、保存、更改格式、重新粘貼宏並保存。

有沒有更簡單的方法來做到這一點? 也許:

1.(首選)一個簡單的按鍵,可以暫時禁用宏,然後重新啟用它。

2. 一些代碼添加到宏中以允許選擇一組單元格。

丹尼斯
網站主持人對此評論進行了最小化
是否可以為 Google 表格構建類似的公式?
網站主持人對此評論進行了最小化
有沒有辦法限製圖表將重新定位到工作表上的高度? 我不希望它貼在第 8 行上方
網站主持人對此評論進行了最小化
Hola muchas gracias por el código, utilizando este código ¿ Hay alguna manera de limitar qué tan alto en la hoja se reubicará el grafico? por ejemplo, no quiero que se coloque encima de la fila 9. Ayuda por 青睞。
5中的5評分
網站主持人對此評論進行了最小化
我可以使用 Kutools 自動將 VBA 用於我的圖表嗎?
網站主持人對此評論進行了最小化
抱歉,Wangnuli,Kutools 暫時不支持此功能。
網站主持人對此評論進行了最小化
任何人都可以提供幫助。 當我按照這些步驟


私人子工作表_SelectionChange(ByVal Target As Range)
'更新通過Extendoffice20161111
將 CPos 調暗為雙倍
Application.ScreenUpdating = False
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("圖表 2").激活
ActiveSheet.Shapes("圖表 2").Top = CPos
ActiveWindow.Visible = 假
Application.ScreenUpdating = True
END SUB


我得到以下錯誤

運行時錯誤“-2147024809 (80070057)”:
找不到具有指定名稱的項目

當我調試
ActiveSheet.ChartObjects("圖表 2").激活
網站主持人對此評論進行了最小化
嗨,克里斯托,您需要將圖表名稱“圖表 2”更改為腳本中圖表的真實名稱。 您可以單擊圖表並在名稱框中查看其名稱。 看截圖:
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
網站主持人對此評論進行了最小化
對了謝謝。 提出問題後,我意識到我的圖表名稱是錯誤的
謝謝

PS。
你知道我如何在不點擊它必須跟隨的地方的情況下滾動時讓圖表保持可見嗎
網站主持人對此評論進行了最小化
我在取消選擇單元格時遇到問題,需要兩個圖表,所以我做了一些更改,現在似乎可以使用了。
要使用它,請輸入正確的圖表名稱。
*注意:這是兩個圖表


Private Sub worksheet_selectionchange(ByVal target As Range)
Dim chartposition As Double

chartposition = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.Shapes("圖表 2").Top = chartposition

ActiveSheet.ChartObjects("圖表 3").Top = chartposition + 250

END SUB
網站主持人對此評論進行了最小化
A mí me pasa que la siguiente vez que abro el archivo,el script ya no funciona。 Tengo que copiarlo, borrarlo, cerrar el archivo tras guardarlo, volver a abrir el archivo y volver a pegar el script en VBA。 ¿阿爾古納解決方案?
4.5中的5評分
網站主持人對此評論進行了最小化
嗨,將工作簿保存為 excel 宏啟用工作簿,下次打開時 vba 將工作。https://cdn.extendoffice.com/images/stories/comments/sun-comment/doc-macro-enable.png
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護