Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

Excel VBA - warunkowe ukrywanie i odkrywanie wierszy

wielgot 28 Dec 2015 13:23 6486 8
  • #1
    wielgot
    Level 9  
    Mam pewien problem, z który sam nie potrafię sobie poradzić. Mam arkusz excela (w załączeniu plik) o nazwie charakterystyka i mam tam pewne zagrozenia, gdzie poprzez pole wybotu zaznaczam "ptaszkiem" czy dano zagrożenie istnieje czy nie. I jeżeli go nie ma, to pewna grupa wierszy musi się ukryć, a jeśli jest to ma się pojawić.
    I tak dla hałasu, gdy jest niezaznaczony, to ukryc ma się grupa wierszy od 6 do 12. I działa mi to pod warunkiem, że recznie wpisuje w tym przypadku w komórce B2 wartość 1 lub 2. Gdy w kodzie VB zmienie odwołanie do komórki C1 w której automatycznie przeskakuje wartość 1 lub 2 w zależności czy hałas jest zaptaszkowany czy nie, to wtedy ukrywanie wierszy lub ich pokazywanie nie działa.

    Proszę o pomoc, by działao to automatycznie po kliknieciu ptaszka zagrozenia hałasem.
  • Helpful post
    #2
    JRV
    VBA, Excel specialist
    Code:
    Private Sub Worksheet_Calculate()
    
    Rows("6:12").EntireRow.Hidden = Not Range("B1")
    End Sub


    Dodano po 56 [sekundy]:

    Private Sub Worksheet_Change(ByVal Target As Range) - nie trzeba
  • #3
    wielgot
    Level 9  
    Mam jeszcze jeden problem. Mam plik w którym w kolejnych wierszach prezentowane są dane poszczególnych pracowników. Jak z pomocą VBA doprowadzić do sytuacji, że jeśli w wierszu danego pracownika w kolumnie G pojawi się data zwolnienia to ten wiersz zostanie ukryty?
  • Helpful post
    #4
    JRV
    VBA, Excel specialist
    lub
    Code: vb
    Log in, to see the code

    lub odpalic dla aktywnego arkusza
    Code: vb
    Log in, to see the code
  • #5
    wielgot
    Level 9  
    Bardzo dziękuje za pomoc. A gdybym chciał by taki wiersz gdy wstawiamy pracownikowi datę zwolnienia nie tylko był ukryty ale przenosił sie do innego arkusza by mieć listę zwolnionych
  • #6
    JRV
    VBA, Excel specialist
    Code: vb
    Log in, to see the code
  • #7
    dl650
    Level 2  
    Witam,
    czy możliwe jest napisanie takiego kodu żeby po pierwszym kliknięciu na przycisk (wykonany z funkcji "Wstawianie -> Kształty") odkrywał konkretne wiersze a po drugim kliknięciu na ten sam przycisk te same wiersze ukrywał?

    Pozdrawiam
  • #8
    JRV
    VBA, Excel specialist
    Np. dla wierszy od 2 po 7:
    Code: vb
    Log in, to see the code