Niestety też nie widzę opcji by nie było makra. Ale nie makro ukrywające tylko zwykłe wprowadzenie informacji do wydruku do ilu stron ma drukować. Czyli pod przycisk "wrzucić" [syntax=vb] Sub Druk() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("POŚW").Range("E22") End Sub [/syntax] I "drukować" przyciskiem.
Dzień dobry, Jeśli rozwiązanie ma być w Excelu to należy użyć funkcji JEŻELI np. =JEŻELI(A1>151;150;A1). Formułę można potem skopiować, aby objąć wynikami cały zakres. Można też najpierw zaznaczyć zakres, wprowadzić formułę i nacisnąć Ctrl+Enter, nie trzeba już będzie kopiować. Wyniki można zamienić na stałe, jesli to konieczne. Skopiować Ctrl+C, potem...
Jeśli w zakresie są formuły, to zmienia postać rzeczy. Spróbuj wykorzystać inne zdarzenie. [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim kom As Range For Each kom In Range("C13:G13") If kom.Value < 0 Then MsgBox "Błąd w " & kom.Address(False, False) Next End Sub[/syntax]Warto może ograniczyć Target.Range, bo zmiana...
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
Temat do zamknięcia, Maciej rozwiązał moją zagadkę :) Bardzo dziękuję!! Makro działa świetnie, na pewno zaoszczędzi mi wiele monotonnej pracy.
Witam ponownie. Mam jeszcze jeden (w najbliższym czasie) problem do rozwiązania. Niestety formuły tutaj nie udało mi się skonstruować (ale jeśli można to chętnie wykorzystam :) ), dlatego kieruję prośbę o pomoc do programistów VBA. Żeby zrozumieć o co mi chodzi, trzeba zapoznać się z arkuszem, który załączyłem do tego postu. Natomiast opis wklejam też...
Witam. Utworzyłem makro do zmiany koloru karty w zależności od wartości komórki. Jeżeli w komórce F6 wartość będzie większa od 0 to karta zmieni kolor na czerwony. Makro działa, ale muszę je wywoływać każdorazowo uruchamiając to makro. Na razie poradziłem sobie tworząc we wszystkich kartach przycisk uruchamiający to makro, ale jest to trochę bez sensu....
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...
Witam. Nie potrafię sobie poradzić z zamianą wartości w komórce, jeżeli ta wartość jest wynikiem formuły. Nie pomaga nawet przekopiowanie tejże wartości do innej komórki i wklejenie samej wartości. Dokonując zmany popzez ctr+f "zamień" nic się nie dzieje poza pogrubieniem trzcionki. Dodam, że próbuję wspomnianą wartość zamienić na pustą komórkę. ( Nie...
Drodzy użytkownicy, Mam taki problem, że nie potrafię napisać kodu za pomocą którego będę mógł zmieniać wartość skali osi X na wykresie. Chciałbym za pomocą przycisku żeby makro dodawało 0,002 do skali oraz tyle samo odejmowało Mianowicie wykres wygląda tak: https://obrazki.elektroda.pl/3439578800_... https://obrazki.elektroda.pl/8731476400_...
Cześć. Bardzo proszę o pomoc. Mam plik excel w którym jest 150 arkuszy o nazwach liczbowych odpowiednio 1, 2, 3... 150. W każdym jednym arkuszu chciałbym aby było makro które kopiuje konkretne dane do nowego pliku (zawsze te same od S6:V6). Plik excel z makrami jest "matrycą" która co miesiąc powstaje nowa (służy do rozliczania zleceń) i zmienia się...
Spróbuje wyjasnic jeszcze raz o co mi chodzi. Dodaje dwa pliki z excela(jeden z makrem drugi bez). Mam dużo większą ilość danych niż w przykladowych plikach i większy rozrzut wartości zakończonych gwiazdką(*). Potrzebuje pozbyć się gwiazdek do czego stworzyłem proste makro. Po jego wykonaniu gwiazdki znikają, lecz formatowanie tych komórek pozostaje...
poszczególnych konfiguracji w tabeli arkusza Excel z poziomu SolidWorks Nie wiem jak to wygląda w Solid Works, ale zakładam, że tam jest VBA i z jego poziomu łączysz się z Excelem przez referencje. Jeśli tak to chyba należało by pisać tak (Nie w Excelu!): [syntax=vb]Sub RunMakro() Call OpenExcel40(Empty) End Sub Private Sub OpenExcel40(DimCol) Dim...
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Panowie. Mam takie problem. Kiedy mamy stworzoną tabele w Excelu przy każdorazowym dodaniu nowej wartości wiersza tabela nam się powiększa mam na myśli głownie formatowania. Na czym polega problem? 1.Więc kiedy usuwamy wartości z wiersza formatowanie zostaje.W jaki sposób stworzyć taką tabele aby np dane o wielkości tabeli były pobierane np z pierwszej...
W zasadzie ładnie algorytm już opisałeś, pozostaje tylko poszukać odpowiednich funkcji. Wg mnie, jeżeli nazwy w kolumnie A nie będą się powtarzały, to o wiele prostsza w użyciu będzie funkcja .match , np. [syntax=vb] Szukana_nazwa = Worksheets("Arkusz1").Cells(ActiveCell.R... 1).Value 'Wiersz aktywnej komórki, kolumna A czyli 1 Nr_wiersza = Application.WorksheetFunction.Match(Szuk...
Wierszy by było około 5tys. i są to podobne wartości (raport kasowy) Jeżeli wszystkich 5 tys wierszy to nie ma sprawy. Excel ma w jednym arkuszu 65.635 wierszy w każdej kolumnie. Jeżeli w każdym arkuszu masz po 5 tys to razem 600.000 wierszy więc jeżeli już to trzeba to będzie rozdzielić na parę kolumn. Kolumn jest w 2007 do IV czyli 256. A tak już...
Dzięki wielkie za naprowadzenie lanzul ;) Function Totalcost(zakres As Variant, rate As Variant) As Double Dim i, j As Integer For i = 1 To zakres.Rows.Count j = 1 Totalcost = Totalcost + ((zakres.Cells(i, j) + zakres.Cells(i, j + zakres.Columns.Count - 1)) * 1.5) * rate.Cells(i, 1) For j = 1 To zakres.Columns.Count...
Witam. Ponieważ na innym forum nie uzyskałem jak dotąd pomocy to może tutaj znajdzie się pomocna ręka. Mam problem , którego ja sam nie mogę rozwiązać od jakiegoś czasu , a który nie pozwala mi spać (autentycznie - to nie przenośnia). W załączniku mam tabelkę. Arkusze "target" oraz "wykonanie" to łącza do skoroszytów , które będą ulegały zmianie. Zmiana...
Witam, Myślę nad zrobieniem czegoś w stylu wyszukaj.pionowo + zamień, dla tekstu zawartego w jednej komorce. Chodzi o to że z innego skoroszytu chce wyciągać wartości odpowiadające tekstowi zawartemu w powiedzmy komórce C1. Nie byłoby w tym nic trudnego gdyby w tej komorce znadowal sie tekst tylko dla jednego rekordu a wynik wyszukaj pionowo mialby...
Jeszcze raz dzięki, co do nagłówka już sobie poradziłam (poniżej kod - dla zainteresowanych). Private Sub Dzielenie_Click() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Dim rnData As Range Dim i As Long Application.ScreenUpdating = False On Error GoTo myErr Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Prowizja&quo...
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...
Tak się składa, że niedawno robiłem dla naszych finansów coś podobnego. Program, po uproszczeniu, w załączniku, może jakoś Cię natchnie. ;) Zamiast kopiować do innej zakładki - grupuje pasujące linie. Dla 5000 linii jak w przykładzie działa u mnie, po drobnej modyfikacji, ok. ~4s (przy ~260s dla poprzedniego makra). Być może zmiana Range() na Cells()...
Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...
Sukcesywnie w miarę wpisywania danych w tym samym wierszu w zakresie kolumn 5 do 8 "a" co to jest to "a" w "If Target <> a" ? Tutaj też trzeba by chyba coś zmienić, bo wychodzi na to, że dwa razy jest sprawdzane, czy jakaś ".Value = "" ", czy też czemuś się równa jednak. W załączonym do tematu kodzie "a" zawsze jest 'puste', gdyż nigdzie nie...
Witam!!! Mam taki problem mam 6 checkbox-ów pogrupowanych w 3 kolumny , nad każdym z nich jest YES lub NO i po zaznaczeniu tych checkboxow w Yes chciałbym dostać wartość YES a jeśli zaznaczę choć by jeden z NO to żeby ta wartość zmieniała się na NO w jednej komórce..za wszelkie podpowiedzi z góry dziękuje
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...
Dziekuje serdecznie za znalezienie źródła problemu. Teraz pozostaje pytanie jak temu zaradzić? Czy jest jakiś sposób, aby zapętlenia uniknąć i żeby wszystko działało tak jak należy?? Jak mogę zmienić procedurę żeby nie powodować zawieszania? Czy potrzeba może stworzyć osobne makra, działające niezależnie od siebie? Może stwórz makro wpisujące wartości...
Załącz przykład. (jak to 2007 i wyżej to spakuj) Jaki ty masz excel a na jakim otwierają go inni? Czy plik ma makra?
Zainteresuj się instrukcjami obsługi plików. Np Instrukcja używana do zmiany nazwy pliku dyskowego lub folderu (katalogu). Składnia rozkazu Name: Name StaraNazwa As NowaNazwa Sprawdzaj w pętli cztery (trzy w drugim przypadku) znaki od lewej każdego jpg, wyszukaj w kol.B, podstaw z kol.A i zmień nazwę
Inny plik, inny obiekt. Na przyszłość: Kliknij ppm w obszar obiektu, wybierz "Przypisz makro", "Nowe" lub "Edytuj" jeśli już jest...
Witam, Pytanie jak w tytule. Czy moge uruchomoć makro za pomocą zmiany filtrów w kolumnie? Coś w stylu Worksheet_Change ale żadna komórka nie zmieni swojej wartości.
Pytanie zrozumiałe. To zwykła suma liczb, więc w czym problem? Osobiście nie bawiłbym się w składanie formuły. Wystarczy zostawić jeden wiersz, pozostałe usunąć i wpisać sumę... Jeśli jednak składniki ulegają zmianie. Zamiast "+" użyj ActiveCell.Formula = "=SUM(arg1,arg2,...)" Gdzie prawa strona równania jest typu string, więc łatwo poskładać.
Witam forumowiczow, Siedze nad dosc prostym makrem, ktore przeszuka kolumne G; jesli znajdzie tam wartosc "oplaty licencyjne" to w kolumnie R wstawi wartosc "koszty". Kod, ktory napisalam - oczywiscie - nie dziala. [syntax=vb] Sub FindAndReplace() Dim rCell As Range Dim xCell As Variant Set rCell = Sheets("YTD2012").Range("g2", Range("G65536").End(xlUp))...
HiFi-Man , powinieneś odróżniać makra (makroinstrukcje) od funkcji, bo Twoje pytanie jest przez to niezrozumiałe. Makro to działanie wykonywane jednorazowo, doraźnie. Po wykonaniu wynik ma najczęściej formę stałej (liczby lub tekstu). Makro można powiązać ze skrótem klawiaturowym i uruchamiać go za pomocą tego skrótu. Z kolei funkcja (lub w tym przypadku...
W załączeniu wycinek z większego projektu, obrazujący mój problem. Utworzyłem proste makro filtrujące pewne wartości. Niestety po uruchomieniu makra filtr działa ale ukrywa wszystkie wartości. Po wejściu w filtr i naciśnięciu ok bez żadnych zmian dane pojawiają się.
Mysle iz bez makra sie nie obedzie (własciwie trzeba napisac drobny kod w VBA bo nie da sie takiego makra zarejestrowac) Nie ma funkcji (ja przynajmniej nie znam) która po wyliczeniu danych zmieniałaby wynik w stała, czyli po zmianie wprowadzonych danych nie zmieniał wyniku. Kod jest stosunkowo prosty Powodzenia
Nie sadze zeby bylo cos co zrobi to automatycznie. Trzeba napisac skrypt uzywajac VBA.
Sprawdź dobrze, bo pisane w przerwach między obieraniem ziemniorów i marchewy, i mogą być błędy. 919204 Stałe, zmienne i kod na tyle czytelne, że od razu zrozumiesz intencje. Kody z ich wartościami na oddzielnej zakładce, makro uruchamiane zmianą zawartości komórek w określonym zakresie (stałe dla zakresu początkowego i końcowego), zdefiniowanym w module...
Tak na marginesie: :) Kolego, po napisaniu odpowiedzi zanim ją wyślesz, przeczytaj to co napisałeś, byś był pewien że odpowiadasz na pytanie. Twoje pierwsze zdanie: ... jeżeli w A1 wpiszę wartość to ... w A2 należy ... To wynikało z Twojego pierwszego postu, ale excel tego nie zrozumie :) Całe szczęście że dodałeś drugie zdanie :) Z komunikatem jako...
Z tym, że makro uruchomi się przy każdej zmianie w arkuszu, bez względu na to w której komórce nastąpiła aktualizacja wartości.
Jeżeli chodzi o przenoszenie formatowania to excel właściwie nie ma żadnych funkcji. Można to zrobić jedynie poprzez makro (VBA) lub "pisaniną" poprzez formatowanie warunkowe i to w excelu 2007 i powyżej, bo niższe mogą mieć tylko max 3 warunki. Ten kto zna jako-tako programowanie w VAB może sobie poradzić. Ten kto nie ma pojęcia na początku upadnie,...
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
Witam, Mam taki problem, bo niestety nie znam się na VBA, a chciałbym sobie ułatwić życie i z automatu wysyłać maile. Mam szablon w excelu z danymi, mailem oraz zmienną wartością procentowa i przypisanym do tym zdaniem. Czy dało by rade zrobić takie makro, które bierze z arkusza adres e-mail i maila z teksem z komórki wysyła automatycznie w momencie...
Ja w "międzyczasie" napisałem coś takiego: [syntax=vbscript]Sub GoalSeekinRange() Dim i As Long, RngForm As Range, wks As Worksheet Dim RngGoal As Range, Rngx As Range Set wks = Worksheets("Brudnopis") Set RngGoal = wks.Range("L5:L9") Set Rngx = wks.Range("J5:J9") Set RngForm = wks.Range("K5:K9") For i = 1 To RngGoal.Count If IsNumeric(RngGoal(i)) And...
Po pierwsze należy załączyć plik, a nie sam kod. W tym Twoim kodzie są jakieś przekłamania. Ale najważniejsze, że nie piszesz gdzie mają być rejestrowane te zmiany drugiej komórki (B2). Czy razem ze zmianami A1 w tej samej kolumnie? Czy w innej kolumnie (której) tego samego arkusza? Czy w innym arkuszu? I czy wystarczą same wartości? Zwykle rejestruje...
Na podstawie zmian w komórce J1 przeliczają się dane w bazie, tam wstawione są funkcje jeżeli,mnie interesuje wartość skopiowanych danych obliczonych na podstawie zmian komórki J1
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
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...
Mam pytanie czy to makro trzeba w jakiś sposób uruchomić ? Czy ono uruchamia się samo podczas zmiany wartości komórki ?
Niby tak ale nie do końca :) Wklejam plik dla lepszego zobrazowania. Klikając "Przycisk 1" makro powinno znaleźć wartość "Data pomiaru" w kolumnie "Data", następnie skopiować "wartość pomiaru" i wkleić w kolumnę "temperatura" (czyli zaraz obok). Dzięki temu, nie trzeba ręcznie wprowadzać zmian dla dat z przeszłości.
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie Worksheet_Change zawężone do kolumny gdzie jest nazwisko....
Pierwsza zmiana wpisuje noc (zapisz), druga zmiana wpisuje rano (zapisz)... A co się dzieje z wartością komórki "noc" po pierwszym zapisie :?: a co przy drugim zapisie ? :D W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany np zapisu czasu przez poszczególne zmiany można wykorzystać Twój pierwotny kod w postaci: [syntax=vbscript]Sub...
Kurcze faktycznie chyba będzie prościej zrobić makro do zmiany całego wiersza z "dzisieejsza" datą z formuł na wartość.
czy jest możliwość automatycznego uruchomienia makra w Excelu w momencie zmiany wartości Do tego jest: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Excel.Range) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) End Sub [/syntax]
Ad 1 i 2[syntax=vb]Sub koloruj() For i = Range("A65526").End(xlUp).Row To 2 Step -1 If Cells(i, 5) <> "" Then Rows(i).Interior.ColorIndex = 15 ElseIf Cells(i, 3) = "kontrakt deaktywny" Then Rows(i).Interior.ColorIndex = 1 Else Rows(i).Interior.ColorIndex = 0 'w razie zmiany End If Next End Sub[/syntax]Ad 3[syntax=vb]Sub Printuj() ActiveSheet.PageSetup.Orientation...
W Wordzie są dostępne polecenia sumowania tabeli (Menu Tabela->Formuła ...): =SUM(ABOVE) - Sumuj komórki nad kursorem =SUM(LEFT) - Sumuj komórki z lewej strony kursora =SUM(RIGHT) - Sumuj komórki z prawej strony kursora. Uwaga Program Word wstawia wynik obliczeń jako pole w wybranej komórce. W przypadku zmiany wartości w komórkach, które obejmuje działanie,...
Funkcja LOS() przeliczna jest przy każdej zmianie w arkuszu. Jeśli wpiszesz odpowiedź, to po zatwierdzeniu enterem wartość a jednocześnie szukana fraza zmienią się... Trzeba podeprzeć się VBA, chociażby dla wyłączenia przeliczania. Moim zdaniem wygodniej będzie umieścić makro losowania pod przyciskiem. Poczytaj o: Randomize i funkcji Rnd . Jeśli jednak...
Ale czy zwykłym formatowaniem warunkowym można zmienić kolor wielu komórek w zależności od jednej? Ja nie umiem tego zrobić. Gdyby się nie dało to zawsze można napisać makro.
Kod który Ci podawałem ostatnio działa tylko dla jednej kolumny, takiej samej jak Target.Column. U Ciebie nie działa bo funkcja Intersect() [zwracająca wspólną część dwóch zakresów] poza 15-tą kolumną jest teraz wywoływane na nie takich zakresach jak trzeba. Zmień początek tego makra na taki: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range)...
(at)maciejgonet Dzięki wielkie za pomoc! Miałbym jeszcze tylko pytanie co do działania całego makra. Czy da się z niego wyeliminować zapisywanie w historii sytuacji kiedy ktoś dodaje nowy wiersz? Makro oczywiście wtedy działa tak jak powinno i zapisuje zmiany, czyli zapisuje np. 16000 pustych komórek które zostały dodane przez wstawienie nowego wiersza....
No właśnie potrzebuję makro, tylko nie wiem jak w nim napisać, że każdorazowo po zmianie zakresu (zmiana wartości ScrollBar) ma sprawdzać, które etykiety mają wartość poniżej 95%, aby oznaczać ją w inny sposób :)
(at)clubs wielkie dzięki za pomoc. Po raz kolejny okazało się, że najprostsze rozwiązania są najlepsze :D (at)ST-14 tak, masz rację. Znajduje pierwszy ciąg znaków jaki pasuje do wzorca i wówczas podmienia zawartość całej komórki. W moim przypadku nie jest to problem, bo działam na unikalnych wartościach, czyli takiego przypadku jak wskazałeś nie będzie....
Witam, Zielony z makro szukam pomocy :-) Uprościłem pytanie, poszukuję makra które uruchamiałoby się automatycznie po wprowadzeniu zmiany w arkuszu dane C3, makro powinno zapamiętać i zapisać poprzednią wartość C3 do arkusza zestawienie C5, przy kolejnym wpisie do C3 w danych, kolejny zapis w C6 w arkuszu zestawienie itd. Mógłby ktoś pomóc w stworzeniu...
Moje rozwiązanie wyglądałoby jakoś tak: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2013-05-12, autor Darek ' ' Const S1 = 8 ' najmniejszy przedział Const S2 = 16 ' sredni przedzial Const S3 = 32 ' najwiekszy przedzial Const D1 = 3 ' tolerancja sredniej najmniejszego przedzialu Const D2 = 5 ' tolerancja sredniej sredniego przedzialu...
Dzień dobry, Wydaje mi się, że niepotrzebnie się Pan obraża, bo moje pytanie chyba jednak było zasadne - w nowej wersji usunął Pan to godzinowe formatowanie i teraz wiadomo, że chodziło Panu o liczby całkowite. Lepiej wyjaśnić wątpliwości zawczasu aniżeli zrobić coś nie tak i później poprawiać. Pana problem wcale nie jest banalny i pewnie dlatego nikt...
żeby to magiczne makro działało z moimi danymi, byłoby super Na podstawie Twojego pliku utworzyłem jeszcze drugi podobny plik csv i przetestowałem z nimi import za pomocą załączonego pliku z makrami :D Po uruchomieniu makra zmiana_numerów (skrót ctrl+i ) - wszystkie numery kart uzyskują przedrostek CN - uzyskując w ten sposób cechy wartości tekstowej....
Co prawda to twoja praca domowa, niemniej: Excel działa na danych dynamicznie. Bez makra "zapisywanie" do komórki "stałej" danej z jednej nie da się zrobić * . Ja widzę to tak (dwa sposoby): 1. Tabela. W trzech wersach pierwszej kolumny trzy (czy więcej) urządzeń. W nagłówkach kolumn tej tabeli od razu wpisane kolejne daty z kalendarza. Wpisujesz czas...
Zrobiłem to tak że program wybiera z tabelki po prawej inicjały (4 pierwsze znaki) czyli jak w tabelce jest J.K. to wybiera te inicjały. I przeszukuje kolumnę K w poszukiwaniu zgodnych inicjałów, (też 4 pierwsze znaki) czyli jak jest( J.K. data) to wybierze tylko "J.K." i dodaje do licznika pozycji zleconych. Dodatkowo jak kolor czcionki jest czerwony...
Chyba najprościej zdefiniować makro jako funkcję, w jakąś komórkę dodać wywołanie tej funkcji, a argument byłby podawany jako odnośnik do zmienianej przez Ciebie komórki: - niech funkcja nazywa sie MyFunction, ma jeden argument - zmieniasz zawartość komórki A1 - w komórce AA1 wpisać '=MyFunction(A1)' Taka funkcja będzie wywoływana zawsze po zmianie...
Makro reaguje na zmianę wartości w komórce. Jeśli pierwszy wiersz jest "FPS", określa ostatnią komórkę z wartością w kolumnie. Począwszy od 2 wiersz do ostatniej wartości koloruje. Dodano po 16 Oto mały fix, gdyby w zakresie niewypełnione komórki Dodano po 11 Czy chcesz malować kolumna E, ale "FPS" w innej kolumnie(np. B)? Wtedy byłoby inne podejście...
Zakładam, że za aktualizowanie odpowiedzialne jest jakieś makro. Dopisz wstawianie komórki (Range("A1").Insert Shift:=xlDown) i usuwanie końcowej przed zasadniczą procedurą.
Po pół godzinie wczytywania się załapałem (chyba) o co chodzi. Po pierwsze czy aby na pewno nie będzie interesowało cię za co klient zapłacił? Bo czyszczenie danych i przygotowywanie do kolejnego "wpisu" zlikwiduje szczegóły (składowe) danej wpłaty. Druga rzecz związana z brakiem sumowania. Może jest błędna formuła (nie uwzględnia wszystkich komórek)...
Może inaczej,w folderze jest plik excel z tabelka, który ulega zmianie dość często. wartości z tabelki maja być aktualizowane i dodane do JEDNEGO pliku excel. To po czym można rozróżnić wiersz jest kolumna "T". tak własnie ma działać makro to makro.
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
Ilość w kolumnie B zmienia się również na aktualną. A zmiana w procentach dotyczy relacji pomiędzy starą B a nową B. Albo gdyby było łatwiej to można by zrobić tak, że w kolumnie B pobiera się wartość aktualna. Następuje jakaś zmiana, to do kolumny C pobiera się wartość zmieniona a w kolumnie D zmiana procentowa ale wtedy to już makro nie musi tego...
Znalazłem "błąd". Ponieważ przykład z funduszem robiłem na liczbie całkowitej (555) zapomniałem/nie zwróciłem uwagi że liczba z przecinkiem dla VB jest z kropką. Później kod próbuje to dalej konwertować i występuje różnica typu. Wystarczy pobrać z funduszu remontowego tekst wartości Text .TextBox5.Visible = True .TextBox5.Enabled = False .Label6.Caption...
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
Powracam do tematu, Czy mógłby ktoś wyedytować makro, które napisał PRL w ten sposób, aby można je było odpalić "ręcznie" przypisując je do np. jakiegoś autokształtu ? Makro miałoby działać identycznie jak to napisane przez PRL z różnicą taką, że uaktywnia się po wciśnięciu przycisku i makro sprawdza całą kolumnę G i z automatu kopiuje i wstawia poniżej...
Niestety ja pracuję na starej wersji excela i takiej funkcji nie mam :( Skoro formuła działa, to może nagraj makro wywołujące to okienko i uzależnij jego wykonanie od zmian w komórce B1?
Teoretycznie można coś tam w zdarzeniu Worksheet_Change pokombinować, ale w praktyce to raczej trudne do zrealizowania - zawsze można wyłączyć makra albo usunąć cały arkusz. Najlepiej w takim wypadku zablokować plik i jego strukturę i przygotować go tak, żeby użytkownik mógł wykonywać tylko dopuszczone akcje, np. wprowadzać dane tylko w wyznaczone pola...
Excel wyświetla Nr błędu, więc możesz go przechwycić i oprogramować warunek. Z drugiej strony - lepiej tak skonstruować makro, aby ustrzec się takich błędów. Np instrukcja warunkowa: If (not) isnumeric(znak_z_klawiatury) przy zmianie, lub tp
Makro zrobiłem poprzez zarejestruj makro. Ale zawsze była jakaś zmiana, Oprócz arkuszy A i B utworzyłem dwa tymczasowe. Sprawdzam czy nazwa A i B są jednakowe, jak tak kopiuję do C, jak nie zostawia puste. Później kopiuję ręcznie pozostałe dane. Wyciągam niepuste wg nazwisk. Kopiuję do arkusza D i nadaję pojedyńcze numery
No niestety w obu plikach są też inne dane, a na dodatek trzeba sprawdzić nie jeden, a kilka zakresów danych (dokładnie 8). Excel ma naprawdę duże możliwości, ale domyślać się nie potrafi. Trzeba określić rzeczy stałe, podać ewentualne granice tych, które mogą ulegać zmianie, a jeśli makro/funkcja ma działać w różnych zakresach, czyli być uniwersalne/a,...
Dzień dobry, A co w tym kodzie oznacza "ark"? Czy nie jest to arkusz aktywny (ActiveSheet)? Poza tym czy 6 to stała? Jeśli tak, to po co tak komplikować ten adres, wystarczy [syntax=vbscript]ark.Range("E6:F" & dstW)[/syntax]Poza tym, jak często zmienia się wartość "dstW"? W sumie można makrem uruchomić też sprawdzanie poprawności danych, tylko tę procedurę...
Gdzieś chyba jest błąd w kodzie bo zamiast liczyć to wstawia tekst formuły brakuje na początku formuły znaku "=". Natomiast gdy ręcznie wstawię to zlicza natomiast i tak wyskakuje komunikat "Łącza do pliku*xls' nie zostały uaktualnione, ponieważ plik xls*' nie został ponownie obliczony przed ostatnim zapisem". Imuszę ręcznie wciskać OK aby wartości...
Worksheet_Change uruchamia się tylko w przypadku zmiany wartości jakichś komórek i pracuje tylko na tych zmienionych komórkach więc nie ma ryzyka jakiegoś zapętlenia. Co znaczy "po wybraniu w KOLUMNIE którejś z wartości" - makro ma sprawdzać konkretną kolumnę?
Cześć, zwracam się do Was z uprzejmą prośbą o pomoc w rozwiązaniu następującego problemu. Potrzebuję skopiować wartości z zakresu B10:C23 w plikach JEDNOSTKAA i JEDNOSTKAB do pliku OCENA_ZBIORCZA w kolumny odpowiadające nazwom tych plików. Dotychczas potrzebowałem tylko kopiować wartości z pliku JEDNOSTKAA i realizowałem to za pomocą prostego makro:...
Bardzo proszę o pomoc jak napisać makro w Excelu aby: 1. makro działało na zaznaczonym obszarze (każdorazowo wskazanym) 2. makro rozpoznaje że analiza jest dokonywana po 2 wiersze przy czym wiersz pierwszy porównuje się z drugim, ale wiersz drugi porównuje się nie z trzecim tylko z pierwszym, wiersz trzeci porównuje się z czwartym (wiem, że to może...
Witam. Potrzebuje zrobić coś takiego: Wstawiam dane w komórce np. A1 to automatycznie kopiuje do np B1.Teraz w A1 zmieniam wartość danych to automatycznie kopiuje nową wartość do B2 i tak w kółko jak jest nowa wartość w A1 to przenosi ją w nową komórkę. Ma to się odbywać w automacie bez przyciskania przycisków. Chcę ze strony internetowej importować...
Świadomej złośliwości i wyłączenia opcji nie zakładam jeśli działanie po zmianach nie wpłynie bardzo na utrudnienie użytkowania pliku. Dlatego najlepszym w moim mniemaniu rozwiązaniem było by stałe przypisanie zamiast opcji wklej funki wklej jako wartości, a opcji wytnij jako kopiuj... - tylko nie wiem czy jest to realne i żeby wszystkie elementy miały...
OK, rzeczywiście jest jak mówisz. Wracając do makra z tego ostatniego pliku: zmień linijkę rekalkulacji w Excelu. Zmiana koloru takowej nie powoduje, więc dopóki coś nie zmieni wartości, funkcja pokaże starą wartość. PS 3. Nie wiem czemu piszesz, że nie możesz funkcji użyć w kodzie VBA: taki sposób wywołania działa: [syntax=vb]MsgBox SumByColorsFuction(Range("AA4:AA13"),...
Dzień dobry, Makro jest bardzo proste, więc jakby Pan poświęcił chwilę na jego analizę, to sam by Pan doszedł, co trzeba dopisać. Po linii: [syntax=vb]kom.Offset(0, -1) = .Cells(i, "D")[/syntax] wystarczy wstawić: [syntax=vb]kom.Offset(0, 1) = .Cells(i, "E")[/syntax] Oczywiście w Arkuszu1 musi być przewidziane miejsce na wprowadzanie tych cen. Pozdrowienia....
Wróżąc z fusów wróżę, że ta propozycja nie doprowadzi do postępu. Klawisz Enter nie ma tu znaczenia. Sprawdzałem, że jeśli makro wstawia wartość do komórki zdarzenie Change jest generowane i godzina się pojawia, choć nie jest używany żaden klawisz.
musiałem to przeoczyć teraz działa idealnie :) ale mam jeszcze jedno zagadnienie, mianowicie chodzi o to, że po tym jak excel wykona te wszystkie czynności to plik z którego robiliśmy kopie zapisujemy jako (w nazwie podajemy dokładnie tą samą wartość co w pliku który makro tworzy samo, czyli ta sama komórka) i później link działa ale wyświetla komunikat...
Do szczęścia mi brakuje aby efekt makra robił się na arkuszu "wynik" a wartości były brane z arkusza dane. :please: Efekt taki jak na zrzucie 961076 dla wielu "statusów" można uzyskać poprzez makro w załączonym pliku :spoko: 961080
Z tą aktualizacją to znowu jakieś nieporozumienie. Jeśli dane będą się często zmieniać, ale sposób ich obróbki będzie niezmienny, to należy stosować formuły i przeliczanie automatyczne. Wtedy sam Excel zadba o to, by wszystko było aktualne. Jeśli wpisujesz do komórek wartości, to w domyśle te dane nie powinny się zmieniać, albo na tyle rzadko, żeby...
jak to jest technicznie zrobione? Do arkusza1 przypisane jest makro reagujące na zdarzenia zmiany :idea: (wprowadzenie nowej wartości) komórki I4. Jeśli takie zdarzenie wystąpi w pierwszym wolnym wierszu kolumny A wprowadzana jest aktualna data, a w kolumnie B nowa wprowadzona do I4 wartość. Na koniec czyszczona jest zawartość komórki I4 :spoko: w...
makro zmiana wartości excel makro wklejanie wartości uruchamianie makro zmiana wartości
migomat bester podajnik drutu odbieranie danych bluetooth dlink konfiguracja kamery
Jaki laser zapali zapałkę z 200 metrów? Luzy zaworowe Honda PCX 125 2022: wartości i regulacja
