1

我有一个 excel 表，我试图让滚动条显示列表中可能数百个项目中的 10 个。我创建了一个滚动条，让它引用一个字段，用于计算。滚动条与之交互的每个字段也会在字段外引用。所以我无法想象为什么它不起作用。

发生的事情是，当我上下滚动条时，它右侧的文本不会移动。我想知道是不是我的电脑。如果是我的电脑，我需要做什么才能让它工作？我使用 VBA，我可能不小心禁用了某些东西以使滚动不起作用，但我不知道。

有人可以帮忙吗？

这是有问题的工作表。

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

4

1 回答 1

2

您的计算设置为手动。

做这个。在下面

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并将其设置回代码末尾。

于 2012-06-05T13:19:49.820 回答