垂直滚动不起作用。 高强

我有一个Excel表，我试图让一个滚动条只显示列表中可能的数百个项目中的10个。 我创build了一个滚动条，让它参考​​一个字段，进行计算。 滚动条交互的每个字段也在字段中被引用。 所以我无法想象为什么它不工作。

发生什么事情是，当我滚动栏上的文本右侧的文本不会移动。 我想知道这是不是我的电脑。 如果是我的电脑，我需要做什么才能使它工作？ 我使用VBA和我可能会意外地禁用了一些东西，让滚动不起作用，但我不知道。

有人可以帮忙吗？

这是有问题的工作表。

https://dl.dropbox.com/u/3327208/Excel/scrollnotworking.xlsx

Answer 1

您的计算被设置为手动。

做这个。 在下面

Formulas Tab点击Calculation Options ，然后点击Automatic

现在尝试一下

跟进

甜蜜的完美，VBA有办法做到这一点？ 我必须通过我的代码，并找出是否有一个地方使这个手册…因为我认为有。 – 马特里奇1分钟前

计算通过VBA切换到手动主要有两个原因

1）您将其设置为MANUAL ，然后忘记将其设置回来。 例如

 Sub Sample() Application.Calculation = xlCalculationManual '~~> Rest of your code End Sub 

2）开始时将其设置为MANUAL ，最后将其设置为AUTOMATIC ，但仍保持MANUAL 。 这主要是因为你没有包含正确的Error Handling因为代码过早地从程序中退出。 看到这个例子

错误的方法

 Sub Sample() Application.Calculation = xlCalculationManual '~~> Rest of your code Application.Calculation = xlCalculationAutomatic End Sub 

首选的方法

 Sub Sample() On Error GoTo Whoa Application.Calculation = xlCalculationManual '~~> Rest of your code Letscontinue: Application.Calculation = xlCalculationAutomatic Exit Sub Whoa: MsgBox Err.Description Resume Letscontinue End Sub 

注意 ：如果需要，您还可以存储当前的Calculation状态，并将其设置回代码末尾（如果需要）。