Dane - Filter nie dziala ?
Wklej w kod arkusza :[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "C47" Then If LCase(Target.Text) = "przelew" Then 'Przelew, PRZELEW, przelew Rows("48:49").EntireRow.Hidden = False Else Rows("48:49").EntireRow.Hidden = True End If ElseIf Target.Address(0, 0) = "C47:E47" Then 'jeśli pusta też ma odkrywać to...
[syntax=vbscript]Sub UkryjOdkryj() If [ZZ1] = 0 Then For x = 32 To 52 If Cells(x, "B") <> "" And Cells(x, "B") = 0 Then Rows(x).Hidden = True Next [ZZ1] = 1 Else For x = 32 To 52 If Rows(x).Hidden Then Rows(x).Hidden = False Next [ZZ1] = 0 End If End Sub [/syntax]
Private Sub Worksheet_Calculate() Rows("6:12").Entir... = Not Range("B1") End Sub Dodano po 56 Private Sub Worksheet_Change(ByVal Target As Range) - nie trzeba
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
Najprościej będzie z przekazaniem Nr wiersza: [syntax=vbscript]Sub Makro1(w As Long) Dim MyCell As Range For Each MyCell In Range("B" & w & ":Z" & w).Cells If MyCell = 0 Then MyCell.EntireColumn.Hidden = True Next MyCell End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Target.Address(0, 0) = "A2" Then If Target.Column...
[syntax=vbscript]Sub elka() Columns("D").Hidden = Application.Count(Range("D2:D" & Cells(Rows.Count, "A").End(xlUp).Row)) = 0 End Sub[/syntax] ps. dla liczb
Dzięki, pokombinuję z tym choć okazało się nie jest to wymagane. Mam z kolei inne pytanie dotyczące tego pliku. Zależy mi na tym, aby z tej tabeli (przykładu, który załączyłeś) stworzyć jakąś dodatkową tabelę np. w Arkuszu2 zawierającą sumy wartości z kolumn AO i AP wg firmy z kolumny B. Czyli dla załączonego przez Ciebie pliku chciałbym uzyskać taką...
Znalazłem rozwiązanie mojego problemu. Z niewiadomych przyczyn w ustawieniach zwykłego formantu pola wyboru, czyli klikając 'Formatuj formant' w zakładce 'Właściwości' nie ma możliwości zaznaczenia opcji 'Przenieś i zmieniaj rozmiar wraz z komórkami', co jest wymagane w przypadku ukrywania komórek w których te pola się znajdują. Rozwiązaniem jest obejście...
Hej, potrzebuje makro w excelu, które ukryje mi wiersze 7 i 8 gdy w komórkach B4 i B5 pojawi się wartość większą niż 85. Próbowałem przerobić kilka makr które tu znalazłem jednak nie są to zadowalające efekty. [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B4:B5" Then If Target.Value > 85 Then Rows("7:8").EntireRow.Hidden...
Cześć, mam problem którego nie potrafię rozwiązać, może jest mi ktoś w stanie pomóc. Mianowicie potrzebuje wykonać w swoim Arkuszu w Excelu automatyczne ukrywanie pustych wierszy, gdzie wartość w danej komórce jest mniejsza niż 1. Korzystam z takiego kodu VBA: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "E23" Then If...
Mam taki problem z macrem ukrywajacym wiesze jezeli komorki w kolumnie 5 sa puste. Makro tego typu musi być umieszczone w module arkusza , a nie w module ogólnym :cry: Dla uniknięcia problemów (np. tekstowego formatowania komórek w kolumnie 5 ) proponuję zmianę warunku ukrywania wierszy :D [syntax=vbscript]If Cells(RowCnt, ChkCol).Value = "" Then[/syntax]
.Resize( x , ok) - co za bardzo, to nie zdrowo
No to tylko makro np: Sub Makro1() Dim x As Integer Cells.EntireRow.Hidden = False x = WorksheetFunction.Match("C"... Columns("J"), 0) Do While Cells(x + 1, 10).Value = "C" x = x + 1 Loop Rows(x + 1 & ":65536").Hidden = True End Sub Nie robiłem zabezpieczenia dotyczącego...
Jak nie będziesz w stanie działającego rozwiązania dopasować do swoich potrzeb to nigdy niczego nie napiszesz.
Spróbuj z autofiltrem (makro nagrane rejestratorem i zmodyfikowane) Sub filtruj() Range("C5:C69").Au... ActiveSheet.Range("$C$5:$C$... _ Field:=1, Criteria1:=Array([d3], [e3], [f3], [g3]), Operator:=xlFilterValues End Sub Aby zupełnie...
1. Masz załączony pusty archiwum 2. Niech wszystkie checkboxy odpalają tą samą procedurę w zdarzeniu zmiany. Dalej to chyba jasne.
Bardzo ładny obrazek. Mój ładniejszy... https://obrazki.elektroda.pl/3545762400_...
W takim przypadku zastosuj to co napisałem wcześniej.
Generalnie Excel tak już ma, że zakres złożony traktuje jak osobne zakresy i drukuje je na osobnych stronach. "Rozumie" natomiast ukrywanie wierszy. Wierszy ukrytych nie drukuje, pomimo że są zawarte w obszarze wydruku. Wiersze można ukrywać ręcznie, za pomocą filtra lub za pomocą grupowania. Nie pokazałeś żadnego konkretnego przykładu, więc trudno...
dla przycisku tak daj takie samo makro tylko zamień True na False
Zrobiłem ukrywanie wierszy na arkuszu, w którym wprowadzam dane. If Target.Address = "$D$41" Then If Target.Value = 1 Then Rows("42:62").EntireRow.Hidden = False End If If Target.Address = "$D$41" Then If Target.Value = 1 Then Rows("63:355").EntireRow.Hidden = True ... i tak łącznie pojawia mi się piętnaście formatek do wpisywania danych. Po kliknięciu...
Witam Mam takie zapytanie w arkuszu jest utworzona baza pracowników z podziałem na działy. Czy jest możliwość ukrywania odpowiednich kolumn w zależności od zaznaczonego czekboksa i wartości w komórce. Chodzi o to że jak zaznaczę czeka umieszczanego w komórce d8, będą widoczne tylko kolumny Q, AD, AQ i tak dalej. Zrobiłem to ręcznie ale jest to po pierwsze...
A spróbuj If left(ctrl.Name, 8) = "CheckBox" Then
Na początku procedury wyłącz odświeżanie (1), na końcu włącz. Jeśli masz oprogramowane zdarzenia arkusza lub funkcje użytkownika w arkuszu, to wyłącz także zdarzenia (2). [syntax=vb]Application.ScreenUpdating = False '1 Application.EnableEvents = False '2 i = 1 Do ... Loop Application.EnableEvents = True Application.ScreenUpdating = True[/syntax]
Jeżeli CheckBox=True warunkowo ukrywa wiersze, =False odkrywa, to [syntax=vbscript] If CheckBox1 = True Then For i = 1 To lastRow If (StrComp(Cells(i, v_column).Value, "Scrap", vbTextCompare) = 0) Then Cells(i, v_column).EntireRow.Hidden = True End If Next i Else rows.EntireRow.Hidden = False End If[/syntax]
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
W sumie to jest mi to obojętne jak to będzie zrobione byle tabelka wklei się bez tych ukrytych wierszy i kolumn. Taki sam kod wykorzystuję w innym pliku i tam wszystko jest ok, tylko że ukrywanie wierszy jest przy pomocy filtra a w powyższym przypadku przy pomocy makra
takie zadanie dostałem A są wakacje. [syntax=vbscript]Const w As Long = 8 Sub Ukryj() If Cells(w, 1).EntireRow.Hidden Then For x = w To 1 Step -1 If Cells(x, 1).EntireRow.Hidden = False Then Cells(x, 1).EntireRow.Hidden = True Exit Sub End If Next Else Cells(w, 1).EntireRow.Hidden = True End If End Sub Sub Odkryj() For x = 1 To w If Cells(x, 1).EntireRow.Hidden...
http://obrazki.elektroda.net/93_12897560... Coś takiego?
Witaj Zdaje się że ukrywanie wierszy to tylko przez VBA można zrealizować. Niestety nie jestem specem od VBA, dlatego tylko tyle udało mi się wykombinować. Połączenie VBA z dodatkowymi dwoma kolumnami pomocniczymi. Ktoś bieglejszy w VBA pewnie by to zrobił lepiej i mniej łopatologicznie ;) W tych dodatkowych kolumnach szukamy poszczególnych miast, czy...
W zasadzie mozna to zrobić na trzy sposoby, mowa jest o drukowaniu arkusza bez "niechcianych" wierszy. 1. uzyć narzędzia Aparat fotograficzny 2. zastosować Grupy i konspekty 3. ukrywać wiersze niechciane Pozdrówka
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
Dobudowałem trochę - ale mimo kilkugodzinnych prób nie wyczaiłem gdzie w makrach są odpowiednie odnośniki aby coś pozmieniać. Pod przyciskiem OK formatki Świetnie działają przejścia i chciałem aby jeszcze w arkuszu WPIS w kolumnie D wpisywało cyfrę znajdującą się przy wybranej pozycji z SŁOWNIKA (kol A). W zależności od tej wartości wpłata będzie wpisywana...
Chodzi o warunek w E22 <> "PROPONOWANA ZMIANA WARUNKÓW UMOWY" Chowane lub grupowane wiersze to 22-26 i 41-46
1) Lista musi mieć ciągły zakres. Najlepiej wykorzystać do tego osobny arkusz. Trochę można zautomatyzować (patrz załącznik). Założyłem, że nazwa firmy w Arkusz1 występuje co 13 wierszy. 2) W przykładzie wykorzystałem VBA (Select Case) i ukrywanie/odkrywanie wierszy 3) j.w.
Jeśli chodzi o moją znajomość VBA to dno i 2 metry mułu To może jednak zamiast wchodzić w VBA zastosuj zwykły filtr. Tekst w komórkach w kolumnie "pokaż" możesz sformatować na biało i nie będzie ich widać. Ewentualnie zmień nazewnictwo żeby to było może trochę bardziej logiczniejsze z tym filtrem.
Pokaż jak "załadowany" masz cboCostCenter.Value (i jak wartości) to [syntax=vbscript]Val(cboCostCenter.Value...
Witam serdecznie. Potrzebuje aby wiersze tylko w jednym arkuszu o nazwie "PLAN DNIA" ukrywały się w momencie wpisania w kolumnie „K" np. „TAK". Chodzi o to, że prowadzę plik w którym codziennie pojawia się kilkadziesiąt wierszy z określonym zadaniem do wykonania, w momencie kiedy zadanie jest wykonane zaznaczam w kolumnie „K" słowo...
Ciekawa kombinacja :) Trochę nad tym pomyślałem ale wyszło (choć dziwie się że excel nie zgłasza odwołań cyklicznych). Zapewne można to uprościć ale już nie mam czasu. Nie przeraź się :) W c2 wpisz: =JEŻELI(E2="";MAX($C$1:C1)+1;JEŻELI(E2>0...
Nie rozwiązano na forum
Bardzo fajny pomysł a da się bez ukrywania wierszy na zasadzie zrównania koloru czcionki z tłem ?
Witam, znalazłem na forum ciekawy dla mnie mechanizm ukrywania wierszy jeśli wypełniona jest komórka. Nigdzie nie mogę znaleźć analogicznego (prawie analogicznego) rozwiązania dla kolumn. Mianowicie chodzi o to by (np.) jeśli wypełnione są wszystkie komórki wiersza "E" to cały wiersz automatycznie się ukrywał. Pozdrawiam: keszybz
Mogłoby to być coś takiego: [syntax=text]Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$D$3" Then With Union(Rows("42:47"), Rows("56:76"), Rows("82:84"), Rows(91)) If Cells(3, 4) = "Badanie wstępne" Then .EntireRow.Hidden = True Else .EntireRow.Hidden = False End If End With End If End Sub [/syntax]Nie ma sensu, żeby...
Szukam makra, które: gdy wartość w kolumnie M="tak" ukryje komórki z kolumn A:R w danym wierszu i przesunie dane do góry o wszystkie scalowane wiersze, czyli jeśli np. wiersz 1 i 2 , w kolumnie M jest scalowny i jeśli w tej komórce widnieje opis "Tak" to oba wiersze (1 i 2) przesuną się do góry
O to ciekawe rozwiązanie. O ukrywaniu wierszy nie pomyślałem. To rozwiązanie mi się przyda. Dzięki.
A tak w ogóle, to poczytaj o [url=https://learn.microsoft.com/pl-pl/d... podzielić pojedynczą instrukcję na wiele wierszy, bo takiego kodu w jednej linii, jaki zamieściłeś, nikt nie ogarnie.
Powrócę do tematu. :-( Zrobiłem takie ukrywanie na arkuszu, w którym wprowadzam dane. Wydruk natomiast 'wychodzi' z innego arkusza, do którego przenoszą się dane. Potrzebuję też żeby i tam się ukrywały/pojawiały wiersze na podstawie wprowadzonych danych w tym pierwszym arkuszu. O ile temat jest prosty w aktywnym arkuszu, to po automatycznym przeniesieniu...
Witam, Proszę o pomoc, Potrzebuję makro w Arkuszu Google które usuwa lub ukrywa wiersz, w którym pole wyboru jest zaznaczone. W wierszach mam pole wyboru, zaznaczam niektóre z nich i wciskam button, który ukrywa lub usuwa zaznaczone wiersze. Fajnie jakby wyskoczył komunikat "czy na pewno chcesz ukryć/usunąć zaznaczone wiersze" Tabela jest w załaczonym...
Chcesz ukrywać całe wiersze zawierające zaznaczone komórki? To przecież wystarczy: [syntax=vbscript]Selection.EntireRow.Hid... = True[/syntax]niezależnie w jaki sposób te komórki zostały zaznaczone, więc kody można połączyć.
ukrywanie wierszy excel automatyczne ukrywanie wierszy makro ukrywanie wierszy
schemat podłączyć licznik elektryczny szyba ekran zwody zbrojenie
Asus Gamer - Czerwona dioda zasilania, laptop nie startuje Montaż wideorejestratora na grubym lusterku wstecznym
