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...
dla przycisku tak daj takie samo makro tylko zamień True na False
Lanzul a czym Twoje rady różnią się od moich? Dokładnie o tym samym pisałem. Ukrywane są kolumny od D (w vba jest makro które je ukrywa) czyli mają szerokość "0" oraz zablokowane są okienka. Powoduje to że w arkuszu wstawiana jest pionowa jak i pozioma czarna linia, która zakrywa obramowanie komórek. Ad 1. Jeśli przywróci się wartości liczbowe tym...
Makro to się samo uruchamia, jeśli podłączysz je pod swój arkusz pod zdarzenie change - wtedy jest z automatu wykonywane gdy cokolwiek się w arkuszu zmieni. Moje makro używa tego samego mechanizmu, w załączniku masz gotowy przykład już z osadzonym makrem. W makro Kolegi PRL musisz zrobić więcej poprawek, żeby działało pod Ciebie - będzie ono jedynie...
Jest zdarzenie arkusza FollowHyperlink , można je wykorzystać. Ukrywanie umieść w linkowanych arkuszach przy dezaktywowaniu... Prosty przykład w załączniku.
Macie może pomysł jak to zapisać żeby kod działał i żeby nie trzeba było robić tak ,,naokoło"? [syntax=vbscript]Sub zamykanie_miesiąca() For s = 2 To 73 If Sheets("Panel_Sterowania").Cells(4, s) = "TAK" Then Sheets("FTC.023").Columns(4 + s).EntireColumn.Hidden = True End If Next s End Sub[/syntax]
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...
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...
Spróbuj czegoś takiego: [syntax=vbscript]Sub Rozwiñ6_Zmienianie() Dim rn As Range Application.ScreenUpdating = False 'Range("a1").Value = InputBox("które dane pokazac") 'Range("a1").Value = Range("b3").Value Range("c502:c800").EntireRow.Hidden = False Dim rng As Range For Each rn In Range("c502:c800") If rn = Range("A492") Then If Not rng Is Nothing...
po kliknięciu nazwy obrazka w komórce A1 Tam będzie kilka takich nazww? Jeśli tylko jedna w A1, to nie ma znaczenia, czy jest nazwa, obrazek będzie tylko jedyn. p.s. Obrazek może być na pierwszym arkuszu, tylko nie widoczne.
Sam arkusz trochę dziwnie zaprojektowałeś. Przetestuj załączone rozwiązanie.
Proponuję rozwiązanie oparte na funkcjach UDF, które jest dość elastyczne. Nie wiem jak to ma działać - czy dane są wprowadzane i przeliczane jednorazowo, czy są potem zmieniane. Tu jest możliwość zmiany danych (z pewnymi ograniczeniami). Plik podstawowy (BAZA) musi zawierać makra, więc musi być zapisany w formacie wspierającym makra np. xlsm. Załącznik...
Niestety nie działa powyższe makro
Jak nie będziesz w stanie działającego rozwiązania dopasować do swoich potrzeb to nigdy niczego nie napiszesz.
Moim zdaniem sympatyczniejsze są formanty z przybornika. Można je łatwo kodować wpisując w obsłudze zdarzenia CheckBox1_Click() ukrywanie i pokazywanie pozostałych CheckBox-ów sprawdzając ich właściwość Value. Ukrywa się przez zmianę właściwości Visible.
jeżeli chcesz ukryć zawsze te same kolumny, to włączasz "zarejestruj makro" i w czasie nagrywania zaznaczasz kolumne --> prawym --> ukryj, wyłączasz nagrywanie i masz makro, powinno wygladać tak dla kolumny F: Columns("F:F").Sel... Selection.EntireColumn.Hidden = True jeżeli maja to być wskazane przez ciebie kolumny to robisz jak...
Wyrzuć co niepotrzebne w procedurach Thisworbook. Powinno zostać tylko chowanie kolumn.[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) ' i tutaj wstawiłem makro ukrywające ThisWorkbook.Save End Sub[/syntax]Wykorzystaj swoje makro. Żeby ukrywanie było skuteczne, musisz wymusić zapisanie pliku. Dlatego może okazać się niezbędne automatyczne...
W takim przypadku zastosuj to co napisałem wcześniej.
Ahaaa, okej. Czyli makro będzie dla każdej pojedynczej linii najpierw ją archiwizowało i od razu ukrywało. Masz łeb :) Dziękuję!!
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...
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]
makra, które umożliwiłoby ukrywanie kolumn z własnościami, które nie dot. dla danej pozycji, a odkrywało kolumny z właściwościami dot. danej pozycji. Jeśli dobrze zrozumiałem Twoje potrzeby :D to można taki efekt jak na zrzucie 986535 uzyskać poprzez makro Private Sub Worksheet_BeforeDoubleClick :idea: , a następnie poprzez makro Private Sub Worksheet_BeforeRightClick...
Potrafię jedynie skopiować kod i ew. go lekko przerobić aby znalazł zastosowanie dla mojego problemu. Twój opis jest nieprecyzyjny, a pliku przykładowego brak :cry: Skoro potrafisz przerobić makro to możesz zmodyfikować kod reakcji arkusza na wypełnienie komórki, oraz reakcji po doubleclick na widoczność komórki :spoko: 1037212
Zapewne chodzi o to, żeby otwarcie bez obsługi makr zablokowało arkusze. Można ukryć arkusze z atrybutem veryhidden, zostawiając jeden z informacją w stylu: "sorry, otwarto bez makr, czy cóś". Ukrywanie realizować przy każdym zamknięciu arkusza, a przy otwarciu odkrywać. Edycję VB ochronić hasłem, żeby nikt nie zmienił atrybutów. Edit: O, zdążyłeś wstawić...
Witam wszystkich forumowiczów i specjalistów. Piszę, ponieważ potrzebuje pomocy w zapewne trywialnej sprawie... Otóż.. Stworzyłem makro do arkusza, które w momencie spełnienia określonych warunków ukrywa lub odkrywa poszczególne wiersze w arkuszu. W tych wierszach znajdują się m.in. pola wyboru, które w momencie ukrywania wierszy nie ukrywają się, tylko...
Niestety też nie widzę opcji by nie było makra. Ale nie makro ukrywające tylko zwykłe wprowadzenie informacji do wydruku do ilu stron ma drukować. Czyli pod przycisk "wrzucić" [syntax=vb] Sub Druk() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("POŚW").Range("E22") End Sub [/syntax] I "drukować" przyciskiem.
Zapewne można napisać kolejne makro korzystając z worksheet_change, albo wstawić listę rozwijalną i z niej wybierać.
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ć.
Witam, Prośba o pomoc mam trzy pola checkbox, każde z nich ukrywa lub odkrywa wiersze które mają określone wartości. Lepiej lub gorzej ale radzę sobie żeby każdy checkbox działał osobno, ale chciałbym jeszcze dorzucić warunek, że kiedy wszystkie trzy checkboxy są odznaczone (false) to żeby wszystkie wiersze były odkryte. W załączeniu również plik z...
Może w sposób następujący: Ad.2 Zmieniłem formułę formatowania warunkowego. Nie wiem czemu służyło 'LICZ.JEŻELI', więc usunąłem. Ad.3 Procedura zdarzeniowa arkusza + (najprościej) ukrywanie kolumn. W obu przypadkach skróciłem zakresy. Nie znam miesiąca, który miałby 32 dni. Może w jakimś innym kalendarzu? ;) P.S. Pliki wersji >2003 trzeba spakować (ZIP,...
Dzień dobry, Moim zdaniem lepiej to zrobić funkcją użytkownika niż makro. Szkoda, że nie dał Pan załącznika z plikiem, bo nie bardzo wiadomo, co tam jest, czy dane są tylko stałymi, czy są też formuły, czy są tylko liczby, czy również teksty. Nie wiem też czy potrzebne jest ukrywanie wierszy, jest to dodatkowa czynność, czy potrzebna? Kluczową sprawą...
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...
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...
[syntax=vb]Sub UkryjKolumny0() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow ok = Cells(x, Columns.Count).End(xlToLeft).Column If Application.CountIf(Cells(x, 1).Resize(x, ok), 0) > 0 Then Cells(x, 1).EntireRow.Hidden = True x = x + 1 End If Next End Sub [/syntax]
Akurat kwestia tworzenia samego designu strony w oparciu o tabele to żaden kłopot więc nie zrozumieliśmy się - sądziłem że coś się zmieniło w budowie stron na ramkach (ostatnią stronę robiłem z 4lata temu). Co do opublikowywania w postaci htmla wprost z excela to pisałem że robi się totalna masakra i zupełnie nieczytelne biorąc pod uwagę 100kolumn....
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śli chodzi o korzystanie z pliku to nic trudnego. Wystarczy tylko kliknąć na okno z datą: miesiąc lub rok i pojawi Ci się okno z datą wtedy zadajesz datę którą chcesz i potwierdzasz a makro resztę (ukrywanie niepotrzebnych kolumn) zrobi już samo. http://obrazki.elektroda.pl/2150896600_1...
Chodzi o warunek w E22 <> "PROPONOWANA ZMIANA WARUNKÓW UMOWY" Chowane lub grupowane wiersze to 22-26 i 41-46
Hejka :) Czyli podywagowali wszyscy na temat (lub nie na temat) a odpowiedzi jak nie było tak nie ma :D Proponuję CI takie rozwiązanie... W ThisWorkbook w zdarzeniu open wrzuć ukrywanie/odkrywanie arkusza na podstawie loginu Windowsowego Twoich userów. To jest fajne pewne rozwiązanie, sam tego używam, nie muszą wtedy podawać żadnych haseł (masz taką...
Gwoli wyjaśnienia, szukam pomocy w zapisie kodu.. Przy użyciu poniższego zapisu, usuwa się tylko jeden wiersz. Nie wiem w jaki sposób zapisać aby jednak usuwało wszystkie scalowane wiersze. Dodam, że nie ma stałej ilości scalowanych wierszy. [syntax=vbscript]Sub UsunKomorki() Dim bs As Range, r&, i& Set bs = Range("A:R") r = bs(Rows.Count, 13).End(xlUp).Row...
Makro ukrywa wybrane komórki i uwidacznia inne.
Zrobiłem bez makr. Może ktoś Ci przerobi na makro. Łącze do formantu w komórce bieżącej, formatowanie niestandardowe ukrywające wpis ;;; formatowanie warunkowe określające kolor. Niestety łącza nie dają się kopiować, bo są zawsze adresami absolutnymi, nawet jeśli się je zapisze bez dolarów.
A skąd kolego masz ten pik z makrami "Skoroszyt.xlsm" ? Odpowiedz na pytanie Excela - czy masz go z zaufanego źródła ? :?: Zaufane źródła - z reguły nie ukrywają żadnych makr ani arkuszy typu "sheet8.xml" :D Otwórz sobie jakiś nowy skoroszyt, wprowadź jakieś dane i zapisz go raz jako zwykły skoroszyt(1) xlsx, a potem zapisz ten sam skoroszyt(2) jako...
https://obrazki.elektroda.pl/4586766500_... Widzę, że się udało. W załączniku przykład tabeli Excela. Jeśli tabela ma wiersz podsumowania, to wstawianie nowych wierszy odbywa się tabulatorem w ostatniej kolumnie tabeli. Można też wstawiać wiersze w środku tabeli z menu podręcznego (PPM) lub ze wstążki. Filtry z tabeli można usunąć...
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...
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.
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...
Witam Chciałem dodać przycisk typu ON/OFF ukrywa i odkrywa obszar Mam stworzone dwa makra makro1 ukrywa obszar makro2 odkrywa obszar W sieci znalazłem sposób który pozwala na taką sztuczkę ale nie wiem gdzie to podstawić do obecnych wartości aby to działało. znaleziony kod Private Sub ToggleButton1_Click() With ToggleButton1 If .Value Then Call...
Bardzo dziękuję za to rozwiązanie. Mam jeszcze jedną prośbę, czy jest szansa zrobienia tego za pomocą makra? Nie ukrywam, ze ułatwiłoby mi to jeszcze bardziej pracę. Pozdrawiam.
Dzięki za podpowiedź A czy jest możliwość użyć tych makr zakładając, że mam dwa podziały na zakładki dotyczące dokumentacji archiwalnej i dokumentacji bieżącej. Zakładam również, że będę miał osobne przyciski do odkrywania i ukrywania dla dokumentacji archiwalnej jak i bieżącej. A może coś w tym rodzaju: po naciśnięciu przycisku np. "ukryj" otwiera...
excel makro ukrywanie makro ukrywanie wierszy makro ukrywanie arkuszy
zatrzymuje fuser uzwoić wirnik pomiar strzał włączeniu
zmywarka hobart wymiana amortyzatorów toyota
Schemat instalacji fotowoltaicznej w formacie DWG TCL, Android TV, Google TV – bezpieczne ustawienia w Service Menu, wyłączenie Shop/Hotel Mode
