logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[Rozwiązano] excel [VBA] zmiana właściwości ScrollBar w arkuszu za pomocą makra

malfkap 13 Lut 2019 12:04 903 6
REKLAMA
  • #1 17774736
    malfkap
    Poziom 9  
    Posty: 10
    Ocena: 1
    Cześć,
    Próbuję za pomocą poniższego makra zmienić właściwości ScrollBar w arkuszu. Niestety po uruchomieniu makra, pojawia się błąd: "Run-time error '438': Object doesn't support this property or method"

    Sub Ustaw_ScrollBar()
        For Each wks In ActiveWorkbook.Worksheets
            If wks.Name = "aaaa" Then
                wks.Activate
                ActiveSheet.ScrollBar2.Max = Range("BS10").Value
                ActiveSheet.ScrollBar2.Value = 0
            End If
        Next wks
    End Sub


    Gdzie popełniłam błąd??
  • REKLAMA
  • Pomocny post
    #2 17774929
    Maciej Gonet
    Specjalista - VBA, Excel
    Posty: 2207
    Pomógł: 822
    Ocena: 479
    Na podstawie samego kodu, to nie jest oczywiste. Powinnaś załączyć plik z tym kodem i napisać w którym dokładnie miejscu kodu występuje błąd. Poza tym kod jest trochę dziwny. Ile masz arkuszy o nazwie "aaaa"? Po co ta pętla? Czy pasek ScrollBar ma faktycznie numer 2?
  • REKLAMA
  • #3 17774936
    malfkap
    Poziom 9  
    Posty: 10
    Ocena: 1
    Jest kilka arkuszy, w których chcę zmienić właściwości SB, natomiast tylko jeden nazywa się "aaaa". Błąd pojawia się w linii:
    ActiveSheet.ScrollBar2.Max = Range("BS10").Value
  • Pomocny post
    #4 17774972
    Maciej Gonet
    Specjalista - VBA, Excel
    Posty: 2207
    Pomógł: 822
    Ocena: 479
    Załącz plik, bo tak można długo wymyślać możliwe przyczyny. Czy w tym arkuszu istnieje obiekt o nazwie ScrollBar2? Czy możesz się do niego odwołać w trybie bezpośrednim?
  • REKLAMA
  • #5 17774982
    malfkap
    Poziom 9  
    Posty: 10
    Ocena: 1
    Nie mam możliwości załączenia teraz pliku. Tak istnieje obiekt o nazwie ScrollBar2 w arkuszu "aaaa".
  • REKLAMA
  • Pomocny post
    #6 17775012
    Maciej Gonet
    Specjalista - VBA, Excel
    Posty: 2207
    Pomógł: 822
    Ocena: 479
    To powinno działać, tylko u mnie bez "udziwniania" kodu.
    Kod: Text
    Zaloguj się, aby zobaczyć kod
    Załączniki:
    • ScrollBar.xls (44 KB) Musisz być zalogowany, aby pobrać ten załącznik.
  • #7 17775172
    malfkap
    Poziom 9  
    Posty: 10
    Ocena: 1
    Dziękuję. Pomogło

    Dodano po 1 [minuty]:

    Wykorzystałam podesłane rozwiązanie.

Podsumowanie tematu

✨ Użytkownik próbował zmienić właściwości ScrollBar w arkuszu Excela za pomocą makra VBA, jednak napotkał błąd "Run-time error '438': Object doesn't support this property or method". Po kilku wymianach wiadomości, okazało się, że problem dotyczył odwołania do ScrollBar2. Użytkownik otrzymał pomoc w postaci uproszczonego kodu, który działał poprawnie, eliminując zbędną pętlę i bezpośrednio aktywując arkusz "aaaa".
Wygenerowane przez model językowy.
REKLAMA