Można postąpić tak: Odblokować wszystkie komórki w arkuszu (a przynajmniej te, które mogą podlegać edycji). Włączyć ochronę arkusza. Do kodu arkusza wpisać procedurę obsługi zdarzenia Change: [syntax=text]Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End Sub [/syntax] Jeśli arkusz...
Jesli dane jest w kolumnie 1, wtedy [syntax=vb]For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If (r Mod 3) <> 0 Then Rows(r).Delete Next [/syntax]
Witaj 'Next cell ' przed 'If zmienna = False Then ' Dodano po 2 a jeszcze For Each cell In rng.rows(i).Cells
Delete" na klawiaturze spowodowałoby usunięcie całego wiersza "3". To ma tylko usuwać pojedynczą komórkę? no chyba że o to chodzi (1 to kolumna A) [syntax=vbscript]Sub usun() With ActiveCell If .Column = 1 Then .EntireRow.Delete End With End Sub[/syntax]
Ano nie działa, bo pusta komórka jest traktowana, jako zero.
[syntax=vb]sub usuniecie() Application.ScreenUpdating = False ow = Cells(Rows.Count, "M").End(xlUp).Row For r = ow To 1 Step -1 If Cells(r, "M") = 1224 Or Cells(r, "M") = 1228 Or Cells(r, "M") = 1232 Then Rows(r).Delete Next Application.ScreenUpdating = True End Sub[/syntax]
usuwanie wierszy z tabeli przy powtarzającej się wartości
Dołóż jeszcze jedną pętlę [syntax=vb]Last = Cells(Rows.Count, "A").End(xlUp).Row With Arkusz2 last2 = .Cells(Rows.Count, "A").End(xlUp).Row For i = Last To 1 Step -1 For j = 1 To last2 wyraz = .Cells(j, "A") If Cells(i, "F").Value Like wyraz Then Rows(i).EntireRow.Delete Exit For 'j End If Next j Next i End With [/syntax]
W każdy przebiegu pętli zanim zaczniesz zaznaczać wiersze. Inaczej skąd program ma wiedzieć, że chcesz zaznaczać w innym arkuszu?
troszkę nie kminię pomysłu , daj przykład paru komórek jak powinny wyglądać Przecież autor załączył fotkę Proponuje wpisać w A1 1 i w A2 1 zaznaczyć A1 i A2 złapać z róg i skopiować w dół do A32 A33 wpisać =A1+1 i skopiować w dół do A64 Zaznaczyć komórki od A33 do A64 złapać za prawy dolny róg i przeciągnąć/skopiować w dół aż do ostatniego wiersza...
Ma ktoś jakiś pomysł jak to naprawić? Przeanalizuj co się dzieje w pętli jak usuniesz "trefny" wiersz - numeracja przeskoczy na następny "wiersz" i dlatego nie będzie ten wiersz analizowany w ogóle :cry: Najprostsze rozwiązanie to "puścić" pętle od dołu :D np [syntax=vbscript]For x=Ostwiersz To 2 Step -1 …. Next x[/syntax]
Jedno z wyjść [syntax=vbscript]=ADR.POŚR("Arkusz1!A1")...
lub zmień na [syntax=vb]If Cells(i, "B").Text = 1 Then[/syntax]
Rzeczywiście - trzeba od dołu - Mój błąd :) Tylko w tym powyższym kodzie szuka po kolumnie "A" a powinien po "P", czyli cells(x,16) :)
For i = 2 To arkusz.Rows.Count - 1 Na For i = 2 To 200
Ooops ma byc Range("A2:A" & Cells(Rows.Count, "C").End(xlUp).Row )= "New"
Fakt. I przed Rows też. To dlatego, że dodałem tego with'a już po napisaniu kodu i wtedy ktoś mnie zajął czymś innym, a potem musiałem już lecieć i tak zostało. Dlatego nie lubię pisać przykładów, zawsze coś/ktoś przeszkadza.
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
Makro super tylko w tym przypadku zostawiło mi tylko kwoty z "5.00". Usuwa tylko w przypadku, gdy: 2. W kolumnie A nie ma kwoty "5.00" Jeśli w kolumnie A jest kwota 5.00 to pozostawi nietknięty wiersz niezależnie od całej reszty. Jeśli ma być inaczej to musisz lekko przeredagować warunki. Załóżmy, że sa możliwe 4 sytuacje. 1) kwota inna niż 5.00 oraz...
Witaj Łatwiej zrobić nowy niż szukać błędów: Dodano po 3 Specjalnie w tym przykładzie może być łatwiej [syntax=vb] Sub Usun() Dim r&: r = 2 While Cells(r, 1) <> Empty If Cells(r, 1) = "X" Then Cells(r, 1).Delete Shift:=xlToLeft End If If Cells(r, 2) = "Linia" And Val(Left(Cells(r, 3), 3)) >= 1 Then r = r + 1 Else Rows(r).EntireRow.Delete...
Nie można usuwać komórek do których odwołują się formuły bo właśnie wtedy pojawia się błąd odwołania. Odwołania również są usuwane. Jeżeli chcesz by odwołanie było cały czas "sprawne" kasuj dane a nie usuwasz wiersz. Jeżeli chcesz aby wybierać różne wiersze w arkuszu docelowym skorzystaj z formuły indeks() i poprzez dodatkową komórkę określającą nr...
Argumentem funkcji IsNumber ma byc komorka (Range("B" & i)), "B" & i jest zwykly tekst
W kolumnie D nie widzę w ogóle Z. Po analizie jak to działa stwierdzam, że: 1) Chciałem usuwać te pliki hurtem, żeby było szybciej, ale okazuje się, że to za dużo i jednym poleceniem odwołującym się do tablicy z nazwami tego się nie da zrobić. Widocznie jest jakieś ograniczenie, którego nie znam. Wobec tego trzeba usuwać pojedynczo. Dopisałem nową procedurę...
... :-) ... Piszesz o jednej tabeli, albo o jakiejś pojedynczo-domyślnej, a w dokumencie procedury, który podsyłasz jest tych tabel aż 58, co łatwo sprawdzić, wpisując w oknie Immediate edytora vba: 903088
Powinno być ScreenUpdating, a nie DisplayAlerts. Poza tym niepotrzebne są te selekcje. Wystarczy: [syntax=text]Rows(281).Delete Shift:=xlUp 'usuwa 281 wiersz [/syntax]
No to już wszystko jasne. W przeszukiwanych komórkach istnieje komórka, w której jest formuła zwracająca błąd, na przykład #DZIEL/0!. Dla znalezienia błędu: https://obrazki.elektroda.pl/9515473200_...
Cześć, Potrzebuję podpowiedzi z poniższym kodem. W momencie kiedy wybieram kilka pozycji na listboxie i puszczam kod to usuwa mi tylko pierwszą i wyrzuca error jak w załączniku: Witam Zrób tak [syntax=vbnet]Sub DeleteButton_Click() Dim i As Integer With ListBox1 For i = .ListCount - 1 To 0 Step -1 If .Selected(i) Then .RemoveItem i Sheets("Setup").Rows(i...
Wyłącz odświeżanie ekranu przed pętlą (Application.Screenupdating=false) a za pętlą włącz ponownie (=true)
Pomimo dość dziwacznego kodu, jak przystało na laika ;) makro działa... Linia[syntax=vb]Range(Selection, Selection.End(xlToRight)).Select[/syntax... zaznaczenie komórek wiersza do pierwszej "dziury" (Ctrl+Shift+strzałka w prawo) i stąd pozostające wartości. Proponuję małą przeróbkę (koniecznie przeanalizuj!) [syntax=vb]Private Sub cmbdeletpass_Click()...
No tak, bo funkcja: każdego wiersza? Jeżeli tak, to zmień kolumnę z "A" np. na "B" lub "C"...
Zrób taką formułę, która sprawdzi ci czy w pierwszej kolumnie jest liczba całkowita, jeśli tak to skopiuje dane z kolumn X,Y1 i Y2 do nowego arkusza lub nawet w następne puste kolumny. A dalej to już sobie poradzisz.
Jeśli jednocześnie to For ark = 1 To 2 With Sheets(ark) For i = .Cells(65536, "a").End(xlUp).Row To 2 Step -1 If .Cells(i, "a").Value = "" Then .Rows(i).Delete shift:=xlUp End If Next End With Next Jeśli uruchamiasz w pierwszym a usuwać ma w drugim to With Sheets(2) For...
To całkiem inne zagadnienie, wogóle nie związane z tematem i bardzo prościutkie [np. za pomocą wyszukaj.pionowo()] ale załóż własny temat. (bo jak między innymi podziękujesz za pomoc???)
W takiej pętli najlepiej usuwać wiersze od końca, coś takiego: [syntax=vbscript]ost_w = Cells(Rows.Count, "A").End(xlUp).Row For w = ost_w To 2 Step -1 If Cells(w, "A").Value = szukany_numer Then Rows(w).Delete shift:=xlUp End If Next w ost_w = Cells(Rows.Count, "A").End(xlUp).Row Cells(ost_w + 1, "A").Value = "nowa wartość na końcu..."[/syntax]
Nie jest całkowicie skrot, reprezentuje nazwę obiektu w skoroszycie, Np for each bbb in ActiveWorkbook.Sheets 'colection sheet in workbook bbb .Cells(1,1)="Witaj" next
Musi być wpisana wartość komórki nawet jeśli to ma być 0 wtedy excel sortuje. Dla Ciebie, rozwiązaniem będzie nadanie nagłówków nad każdą kolumną, klasycznie 1,2,3... przeciagnij, bez zbędnego zastanawiania się nad tym, wtedy funkcja sortowania "pomyśli" że pusta kolumna pod nagłówkiem jest wypełniona "0" i zadziała. Po sortowaniu przed zapisem pliku...
Nie wiem jakie w ogóle planujesz operacje w tym pliku. W kolumnie A masz wpisaną numerację, więc nie brałem pod uwagę wstawiania/usuwania wierszy. W tej chwili zmieniłem to w ten sposób, że jeśli operacja dotyczy komórek całego wiersza lub więcej, to nie jest zapisywana do historii.
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
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
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
Mała przeróbka makr: 912681 Wiersze można dodawać ze ściśle określonego zakresu, który sam sobie ustalasz ("If ilewrs > 10 Then Exit Sub"). Usuwanie wierszy tylko pojedynczo, od ostatniego, aby zachować porządek.
makrem[syntax=vb]Sub usunDupKol() tRow = 3 While Cells(tRow, 1) <> "" For c = Cells(tRow, Columns.Count).End(xlToLeft).Column To 2 Step -1 If Application.CountIf(Rows(tRow), Cells(tRow, c)) > 1 Then Cells(tRow, c).Delete xlToLeft End If Next tRow = tRow + 1 Wend End Sub [/syntax]
Takie czyszczenie w pętli nie jest zbyt efektywne: lepiej od razu wyczyścić cały zakres, jak już, to możesz przecież napisać: Sporządził: , sprawdził, czy jest on większy niż 17, a jeżeli tak, usunął: Set arkO , jeżeli tego nie używasz - w zupełności wystarczy wrzucić nazwę tego arkusza bezpośrednio do With.
.. jednak na coś mnie naprowadziłeś okazało się tylko że zamiast usuwać wiersz po stworzeni wydruku muszę go nadpisać nowym może być ctrlC,ctrlV .. Nie naprowadziłem, ale dokładnie Ci o tym napisałem :) Arkusz z poprzedniego posta ma nawet przycisk po ktorego nacisnieciu wykonuje cala operacje. A jak zamienisz pod przyciskiem na ten poniżej, to będziesz...
W załączniku plik z przyciskiem wstawiania nowego wiersza. Natomiast gdybyś usuwał wiele wierszy z zaznaczenia pamiętaj, że pola wyboru z tych wierszy ułożą się w stosik jeden na drugim. I dlatego, podejrzewam, tyle ich się nazbierało. Można dorobić makro usuwania Np ostatniego wiersza, ale to ew. później. Wyłączam komputer, idzie nowa burza...
Nie usuwasz, tylko czysczisz. Rows(findvalue.Row).delete usuwa wiersz
Ogólnie myślałem o tym aby komenda brzmiała mniej więcej tak: Sprawdź od a1 do a2000 jeśli zawiera dane z zakresu 1-1000 - ok Jeśli inne (null lub tekst) - del cały wiersz
Hej, Jestem totalnym excelowym laikiem i pisze w zapewne większości prócz mnie banalnej sprawie. Temat klaruje się następująco: 1 plik to baza danych klientów która ma kilkadziesiąt tysięcy pozycji z kolumnami: Nazwa firmy/Kategoria/e-mail 2 plik to wylistowane kategorie na podstawie chciałbym usunąć wierze w pliku nr. 1 - po prostu zbędne pozycje Podsumowując:...
Użyj funkcji ADR.POŚR np. [syntax=text]=ILE.NIEPUSTYCH(ADR.POŚR("C... Funkcja ADR.POŚR ma argument tekstowy, więc nie podlega on modyfikacji. Koniec zakresu może być adresem zwykłym, jeśli chcemy, by nadążał za dodawaniem/usuwaniem wierszy. Zasadą jest ilustracja problemu załącznikiem z układem danych!!!
Puste pole pojawia się, gdyż poepłniłem błąd. Przy linii ReDim strNowaLista odejmij 1 od intPozycja [syntax=vb]ReDim strNowaLista(intPozycja -1, 2)[/syntax] Co do usuwania/modyfikowania danych pracowników. Masz coś, co załaduje Ci ich dane do UserForma, tak? Coś co znajduje odpowiedni wiersz i ładuje? Jeśli tak, i znasz numer wiersza, to chyba nie powinien...
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...
Napisałem coś takiego: [syntax=vb]Sub Przycisk6_Kliknięcie() Application.DisplayAlerts = False Application.ScreenUpdating = False Workbooks.Open Filename:= _ "C:\Users\Desktop\RAPORT already late\test.xlsx" Sheets(1).Activate ten = "C:\Users\Desktop\RAPORT already late\test.xlsx" 'nazwa pliku raportu sciezka = ThisWorkbook.Path & "/" ' sciezka do...
Nie można uczynić czegoś tak prostego jak usunięcie całego wiersza? Nie ma na to jakiegoś sposobu? Programuje w C od niedawna więc jeszcze niewiele wiem, ale mam doświadczenie w pascalu. Skoro da sie wstawić do pliku nowy pusty wiersz to powinno dać się z niego usunąć wiersz. To kopiowanie zawartości w odpowiednie miejsce nie bardzo się sprawdza chyba....
Takie coś. .
Przykład w arkuszu X pracownik o nazwisku i imieniu A7 129 pracował w lokalizacjach Bogdanka, Wieliczka i Wieczorek :cunning: :?: Przydałaby się legenda do tych tabel kodowych :D - bo nie wiem jak to rozumieć, że pracownik A7 129 z lokalizacji Bogdanka pracuje w pewnym okresie w Wieliczce, ten sam pracownik z lokalizacji Wieliczka jest na L4 , oraz...
Co setny zostaje. [syntax=vbscript]Sub co_sto() i = 1 Do While Cells(i, 1) <> "" Rows(i).Resize(99).Delete i = i + 1 Loop End Sub[/syntax]
OKNO -> zablokuj okienka następnie dodajesz usuwasz tyle wierszy i kolumn ile potrzebujesz i jak potrzebujesz aby nie były przesuwane podczas edycji. Pozdrawiam
Zamiast y = y + last_row2 wks.Rows(x).Cut wkb.Rows(y) wpisz wks.Rows(x).Cut wkb.Rows( last_row2) last_row2 = last_row2 + 1 Dodano po 53 usuwanie wierszy w drugim arkuszu zbędne
To jeszcze wymaga doprecyzowania. Co jeżeli w kolumnie F jest pusto a w E coś jest, albo odwrotnie? Może chodzi ci o usuwanie całych wierszy? Niezależnie od odpowiedzi użyj metody Delete. W pierwszym przypadku z obiektu Range z odpowiednią do potrzeb wartością Shift, w drugim Rows. Obiekt powinien wskazywać właściwy element do usunięcia. Zalecane jest...
Czy wiesz, że w "Arkusz2" prawdopodobnie w wyniku kopiowania, wklejania a następnie usuwania wierszy jest ponad 500 przycisków o nazwie "CommandButton1"? Kiedyś był już podobny temat poruszający ten problem. Kopiowanie i wstawianie wiersza z przyciskiem działa OK, ale usunięcie wierszy powoduje układanie się obiektów w stosik, z których widoczny jest...
Żaden ze standardowych komponentów zdaje się nie obsługuje takiego zapisu do pliku - musisz go sam oprogramować. Co do samego komponentu - ze standardowych StringGrid powinien Ci wystarczyć. Dodawanie wierszy realizujesz poprzez zwiększenie własności RowsCount. Usuwanie wierszy ze środka musisz oprogramować tak, aby niższe przenosiły się na wyższe,...
Usuwam wiersz z komórką "A9" z zakresu Tab_2 ? Czy jakiś wiersz z zakresu Tab_1 ? Jeśli z Tab_1, to na jakiej podstawie mam określić, który wiersz mam usunąć ? Dlaczego ma to być właśnie "Trąbalski", a nie na przykład "Chudy", czy "Placek" ? Dlaczego mam usuwać wiersz z "Trąbalskim", tylko dlatego, że szukałem "Gruby" ... ? Jak na podstawie takiego...
chciałbym żeby w raz z usunięciem danych w komórce, również usuwał się wiersz tabeli W przedstawionym rozwiązaniu usunięcie indeksu powoduje "wyczyszczenie" całego wiersza :cunning: (jakkolwiek do tego celu wykorzystano odpowiednie formuły w tym arkuszu :D ) - nie wiem jak duże (ile pozycji ?) oferty przygotowujesz dla Waszych klientów , jeśli więcej...
Czyli do każdego dodanego towaru a magazynie ma być info o nr faktury?? i wpisanie faktury twoim zdaniem jakie info powinno zawierać?? Powinno to (wg mnie) wyglądać tak: Arkusz "magazyn" (asortyment) - gdzie wpisujesz każdy nowy towar z cechami, o których pisaliśmy. Stany wyliczałby Excel na podstawie zakupów i sprzedaży. Arkusz "zakupy" - gdzie wpisujesz...
Nie dokładnie przejrzałeś historyczne wątki naszego forum :cunning: Proponuję przejrzeć wątki na temat wyrażeń regularnych RegEx np. https://www.elektroda.pl/rtvforum/viewto... lub https://www.elektroda.pl/rtvforum/viewto... Załóż swój wątek, załącz przykładowy plik to znajdziesz bardziej precyzyjną pomoc...
Fajna funkcja. Łatwo można ją przerobić na funkcję która po podwójnym kliknięciu usuwa wiersz. Dziękuje. Przyda mi się.
Witam. Proszę o podpowiedź, jak usunąć wiersz w listboxie. Próbuje poniższym kodem:[syntax=vb]Private Sub ListBox1_Click() Me.ListBox1.RemoveItem (Me.ListBox1.ListIndex) End Sub[/syntax] Wiersz co prawda się usuwa, ale wyskakuje błąd.
Dzień dobry, Wydaje mi się, że sprawę załatwi nadanie zakresowi roboczemu nazwy, pod warunkiem, że nie będzie się usuwać ostatniego wiersza ani ostatniej kolumny, a dodawać nowe również przed ostatnim wierszem i przed ostatnią kolumną, a nie za nimi. Poza tym nagłówki kolumn też trzeba aktualizować ręcznie. Gdyby istotne było, żeby tabela się automatycznie...
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...
Kolega lanzul pomógł mi rozwiązać problem z usuwaniem wiersza tabeli, w którym jest konkretny wyraz. https://www.elektroda.pl/rtvforum/viewto... Tych wyrazów jest znacznie więcej, dla których potrzebuję usuwać te wiersze. Dlatego potrzebuję zbudować pętlę, która będzie brać kolejne wyrazy z jakiejś listy i będzie wykonywać to...
Do czasu aż przeczytasz pomoc o wszystkich instrukcji(Array, Trim, Split, itp.), to nie ma sensu
Poczekaj trochę , spróbuje napisać program który będzie wywalał np. co drugą linię z pliku tekstowego . Dodano po 1 A oto i program napisany przezemnie który tworzy plik tekstowy z co n'tym wierszem poprzedniego ,obsługa : w katalogu z programem umieszczasz plik o nazwie plik1 ( z rozszerzeniem .txt ,czyli zwykły plik tekstowy ) ,uruchamiasz program...
usuwam wiersz z tym punktem z tabeli i od nowa wczytuje tablice zaczynam od punktu który był wcześniej najkrótszą odległością Spróbuj to inaczej rozwiązać. Dlaczego kasujesz wiersze? Czy ja dobrze zrozumiałem, że w arkuszu 'Baza' szukamy najbliższego punktu dla punktu wyjściowego 'C27'?
To, co rzuca się w oczy i to bez okularów oraz zaglądania do załączników ;) Brakuje precyzyjnych odwołań. Np [syntax=vbscript]'usuwa puste wiersze ow = ThisWorkbook.Sheets("OdczytaneDyski").Ce... "A").End(xlUp).Row For c = ow To 1 Step -1 If Cells(c, 1) = "" Or Left(Cells(c, 1), 3) = "Cap" Then Rows(c).Delete Next [/syntax]i nie wiadomo,...
Dodając kolejne wiersze, zawartość komórek przy odwołaniu bezwzględnymi jest stała i zaciąga dane które ma zaciągać, ale już komórki z owymi formułami ulegają przemieszczeniu. Nie widzę tu nic niezwykłego. Możesz dokładniej wyjaśnić? Lub napisz co chciałbyś osiągnąć. Może jakiś plik z przykładem.
Witam. Chciałbym prosić o pomoc. Mianowicie, zaczynam przygodę z Codeigniter i PHP. Mam zrobioną bazę w Phpmyadmin mysql i teraz mam tabele, powiedzmy produkty a w niej kolumny: id / magazyn / produkt / szt. Chciałbym coś takiego napisać, że jak kolumna szt. będzie 0, to ma mi cały wiersz usunąć. Jak to zrealizować? Co napisać w Controlerze, co w modelu,...
Jest to samo, nie usuwa się.
Witaj, Pojedyncza prosta funkcja nie zadziała, ale można złożyć kilka funkcji, aby osiągnąć cel. i tak na przykład jeśli z alamakota*wp.pl chcesz zostawic samo *wp.pl - musisz poszukać pozycji interesującego Cię znaku (w tym przypadku *, funkcja SZUKAJ.TEKST), poznać długość całego tekstu (funkcja DŁ) oraz wyciąć sobie kawałek z prawej strony (funkcja...
1. 1. Nie kasuje komórek z zakresu Kod: br.Sheets(s).Range("39:56,97:100,141:144... To jest mój błĄd, miało być o 9 wierszy mniej, poniewaz kopie z a10 do a1 na sbiorczym t.j. range("30:47, 88:91, ... itd. teraz makro usuwa wiersze z dane, nie te z 'Note: 1. All tests (VT, PT, MT, UT, RT) were carried...
Intersect(Target, Columns(...)) zwraca zakres komórek typu Range(), będący wspólną częścią - w przypadku zdarzenia Worksheet_Change - obszaru, który uległ zmianie (Target) oraz wybranej kolumny (Columns(...)). Tym obszarem który uległ zmianie (Target) może być tylko jedna komórka (np. kiedy wpisujesz w nią wartość ręcznie), ale też zakres komórek (np....
Tu dodałem jeszcze usuwanie wiersza z pewnymi zabezpieczeniami edit: Teraz mi przyszło że zamiast przycisku edytuj kod z pod tego przycisku można umieścić na podwójnym kliknieciu w listbox (na danym wierszu) wtedy dane się zczytają do okienek edycyjnych. Podmieniłem załącznik
Poza tym, o ile pamiętam, bo miałem chwilę przerwy w C++, to iteratora nigdy nie przyrównuje się do size, tylko do metody end(). No i jeszcze, usunięcie elementu skutkuje tym, że iterator, który pokazywał na niego, pokazuje teraz "w kosmos", więc wykonanie na nim ++ powoduje niezdefiniowane zachowanie. Trzeba sobie przechować w zmiennej pomocniczej,...
Masz rację. Usuwane wierszy robi się od końca do początku. Autorka nie napisała u usuwaniu w pierwszym poście i tak przerabiałem niechlujnie. Skrobnij coś...:) W załączniku trochę inne rozwiązanie.
Witam, Mam problem który może mi rozwiązać tylko makro, otrzymałem excel z danymi w którym mam w jednej kolumnie nazwy odbiorców w kolejnych dane sprzedażowe. Problem polega na tym że zawsze pierwszy wiersz dla danego odbiorcy jest sumą wszystkich pozostałych (taki wiersz sumujący sprzedaż dla danego klienta). Potrzebuje makro które automatycznie usunie...
Witam serdecznie wszystkich, Chciałbym was uprzejmie prosić o pomoc w stworzeniu następującego makra. Jeżeli scalona komórka (składająca się z kolumn D:I) zawiera tekst "brak" to Macro usuwa ten wiersz oraz 2 wiersze powyżej i 11 wierszy poniżej. Z tym, że: - słowo "brak" jest wynikiem wpisanej formuły (nie wiem czy to ma znaczenie). W załączniku przykładowy...
Racja, zapomniałem o tym napisać. Takie przypisanie [syntax=c]**pictab = pictabcreator(3, 4);[/syntax] to w zasadzie to samo co [syntax=c]pictab[0][0] = pictabcreator(3, 4);[/syntax] Przy okazji: usuwaj pierwszy i ostatni pusty wiersz kodu przy wstawianiu na forum.
Witam, napisałem taki kod vba na usuwanie duplikatów, ale nie działa mi poprawnie... Jak wpiszę sam jakieś dane, to usuwa mi duplikujące się wartości...ale jak wkleje dane, to już nie. Mój kod to [syntax=vb]Sub usun_duplikaty() ' usuwanie duplikatów For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 If Cells(i, "A").Value = Cells(i - 1, "A").Value...
Cześć! Makra miałem na uczelni jakieś 5 lat temu, więc potrzebuję pomocy.. Chodzi o to, że w jednym arkuszu mam wypisane daty z opisem (A,B,C itd.), które potem makrem automatycznie uzupełniają się w tabeli "DO SKOPIOWANIA". W drugim arkuszu kopiuję ręcznie całą tabelkę z pierwszego arkusza i usuwam puste wiersze. Czy istnieje możliwość aby makra robiły...
Witam, ja mam nieco inny problem, mianowicie w obszarze arkusza o nazwie "LISTA" w ostatniej kolumnie "AO" wpisuję "X" jako pozycja zrealizowana. Chciałbym aby przy ponownym odświeżeniu pliku, bądź też otwarciu, wszystkie pozycje odznaczone w tej kolumnie "X" em były usunięte bez problemu dla funkcjonowania całej tabeli, która jest źródłem dla tabeli...
Jakoś dziwnie masz to zrobione, ale tak na szybko to podmień na [syntax=vbscript]Cells(j, t).Delete xlShiftUp[/syntax]
Dziękuję pięknie! Działa idealnie Dodano po 1 Chciałam przerobić powyższy kod, aby usuwał wiersze z podsumowanie tzn. powinno usuwać każdy wiersz, w którym wystąpi wartość "Wszyscy klienci:" . Podkreśla mi wiersz 4 jako niepoprawny. Czy mogę liczyć również tutaj na pomoc? Set Y = Cells.Find("WSZYSCY KLIENCI:") If Not Y Is Nothing Then For Each Y In...
Musiałeś się pomylić, ciężko powiedzieć bez kodu. Numer wiersza nie jest związany z pozycja, tylko z jej pozycją na liście licząc od góry. W ten sposób usuwając pierwszą pozycję, zawsze będziesz usuwał wiersz o numerze 0. Nie wiem czy to poprawnie będzie, ale ja bym stworzył nową klasę dziedziczącą po QListWidgetItem i dodał do niej własne dane, np...
załącz plik
Dla 3-go wiersza, od argumentu WIERSZ() musiałbyś odjąć ilość wierszy nagłówkowych. Np WIERSZ(A3:A10)-2. Aby "uodpornić" formułę na wstawianie/usuwanie wierszy najprościej jest podstawić funkcję... WIERSZ Wtedy: WIERSZ(A1:A8)+1-WIERSZ() w pierwszym wierszu, zwraca to samo co: WIERSZ(A3:A10)+1-WIERSZ() w trzecim.
Na pewno potrzebna Ci będzie jedna pętla (do wyboru: Do, For), która będzie kolejno pobierała wartość komórki do porównania z kolumny A arkusza źródłowego. Dalej masz wybór. Druga, wewnętrzna pętla pobierająca wartość z E arkusza docelowego i porównanie w instrukcji warunkowej. Jeśli prawda, usuwasz wiersz. Możesz też wykorzystać metodę Find. Tu sprawdzasz...
do { $tab="zmienna".$row; $tab1="id".$row; $myrow = pg_fetch_row ($result,$row); printf ("<tr> <td height=30 ><INPUT TYPE=hidden name=$tab1 Value=%s></td> <td height=30 bgcolor=#f3f4b6>%s</td> <td height=30 bgcolor=#f3f4b6>%s</td> <td height=30 bgcolor=#f3f4b6>%s</td> <td height=30 bgcolor=#f3f4b6>%s</td>...
Hej, Opis jak ożenić ze sobą kilka różnych płytek na jednym arkuszu w PCBNEW. Na przykładzie trzech płytek. 1 - Dla bezpieczeństwa kopiuję potrzebne pliki *.brd do nowego katalogu. 2 - Dla wygody nadaję im numerowane nazwy: "kidac_1.brd", "kidac_2.brd", "kidac_3.brd". 3 - W PCBNEW kolejno otwieram wyżej podane pliki i układam płytki tak, aby potem nie...
W trakcie działania skryptu macierz może się zmniejszać (usuwanie wierszy z identycznymi elementami) i w pewnym momencie dostajesz: ??? Index exceeds matrix dimensions. spróbuj tak for i=length(walor):-1:1 if range(walor(i,:)==0 walor(i,:)=[]; end end BTW: Możesz użyć & zamiast && bo: Logical Operators:...
Z Accessem miałem styczność tylko raz i z tego co pamiętam, to nie pozwala usuwać wierszy, tzn. zostawia je puste, tworzy wiersz o nowej numeracji i tworzy się bałagan, a ja będę przekopiowywał, przenosił i kombinował na wiele sposobów, excel jest do tego łatwiejszy. Proszę jeszcze raz o pomoc w excelu;p No dobrze, sprawdzę to w domu, bo w pracy mam...
Popatrz, jak działa ta pętla np. dla pierwszego "i": jeżeli Twoja wartość będzie na końcu zakresu "y", to najpierw wiersz "i" usuniesz 119x, a dopiero na końcu przerwiesz pętlę... Bez sensu, prawda? Zamiast tego możesz wprowadzić następującą poprawkę: [syntax=vb]Private Sub CommandButton1_Click() Dim zakres As Variant, i As Integer, y As Variant, wier...
excel usuwać wiersz wiersz usuwać puste wiersz usuwać wiersz zakres
paski ekranie cienkie impedancja przesunięcie fazowe renault megane instrukcja obsługi
Lokalizacja świec żarowych w Audi A8 D2 3.3 TDI Przestrojenie UKF w radiomagnetofonie Sharp WQ-T360H