Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

excel - odkrywanie wiersza z innego arkusza

12 Lis 2015 11:33 1098 16
  • Poziom 7  
    Witam,

    Jestem zupełnie początkująca proszę o pomoc.

    W arkuszu info mam do wyboru opcję tak - nie. Jeżeli wybiorę tak to chciałabym,aby w arkuszu posumowanie w komórce A2 pojawiał mi się tekst (to juz zrobiłam). Jeżeli wybiorę "nie" to chciałabym, aby wiersz się automatycznie za pomocą makra ukrywał.

    Dołączam plik.

    Bardzo proszę o pomoc
  • Poziom 22  
    Dzień dobry. Proszę przypisać takie makro do kliknięcia w Nie:
    If Sheets("Posumowanie").Rows("3:3").RowHeight <> 0 Then
    Sheets("Posumowanie").Rows("3:3").RowHeight = 0
    End If

    a w Taku:
    If Sheets("Posumowanie").Rows("3:3").RowHeight = 0 Then
    Sheets("Posumowanie").Rows("3:3").RowHeight = 15
    End If

    oraz we właściwościach przycisków zaznaczyć 'nie przenoś ani nie zmieniaj razem z komórkami', aby nie pływał po arkuszu po ukryciu.

    --
    edit:
    wskazanie arkusza Podsumowanie
  • Poziom 7  
    Chyba nie działa tak jak chciałam :(
    Ukrywa mi owszem ale wiersz 3 w arkuszu info. Mi zaś chodziło, aby ukrywał wiersz 2 w arkuszu podsumowanie jak nacisnę "nie".
    Jeszcze raz prośba o pomoc.
  • Poziom 20  
    Witam
    Makro może być takie
    Sub ukryj()
    Sheets("posumowanie").Select
    Rows("2:2").Select
    Selection.EntireRow.Hidden = True
    End sub
  • Poziom 7  
    To makro ukrywa tylko wiersze, nie odkrywa zaś jak nacisnę "tak".
    Dalej problem istnieje...
  • Pomocny post
    Poziom 20  
    dla przycisku tak daj takie samo makro tylko zamień True na False
  • Poziom 7  
    Ok, dziękuję - właśnie o to mi chodziło. Mam jeszcze pytanie jak zrobić, aby po naciśnięciu na "tak" nie przechodził mi kursor automatycznie do zakładki podsumowanie tylko zostawał na swoim miejscu w arkuszu info?
    W tym makrze co napisałeś niestety mi się przenosi.
  • Poziom 20  
    Na początku makra wpisz
    Application.ScreenUpdating = False
    i na końcu
    Application.ScreenUpdating = True
  • Poziom 7  
    Chyba nie działa albo żle wkleiłam
    Poniżej kod (tylko już z mojego właściwego pliku na którym pracuję).
    Sub ukryjx()
    Application.ScreenUpdating = False
    Sheets("posumowanie").Select
    Rows("42:45").Select
    Selection.EntireRow.Hidden = True
    Application.ScreenUpdating = True

    End Sub


    Sub odkryjy()
    Application.ScreenUpdating = False
    Sheets("posumowanie").Select
    Rows("42:45").Select
    Selection.EntireRow.Hidden = False
    Application.ScreenUpdating = True
    End Sub

    Zerknij proszę czy dobrze wkleiłam, a jeżeli nie to zaznacz, w którym miejscu wkleić
  • Poziom 7  
    ale właśnie nie działa :(
  • Poziom 32  
    Zwyczajnie nie rób Select'ów
    Kod: vbscript
    Zaloguj się, aby zobaczyć kod
  • Poziom 7  
    Działa!!! Jeszcze raz dziękuję.
    To mam jeszcze jedno pytanie.
    Czy grupując poprzez pole grupy przyciski opcji można zedytować pole grupy, aby było niewidoczne, tj. nie było widać jego krawędzi?

    Jak to zrobić?
  • Poziom 32  
    To po kiego ci pole grupy jak nie chcesz krawędzi?
  • Poziom 7  
    Bo robię ankietę i w jednym arkuszu mam dużo opcji wiersz pod wierszem "tak-nie"
    I żeby je pogrupować muszę użyć pola grupy. Jak go tyle razy używam obraz mi się "zamazuje". Chciałabym by było domyślnie, ale niewidoczne
  • Poziom 32  
    Wiedziałem że nie potrzebujesz tego pola grupy, poczytaj na temat właściwości GroupName przy RadioBox'ie
  • Poziom 20  
    Zgadzam się z kolegą, niepotrzebnie użyłem select.
    Z drugiej strony jeżeli jest to ankieta to raczej nie udostępniamy ankietowanym gotowych odpowiedzi.
    Zmienił bym sposób pokazania tej ankiety (Zbyt dużo obiektów w jednym arkuszu dlatego wszystko się "Zamazuje")