Spróbuj takiego makra: [syntax=vbscript]Sub Powielanie() Dim ile As Long, w As Long w = 1 Do With Cells(w, 2) ile = .Value .ClearContents .Offset(1, -1).Resize(ile - 1, 2).Insert xlShiftDown .Offset(0, -1).Resize(ile, 2).FillDown w = w + ile End With Loop Until Cells(w, 2) = vbNullString End Sub[/syntax] Makro działa w arkuszu aktywnym zgodnie z przedstawionymi...
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
Zazwyczaj funkcja powinna zwrócić wartośc Spójrz w pomocy VBA przykład funkcji(Help - Writing a Function Procedure) Twoja funkcja nie zwraca żadnej wartości.
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
Witaj [syntax=vb] Sub InsSubtot() Dim bs As Range Set bs = ThisWorkbook.Sheets(1).Cells Dim r&, rp& ow = bs(Rows.Count, 8).End(xlUp).Row r = 2: rp = 2 While bs(r, 8) <> Empty r = r + 1 If bs(r, 8) <> bs(r - 1, 8) Then bs.Rows(r).Insert bs(r, 5) = "SUMA" bs(r, 6) = Application.Sum(Range(bs(rp, 6), bs(r - 1, 6))) bs(r, 5).Resize(1,...
Zdaje się, że dla każdego powiatu musisz mieć osobne procedury dla przycisków. W przykładzie makro "orientuje się" po nazwie miasta wpisanej w komórce zakrytej przyciskiem.
zdecydowanie początkujący Ale pomoc podręczna mimo wszystko jest dostępna ... :-) A z tym poniżej, jak działa ? [syntax=vba]Option Explicit Private Sub Workbook_Open() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets(Array("Inne", "Beton, pompy", "Stal", "Elementy murowe i zaprawy", "Kruszywa", "Szalunki", "Sprzęt", "Żurawie", "Kontenery",...
Poproś kogoś innego.
Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
Zobacz tak: [syntax=vbscript]Sub Kopiuj_MG() Dim x As Long, n As Long Application.ScreenUpdating = False Sheets("Arkusz1").Select x = 2 Do While Range("A" & x).Value <> vbNullString If Cells(x, "C") > 1 Then Range("A" & x & ":C" & x).Copy n = Range("C" & x).Value Range("A" & x & ":C" & x + n - 2).Insert xlShiftDown...
W takim razie załącz plik bez kodu, żeby można było dodać kod. P.S. Dlaczego kolumna A jest pusta? Skoro tak ma być, to prosimy o przykładowy plik...
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
Coś źle wpisujesz. Przy wstawianiu wiersza powyżej formuły, zakresy zmieniają się...
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
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ąć...
Dzień dobry, Mój problem jest następujący Mam arkusz "A", gdzie z jednej zakładki importuję przy pomocy IMPORTRANGE do arkusza "B" zakres A2:E. W arkuszu B w kolumnie F przypisuję wartości i te wartości wpisywane są ręcznie i nie ma w tej kolumnie żadnej formuły. Problem zaczyna się gdy w arkuszu "A" musze wstawić wiersz. W tej sytuacji w arkuszu "B"...
Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.
wyszło zupełnie inaczej niż we wzorze Mówisz zupełnie inaczej. A co konkretnie? Nie wstawił wiersza 4 (Twojej tabeli 3). Nie przeniósł daty z C3 do C4? Nie zsumował D2 i D3 w D4?
Witajcie, przychodzę z kwestią zawiłą w moim mniemaniu, znalazłem rozwiązania poszczególnych etapów zadania, stworzyłem formuły, kopiuję je i mam czego potrzebuję, jednak nie potrafię połączyć tego w makro a wykonywanie pojedynczych czynności x 1000 jest pracochłonne o istnieje ryzyko błędu. Gdyby była to kwestia jednorazowa to nie poruszał bym w ogóle...
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...
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,...
Jak dodajesz wiersze do tabeli, to zawartość wierszy pod spodem przesuwa się w dół, ale wysokości wierszy pozostają bez zmiany (nie przesuwają się). Jest tak dlatego, że poza obrębem tabeli (w innych kolumnach) może być inna zawartość wymagająca innej wysokości wierszy. Żeby przesunąć wszystko w dół wraz z wysokościami wierszy trzeba wstawiać całe wiersze....
Ten plik, który pokazałeś jako wzór ma zupełnie inną strukturę i raczej trudno go dopasować do Twojego nowego pliku. Szkoda, że nie ma w nim żadnych danych, żeby zweryfikować czy formuły kopiują się poprawnie. Poza tym nie wiem, czy tak jak w pliku wzorcowym istotne jest wstawianie wierszy, czy wystarczy samo kopiowanie. W pliku wzorcowym były podsumowania,...
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
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...
Sorki, że milczałem do teraz, ale byłem "trochę" zajęty ;) W przykładzie wstawianie ramki poniżej tej, w której naciśnięto przycisk. Uwagi wymaga sposób wyliczania wartości zmiennych. W arkuszu ramka ma wysokość 4 wierszy, jest 1 wiersz nagłówkowy. Nr wierszy, gdzie nastąpi wstawianie nowych dla następnej ramki to: 6, 10, 14, itd Kluczowe jest wyliczenie...
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...
Dalej jest to nieprecyzyjne, ale domyślam się, że chodzi o coś takiego (wersja dla polskiego Excela) =JEŻELI(ORAZ(A15=1;J15=1);&q... niż raz w tyg., kobiety";"") Formułę wstawiasz w wierszu 15 w wybranej kolumnie, gdzie ma pojawić się tekst, i powielasz w dół.
Nagraj makro usunięcia scalenia, wstawiania wiersza, ponownego scalenia i zapętlij...
Doczytałem jeszcze, że wszystko odbywa się w tym samym arkuszu. W takim przypadku musisz zagnieździć dwie pętle. Zewnętrzną Do...Until z inkrementacją wiersza, gdzie warunkiem będzie niepusta komórka i wewnętrzną For...Next również ze zwiększaniem indeksu wiersza. Taki szybki przykład "pisany na kolanie"[syntax=vb]wrs = 1 Do While Cells(wrs, 1) <>...
próbuję i nie wychodzi If, For, Case itd nic same nie mówią, jak nie pokażesz nam swojego kodu.
Nie bardzo rozumiem co z tym "Znacznik" :( W każdym razie linia, w której znajduje się kursor: Ln = Selection.Range.Information(wdFirstChara...
Cześć, mam problem z utworzeniem makra do podanego przeze mnie pliku. Otóż znajdują się tam trzy arkusze: Dane, Dane(2), Do uzupełnienia. W arkuszu Do uzupełnienia potrzebowałbym rozwiązania, aby pobierając dane z arkusza Dane (2) w odpowiedni sposób wstawiać nowe wiersze, pomiędzy stare tak aby nie trzeba było szukać miejsc w arkuszu Do uzupełniania...
Obawiam się, że tego nie rozwiążesz tak jakbyś chciał. Chyba, że z pomocą VBA. Excel stosuje tu zwykły mechanizm modyfikacji adresów jak w przypadku formuł. Nie ma tu znaczenia, czy adresy są z dolarami czy bez. Dolary odgrywają rolę tylko przy kopiowaniu. Najprościej unikać wstawiania wierszy na górnej granicy obszaru. Gdy wstawiasz nowy wiersz w miejscu...
Chyba warunkowe wstawianie wierszy (komórek) byłoby najwygodniejszym rozwiązaniem.
Witam [syntax=vbscript]Sub zamianki() Dim kom As Excel.Range Application.ScreenUpdating = False With Sheets("L-ki") For Each kom In .Range("c3:c70") If kom.Value <> "" Then Sheets("R-ki").Cells(kom.Row, "E") = Range("C" & kom.Row).Value End If Next kom End With Application.ScreenUpdating = True End Sub[/syntax]
czy są w ogóle w excelowskim vba jakieś komendy służące do rysowania tabel? Nagraj makro wstawiania tabeli to się przekonasz :) W sumie to jedna, dwie linijki, gdzie zakres jest typu string, więc łatwo podstawić wartości ze zmiennych. Jeśli ilość kolumn i nagłówki są stałe można wyrysować tabelkę z jednym wierszem i wstawiać kolejne, wplatając polecenie...
Cześć, Chciałbym się przywitać jako nowy użytkownik bo zapomniałem starego loginu i hasła :) Mam problem z tabelką. Otóż chcę w arkuszu zrobić kilka list rozwijanych. Chciałbym, aby po każdym dodaniu kategorii w liście, wstawiał się pod spodem nowy wiersz w tabelce. Wiem, że teraz mogę rozszerzyć tabelkę ale wtedy "zje" mi wiersze poniżej. Innym rozwiązaniem...
w miejsca w których powinny być, czyli w miejscach w których pojawiają się w drugim arkuszu Jak makro ma to ocenić? Co z wierszami bez indeksu w A? Myślałam żeby znaleźć te wartości z prawda i ich indeks minus 1 wtedy indeks plus 1 wstawić pusty wiersz i wstawiać wiersze
Przecież już dwa razy pisałem! Do ListBox1 od razu (przy jego wypełnieniu) wstawiaj wiersze już podzielone na Nazwę i Ścieżkę
Witam Jak wspomnieli Koledzy wyzej, nie powinien Ci byc w ogole string tu potrzebny - ale faktycznie czasami moze to byc przydatne - mialem podobnie gdy robilem swoj edytor ;) Gdy tworzysz string, pomiedzy poszczegolne wiersze wstawiasz Chr(13) + Chr(10) albo prosciej #13 + #10 :) string_wynikowy := wiersz1 + #13#10 + wiersz2; Pozdrawiam :)
To zrób tak: 1. Posortuj obie listy po nazwisku (trzymajmy się tego przykładu). 2. Przebiegasz pętlą po 1 liście aż do napotkania różnicy i wtedy: 3. Wstawiasz brakujący wiersz w odpowiedniej (warunek większe lub mniejsze - obie listy są posortowane) liście. Musi zadziałać. Nie mam czasu myśleć nad przykładem - mam spotkanie.
Próbowałem już przenieść bazę do MS Access niestety nie pasowało w obrabianiu i wyświetlaniu danych :/ A raczej czasu zabrakło. Minusem był brak wstawiania wierszy w tabelę a często sprzęt jest np. przenoszony i wiersz z nim nie może znajdować się na końcu tabeli :(
nie znalazłem rozwiązania mojego problemu Nie szukaj "rybki" do skonsumowania tylko szukaj "wędki" do łowienia w zasobach VB.netu :idea:
Musiałbym mieć tylko pustą kolumnę tak? Żeby 2x Klikać? Bo tam będę wstawiał dodatkowe wiersze. Nie jest to stała tabelka. Rosnąco numerami do góry.
Wstawiasz wiersz w środku formuły i po kłopocie.
dziękuje ja w tym temacie jestem nowicjuszem ale widzę ze kilka linijek kodu potrafi zrobić tak wiele - znalazłem taki kod który wstawia wiersze ale nie potrafię go połączyć - po potrzebował bym aby było to w oddzielnych komórkach plik w załączniku - proszę jedynie o podpowiedz spróbuje sam to zmodyfikować a jak nie dam rady to wtedy poproszę o gotowe...
Podmieniłem makro zgodnie z sugestią, niestety działanie nadal jest niepoprawne - mimo "użytych" tylko 5 wierszy z zakresu H5:H14 w dalszym ciągu wstawia 5 wierszy z danymi a kolejne 5 wierszy pustych. Załączam przykładowe pliki
Są jeszcze funkcje INDEKS, PODAJ POZYCJĘ i kilka innych, które dałoby się wykorzystać. Oczywiście wiąże się to z liczeniem wystąpień, kolumną pomocniczą i dodatkowym arkuszem wynikowym. Jeśli kolega ma na myśli zautomatyzowanie czynności, to zagnieżdżone pętle z licznikiem wstawianych wierszy, porównywaniem, przypisywaniem, etc. Kilka przykładów podobnych,...
Warunek w procedurze już jest, więc wystarczy zamiast Exit Sub dopisać wstawianie wiersza (nagraj rejestratorem) oraz z lekka skorygować resztę. Przyjmij zasadę "Od procedur są moduły i koniec", stąd moja uwaga o kropkach w argumentach Range ;) W kodzie arkusza zapisuje się procedury zdarzeniowe i makra kontrolek umieszczonych w arkuszu, lub jeszcze...
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.
Witaj. Czy przemyślałeś do końca temat? W jaki sposób są te liczby cyklicznie zmieniane? Ręcznie, czy są one generowane innym makrem, albo funkcją na podstawie formuł? W jaki sposób chcesz uruchamiać makro? Ręcznie dla całego arkusza? Ręcznie dla jednej komórki? Automatycznie po zmianie wpisu w komórce? Jeśli będziesz wykonywał dla całego arkusza, to...
Witam. To nie działa. Przy wstawianiu nowego wiersza znikł jeden obrazek... Wszystkie wstawiane poprzez wstaw obraz z pliku i zakotwiczone do komórki. Zauważyłem też że można je przeciągnąć poza komórkę a nie powinno sie tego dać rady zrobić. Ok nie znikł schował się pod innym... ten program to jakaś masakra. Zmienia mi też polskie znaki na krzaczki...
Function zapas(tydz, wiersz) Application.Volatile 'Excel 2k7 'Application.Volatile = True 'Excel 2k 'trochę tu latania po arkuszu :) 'szukam wiersza zawierającego tekst wt = Cells.Find(what:="Dni robocze", lookat:=xlWhole).Row 'określam pierwszą kolumnę z wielkością produkcji / zółta tabelka zKol = tydz - Range("C5")...
Dzięki, działa super. Jakie wprowadzić zmiany, żeby dane wejściowe będą analizowane od 4 wiersza kolumny B w jednym arkuszu i wstawiane od 6 wiersza kolumny C innego arkusza?
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Ustaw zaznaczanie calego wiersza w DataGrid zamiast pojedynczych komórek. W jedną z kolumn wstawiaj klucz główny tabeli z pracownikami, dodaj np. przycisk Usuń i po jego wcisnieciu odczytaj ten identyfikator z zaznaczonego wiersza tabeli i wykonaj na bazie zapytanie DELETE FROM .... WHERE ..... = wartosc.
Co definiuję nie tak w powyższej pętli. [syntax=vbscript]Sub nazwiska() Dim i As Integer Dim j As Integer Dim ostWrs As Integer Dim Nazwisko As String ostWrs = Range("A65536").End(xlUp).Row For i = 79 To ostWrs Step 93 For j = 79 To ostWrs Step 1 Nazwisko = Range("C" & i).Value Range("CM" & j) = Nazwisko Next Next End Sub[/syntax] Zadaniem makra miało...
Cześć wszystkim forumowiczom, Potrzebuję makra/innego rozwiązania w Excelu. Chciałbym, żeby w momencie wstawiania nowego wiersza do tabeli: 1) aktualizowała się l. p. 2) aby formuły w pozostałych wierszach (również formuły na polach ukrytych) zmieniały się kolejno "obejmując" inne komórki. Najłatwiej byłoby mi to pokazać np. na Teams poprzez udostępnienie...
Jak wciskasz enter, to w tym miejscu wstawiany jest znak nowego akapitu. Można taki znak wyszukać i zamienić na coś innego. Trzeba w pomocy office poszukać jak reprezentowany jest znak nowego wiersza/akapitu. W openoffice w polu wyszukiwania wstawia się /n i można znaleźć akapity. W polu "zamień na" można wstawić spację. /t powinno oznaczać tabulator...
Witam serdecznie. Uprzejmie proszę o pomoc w stworzeniu Makra (funkcji ?) importującego wybrane dane z innego arkusza Excel. Mam Plik_A.xlsm z tabelą, którą chcę wypełnić wybranymi danymi z Plik_B.xls. Chodzi konkretnie o import danych z kolumny Imię i Nazwisko Pacjenta, Adres Pacjenta i PESEL Pacjenta. Plik_B jest generowany automatycznie z programu...
20 par 'Date' i 'Price' dla różnych akcji) Trza było tak od razu :) :arrow: Marek003 Spróbowałem po Twojemu. Swoją drogą: dlaczego obrabianie pojedynczej kolumny trwa sekundę a tej samej kolumny, tym samym makrem z zapisanymi 39 innymi kolumnami trwa siedem razy dłużej? Być może jest to problem z jakimś obszarem pamięci lub http://obrazki.elektroda.net/25_12784384...
Cześć, nie znam języka Visual Basic, ale w związku z moją pracą na arkuszach exelowskich potrzebuję stworzyć makro, które automatycznie dodaje mi wiersz ze skopiowanymi niektórymi danymi z wiersza powyżej. Makro ma działać na tej zasadzie, aby po zmianie wartości na 1 w każdej komórce w kolumnie AG (na chwilę obecną ma zakres od 11 do 14, ale docelowo...
Dzień dobry, Nie wiem czy o to Panu chodziło, ale rozwiązanie wydaje się dość proste. Po zastosowaniu formuł jak w przykładzie puste wiersze można zamaskować filtrem (tak chyba najprościej).
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...
Twój opis niestety nie jest jednoznaczny. Tutaj duplikaty są grupowane po wartości z kolumny A, i dla każdego nowego wyrazu (z kol. A) wstawiany jest kolejny wiersz. Czy tak pogrupowane zestawy duplikatów, zamiast wstawiania do nowego wiersza, mają być kopiowane do kolejnej wolnej kolumny pierwszego wiersza? Załącz proszę przywołany plik z uzupełnionym...
Excel niestety kaleki jest w opcję "suma strony". Też próbowałem swego czasu z hPageBreacks.count i hPageBreacks(n).Location, ale ja swoje a Excel swoje... Sposobu nie znalazłem. Jeżeli zmuszony jestem do sumowania stron w przypadku długiej tabeli, to przełączam do widoku "Układ strony", wstawiam wiersz na dole strony i sumuję zakres. Na nst. stronie...
Dzień dobry, mam podobny problem. Chciałabym, aby po wyborze Imienia z listy rozwijanej pojawiło się okienko do wpisania nazwy i hasła lub tylko hasła dla danego użytkownika. Jeśli użytkownik wpisze poprawna nazwę i hasło to pojawi się nowy wiersz nad wpisem (to już mam), ale jeśli nie wpisze poprawnie danych to zawartość wiersza się wyczyści z danych...
makro które będzie na podstawie porównania wiersza i kolumny wstawiało znak " "X" Makro VBA można wykorzystać do automatyzacji wielokrotnie powtarzanych czynności w aplikacjach Office :idea: Nie przedstawiłeś kolego żadnych plików, ani żadnych informacji, które wskazywały by, że w Twoim przypadku istnieje jakakolwiek możliwość zastosowania kodu VBA...
(at)PRL już tłumaczę 1. W arkusz BAZA wklejam dane. 2. Uruchamiam makro 2.1 Makro ma zadanie sprawdzić kolejność liczb 2.2 Jeżeli znajdzie brakującą liczbę/liczby to wstawia w ten arkusz "BAZA" nowy wiersz/wiersze i w ten nowy wiersz/wiersze wstawia brakującą liczbę/liczby i zaznacza na kolor zielony 2.3 wstawione liczby przenosi do arkusza"brakujące"...
Witam Potrzebuje wykonać taką operację w Excelu. Mam dane w kolumnie [A] w wierszach od [1] do [1000] : [A] [1] Ala [2] Zosia [3] Kasia [*] XXX [1000] Genowefa potrzebuje zrobić taki układ: [B] [1] Ala [2] [3] [4] Zosia [5] [6] [7] Kasia i tak dalej aż do 1000 wiersza. Jak ktoś ma pomysł to słucham. :D
w tabeli znajdującej się w Arkuszu1 odnajdywany byłby wiersz zawierający "XYZ", a nastepnie wiersz ten byłby wstawiany do Arkusza2 w tych samych adresach komórek czasem wstawi w wiersz odpowiadający adresowi wiersza z źródłowego arkusza A więc w ten sam adres, czy do nowego wiersza? PS. Niestety funkcje się nie sprawdzą bo ja potrzebuje skopiować wartości,...
Temat jest bardzo popularny, poszukaj na google pod hasłem C# datatable export csv , znajdziesz gotowe przykłady. Skoro dane masz już pobrane do tabeli, to nie lepiej eksportować tabelę? Zwykły zapis do pliku tekstowego + dwie zagnieżdżone pętle: foreach po wierszach tabeli, a dla każdego wiersza pętla foreach po kolejnych komórkach, a w odpowiednich...
Przy wstawianiu nowych wierszy nie kopiowały się niektóre formuły, później pola te zostawały puste więc makro je pomijało. Problem rozwiązany :) Dodano po 23 Dzięki wszystkim za pomoc :)
Dziwny błąd importu z Excela do Access 2016? - Pole w tabeli MS Access ma typ tekst krótki (255). Gdy importuję dane z Excela, to okazuje się, że wszystko zależy jaki typ jest w pierwszym wierszu. Jak jest tekst to wszystko OK, ale jak jest to liczba to wywala błędy konwersji dla tekstu w innych wierszach! W Excelu wstawiam w pierwszym wierszu apostrofy...
Witam, czy możliwe jest napisanie takiego kodu żeby po pierwszym kliknięciu na przycisk (wykonany z funkcji "Wstawianie -> Kształty") odkrywał konkretne wiersze a po drugim kliknięciu na ten sam przycisk te same wiersze ukrywał? Pozdrawiam
Czyli są to listy, a przecież one "same z siebie" dodają sobie wiersze ... ? Planujesz wstawiać coś tylko ręcznie, czy może "jakimś mechanizmem" przenosić do listy/list coś z innego miejsca arkusza/zeszytu ?
[syntax=vb]For i = 1 To 1000 r = i * 4 ark.Range("B" & r).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),1))" ark.Range("B" & r + 1).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),8)&"" | ""&INDEX('Lista...
Tutaj masz tablicę n*n, następuje przejście po każdym elemencie, czyli złożoność kwadratowa O(N^2). BTW. Tamto wypisywanie na ekran można by robić jednocześnie przy wstawianiu elementów do tablicy (za if-else-if).
Witam Chciałbym aby makro wstawiało wiersz. [syntax=vbscript] Range("B2").Select Selection.EntireRow.Insert [/syntax] ale to działa gdy jestem w danym arkuszu, a ja bym chciał coś takiego zrobić aby będąc w "Arkusz1" i na podstawie danych z tego arkusza stworzyć nową tabele w nowym arkuszu "Arkusz2" I to jakoś mi nie chce zadziałać (nie mogę składni...
Chodzi o to by w kolumnie A wpisać automatyczną numerację, ale jeśli w kolumnie B mam datę z określonym miesiącem to numeracja dla danego miesiąca zaczyna się od 1. Rozwiązań jest około miliona ;) Dla wyboru w miarę najprostszego, musisz jeszcze napisać, czy dokonywanie wpisów odbywa się zawsze bez dodawania (wstawiania) wierszy miedzy już zapisane....
Czy da się to zrobić bez zamieniania obszaru na tabelę Excela? Da się, ale jest z tym więcej zachodu, a za chwilę będziesz znowu coś zmieniać i znowu będziesz pytać. Jaki masz problem z tabelą Excela? Ona jest bardzo elastyczna, jak dopisujesz wiersze, to formuły się automatycznie kopiują, można ją dowolnie formatować, nawet tak, że prawie jej nie...
Czyli wstawianie arkusza opanowane. Teraz mamy wpisywać *jakieś* dane w jakiś sposób. Można założyć, że linia po linii (ale to założenie wynikające tylko z kontekstu wcześniejszych postów). W jaki sposób działa teraz wpisywanie do jednej linii? Makro, które już Kolega posiada zaczyna wpisywać od komórki, która jest aktualnie zaznaczona i wypełnia ileś...
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.
Aha, rozumiem... W takim razie musimy ustalić min. i max. godzinę dla każdej "grupy". Poniżej "dopiski" do istniejącego kodu. Najpierw kolejny błąd który znalazłem :) Dla grupy B pomija jeden dzień z zapisu, brakuje +1 we 2 miejscach we fragmencie: dwóch miejscach dostawmy 1 linijkę kodu: [syntax=vb]'przepisanie typu informacji With .Cells(wiersz, 1)...
W poscie nie jest napisane ile w tabeli bedzie rekordow. Jezeli to bedzie tabela slownikowa to ta metoda jest najlepsza. Jezeli maja tam byc tysiace rekordow to trzeba odpowiednio zaprojektowac ta tabele (niepowtarzalne ID).
Wstawiam nowe logi
Tak istnieje taka możliwość, datagridview.oncellcontentclick lub onclick lub onmouseclick, onmousedoubleclick, mouseup, jest kilka zdarzeń gdzie można by to wywołać. Np przy zdarzeniu oncellmouseclick, jeśli index kolumny =-1 i nacisniety przycisk myszy to prawy przycisk, to pokaż contextmenustrip z dwoma przyciskami, pierwszy wstawia wiersz z indexem...
To jest tylko około 2 000 rekordów. Ma kopiować dane ze wszystkich komórek z wiersza powyżej. Wstawianie nowego wiersza ma być tylko , jeżeli w kolumnie G w komórce jest liczba >1. Np. jezeli jest liczba 5, to ma dodać 4 wiersze, a w wierszu gdzie jest 5, to ma zamienić liczbę na cyfrę 1. Chcę aby to można było zrobić na dodany przycisk odśwież. (ma...
Witam. Mam problem z formułą która w kolejnych wierszach wstawiała by daty z tym samym dniem ale kolejne miesiące pierwsza komórka =dzis(); kolejna 18-08-2018, 18-09-2018, 18-10-2018. Proszę o pomoc
witam, proszę o pomoc, moja cała znajomość programowania ogranicza się do znajdowania i dostosywania formuł - kiedyś znalazłem i dostosowałem do swoich potrzeb makro do wprowadzania danych w arkusz za pomocą userform z przyciskami do przechodzenia między wierszami, wstawiania i kasowania wierszy - ogólnie bardzo fajny programik. niestety po skopiowaniu...
Witam Niedawno kupiłem drukarkę igłową oki 321 microline. Zainstalowałem sterowniki pod XP - drukarka drukuje, wszystko jest ok ale na początku każdego wiersza wstawia jakiś znaczek (różne X, Y, kreski itp). Co może być przyczyna tego. Bardzo proszę o pomoc.
Zbyt enigmatycznie opisujesz kolego swój problem :cry: (dodatkowo brak przykładowego pliku lub ilustracji :!: ) Co tam ma być w tych wierszach "stopki" każdej strony (rozumiem, że strony wydruku ? analogicznie jak wstawianie początkowych wierszy :?: ) - sumy częściowe, jakieś wartości do przeniesienia, czy stałe informacje tekstowe ? W podobnych przypadkach...
licznik ustawiłem, co 3 wiersz wstawia mi pusty wiersz, tylko nie mam pojęcia jak te sumy zrobić. Jakie zapytanie żeby pobrał z dwóch poprzednich sumę.
Cześć, chciałbym się podłączyć pod temat chyba z podobnym problemem. Posiadam arkusz excel gdzie osoba trzecia będzie wprowadzać nowe pozycje (wiersze) i uzupełniała do każdej pozycje dane w kolumnach. Każdy wiersz posiada 10 kolumn z czego kolumny 2-3 (trzy) posiadają skomplikowane formuły dot. auto-uzupełnienia. Excel jest tak zrobiony, że jak ta...
Rozumiem to doskonale i naprawdę jestem wdzięczny za pomoc bo bardzo wciągnął mnie ten temat :) Do rzeczy. Grafik już ślicznie liczy godziny pracy, ma zdefiniowanych kilka grup pracowników i grupa przypisana do danego obiektu, wybrana w ark. "Sel" fajnie wyświetla się w głównym arkuszu. Teraz kłopot polega na tym, że listy pracowników mają różną długość,...
Jakoś to wszystko postawione na głowie :) Koniecznie musisz używać Excela? Aż prosi się o Access'a lub jakiś program magazynowy. W takiej formie masz sporo pisania, szukania, wstawiania wierszy itp. gdzie łatwo o błąd. Chyba, że każda faktura ogranicza się do jednej pozycji, pyt.2: czy tak? Moim zdaniem nie ma sensu zapisywanie w arkuszu "raport magazynowy"...
makro wstawianie wiersza excel wstawianie wiersza poniżej excel makro wstawianie wiersza
lampy buczenie klimatyzacja zasilanie router talktalk
płyta główna viessmann mikser niewiadów
Sony STR-DB1080 – amplituner nie stroi stacji FM/AM, usterka tunera, głowica, EEPROM Xerox WorkCentre 6605 – jakość zdjęć, kolory odbiegające od oryginału, kompresja w ustawieniach