Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 68381 Skopiuj do schowka Ukrywanie wierszy w zależności od wartości
Autor Wiadomość
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 151
Wysłany: 21-06-2020, 16:41   Ukrywanie wierszy w zależności od wartości

Witam
Potrzebuję ukrywać wiersze w 2 stałych zakresach zakresach: prostokątne (wiersze 6-13) i kołowe (wiersze 18-41)
Ukrywane mają być wiersze z wartością 0 lub lub puste w kolumnie "J".
W kolumnie "J" jest formuła, która pobiera ilości z arkusza specyfikacja.
Ukrywanie powinno działać po naciśnięciu przycisku (może być oddzielnie dla każdego zakresu).
Kolejny przycisk dla odkrywania ale z tym powinienem sobie poradzić.
Nie potrafię na ten moment nic z tematów forum dopasować. Może jakaś podpowiedź.
W załączeniu mój przykładowy plik.
Pozdrawiam

Ukrywanie wierszy 2020-06-21.xlsm
Pobierz Plik ściągnięto 8 raz(y) 703.04 KB

ID posta: 388898 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 661 razy
Posty: 3475
Wysłany: 21-06-2020, 17:28   

Zał. - "prostokątne". Zrób analogicznie dla "kołowe".
Kod:
Private Sub CommandButton1_Click()
Dim i&

For i = 6 To 13
    If Cells(i, 10).Value = "" Or Cells(i, 10).Value = 0 Then
        Rows(i).Hidden = True
    End If
Next i
End Sub

Private Sub CommandButton2_Click()
Dim i&

For i = 6 To 13
    Rows(i).Hidden = False
Next i

End Sub


---
edit: zrobiłem też dla "kołłowe"
.

Kopia Ukrywanie wierszy 2020-06-21.xlsm
Pobierz Plik ściągnięto 9 raz(y) 712.59 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
Ostatnio zmieniony przez umiejead 21-06-2020, 18:46, w całości zmieniany 2 razy  
ID posta: 388903 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 21-06-2020, 17:50   

W dziale problem z makrem podmieniłem załącznik z rozwiązaniem (sekcja kosztorys> przyciski kołowe i prostokątne)
dm
ID posta: 388906 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 151
Wysłany: 22-06-2020, 12:12   

Super
dziękuję
pozdrawiam
ID posta: 388935 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 151
Wysłany: 22-06-2020, 17:07   

Czy mocno się skomplikuje, jakbym chciał połączyć prostokątne i kołowe pod jeden przycisk?
żeby można było ukrywać i zakrywać jednocześnie prostokątne i kołowe jednym przyciskiem.
ID posta: 388960 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 151
Wysłany: 22-06-2020, 17:37   

czy to jest dobry trop?
Kod:
Private Sub CommandButton1_Click()
Dim i&

For i = 6 To 13
    If Cells(i, 10).Value = "" Or Cells(i, 10).Value = 0 Then
        Rows(i).Hidden = True
    End If
Next i
For i = 18 To 41
    If Cells(i, 10).Value = "" Or Cells(i, 10).Value = 0 Then
        Rows(i).Hidden = True
    End If
Next i

End Sub


Kod:
Private Sub CommandButton2_Click()
Dim i&

For i = 6 To 41
    Rows(i).Hidden = False
Next i

End Sub
ID posta: 388961 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 661 razy
Posty: 3475
Wysłany: 22-06-2020, 18:03   

Tak (Button3 i Button4 do wywalenia).
Chociaż też bym podzielił:
Kod:
For i = 6 To 13
    Rows(i).Hidden = False
Next i

For i = 18 To 41
    Rows(i).Hidden = False
Next i

Te głupie 4 linie mimo wszystko niepotrzebnie spowolniają działanie kodu.

Możesz spróbować jeszcze trochę "przycisnąć" kod - tak żeby nie próbował odkrywać wszystkich tylko same ukryte:
Kod:
If Rows(i).Hidden = True Then Rows(i).Hidden = False


PS. Chciałem napisać "naprawdę ukryte" - ale to zupełnie co innego :mrgreen: .
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 388962 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 1667 razy
Posty: 5448
Wysłany: 22-06-2020, 18:50   

To odkrywanie wierszy, jeśli jest bezwarunkowe, nie musi być w pętli, będzie szybciej:
Kod:
Rows("6:13").Hidden = False
Rows("18:41").Hidden = False
albo
Kod:
Rows("6:41").Hidden = False
Chyba praktycznie różnica czasu bez znaczenia.
ID posta: 388963 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 151
Wysłany: 22-06-2020, 19:37   

Dziękuję
Jeszcze do ukrywania wiersze w zakresach: izolacje i pomocnicze.
Te zakresy mają ustaloną wielkość ale ich pozycja zmienia się w zależności od zakresów: osprzęt Irmark, osprzęt i urządzenia.
Chciałbym, żeby również ukrywały się przy spełnieniu warunku zerowej lub pustej wartości w kolumnie "J".
Dodatkowo marzeniem byłoby ukrywanie się tych wierszy (zakresy: prostokątne, kołowe, izolacje i pomocnicze wraz osprzętem Irmark, osprzet i urządzeń) przy generowaniu kosztorysu.

Kosztorys 2020-06-22.xlsm
Pobierz Plik ściągnięto 5 raz(y) 766.42 KB

ID posta: 388965 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 22-06-2020, 21:41   

Piszesz w tylu wątkach, że nie wiem gdzie odpisywać.
1. dodałem liczenie w w zakresach
Cytat:
....marzeniem byłoby ukrywanie się tych wierszy.......................... przy generowaniu kosztorysu.
2 spełniłem marzenie
Zwróć uwagę na "podwójne" wykorzystanie makr ukryj_kołowe_prostok/izolacja/pomocnicze
podpięte są przez Call do makra kosztorys i makr przycisków.
3 zmiany na wstążce
Dodatkowo jeszcze kilka zmian w kodzie.
dm

Kosztorys 2020-06-22a.xlsm
Pobierz Plik ściągnięto 6 raz(y) 765 KB

ID posta: 388967 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 151
Wysłany: 23-06-2020, 15:16   

Trochę się pogubiłem nie chcąc za dużo namieszać. Chciałem problemy zgłaszać etapami. Mój plik jest bardzo obszerny i nie mogłem od razu wszystkiego przedstawić
Podpiąłem makra pod sortowanie i wklejanie. Zmodyfikowałem troche kosztorys, pod moje potrzeby. Wszystko działa nie wiem tylko czy dobrze zrobiłem, ze znaczniki w kolumnie AZ kosztorysu w przypadku izolacji i pomocniczych są zależne od wartości w kolumnie "J" bo taka jest potrzeba.
Może można to zrobić inaczej. Ja na ten moment tak wymyśliłem. Formuły mówią o co mi chodzi. Co i kiedy ma się ukrywać np. jak wartości 0 to ukrywa się cała podgrupa. itp.
Nie wiem czy mocno namieszam, jeżeli chciałbym aby podsumowanie zakresów było bezpośrednio pod podgrupami (tak jak w izolacji czy pomocniczych). Finalnie i tak musiałbym to ukrywać dla wydruku. To już kosmetyka. Wstążka jest super.
Pozdrawiam

Kosztorys 2020-06-23.xlsm
Pobierz Plik ściągnięto 5 raz(y) 783.01 KB

ID posta: 388996 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 23-06-2020, 22:48   

Nie doczytałem "zależne od wartości w kolumnie "J"". Poprawiłem.
dm

Kosztorys 2020-06-23.xlsm
Pobierz Plik ściągnięto 5 raz(y) 765.77 KB

ID posta: 389012 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 151
Wysłany: 24-06-2020, 09:31   

Dziękuję jest super.
Zerknij czy dobrze zmodyfikowałem prostokątne. Dołożyłem jeszcze podgrupę (będzie ich kilka.
Jeżeli jest to dobry tok rozumowania to sobie poradzę. Rozszerzyłem też izolacje i pomocnicze. Wszystko przewidziałeś. Jest ok.
Jakby można jeszcze wymusić numerację tylko do wierszy aktywnych (z wartościami większymi od zera w kolumnie "J". Dotyczy zakresów prostokątne, kołowe, izolacja i pomocnicze dla podgrup jak przy osprzęcie i urządzeniach.
Dalej nie ruszyłem do przodu w temacie jak umieścić moje menu na wstążce w moim finalnym pliku wraz z ikonkami. Jak działają ikonki i jak podpiąć czy zmodyfikować makro to będę wiedział. Podwójna funkcja przycisków (ikonek) jest super. W załączeniu mój plik.
Pozdrawiam

Kosztorys 2020-06-24.xlsm
Pobierz Plik ściągnięto 5 raz(y) 775.18 KB

ID posta: 389029 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 24-06-2020, 22:23   

Cytat:
Dalej nie ruszyłem do przodu w temacie jak umieścić moje menu na wstążce......
Zainteresuj się narzędziem "Custom UI Editor For Microsoft Office". Pozwala "łatwo" gmerać w xml-u, dodawać ikonki.
Ikonki ta są obrazki (png). Problem polega na znalezieniu odpowiedniego obrazka; te w pliku zrobiłem sam w pr. graficznym.
"Podwójna funkcja przycisków" to tylko togglebutton.
Nie przenosiłem Twoich zmian (zrobisz sobie jeszcze raz) i tak " Dołożyłem jeszcze podgrupę (będzie ich kilka.....", bo wcześniej dołożyłem przyciski w grupie ARKUSZE (oprogramowałem; cennik, aaa, wszystkie), może Ci przypasują.
dm

Kosztorys 2020-06-24b.xlsm
Pobierz Plik ściągnięto 11 raz(y) 774.17 KB

ID posta: 389050 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 151
Wysłany: 25-06-2020, 15:15   

Super
Wyprzedzasz mnie o krok.
Spróbuję pozyskać to narzędzie. Twoje ikonki są ok. i chętnie wykorzystam je w swoim pliku podobnie jak nowe pomysły, które podsyłasz. Wtedy może uda mi się pójść do przodu.
I tak powoli udaje mi się wszystko przenieść na mój plik. Teraz już tylko pasek narzędzi i pierwszy etap byłby zakończony. Nasuwają mi się nowe pomysły ale to już inne zagadnienie. Najpierw skończę to.
Dziękuję bardzo. Mój plik dzięki Tobie będzie super.
Pewnie będę miał jeszcze pytania odnośnie paska ale na razie nie mam narzędzia. Dodatkowym utrudnieniem jest słaba znajomość angielskiego.
Pozdrawiam
ID posta: 389072 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe