Spisie treści
Często zastanawiam się, dlaczego nie ma przepisu na dostosowanie maksymalnej wartości paska przewijania w Excelu na podstawie wartości komórki. Gdyby to było dostępne, pasek przewijania automatycznie dostosowywałby swoją maksymalną wartość, gdy zmienia się wartość komórki.
Coś, jak pokazano poniżej, mogłoby wtedy być możliwe:
Do czasu, gdy nie zostanie udostępniony przez zespół Microsoft Office, ta wskazówka może pomóc w połączeniu maksymalnej wartości paska przewijania z komórką.
Dostosuj maksymalną wartość paska przewijania w programie Excel
- Przejdź do zakładki Deweloper -> Wstaw -> Kontrolki ActiveX -> Pasek przewijania (kontrolka ActiveX)
- Nie masz zakładki dewelopera?? Przeczytaj tutaj, jak dodać kartę dewelopera do wstążki.
- Kliknij w dowolnym miejscu w arkuszu, aby wstawić pasek przewijania.
- Kliknij prawym przyciskiem myszy pasek przewijania i wybierz Właściwości.
- Ustaw połączoną komórkę jako C10 i zamknij okno właściwości.
- W tym przykładzie użyłem C10. Możesz mieć inną komórkę, w której masz maksymalną wartość.
- Kliknij dwukrotnie pasek przewijania. Otworzy się edytor VBA z kodem, który wygląda tak:
Private Sub ScrollBar1_Change() End Sub
- Dodaj linię, aby Twój kod wyglądał tak:
Private Sub ScrollBar1_Change() Activesheet.Scrollbar1.Max = Range("C7").Value End Sub
- Zamknij okno Edytora VBA.
- Przejdź do zakładki Deweloper i kliknij lewym przyciskiem myszy przycisk Tryb projektowania.
- Otóż to!! Pasek przewijania jest gotowy do użycia.
Zwróć uwagę, że skoro plik ma makro, musisz go zapisać w .xls lub .xlsm format.
Po zakończeniu konfiguracji i JEŚLI pasek przewijania nie działa, wykonaj następujące kroki:
- Przejdź do zakładki Deweloper, kliknij Tryb projektowania.
- Kliknij dwukrotnie pasek przewijania.
- W edytorze VBA naciśnij klawisz F5 lub kliknij przycisk Uruchom formularz podrzędny/użytkownika.
- Zamknij edytor VBA.
Wypróbuj sam… Pobierz plik