1

スクロールバーにリストにある数百のアイテムのうち10個だけを表示させようとしているExcelシートがあります。計算用に、フィールドを参照するスクロールバーを作成しました。スクロールバーが相互作用する各フィールドは、フィールド外でも参照されます。だから、なぜそれが機能しないのか想像できません。

何が起こっているのかというと、バーを上下にスクロールしても、その右側のテキストは移動しません。自分のパソコンかどうか知りたいのですが。それが私のコンピューターである場合、それを機能させるために何をする必要がありますか？私はVBAを使用していて、スクロールが機能しないようにするために誤って何かを無効にした可能性がありますが、わかりません。

誰か助けてもらえますか？

これが問題のワークシートです。

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

4

1 に答える 1

2

計算は手動に設定されています。

これを行う。下

Formulas TabクリックしてCalculation OptionsからクリックAutomatic

今それを試してみてください

ここに画像の説明を入力してください

ファローアップ

完璧です、これを実現する方法はVBAにありますか？私は自分のコードを調べて、これを手動にする場所があるかどうかを調べる必要があります...あると思うので。–マットリッジ1分前

計算がVBA経由で手動に切り替わる主な理由は2つあります

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 に答える