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ę...
Witaj 'Next cell ' przed 'If zmienna = False Then ' Dodano po 2 a jeszcze For Each cell In rng.rows(i).Cells
Jeżeli używasz Excela >=2007 to możesz użyć narzędzia "usuń duplikaty" [syntax=vb]Sub zz() Dim lLstRw& Dim iLstCol% Dim rRng As Range With Application .ScreenUpdating = False End With iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To iLstCol lLstRw = Cells(Rows.Count, i).End(xlUp).Row Set rRng = Range(Cells(1, i), Cells(lLstRw, i))...
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.
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]
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
Trzeba to przy zapisywaniu do formatu excela zdefiniować.
usuwanie wierszy z tabeli przy powtarzającej się wartości
tak dobrze? [syntax=text] ="<Variations><Variation><...
Trzeba lecieć od dołu: [syntax=vbscript]Sub KasujWiersze() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = ow To 1 Step -1 If Cells(x, 1) = "DELETE" Then Rows(x).Delete Next End Sub [/syntax]
Jesli posortowane, wystarczy przeciagnac formule =JEŻELI(L24=L23; ""; L24)
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]
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]
Ciekawa sprawa... Przecinek jakby z innej bajki i nie chce się formatować komórka. Spróbuj w pętli: [syntax=vb]Sub Makro() Dim c As Range For Each c In ActiveSheet.UsedRange If Right(c, 1) = "*" Then c = Val(Left(c.Value, Len(c) - 1)) c.NumberFormat = "0.00" End If Next End Sub[/syntax]
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next r = Date - Target.Cells If Target.Column = 2 And r > 30 Then w = Target.Row Cells(w - 1, 5) = "" Cells(w, 5) = "" End If End Sub [/syntax]
Najprościej? Połączyć arkusze (jako źródła tabelek) w Access i już z poziomu Access'a można sobie widokami (kwerendami) porobić co się chce - włącznie z szukaniem duplikatów. Rzeźbienie tego w Excelu to będzie więcej roboty (np. z tym szukaniem duplikatów).
ActiveSheet.Replace ",", ""
Witam W wersji Starter takiej opcji nie ma, zatem nie da się uruchomić zakładki Dane. Pozdrawiam Krystian Tokarski
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...
Spróbuj: [syntax=vbnet]Sub d() Application.ScreenUpdating = False For Each s In ThisWorkbook.Sheets s.Cells.FormatConditions.Delete Next s Application.ScreenUpdating = True End Sub[/syntax]
Blokowanie uzyskasz poprzez założenie hasła. Numerowanie komentarzy poniżej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String If Not Application.Intersect(Range("A1:C10"), Range(Target.Address)) Is Nothing Then i = Environ("USERNAME") & " <" & Now & ">" & vbNewLine & Target & vbNewLine...
Musisz utworzyć plik Excela, w którym będziesz odnotowywał numery wszystkich rachunków wystawionych w Wordzie :idea: :D A potem możesz sobie zestawić dane i ustalić ostatni numer wystawionych rachunków np. tak jak na zrzucie :spoko: 1073332
[syntax=vbscript]Sub Kasuj() Dim k As Variant For Each k In Sheets("Arkusz1").Range("TerminyGORNIK") If k <= Date Then Sheets("Arkusz1").Cells(k.Row, k.Column) = "" Next End Sub[/syntax]
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]
Niezadeklarowana zmienna obiektowa 'WB' Zadeklaruj (WB as workbook) i przypisz (set WB = thisWorkbook / set WB = Workbooks("JakiśInnyPlik.xlsx") Albo po prostu: For Each WS In thisWorkbook.Worksheets lub dla innego niż ThisWorkbook For Each WS In Workbooks("JakiśInnyPlik.xlsx").Workshee... Masz błąd w konstrukcji 'If': i = i -1 musi być wewnątrz bloku...
Jeśli masz Excela 2010 lub nowszy można to zrobić w Power Query
https://obrazki.elektroda.pl/8016750800_... W ustawieniach pola "Id" wybierz "Brak"
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...
Na stronie https://support.microsoft.com/pl-pl/help... masz przykład makra uruchamiającego się po edycji komórki Do tego dodaj tylko sprawdzanie wartości aktualnej komórki oraz zerowanie pozostałych (Cells(ActiveCell.Row, "B").ClearContents, itd.)
Jeśli masz Excel 2010 lub nowszego można to zrobić przez Power query bez makra
Witam, Mam arkusz kalkulacyjny, który zawiera dane wyglądające w następujący sposób: Imię, naziwsko (xxxx xxxx / użytkownik) Telefon Mail Takich danych jest kilka tysięcy. Szukam sposobu, aby usunąć z arkusza duplikaty (ponieważ niektórzy użytkownicy się powtarzają) z zachowaniem unikalnego słowa. Większość użytkowników ma podane imię i nazwisko, więc...
To wersja makro, które wrzuciłem dokładnie to robi. Po przemieleniu Twoich przykładowych danych pozostało dokładnie 100 wierszy, z czego zostały tylko wiersze z "invoice" w opisie a także wiersze z kwotą 5.00 niezależnie od reszty opisu.
Witam, Przygotowuje narzędzie dzięki któremu druga osoba będzie mogła w prosty sposób dodać albo usunąć dane z arkusza. Dodawanie jest proste, gorzej z usuwaniem Stworzyłem UserForm a w nim TextBox1 gdzie użytkownik wpisuje wartość, którą chce usunąć. Po wpisaniu tej wartości w ListBox1 wyświetla się ta wartość lub sugeruje odpowiedź. Przykład: Użytkownik...
A dlaczego nie dać szansy Excelowi, tylko go wyręczać? [syntax=vbscript]Sub Zapis_do_CSV() ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\baza test2.csv", _ FileFormat:= xlCSV, CreateBackup:=False, Local:=True End Sub[/syntax] Nie zwróciłem uwagi, że to ma być bez pierwszego wiersza, ale ten zawsze można usunąć później. Najważniejsze, żeby Excel...
Zakładam, że Jan Kowalski to ta sama osoba, ale dane mogą pochodzić z różnych okresów (tutaj to nie ma znaczenia aż takiego). Mi chodzi o to, aby dane nie zostały utracone, tzn. w jednym wierszu Jan Kowalski ma podane stanowisko a w drugim już nie ma, zatem usuwając jeden wiersz tracę pewne informacje, a ta funkcja usuń duplikaty nie scali wierszy w...
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...
Do czasu aż przeczytasz pomoc o wszystkich instrukcji(Array, Trim, Split, itp.), to nie ma sensu
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...
A nie możesz wyniki przenieść na drugi arkusz? Wtedy tylko zmieniasz formułę: =LEWY(Arkusz1!A1;2) =PRAWY(Arkusz1!A1;DŁ(Arkusz1!A1&... Czy musisz na tym samym arkuszu kategorycznie pozostać? EDIT: Zrobiłem specjalnie dla Ciebie makro ;) [syntax=vb]Sub Prostokąt1_Kliknięcie() koniec = Range("A1").End(xlDown).Row Application.ScreenUpdating...
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...
jak próbuję przypisać osobę do zadania To dziwne. U mnie działa poprawnie. Jedynie dodałem teraz obsługę błędu przy usuwaniu osoby.
Usuń: [syntax=vb]Cells.Select Selection.ClearContents[/syntax] i zmień [syntax=vb]y = 2[/syntax] na [syntax=vb]y = Worksheets("Scanlijst22").Range("E" & Rows.Count).End(xlUp).Row + 1[/syntax]
Słowo klucz na dziś: [url=http://office.microsoft.com/pl-pl/e... WARUNKOWE
Powstały dwa programy w Excelu które obsługują magazyn
Objawy jednak jak przy przypisaniu przez RowSource. Pokaż Initialize tego formularza.
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???)
Jeśli tylko podpowiecie mi jak to zrobić. Nie chce przyjmować ode mnie plików o rozszerzeniu .xslm😟
Mam pytanie dotyczące Excela. Na ten problem natknąłem się na teście umiejętności z excela starając się o pracę i chciałbym wiedzieć na przyszłość. Dokładnie nie pamiętam zadania ale chodziło o coś takiego: W arkuszu 1 była spora tabela z kolumnami: ID, odział, przychody, zysk etc. W arkuszu 2 było w jednej kolumnie kilkanaście numerów ID. W zadaniu...
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...
Zaproponuję taki kod: [syntax=vb]Sub Wytnij() Sheets("Arkusz1").Select For x = 1 To Sheets("Arkusz1").Cells(Rows.Count, "C").End(xlUp).Row jest = Application.CountIf(Sheets("Arkusz2").Ra... Cells(x, 3)) If jest > 0 Then Rows(x).Delete: x = x - 1 Next End Sub [/syntax] Pomyliłem się. Autor chce, żeby kasował, gdy nie znajdzie, a więc: [syntax=vb]Sub...
Excel Ci pomoże we wszystkim...
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...
Wpisywałeś w google "excel usuwanie pustych wierszy" ? :) Zresztą to co zaproponował adamas_nt robi dokładnie to, co chcesz.
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
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....
Jeżeli nie ma dużo wierszy (problemy z wydajnością), to sprawdzi się to prościutkie rozwiązanie, podpięte np. do procedury Workbook_open: Private Sub Workbook_Open() On Error GoTo myErr Set wslista = ThisWorkbook.Worksheets("LISTA&... Application.ScreenUpdating = False Application.Calculation = xlCalculationManual On Error Resume...
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
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]
W przykładowym arkuszu: 1. Usuń "Przycisk 339" (jest wysoki na 1pkt.) Najprościej zaznacz widoczny przycisk i przesuwaj się tabulatorem. 2. Podmień makro, tu dobrze kombinujesz :) (porównaj sobie z tym co jest. Przyda się na przyszłość), ale trzeba szukać 4 elementów. [syntax=vb]Sub Usun2() Dim knyps As Boolean knyps = False For i = 1 To Shapes.Count...
=ORAZ(CZY.LICZBA(B2);DŁ(B2)=10) Ta formuła sprawdza czy wpisana wartość jest liczbą i czy ma 10 cyfr pomijając zera początkowe, ponieważ z komórce z liczbami zera są przez excel usuwane :)
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:...
Mam problem dotyczący zapisu cyfr po przecinku. Chcę, aby Excel usuwał cyfrę po przecinku w liczbie i zapisywał w kolumnie obok jako cyfrę 1, a gdy nie ma nic po przecinku w kolumnie obok zapisywał cyfrę 0. Czy Excel ma taka funkcję a jak ma to gdzie mam jej szukać.
no własnie to nie takie proste bo całość musi być w takim samym układzie sformatowana, te same kolumny nazwy arkusza itd bo idzie jako plik wsadowy do programu - cąły plik jest bardziej rozbudowany i kolumny są do kolumny BT - wczesniej myślałem o przestawnej ale to mi nic nie daje :(
Musisz na początek znaleźć jakiś wyróżnik wierszy do usunięcia. Co one mają innego niż cała reszta. Potem wystarczy tylko to wykorzystać. Od tego co zauważysz będzie zależał algorytm i kod makra. Wiersze często najwygodniej usuwać od końca, tak może (nie zawsze musi) być łatwiej.
A Excel w ogóle poradzi sobie z rysowaniem wykresu / obliczaniem makra w tak krótkim okresie czasu? Masz 333 próbki na sekundę, ok. 20000 na minutę. Zrobiłem z ciekawości wykres na 20000 wartości i rysuje się ok. 0,1s bez wykonywania makra. Ja nie widzę żeby on mógł się odrysować w ciągu 0,003s. Ale jak chcesz spróbuj w arkuszu z danymi podpiąć makron...
Dostosowałem makro z w/w tematu. Nie testowałem zbytnio, ani nie testowałem istniejących procedur. Ale na zakończenie usuwana jest zawartość arkusza "TEMP", dlaczego?
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...
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...
Dołącz przykladowy plik
Dobry wieczór, Proszę sprawdzić, czy o to chodziło. Procedura reaguje na wpisanie małego "x" w kolumnie L. Zarówno skasowanie tego wpisu, jak i wpisanie tam czegokolwiek innego usuwa datę i przekreślenie. Pozdrowienia.
Tutaj masz usuwanie ostatnich znaków od końca lub znaków początkowych: http://office.microsoft.com/pl-pl/excel-... Rozdziel sobie na godziny i minuty osobno
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...
dałem radę sam po kilku miesiącach
W kolumnach L,N,O,P masz "normalne" formuły, które odwołują się tylko do danych z bieżącego wiersza. Takie formuły można kopiować bez ingerencji w inne formuły. Excel nie ma problemu z ich kopiowaniem. Jeśli chodzi o formuły z kolumn A i C, to one zawierają odwołania do innych wierszy i przy wstawianiu wierszy (a także usuwaniu) Excel nie wie, do czego...
Czy uruchomiłeś kod w pliku z załącznika, czy w swoim skoroszycie? Jeśli w swoim skoroszycie, to czy dodałeś arkusz o nazwie "Ostatni"? Te komunikaty wskazują, że ze skoroszytu próbuje się usunąć wszystkie arkusze. Wtedy przy usuwaniu ostatniego pojawiają się takie komunikaty.
Witam, Mam następujący problem. Muszę eksportować dane z pliku zamieszczonego poniżej do arkusza Excel. Wymóg jest taki żeby w pierwszej kolumnie znajdowało się 8 znaków łącznie ze spacjami, kolejne kolumny to już dowolny ciąg liczb. I tak dla komórki A1 powinno być [_ _ _ _ _ _ 25] - 8 znaków łącznie ze spacjami (znak _ oznacza spacje a nawias kwadratowy...
Sądzę, że chodzi o ten warunek: If Cells(i, "B").Value = "" Then Jak daję If Cells(i, "B").Value = "10" Then to dla wiersza o tej wartości w komórce działa (może użyj .text ?) Po drugie nagrane makra z regóły trzeba uprościć wywalacąc .select (bo po co zaznaczać?) W tm przypadku : Rows(i).EntireRow.Hidden = True
Ale to będzie 'pomógł' ? :)
Dziękuję za odpowiedz. Dobrze kolega zrozumiał. Jak jest zero to odejmnij. Jak nie ma zera to dodaj zero. Tak sama z druga wartością. Juz tlumacze sens. Codziennie dostaje raporty w których występują wartości z zerem lub bez zera. Żeby makro moglo uzupełnić dane(wartości duplikujące) to musze miec dane jednakowe. Jak nie mam jednakowych danych to musze...
A skąd biorą się wiersze i jak są przypisane? Jeśli z zakresu, to usuń komórkę z zakresu...
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...
O tym wiem, po prostu dodałem edytowany kod nad którym pracuje. I czasem tą linie o której mowa trzeba było usuwać inaczej też nie działało
Wywołanie funkcji masz przy wejściu TextBox'a. Wystarczy przenieść, jak wspomniał Andie, na koniec procedury przycisku [Dodaj gre]. Usuwanie masz hurtem, więc tam można pole wyczyścić. Patrz załącznik.
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.
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
Jak usunąć podział strony po drukowaniu? Podzial reczny sie usuwa tak jak to opisali w podpowiedziach, http://office.microsoft.com/pl-pl/excel-... ale podzial automatyczny zostaje. Jak zlikwidowac te krechy??
Wynik w formacie programu Excel?
Jeśli jest podobnie jak w Excelu 2003 sprawa wygląda następująco: Tworzysz kolumnę z czasem i drugą z wartościami momentu np. : t [s] M [kg] 0,0004 10 0,0008 17 0,0012 5 .... .... Zaznaczasz wszystko. Wybierasz z paska piktogram rysowania wykresu. Wybierasz typ wykresu liniowy >>> Dalej Zaznaczasz serie w kolumnach i przechodzisz na drugą kartę (Serie)...
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...
dopiero zapisywanie 3 minutowe uświadomiło mi problem Dlatego też może okazać się, że usuwanie działa, ale trwa bardzo długo i wydaje się, że nie usuwa.
Witajcie. Jest taka sprawa. Mam nowy arkusz do ktorego kopiuja się indeksy produktów z takiego prostego konfiguratora ktory stworzylem. Indeksy kopiuja sie do kolumny A, i niektóre się powtarzają. Jak napisa makro które zliczy i wyswietli nr indeksu + obok ile razy się powtorzyl, kasujac wszystkie powtorzenia. I tak dla wszystkich indeksow - lista +...
Na przyszłość: spakuj plik i zrezygnuj z prowizji :) Zauważyłem za późno (-4pkt)... Problem w tym, że w arkuszu 1 masz 14185 CheckBox'ów (większość jeden na drugim) policzyłem makrem Sub policz() MsgBox Sheets("Arkusz1").Shap... End Sub w ostatnim wierszu z "ręcznym" usuwaniem dałem spokój na 50-tym...
Istnieje takie oprogramowanie. Ale sugeruję zacząć od czegoś takiego : Takie coś działa, gdy hasło jest założone na arkusz lub skoroszyt, ale nie działa na hasło założone na plik Gość się zwolnił i nie zostawił wszystkich haseł do plików, teraz nie można się z nim skontaktować, a trzeba wprowadzić modyfikacje w pliku, aby działały prawidłowo Skoro...
A nie wystarczyło by nagrać makro, które kopiuje wszystkie te kolumny do jednej i usuwa duplikaty?:>
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
OKNO -> zablokuj okienka następnie dodajesz usuwasz tyle wierszy i kolumn ile potrzebujesz i jak potrzebujesz aby nie były przesuwane podczas edycji. Pozdrawiam
Funkcją replace usuwasz najpierw "spację" na końcu. Potem usuwasz przecinki. Masz liczby całkowite. Formułą dzielisz je przez 100 i w sąsiedniej komórce masz to, co chcesz.
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
Witam, mam problem, a mianowicie chciałem stworzyć funkcje która pozwoliła by mi dodawać wartości wprowadzone w arkuszu ' zestawienie miesięczne' do innych arkuszy ' zestawienie roczne' z podziałem na hurtownie bez usuwanie wcześniej już wprowadzonych danych. Tu pojawił sie duży problem gdy zmienię datę w 1 arkuszu usuwa dane w arkuszach ' zestawienie...
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!!!
excel makro usuwać excel usuwać wiersz usuwać wiersz excel
chłodzić lodówka indesit renault scenic gaśnie sterowanie zaworem kulowym
klimatyzacja galanz device sleep
Dodatkowy dzwonek bezprzewodowy do dzwonka sieciowego - jak to zrobić? Migotanie kontrolek w Skoda Octavia 2 1.6 MPI 2004