请问如何固定工作表中的图表不滚动

恋粉 · 发表于 2021-3-12 16:24

有个简单的数据跟踪表，希望左边的数据上下滚动时，右侧的双拆线图表能一直固定显示出来
同时也还需要冻结数据的前两行固定
拆分和冻结都尝试了，总无法固定上下滚动

恋粉 · 发表于 2021-3-12 16:55

只找到VBA可能实现——
[quite]Private Sub Worksheet_Activate() wkname = ThisWorkbook.ActiveSheet.Name Worksheets(wkname).ScrollArea = "j3:z43" End Sub）[/quite]

想看看是否有不使用VBA能实现办法？

493861364 · 发表于 2021-3-12 17:18

上传附件吧

begin2012 · 发表于 2021-3-12 17:21

可不可以用VBA动态控制图表显示的位置

恋粉 · 发表于 2021-3-12 17:52

493861364 发表于 2021-3-12 17:18
上传附件吧

平均值副本.zip (15.58 KB, 下载次数: 3)

麻烦优先用VBA之外的方式，先谢谢了

恋粉 · 发表于 2021-3-12 17:54

begin2012 发表于 2021-3-12 17:21
可不可以用VBA动态控制图表显示的位置

我自己回复自己的帖子，结果还在审核，想找除VBA之外的方式
应该可以用通过设置工作表的 ScrollArea属性这样的方式搞定吧

Private Sub Worksheet_Activate() wkname = ThisWorkbook.ActiveSheet.Name Worksheets(wkname).ScrollArea = "j3:z43" End Su

493861364 · 发表于 2021-3-12 18:32

本帖最后由 493861364 于 2021-3-12 19:33 编辑

恋粉发表于 2021-3-12 17:54
我自己回复自己的帖子，结果还在审核，想找除VBA之外的方式
应该可以用通过设置工作表的 ScrollArea属性 ...

试试这个效果

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.ChartObjects("图表 1").Activate
ActiveSheet.Shapes("图表 1").Top = Target.Top
ActiveSheet.Shapes("图表 1").Left = ActiveChart.ChartArea.Left
End Sub

复制代码

恋粉 · 发表于 2021-3-13 02:14

493861364 发表于 2021-3-12 18:32
试试这个效果

还要再麻烦哥们一下，我插入模块粘贴后，点运行弹出个宏名称，填上再点创建会提示这个弹窗
不会VBA，之前的代码都是这样搞的
还望再多指点一下怎么运行，感谢

493861364 · 发表于 2021-3-13 10:00

把代码贴到sheet1里试试

恋粉 · 发表于 2021-3-13 22:21

493861364 发表于 2021-3-13 10:00
把代码贴到sheet1里试试

也是同样的问题，弹出那个宏名称需要输入，但下面没有名字可以选择……
不知道怎么回事

		自动登录	找回密码
密码			免费注册

[求助] 请问如何固定工作表中的图表不滚动