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]
Wykorzystaj dwie kolumny. W pierwszej nazwisko, w drugiej nazwa/indeks przydzielonego arkusza. Reszta w załączniku. Makro przy każdej aktywacji robi porządek z hiperłączami i ukrywa arkusze.
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...
Sam arkusz trochę dziwnie zaprojektowałeś. Przetestuj załączone rozwiązanie.
A zrób tak: zaznacz WSZYSTKIE komórki (CTRL+A), prawym, Formatuj, Ochrona ODZNACZ "Zablokuj". Teraz zaznacz chronione komórki, zaznacz "Zablokuj" - i ew. "Ukryj", to tylko ukrywa formuły... Narzędzia->Ochrona->Chroń arkusz, zahacz co chcesz lub pozostaw domyślne dwa pierwsze, restrykcyjne ograniczenia.
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...
Jak nie będziesz w stanie działającego rozwiązania dopasować do swoich potrzeb to nigdy niczego nie napiszesz.
Użytkownik dodaje / ukrywa wiersze przyciskami +/-. Arkusz jest chroniony i musi taki zostać dla użytkowników, znajdują się tam formuły, które nie mogą być modyfikowane. Jeśli jest opcja Nie chroń arkusza, to wiersze się dodają / ukrywają, po włączeniu ochrony pojawia się:...
Dzień dobry W pliku z makrem logowania chciałbym dodać funkcję ukrywania oraz pokazywania arkuszy pliku na podstawie danych z komórek w danym arkuszu (Arkusz "Ustawienia"). Wyświetlanie wybranych arkuszu miałoby nastąpić po prawidłowym zalogowaniu się. Obecnie wygląda to tak: [syntax=text]Private Sub Loguj_Click() Dim sUser As String, sPassword As String...
to wtedy mozesz pokombinowac w ten sposób: If Range("A1").Value = 1 Then Columns("C:G").Sel... Selection.EntireColumn.Hidden = False End If i tak dla 2 inne wartości itd, możesz też pokombinować że 1 odsłania DEF i jednocześnie zasłania GHI, 2 na odwrót, wszystko zależy od tego co ci jest potrzebne, pozdro:)
To makro ukrywa tylko wiersze, nie odkrywa zaś jak nacisnę "tak". Dalej problem istnieje...
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.
Chodzi mi o odwrócenie tego makra, żeby wiersze ukrywało od końca, a pokazywało je od początku, tzn ukrywa 8, po następnym kliknięciu w przycisk jeszcze 7 po następnym jeszcze 6....., a drugi przycisk odkrywa je od początku, tzn. odkrywa 6 po następnym kliknięciu w przycisk odkrywa 7 po następnym jeszcze 8....... Mam nadzieję że teraz zrozumiale napisałem....
Makro ukrywa wybrane komórki i uwidacznia inne.
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...
Witam, potrzebuję pomocy z napisaniem kodu, który będzie w stanie wyszukać we wskazanym zakresie komórki, które mają obramowanie w kolorze czerwonym. Jeśli komórka ma czerwone obramowanie, to dana kolumna w której jest komórka powinna zostać ukryta. Napisałem prosty kod, który to robi i wrzucenie tego w pętle to też nie problem, ale jest pewien szkopuł,...
Cześć, mam napisane makro[syntax=vba] Sub Makro1() Const max As Integer = 10000 Dim i As Integer Application.ScreenUpdating = False i = 1 Do While i <> max If Cells(i, 6).Value = 0 And Cells(i, 7).Value = 0 And Cells(i, 8).Value = 0 And Cells(i, 9).Value = 0 And Cells(i, 10).Value = 0 Then Rows(i).Hidden = True End If i = i + 1 Loop Application.ScreenUpdating...
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ć.
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.
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...
W załączeniu wycinek z większego projektu, obrazujący mój problem. Utworzyłem proste makro filtrujące pewne wartości. Niestety po uruchomieniu makra filtr działa ale ukrywa wszystkie wartości. Po wejściu w filtr i naciśnięciu ok bez żadnych zmian dane pojawiają się.
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...
Musisz jednoznacznie nazwać te obrazki, ja w przykładzie nazwałem je pic1 i pic2 (klikasz na obrazek w arkuszu i w lewo od paska formuły wpisujesz nazwę, jak w moim przykładzie klikniesz na obrazek to znajdziesz). Do tego makro, które przy każdej zmianie arkusza DANE będzie sprawdzać zakres komórek D14:D19 (oczywiście zakres ten możesz rozszerzyć, jeśli...
Są dwa typy userów - administrator który widzi wszystkie arkusze i user szeregowy, czyli sprzedawca (Basia/Ania itp), który widzi tylko swój arkusz z klientami oraz arkusz z raportami. Po uruchomieniu skoroszytu Excel pyta o login i hasło, na tej podstawie makro ukrywa niektóre arkusze, zależnie od tego kto się zaloguje. Arkusz z klientami "wolnymi",...
Wiesz..dzięki za pomoc, ale chyba się troszkę nie zrozumieliśmy, albo ja zbyt zawile to wytłumaczyłem, otóż mam arkusz_1 , wewnątrz tego arkusza uruchamiam makro, które mi go ukrywa i zarazem zakłada ochronę struktury skoroszytu ( Narzędzia/ Ochrona/ Chroń skoroszyt/ struktura/ hasło opcjonalne) . Wszystko jest OK arkusz_1 został ukryty ochrona została...
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", ""False"")" Przecież wiersz z tą funkcją znajduje się w procedurze którą zamieściłem w moim poście. Napisałem też, że makro ukrywa to co ma ukryć, natomiast szukam rozwiązania problemu powstającego wtedy, kiedy użytkownik podwójnie kliknie na pasek tytułu Excela - wtedy się wstążka "odkrywa", mimo iż programowo...
Próbuję stworzyć kilka makr, które w rezultacie stworzą narzędzie do ujednolicania wyglądu wykresów na podstawie wczytanych z pliku *.csv danych oraz ułatwią przeglądanie. Dążę do pełnej automatyzacji. Stworzyłem makro, które wyróżnia i ukrywa wybrane serie, oraz takie które ustawia styl dla każdej serii wg. moich preferencji, mam pomysł na to jak rozwiązać...
Dodałem zewnętrzną pętlę na arkusze: Sub przelicz() Const max As Integer = 36 Const max_ark Integer = 36 Dim a As Integer Dim i As Integer a = 4 i = 26 Do While a <> max_ark Sheets(a).Select Rows("26:36").Select Selections.EntireRow.Hidden = False Do While i <> max If Cells(i, 3).Value = 0 Then Rows(i).Hidden = True End If i = i + 1 Loop...
Niestety nie działa powyższe makro Jakiś komunikat czy co? Pokaż załącznik
Witam, nie mogę sobie poradzić z jednym tematem. Stworzyłem kalkulator w którym jest kilka comboboxów z listami wyborów. I... chciałbym aby makro które wykonuje w danym kalkulatorze różne obliczenia na koniec zmieniło w comboboxie wybraną z listy wartość na inną. Piszac wprost. combobox ma listę wyboru: brak wskaźnik 1 wskaźnik 2 wskaźnik 3 ... pracując...
Witam, mam następujący problem. Potrzebuję makro, które ukryje wszystkie wiersze w aktywnym arkuszu dla których w kolumnach D:AD wartości równe są zero. Przy czym nie chce żeby usuwało wiersze z pustymi komórkami. Będe wdzięczna za pomoc. Markiza
Chodzi o warunek w E22 <> "PROPONOWANA ZMIANA WARUNKÓW UMOWY" Chowane lub grupowane wiersze to 22-26 i 41-46
Ale ty masz zastosowany właśnie przez makro filtr zaawansowany a tylko trzeba umieć go wykorzystać (sparametryzować). Powiększ w makro filtru zaawansowanego zbiór warunków do A3. Czyli: (i tu ciekawostka) znak "równa się" czyli = (to właśnie dla excela pusta komórka w danych do filtracji [bo ma być równe "nic"] - nie ma tego opisanego w pomocy, przynajmniej...
trzeba mieć podstawową wiedzę, dotyczy to was obydwu.. Jeszcze się kłócicie kto pierwszy odkrył wpływ długiego końca na ziarno, co świadczy niezbicie, że wasza katedralna wiedza jest oparta ona przeczytaniu tego i owego w necie, być może przed chwilą A już Ciebie ten brak wiedzy nie dotyczy kwantor? Kwantor, teraz zachowałeś się jak mała dama, której...
Witam wszystkich, Od razu zaznaczam, że nie liczę na gotowca. Chciałbym poprosić Was o wskazówki / małe podpowiedzi jak napisać makro które : zakładając, że arkusz jest posortowany wg numeru zamówień Sprawdza kolumnę nazwaną " Order-ID " i jeśli Id jest np 000223 to patrzy w kolumnę klient widzi 17 , sprawdza kolumnę niżej gdzie znów jest ID 000223...
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...
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.
Albo zrób sobie "odtwarzarkę wzorów", czyli makro, które je przywróci, moduł vba zabezpieczysz hasłem oraz przed podglądem, wstawisz przycisk w arkusz ... i wtedy żaden użytkownik ci nie straszny, będzie mógł kasować wzory do woli, co minutę ... jedno wciśnięcie przycisku i masz odtworzone formułki, a złośliwy użytkownik zgrzyta zębami ... Dodano po...
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...
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]
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.
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...
Cześć Jestem początkującym i mam problem w napisaniu makra który by mi chował parenaście wierszy. W chwili obecnej mam napisane takie makro Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Cells(3, 4) = "Badanie wstępne" Then Rows("42:47").Select Selection.EntireRow.Hidden = True Else Rows("42:47").Select Selection.EntireRow.Hidden = False...
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...
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.
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...
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...
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...
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.
makro ukrywa arkusz makro ukrywa wiersz excel ukrywa kolumna makro
orange konfiguracja internetem livebox neofon lądowanie akumulatora awaryjnego
Mercedes W212 2.2 CDI gaśnie po włączeniu D lub R – skrzynia 7G-Tronic, EGR, conductor plate Altus 140 - Opinie o brzmieniu i wartość zakupu
