[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If ((Target.Row - 27) Mod 4) = 0 Then Target.Offset(1).Calculate End Sub [/syntax]
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
ten musi C9 =SUMA(ADR.POŚR("$C$8:C"&(WIERSZ()-1)))
Przepraszam, że z takim opóźnieniem odpisuję, ale wcześniej nie było możliwości. Poniższy kod na sztywno porównuje 2 kolumny (pierwszą i drugą), ale równie dobrze zamiast procedurki (Sub), można zrobić funkcję (Function), która będzie miała dwa argumenty określające numery kolumn (albo literki kolumn). Przy większej ilości wierszy, wykonanie porównania...
Zamiast Range("C2").Value = "=SUMA(C4:C1441)" Range("C2").FormulaLoc... = "=SUMA(C4:C1441)" Dopisanie wartości do nazwy pliku: "D:\Analiza\" & Worksheets(1).Name & "-" & Range("C2").Value & ".xls"
Oto projekt. Początkowo Pan otworzyć i odczytać z makrami.(na otwarcie i zamknięcie książki) i poprawi stałych (bo nie mogę odgadnąć nazwy plików). Następnie skopiuj makra do prawdziwych plików Interesuje mnie jak długo potrwa pracy makro, ponieważ kopiowanie w komórki z formatowaniem (kolor, czcionki) zajmuje znacznie więcej czasu niż w komórki niesformatowany....
Niewiele zmieniając i wykorzystując SUMA.JEŻELI: http://obrazki.elektroda.pl/1545005300_1... Zakres A1:I3 skopiowałem do A4:I6 (Ctrl+c Ctrl+v) itd, najpierw nieco przerabiając (przełom roku) formuły w wierszach 1 i 2. Edit: Można też stworzyć arkusz wynikowy, a ten z Rys.1 potraktować jako roboczy. http://obrazki.elektroda.pl/3712837000_1...
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...
Formuła w komórce jest określona przez jej właściwość .Formula. Ta właściwość jest tekstem formuły w języku angielskim. Można ten tekst edytować jak każdy tekst, a potem przypisać ponownie do właściwości .Formula. Prościej jednak od razu przypisać docelową treść formuły do właściwości .Formula. Można to też nagrać jako makro. Makro używa "lustrzanej"...
wtedy nie zastap tylko w makro FormulaLocal
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
Odpowiednie formuły można skonstruować korzystając z funkcji LICZ.WARUNKI() i dodatkowej tabeli, w której będą zawarta lista wszystkich ekip i czynności. Na podstawie zliczania ilości osób w danej ekipie wykonujących daną czynność i mających urlop danego dnia można wyznaczyć ile osób pozostaje w dyspozycji pracodawcy. Załączam zmodyfikowany arkusz ilustrujący...
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...
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
Zdecydowanie łatwiej się porozumieć na bazie załączonego pliku . Widać wtedy różne niuanse, które mogą wydawać się z pozoru nieistotne, a poza tym można przetestować proponowany kod. Powinien działać kod: [syntax=vbnet]ActiveCell.Value = Application.WorksheetFunction.VLookup("s... Worksheets(Range("B6").Value).Range("A:E... 5, False)[/syntax]Zakładam,...
Mam problem z napisaniem makra. Ja w zasadzie też :D tzn. w związku z zasadą "po co tworzyć makra jak w zupełności wystarczą formuły arkuszowe" :please: Efekt taki jak na zrzucie można łatwo uzyskać poprzez zestaw formuł sumujących warunkowo i wyszukujących :spoko: 1019470 Wprawdzie formuły wywołują alert troszkę wcześniej (jak suma wysyłek zbliży...
Przykładowe makro w załączonym pliku. Należy przygotować dane. W wierszu, który zostanie zaznaczony będą wyniki (płace brutto). W dwóch wierszach poniżej formuły obliczeniowe. W trzecim wierszu poniżej oczekiwane płace netto. Należy zaznaczyć pierwszy wiersz na wyniki i kliknąć przycisk "Wyniki".
Potrzebuję makra które sprawdzi czy dla tego samego numeru są 3 następujące po sobie daty. No to makro koleżanka już ma od kolegi (at)dt1 :D Moim zdaniem takie zadanie można wykonać przy pomocy kilku formuł w arkuszu analitycznym :idea: 1014985 i stworzyć łącza automatyczne w arkuszach klienckich do ustaleń analitycznych :spoko: 1014986 W załączonym...
Dwie wątpliwości: 1) Czy te formuły będą takie jak w przykładzie tzn. będą się odwoływać tylko do danych z tego samego wiersza? 2) Czy to ma być kopia z zaznaczenia (zaznaczam x wierszy i to kopiuję, tylko dokąd? jak określić miejsce docelowe?), czy kopia wszystkiego co jest (do ostatniego wypełnionego wiersza w określonej kolumnie), wtedy miejsce docelowe...
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
W pierwszym poście chciałeś aby makro, po wyczyszczeniu zawartości komórki "X25" czyściło listę z zakresu H20:J20. Analogicznie wyczyszczenie X22, X18, X13 czyściło H18:J18, H14:J16, H12:J12, nie zapętlając się w trakcie. Tak to teraz dokładnie działa. To co się dzieje w innych komórkach zależy od algorytmu który realizują Twoje formuły. Niestety nie...
Propozycja rozwiązania w oparciu o makro. W module uniwersalnym wpisałem takie makro: [syntax=vbscript]Sub NowaData() On Error Resume Next Dim ark As String With ActiveSheet ark = .Range("BA22").Value .Range("BI21:BI25").FormulaLocal = "=SUMA.ILOCZYNÓW('[Wyniki tygodniowe.xlsx]T" & ark & "'!$H$2:$H$23;--('[Wyniki tygodniowe.xlsx]T" & ark & "'!$G$2:$G$23=$BH21))"...
A koniecznie musi być marko? Formuły z powodzeniem radzą sobie z takim zdaniem. Sprawdź załącznik.
Chciałbym aby w Marko 2 znajdowało te które są w Makrze 1 i dla nich robiło powyższą operację. Proponuje trochę przeorganizować układ tabel i wykorzystać proste :D formuły :spoko: - jak na zrzucie 936880
Na podstawie arkusza "lista pokoi" mamy pokoje F-2, F-4 i F-5, które są kolejno 4, 2 i 4 osobowe? Tyle miejsc na nazwiska jest przy tych pokojach. Jeśli tak jest, to w jaki sposób ma być ta tabela wypełniana? Na liście nazwisk mamy na przykład Kowalskiego, ale ilość osób 2. Czy to oznacza, że gdybym przy kowalskim wpisał F-2, to powinien go wpisać dwa...
Propozycja makro łączącego komórki tak jak chciałaś. Makro wykorzystuje dane z kolumn H i I, zastępuje formuły w komórkach scalanych. Usuwa formuły w kolumnie J (aby umożliwić modyfikację danych w razie potrzeby). Nie ingeruje w formatowanie warunkowe, które było już ustawione w arkuszu. Makro jest zapisane w module uniwersalnym. Działa w arkuszu aktywnym....
Dodam tylko że makro w poprzednim poście co do zasady właściwie robi to samo co formuły (no zliczanie spóźnien ma trochę inaczej).
Przede wszystkim powinnaś załączyć plik Excela a nie obrazek. Na obrazku nie da się nic policzyć ani sprawdzić. A merytorycznie - po co tu makro? To ma być jakaś wprawka w pisaniu makr? Do tego typu obliczeń służą funkcje lub formuły - wystarczą funkcje wbudowane, ale jeśli ktoś woli, to może sobie napisać własną funkcję w VBA, tzw. funkcję UDF (user...
Chcialbym w kolumnie B, C i D otrzymac nr zam oraz wartosc poczatkowa i koncowa Poprzez dwie kolumny pomocnicze :idea: można uzyskać pożądany efekt jak na zrzucie 977848 Wszystkie formuły w załączniku :spoko: 977849
Chciałabym, aby odpowiednie komórki automatycznie uzupełnić odpowiednimi odniesieniami do sąsiedniego arkusza. VBA fajna rzecz - warto się poduczyć :D , lecz póki co dla Twoich celów wystarczy wykorzystać prostą funkcję :spoko: 897374 3 formuły jak na zrzucie możesz kopiować do następnych kart.
Życzę powodzenia z wydajnością tego skoroszytu Dlatego kolego clubs udzieliłem takiej odpowiedzi :D jest jakaś opcja, żeby makro pracowało bez przerwy Teoretycznie tak Po drobnych korektach budowy skoroszytu proponuję autorowi wykorzystywanie do tego sumowania danych makro :spoko: 1150517 Całość w zmodyfikowanym pliku w załączeniu :D 1150518
Korzystam z podobnego rozwiązania ale potrzebne jest też formatowanie warunkowe (aby zaznaczać tylko zakres wiersza). Zaznaczanie aktywnego wiersza za pomocą formatowania warunkowego i VBA 1. Zaznaczanie aktywnego wiersza Definiujemy nazwę: AktywnyWiersz=0 Wpisujemy formułę w VBA w sekcji Worksheet - SelectionChange Private Sub Worksheet_SelectionChange(ByVal...
Zacznij od nagrania makra, w którym edytujesz komórkę i wciskasz enter. Rejestrator przetłumaczy funkcje na ich zapis w VBA. Potem ubierz to w funkcję użytkownika (user function) - materiały do wyszukania na google, np.: [url=https://www.hintmine.com/jak-napisa...
Może być w ten sposób? (kolumny pomocnicze można ukryć) Co prawda załączyłaś dane gdzie zawsze był nr transakcji ale działa też jak go wykasujesz -uwzględnia to. edit: podmieniłem trochę formuły by było łatwiej kopiować w bok. Może trochę utrudniłem zrozumienie formuły ale... Główna formuła np. dla "a" w danym miesiącu to: =SUMA.ILOCZYNÓW((C1:C10000="a")*1;(A1:A1...
Witam W kolumnach A oraz E znajdują sie formuły. w kolumnach B C D -> dane, które zmieniają się w zależności od raportu, który się wygeneruje. Chodzi o to by po wygenerowaniu raportu makro brało formułę z komórki A2 i do kopiowało do końca. i analogicznie z formułą w kolumnie E komórka E2. Teraz pomyślałem, że "formuła" mogła by być zaszyta w makro...
Jeżeli dobrze wszystko rozumiem, to wszystko wydaje się być prostsze niż na początku to opisywałeś. Otóż w nowym module wklejasz to: Sub kopiuj() ActiveSheet.Range("E:E"... ActiveSheet.Range("G:G"... Paste:=xlPasteValues Application.CutCopyMode = False End Sub Skrót klawiszowy ustawisz...
chciałbym żeby w raz z usunięciem danych w komórce, również usuwał się wiersz tabeli W przedstawionym rozwiązaniu usunięcie indeksu powoduje "wyczyszczenie" całego wiersza :cunning: (jakkolwiek do tego celu wykorzystano odpowiednie formuły w tym arkuszu :D ) - nie wiem jak duże (ile pozycji ?) oferty przygotowujesz dla Waszych klientów , jeśli więcej...
Jeśli wszystkie warunki były znane od początku, to być może byłoby oczekiwanych wyników. biorąc pod uwagę fakt, że Pan dwa razy więcej postów i są wystarczająco dużo punktów, myślałem, że to po prostu dać wskazówkę. Dlaczego wyszukiwanie w kolumnie I nie działa z poniższym kodem ).AutoFilter Field:=9: w tym przykładzie nie ma nic o kolumnie 9 przy pierwszym...
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...
Rzecz w tym, że rozpiska musi być w pionie, jedna grupa pod drugą. Żeby nie wpisywać ręcznie (trochę tego dużo się zrobiło), dorobiłem kolumny pomocnicze i teraz można przeciągać formuły w dół. W tej chwili potrzebne nam do w/k 35/15 Uwaga w S1 jest wyjątek. "Kopiowalne" jest dopiero od S2 (tak mi się dopasowało z MOD).
pokazyje błąd. Nie powinno tak być, albo nie rozumiem. WYSZUKAJ.PIONOWO(A1;Y!A:B;2;0) tylko wtedy, jeśli LICZ.JEŻELI(Y!A:A;A1)>0 Innymi słowy jeśli w Y jest, w przeciwnym razie zapisz ""(empty string) Czy możliwe by nie zmieniał komórki Arkusza X. jesli nie wyszuka w Arkuszu Y odpowienika ? Nie, bo jesteśmy wszystkie formuły przepisze w klatki kolumny...
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,...
W E1 pozycja (wiersz) z bieżącym numerem faktury w Arkusz1, w E2 pozycja z następnym (dlatego potrzebny jest Nr kolejnej na zakończenie w Arkusz1). Na podstawie wartości z E1:E2 w kolumnie F lista Nr wierszy od-do dla indeksów od wiersza 11 (Arkusz2 pozycje faktury). Można z nich zrezygnować, ale formuły (w pozycjach faktury) zrobią się baaaardzo długaśne......
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Nie umiem jednak stworzyć szablonu(a w zasadzie wykresu), dzięki któremu mogę zmienić zakres danych, który odpowiada faktycznemu wypełnieniu komórek. Ale to już jest sama sprawa excela a nie c#. O, na to też są metody... Można np. użyć dynamicznego zakresu. Zakładając, że masz nagłówek w pierwszym wierszu, w komórkach A2...Ax masz etykiety, a w C2...cx...
W zasadzie wszystko działa idealnie oprócz tzw. przeksięgowania ... :D Wpisuję numer RZ w komórkę "G-1" a następnie przyciskiem "Obciąż RZ" zdejmuję liczbę podzespołów z arkusza "RZ" ... :?: mechanizm arkusza "robi" rozliczenie tak jaby wszystkie dane tabeli arkusza "Przeksięguj" dotyczyły tylko RZ zawartego w komórce "G1"... :?: Po pierwszym użyciu...
Odnośnie tej drugiej funkcji to to: Kod Visual Basic - Może i jest zbędne ale jest w Twojej "źródłowej" procedurze. Jak zaznaczyłem: bez wiedzy jak ma działać do końca procedura nikt nie jest w stanie dać jasnych rozwiązań. Nie do końca rozumiem ale jak sobie radzisz to nie ma problemu ale ...: Data początkowa z kolumny C Kolumna C ma 65 tys komórek...
następnie wykonywane jest w tym pliku skomplikowane działanie Na pewno można je z powodzeniem wykonać w VBA. Z drugiej strony: Dlaczego "w kolumnie obok" nie użyjesz tej formuły z "Zeszyt2"? Wydaje mi się, że zamiast opisywać zawartość arkuszy lepiej (wygodniej dla wszystkich) wrzucić plik z przykładem w postaci załącznika na forum :) Szybciej i precyzyjniej...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
do tego celu lepiej jest wykorzystać jakaś baze danych stworzoną np w Akcesie w excelu będziesz musiał oddzielić ogladanie takie bazy od wpisywania danych Oglądanie za pomocą funkcji: wyszukaj.pionowo, wyszukaj poziomo lub index a do wprowadzania stworzysz albo jakiś formularz albo np w każdym arkuszu będziesz miał dane na dany miesiąc i tam bedziesz...
makro wstawiające formuły makro zmiana formuły wartość formuły kalendarza
wyświetlacz esp32 wieża philips mechanika napiecie stykach
dokręcanie citroen prosty pomiar pojemności kondensatora
Wyciąganie pompy wodnej ze studni kopanej - porady i firmy Jak włączyć światła przeciwmgielne w Hyundai Matrix?
