[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...
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.
Można do tego wykorzystać makro zdarzeniowe, na przykład takie: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim cel As Range Application.EnableEvents = False For Each cel In Target If Len(cel) > 0 Then If Left(cel, 1) <> "'" Then cel.Value = "'" & cel.Value End If Next cel Application.EnableEvents = True End Sub...
W Excelu? Tylko dodawanie poprzez Makro (lub z jego wywoływaniem zdalnym).
dodanie takiego makra jak poniżej, nie wyświetla mi napisu "hello" Popełniasz błędy: - wprowadzając "prywatne makro arkuszowe" do modułu uniwersalnego :cry: , jeśli to samo makro wkleisz do modułu arkusza "zamówienia" i dokonasz zmiany treści komórki - zamiast ujętej tam formuły wprowadzisz tam 1 - to uzyskasz Twój pożądany efekt - "hello" :D ; - nie...
Do arkusza nie musisz odwoływać się po nazwie. Skoro nagrywałeś makro, to pewnie masz dodawanie nowych arkuszy na końcu. Możesz odwołać się np. do ostatniego lub przedostatniego arkusza w kolekcji:[syntax=vbscript]Worksheets(Wor... Worksheets(Worksheets.Count - 1)[/syntax]i na nich robić co tam potrzebujesz. Z tabelami podobnie - jeżeli masz...
Rozumiem, że w main.c aby załatwić sprawę portów muszę zrobić "#define __AVR_ATtiny2313__" To się ustawia we właściwościach projektu. To tam wybierasz MCU i IDE przy kompilacji sam przekaże odpowiednie makro do preprocesora. Kod źródłowy to nie jest dobre miejsce na tego typu definicje. Ponadto nie masz w projekcie zdefiniowanego F_CPU. To wiem, ale...
Efekt jaki oczekujesz: wpis aktualnej daty i godziny w kolumnie A, jeśli cokolwiek wpiszesz lub skasujesz w kolumnie B :D - tak jak na zrzucie 990806 można zrealizować poprzez makro zdarzeniowe typu Worksheet_Change :spoko: 990807
Był błąd - chyba go poprawiłem. Zmieniłem trochę całość - eksportowałem jako moduł bas - dołącz do swojego projektu i użyj. Również zamieszczam arkusz testowy z importowanym modułem. Użycie jest proste - zaznaczasz zakres komórek, na którym chcesz przeprowadzić zmiany i w menu Narzędzia -> Makro -> Makra uruchamiasz jedyne makro, jakie jest - zrób_gwiazdki....
1. Ustawiasz w arkuszu układ danych, tak aby jak najlepiej pasował ci do wyliczeń 2. Określasz i deklarujesz typy zmiennych - jeśli będziesz je wykorzystywać 3. Zliczasz ilość komórek z danymi (liczby) 4. Dla średniej arytmetycznej wykonujesz dodawanie liczb, a następnie podział sumy przez ilość komórek z danymi (liczby) 5. Dla średniej kwadratowej...
Wiesz co, za daleko to poszło tu pojawiają się jeszcze inne błędy. Musze to przemyśleć od początku. edit ----------------------------------------... Trzeba było tak zrobić od początku - nie było by tylu problemów. Skróciłem formułę ale dodałem "zamianę" danych co jest logiczne: Jeżeli godzina końca jest mniejsza od godziny początku to znaczy, że godzina...
To zależy ile docelowo przewidujesz wierszy w tabelce. Jeśli nieokreśloną, to tylko VBA...
Trochę niesatysfakcjonująca odpowiedź. Ma to mi usprawnić pracę czy planowaniu i excel jest w sam sobie wystarczający :) Proszę tylko o małą pomoc.
Wszystko działa płynnie do momentu włączenia funkcji udostępniania arkusza (w tradycyjnej formie, Excel 2016). Mimo na pulpicie, ale piszesz że wszystko jest ok do momentu udostępnienia, Zrób to samo z maluśkim i większym plikiem. I się sam przekonaj udostępniając. Kiedyś znajomy nauczyciel zapisał cały arkusz excel i po czasie był zdziwiony że nie...
Witam jest ktos w stanie pomoc mi w stworzeniu makra ktore dodaje godzine do komorek. A mianowicie jezeli cos pojawi sie w kolumnie w komorce "D" to w kolumnie w komorce "G" w tym samym rzedzie pojawi sie godzina. i znow jezeli cos pojawi sie w komorce "H" to pojawi sie godzina w komorce "I" tez w tym samym rzedzie. oczywiscie jezeli nie pojawi sie...
Proces ten prowadzi do okresowego blokowania azotu (po obumarciu bakterii azot staje się dostępny dla roślin), co w przypadku braku nawożenia azotem prowadzi do spadku plonu." Dlatego na słomę daje się 8t/ha pomiotu ptasiego, który ma bardzo dużą zawartość fosforu i azotu i mało potasu. Powoduje to dobry rozkład słomy, brak blokowania azotu, wprowadzenie...
Można użyć takiego makra: [syntax=vbscript]Sub DopiszZnakiZapytania() Dim fnd As Range With Columns("B:B") Set fnd = .Find(What:="29????", After:=Range("B1"), _ LookIn:=xlFormulas, LookAt:=xlWhole) If fnd Is Nothing Then Exit Sub Do fnd.Value = fnd.Value & "???????" Set fnd = .FindNext(After:=fnd) Loop Until fnd Is Nothing End With End Sub [/syntax]Jeśli...
że makro odnalazło brakujące liczby, dodało wiersz lub wiersze i dodany wiersz lub wiersze zrobiło na kolor zielony I gdzie to makro?
(...) wo wartość "aaa" na wartość "bbb". Wartość miała by być wyszukiwana i zamieniana w kolumnie C. Najlepiej jakby się uruchamiało po edycji danych właśnie w kolumnie C. Ważne żeby było tylko przypisane do jednego arkusza tak aby po zmianie danych w innym arkuszu w kolumnie C się nie uruchamiało. Dziękuje. Wstępna ocena dostępnych informacji Witam,...
Dzięki za poprawną formę kodu. Oczywiście na początku u mnie nie zadziałał, ale doszedłem w końcu w czym jest problem. Wraz z uruchomieniem makro, przed kopią danych do innego skoroszytu, były usuwane wszystkie odstępy przy użyciu Trim, co skutkowało tym że dane przyjmowały postać tekstu. Teraz zostało mi dostosować swoje makro pod Twój kod z pętlą.
Jeśli ktoś ma jakiś rozwiązanie chętnie wysłucham :) Ja mam takie copy - paste nagraj makro :)
Witam serdecznie, Mam drobny problem (dla was drobny), chcę aby w moim zleceniu po zapełnieniu przez użytkownika wszystkich przygotowanych pozycji mógł on dodać kolejną odpowiednio skonfigurowaną. I tak nagrałem makro które kopiuje mi przygotowane pola, odnajduje w arkuszu pierwszy wolny wiersz i wkleja mi to co przygotowałem. Jest jeden problem chciałbym...
Działa super! Tylko właśnie problem mam z tym aby do skopiowanych wartości dodał jeszcze dwie kolumny i przypisał tam wartości, które by pobrał z nazwy pliku. Przykładowo plik o nazwie 34_190_2023-05-19, w którym znajduje się 20 wierszy, makro kopiuje wszystkie + dodaje kolumnę z datą "2023-05-19" + kolumna z numerem "190" dla wszystkich 20 wierszy...
Witam! Proszę o pomoc w napisaniu makra, które będzie uruchamiane za pomocą przycisku. Zadaniem makra będzie dodawanie wartości z pól: K5-K25 do pól C5-C25. A następnie makro to ma czyścić dane z pól K5-K25....
Witam! Od czasu do czasu korzystam z VBA lub po prostu rejestruję proste makro, żeby ułatwić sobie pracę. Ostatnio natrafiłem na problem. Zarejestrowałem proste makro ułatwiające dodawanie kolejnych odczytów do tabeli w arkuszu, który jest częścią większego skoroszytu, ale innych makro w nim nie ma. Ku mojemu zdziwieniu okazało się, że makro czasem...
Witaj. To nie wygląda na makro dodające nowe rekordy do tabeli. Właśnie przy funkcji dodania nowego rekordu do tabeli można dopisać interesujące Koleżankę mnożenie.
Przy założeniu, że arkusz składa się z nazwy stałej i daty, najprostsze makro wygląda mniej-więcej tak: nazwa_stala wpisz swój stały fragment nazwy. Dopisz sobie dodatkowe warunki które będą uwzględniały np. kilkukrotne uruchomienie makra tego samego dnia itp. aby nie wyskakiwały błędy
Witaj. Wygląda na to, że w tym arkuszu takiego makra nie ma. Opisu, jak ma to makro działać również nie ma (ma sobie dodawać losowo wiersze z losowymi formułami na podstawie losowych kryteriów?), jakiejkolwiek próby rozwiązania też nie ma. Czego więc oczekujesz?
może ktoś będzie w stanie pomóc Spróbuj "pomóc sobie sam" :D W Twoim pliku xlsm spróbuj nagrać dodatkowe makra, które będą rejestrować cały pełny cykl poszczególnych działań (szukanie, dodawanie itp). Jak zaczniesz je analizować to powinieneś dostrzec zasadniczą różnicę :idea: Makra będą cały czas przerzucały aktywność pomiędzy poszczególnymi plikami...
Witam, mam taki problem. Udało mi się jakoś napisać makro dzięki któremu dodaję nową pozycję do bazy (jak w załączniku). Wszystko działa dobrze jak dodaję jedną pozycję, jeśli chcę dodać kolejną pozycję pojawia się błąd i program się wyłącza. Domyślam się, że musi tu być jakaś pętla. Dodawanie pozycji do bazy odbywa się klikając na przycisk "Wstaw dane...
Hej, mam problem z hasłem na pliku excel. Mam makro zakładające hasło Sheets("DATA").Select ActiveSheet.Unprotect "HASŁO" teraz chciałabym zezwolić na odblokowanie edycji arkusza - mianowicie zmiany kolorów, czy ukrywania kolumn. Gdy ręcznie zakładam hasło na pliku mogę w checkboxach zezwolić na edycję danych i określi zakres, które mogą być edytowane...
Witam serdecznie, Bardzo proszę o pomoc w kwestii poniższego kodu. Jestem na bardzo podstawowym poziomie i nie mogę poradzić sobie z tematem pętli. Napisałam makro dodające linie z identycznymi wartościami i faktycznie dodaje to, co powinien do pierwszego wiersza danej wartości. Ale bardzo zależy mi na tym, aby zostawiało tylko ten pierwszy wiersz (sumujący)...
A skoro się nie znasz na VBA, to powinieneś już w #1 opisać, jak ma makro działać, a nie, że ciągniemy prosty temat przez 3 dni... [syntax=vbscript] Case "$D$" & w Application.EnableEvents = False Range("D" & w) = Mid(Range("D" & w), 2) Cells(w, "E").Select Application.EnableEvents = True Case "$E$" & w Cells(w + 1, "A").Select End Selectt[/syntax]
Pewnie ktoś z wyższą wersją się odezwie, żeby Ci pomóc.:)
Witam Tabela z uprawami - po wprowadzeniu działek do arkusza (kolumna C i D) okazuje się ze na niektórych polach jest więcej niż jedna uprawa. Wtedy wstawiam wiersz poniżej danej działki i wpisuję kolejne uprawy na danej działce (tylko kolumna E, G, F, natomiast C i D zostają puste w tym wypadku). Podobnie z usuwaniem zbędnych wierszy w danej działce....
Dzięki, o to chodziło :) [syntax=vb]Public Function sciezka() As String Dim NazwiskoImie As String With Alpex NazwiskoImie = .txtNazwisko & " " & .txtImie1 sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & NazwiskoImie & "\" & NazwiskoImie End With End Function[/syntax] EDIT: Podczas testowania makra zauważyłem ze wyskakuje jedem maly błąd....
Tak. Musiałbyś dopisać wyszukiwanie w makro przycisku. Jeśli znajdzie, dodajesz w instrukcji warunkowej, jeśli nie, dopisujesz na końcu udało mi się zrobić to dodawanie po sobie tych danych w tabeli i sortujesz.
W Twoim opisie coś nie gra :cry: Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9... Ma skopiować dane z wiersza powyżej . To znaczy, z którego wiersza ma kopiować jeśli zmiany wprowadzasz w "w pierwszym wierszu" :?: :D Wierszy mam około 2 000 tyś 2 mln wierszy to musisz pomieścić w dwóch tabelach wykorzystując całą wysokość arkusza (jeden...
Dokładnie tylko makro mi pomorze. Jeszcze raz pomóżcie - mogę zapłacić.
Nie wiem o co chodzi... Jeśli do przycisku dodam w accessie jakieś zdarzenie z tych accessowych, czyli przejdź do nowego rekordu, czy jakieś inne to działa. Jesli jednak wpiszę kodu jako makro i potem się do niego odwołam, w sensie, że wpiszę jako zdarzenie na kliknięcie nazwę makra, to wywala mi błąd, że jeśli to nowe makro to sprawdzić czy jest zapisane....
idat wpisywane recznie, na poczatku nowej I zmiany, lub gdy juz potrzeba wpisac dane I zmiany(nowej). wtedy kasuje sie tabela I, II, III zmiany. Makro dodaje nowy wiersz ze wpisana data. Dane w 'Tabela zapisu ' gotowe kazdy raz, jak byly zmiany w itab
Z dodawaniem chyba jest ok. Nadaje numer wyższy niż 9 :) Problem jest jeszcze z tą automatyczną kompilacją. Z zaufaniem makr u mnie jest ok bo używam innego pliku z inną numeracją i automatyczne dodawanie działa poprawnie. Pytanie jeszcze.. wraz ze zmianą miesiąca na nowy - odliczać zacznie od 01, 02, 03, ..., itd ?
Spakowałam dwa przykłady. W drugim przykładzie w kolumnie A, arkusza1 cyfra 5 pojawia się w tej samej kolumnie(A) a nie pojawia się w innych arkuszach "arkusz2 i arkusz3". Też jest brana za duplikat. Potrzebuje edycji kodu która pozwoli mi na dodawanie większej ilości kolumn(np 100) jak makro znajdzie duplikat w kolumnie A. Zdaje sobie sprawę że będzie...
Tu masz konwerter (Jak będzie po angielsku to przełącz na polski): [url=https://www.microsoft.com/pl-PL/dow... do konwertera Co do załączonego pliku i makra. Makro w tym pliku "tworzy" a raczej włącza zwykły filtr - nic więcej > nie jest konieczne byś włączył filtr makrem. Możesz to zrobić ręcznie (Patrz arkusz2 ). Zaznacz u...
R6 i R7 EDIT: Dzięki wielkie :). P.S. możesz mi jeszcze podesłać link na PW do Twojego zdjęcia? Nie zdążyłem zapisać a może się przydać jak znowu coś się spali. EDIT: już działa dodawanie obrazków więc dla tych, którym także popalą się smd'ziaki wrzucam zdjęcie, które otrzymałem od TONI_2003. http://obrazki.elektroda.pl/1506896700_1...
kłopot wydaje się banalny, ale nie wiem jak sie za to zabrać. Jak sam piszesz: jeśli żółte, to sumuj. Makro w przykładzie dodaje wartości w kolumnie "M" i jeśli trafi na odp. kolor, wpisuje sumę 5 kolumn dalej. Dorób pozostałe 4 sumowania i powinno być OK [syntax=vb]For i = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 13).Interior.ColorIndex =...
Witam, mam w sumie prosty problem ale nie wiem jak go ugryźć. Mianowicie: potrzebuję stworzyć makro , które będzie zaznaczało kolumnę do ostatniej nie pustej (ctrl+shift+arrow) wykonywało pewne działanie (powiedzmy dodawanie wartości w dwóch sąsiednich komórkach) i wyrzucało wynik w nowej kolumnie, ale tylko do wiersza, który jest nie pusty. Chodzi...
potrzebujesz pomocy z kodem w VBA czy szukasz kogoś kto napisze całe makro? Dodano po 1 Przygotowałem w zasadzie bardzo proste makro: Kopiuje Twój arkusz "x1" (nazwałem go "Template") i w nim zmieniam tylko dane. Nazwę nowego arkusza biorę z arkusza "Wyświetlenie odczytów" z kolumny A czyli "Lp." ale idzie to łatwo zmienić w kodzie (dodałem tam komentarz)...
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 i jeżeli istnieje już folder to też będzie powodować błąd... Trzeba po kolei przewidzieć potencjalne błędy i przechwycić je. Zajmuje to niejednokrotnie do 2/3 czasu poświęconego na napisanie samego tylko kodu/makra/programu i znacznie wydłuża czas pracy nad projektem. Zadanie żmudne i prawie niewidoczne "na zewnątrz", bo przecież jeśli błąd nie...
makro dodawanie wiersza makro dodawanie wierszy dodawanie kolumn makro
przerabianie instalacji elektrycznej komputer wyłączać skanować migacz niskim
podczerwien lampa mikrokomputer cobra1
Schemat podłączenia termostatu TAM 145 w lodówkach Mińsk Radio Android nie odbiera sygnału FM - brak zasilania wzmacniacza antenowego