W załączniku, wartość z D41 jest przenoszona do AK1
[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]
lub [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 7 And Target > 0 Then Rows(Target.Row).Hidden = True End Sub [/syntax] lub odpalic dla aktywnego arkusza [syntax=vb]Sub ukryj() For r = 2 To Application.CountA(Columns(1)) - 1 Rows(r).Hidden = Cells(r, 7) > 0 Next End Sub [/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]
Jest to zrobione makrem zdarzeniowym Worksheet_Change, reagującym na zmianę wartości w komórkach B9:D9. Makro jest w module arkusza, w którym jest formularz. Treść makra: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target(1).Address = Range("f_rodz_nieruchomosci").Address Then Rows("33:76").Hidden = True With Worksheets("Legenda")...
http://obrazki.elektroda.net/93_12897560... Coś takiego?
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...
Cześć. A może coś więcej bo na razie z informacją jest oszczędnie? Jak zablokowany (włączona ochrona)? Najprostszym sposobem jest go makrem odblokować, ukryć/odkryć wiersze i zablokować (też makrem) na nowo. Do odblokowania służy: [syntax=vbscript]Sheets("Arkusz").Unprot... Blokuje natomiast: [syntax=vbscript]Sheets("TMP").Protect[/...
Jak nie będziesz w stanie działającego rozwiązania dopasować do swoich potrzeb to nigdy niczego nie napiszesz.
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.
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...
Potrzebujesz pętli. Sprawę uprości właściwy opis, Np: odkryj pierwszy ukryty wiersz w zakresie 3-200 i przerwij działanie (opuść pętlę). Słowa kluczowe For / Next If / End If Exit For Przekonany jestem, że sobie poradzisz...
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...
Witam ponownie. Wrócę do powyższego kodu i wykorzystania go w innej sytuacji. Tym razem ten sam kod chcę wykorzystać w tym samym pliku ale w innym arkuszu i tym razem odkrywanie i zasłanianie nie kolumn ale wierszy. Pozmieniałem trochę kod tak żeby działał na odkrywanie wierszy no ale tak pozornie bo kod nie działa, wyskakuje błąd. Tym razem chcę uzyskać...
To proste, mam arkusz w którym dość często wprowadzam zmiany, ale w normalnym trybie w arkuszu działają różne makra które miedzy innymi ukrywają wedle potrzeby wiersze i kolumny. Kiedy potrzebuję wprowadzić w arkuszu zmiany to mam jeden przycisk którym w arkuszu odkrywam wszystkie wiersze i kolumny, ale w tej sytuacji muszę włączyć tryb projektowania...
To makro ukrywa tylko wiersze, nie odkrywa zaś jak nacisnę "tak". Dalej problem istnieje...
Prawdopodobnie zrobiłeś to dobrze, ale po prostu włączył tak wiele poleceń, że zabrakło mu pamięci flash. Jakiego kodu źródłowego command.c użyłeś? Myślę, że potrzebujemy tylko polecenia aktualizacji i restartu. Nie potrzebujemy pełnego wiersza poleceń AT.
Witam, mam problem z napisanie makra które chowałoby wiersze po kolei, tzn. jeden przycisk chowa 4 wiersz, po kliknięciu go ponownie chowa się także 5, po ponownym kliknięciu jeszcze 6 i tak dalej, drugi przycisk odrywa te wiersze od tyłu, czyli jeśli ostatni schowany wiersz to był wiersz nr 6 to go odkrywa, po kolejnym kliknięciu odkrywa wiersz nr...
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...
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...
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...
chodzi o to, żeby z 1 i 2 (i innych których nie ma we wzorze) arkusza z danej kolumny konkretnego pracownika na ostatni arkusz przenosiły się w osobną tablkę Jeżeli posiadasz Excela powyżej wersji 10 :?: to tego typu efekt jak na zrzucie 1047238 możesz uzyskać poprzez utworzenie tabelki połączonej (łącza z danymi z tabelek "kierunkowych" np w ukrytym...
Bardzo dziękuję za szybką odpowiedź - pomogła i wszystko pięknie działa. Dodałam jeszcze "else" i teraz po ponownym uruchomieniu makra odkrywają się wiersze, które w kolumnie A mają już inną wartość niż 0 (w tej kolumnie przepisują się dane z innego arkusza). [syntax=vb][/syntax] Sub ukryjWiersze() Dim i As Integer Dim selRange As String For i = 60...
Witam, mam wielki problem. Chciałbym, aby za pomocą przycisku, po jego kliknięciu został odkryty pierwszy ukryty wiersz z góry. Posłużę się przykładem: Mam ukryte wiersze od 10 do 90. Po pierwszym kliknięciu odkrywa się wiersz 10, po następnym kliknięciu wiersz 11 itd. Jestem początkującym i wielkie problemy stwarza mi sytuacja, aby po kliknięciu odkrył...
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...
Zaznaczamy wybrane kolumny (lub wiersze) klikamy na : Dane/Grupy i konspekty/Grupuj.. I gotowe
Jak już wspomniałem w moim pliku korzystam z pomocniczego wiersza Gdzie wspomniałeś? Napisz więc od początku co chcesz osiągnąć.
Myślałem już o tym ale - nie da rady. To spory, rozbudowany arkusz edytowany na bieżąco przez cały dzień roboczy przez 4 osoby (czyli - kto jest właśnie przy kompie:-). Schowanie kolumny czy wiersza nie wchodzi więc w rachubę. Może dwa przyciski? Jeden zakrywa a drugi odkrywa? Sam nie wiem... Muszę nad tym posiedzieć.
Elo.Robię sapera i muszę odkryć puste komórki(w moim przypadku są to zera). Mam taki oto kod [syntax=delphi]IF stringgrid1.Cells[Acol,Arow]='0' then begin p:=1; for i:=(-p) to p do for j:=(-p) to p do stringgrid1.Cells[Acol+i,Arow+j]:=inttos... end;[/syntax] p odpowiada za współrzędne odkrywanych komórek(jak widać zaczyna od lewej...
Przy tak rozbudowanym arkuszu Excel nie będzie działać błyskawicznie. Excel jest programem uniwersalnym, ma różne "wodotryski", które zabierają czas. W tym przypadku pole tekstowe trochę spowalnia, bo ono "jest gotowe" po naciśnięciu każdego klawisza. Gdyby dane wprowadzać do komórki, filtr zaczynałby działać dopiero po 'Enter', więc byłoby szybciej...
Witaj ponownie No akurat w tej ostatniej kwestii to jest bardzo proste i możesz to robić sam ;) Wystarczy że nie będziesz wpisywał całej nazwy, a dokończysz * Jak zapewne wiesz "gwiazdka" zastępuje dowolną liczbę, dowolnych znaków. Czyli wpisując w pole szukaj ma* i po kliknięciu filtruj przefiltruje wszystkie słowa zaczynające się na ma (czyli malty,...
Nie o to rozwiązanie mi chodziło a sposób odczytu klawisza. To czy będziesz miał wykrywania naciśnięcie klawisza na ext-int to inna bajka. Tam wszystkie kolumny są zerowane i sprawdzane jest który wiersz jest zerem. Potem wszystkie wiersze są zerowane i odczytywana jest kolumna która jest zerem i otrzymujemy wynik. Zwarcie wyjść i tym samym stanie logicznym...
Możesz wyjaśnić, co to jest "programowanie zorientowane na funkcjonalność, a nie na rejestry? I w strukturach HAL, i w rejestrach, mamy te same pola i wartości, tylko inaczej ponazywane. Przy HAL trzeba pisać znacznie więcej (w sensie liczby wierszy i znaków w programie), niż przy działaniach na rejestrach). Może niejasno to wyraziłem. Chodzi po prostu...
Nie wiem, czy dobrze zrozumiałem. Filtrowane mają być tylko kolumny, czy również wiersze? Najlepiej zawsze pokazać w załączniku oczekiwany wynik. Napisałem makro zdarzeniowe ukrywające kolumny z tygodniami z wyjątkiem tej wpisanej w polu "LICZBA TYGODNIA". Makro jest umieszczone w module arkusza. Pusta komórka w polu "LICZBA TYGODNIA" odkrywa wszystkie...
Ok ukryta, ID = 27 kolejne polecenie diskparta (po: select part 1) set id=07 odkryje - restart potrzebny (po wszystkim ukrywasz poleceniem: set id=27 override) Dobrze by było jakbyś pokazał co jest na tej partycji mniej wiecej - czyli po odkryciu z wiersza poleceń: dir /a /s e:\ > %tmp%\marcin.txt notepad %tmp%\marcin.txt Można by było się obyć bez...
Witam, Potrzebował bym tak zmodyfikować plik, ażeby po wypełnieniu 30 pozycji z artykułem, odkrywało się automatycznie powiedzmy 30 dodatkowych wierszy ( mogło by być również co 10 ) dodatkowo pytanko jakiego użyć kodu ażeby jeżeli miał bym przycisk przy każdej pozycji do kopiowania to był aktywny na podstawie gdy wpisany jest artykuł w wierszu ?? i...
Rozumiem że mam w wierszu poleceń napisać E: <enter> del autorun.ini ? Jeżeli tak to próbowałem i "ini" i "inf" ale pisze że nie może znaleźć, tak swoją drogą to one są sprytnie ukryte, od czasu wystąpienia tego problemu nie dziala mi odkrywanie ukrytych folderów w panelu sterowania Dodano po 51 Format jak robie pisze plik zabezpieczony przed...
Super. Bardzo fajny pomysł. Jednak na samym początku odkryłem mały błąd: otóż jeżeli w login i password wpiszemy cokolwiek innego niż w arkuszu Admin - wyskakuje run-time error (dodaję screen z edytora). Po anulowaniu mamy dostępny arkusz Start z możliwością edycji niestety. Sam jednak pomysł zaciekawił mnie bardzo i jestem teraz na etapie rozgryzania...
.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...
Po co mieszasz. Nic nie przypisuj do partycji recovery i jej nie odkrywaj. Partycja mają mieć takie flagi sda1 i sda2 hidden a sda3 boot. Uruchamiasz komputer z 2 partycji i wchodzisz w wiersz poleceń i dajesz polecenie imagex z parametrem /info. http://obrazki.elektroda.pl/8235214700_1... http://obrazki.elektroda.pl/8193569800_1...
Stary wątek, ale sobie pozwolę odpowiedzieć.. W Polsce wyszła tylko jedna sensowna książka o dyskach twardych - "Anatomia dysków twardych" Piotra Metzgera. Jedna, a więc można powiedzieć, zarazem i najlepsza i najgorsza. Jej podstawową wadą jest to, że została wydana w pierwszej połowie lat '90 i w tej chwili jest mocno nieaktualna, tym niemniej na...
Z cyklu najlepszy Smart TV 2019 - dziś na początek Android TV. Warto przeczytać. https://obrazki.elektroda.pl/8705897600_... Inteligentne telewizory są tak powszechne, że nie ma potrzeby dodawania do nich napisu „inteligentnych”. Będziesz musiał się dobrze starać aby znaleźć nowy telewizor, który nie jest wyposażony w jakąś...
Przede wszystkim musisz dobrze znać program który używasz do dzielenia dysku i wiedzieć co robisz. Nie znam tego programu (w twoim przypadku chyba part32 edit) aby podac ci kawe na lawę, ale programy tego typu powinny miec takie opcje w menu. Klikasz na partycje której chcesz nadać litere i powinno ci się ukazać w menu opcja do zmiany litery (Change...
https://obrazki.elektroda.pl/1834301500_... Pasmo, którego będziemy nasłuchiwać zgodnie z opisem z poniższego artykułu mieści się w zakresie od 0 do 22 kHz. Jak widać na poniższej liście - zakres ten pokrywa się m.in. z częstotliwością akustyczną, jednakże w poniższym tekście skupimy się na promieniowaniu elektromagnetycznym w tym...
https://obrazki.elektroda.pl/3754992400_... Witajcie moi drodzy Opiszę tutaj szczegółowo jak można łatwo zacząć przygodę z Home Assistant. Przedstawię jego konfigurację na różnych platformach (Raspberry Pi, Banana Pi, maszyna wirtualna) oraz zademonstruję, jak podłączyć do niego pierwsze urządzenia przez WiFi i przez Zigbee. Wstęp...
Ciężko powiedzieć, na SSD przeniosłem tylko 1 system, na drugim kompie nic nie było przenoszone i jest tak jak było na HDD. Czy żadne usługi nie zostały wyłączone? Świadomie nic nie ruszałem w usługach. Może jakaś aplikacja je wyłączyła. Używam zainstalowanego Avasta, i odpalam co jakiś czas Malwarebytes i ADWCleaner. Może one coś wyłączyły. Nie mam...
makro odkrywanie odkrywanie arkuszy numerowanie wierszy
sterowanie dzwiekiem kondensator szeroko wymiana silnika nawiewu
berges falownik peugeot expert
Skoda Fabia 2003: Bezpiecznik do prawych tylnych drzwi Płyta główna EVA MAIN 454050200 w ekspresach Siemens EQ.7