Dzieje się tak, ponieważ każda zmienna jest domyślnie widoczna tylko w obrębie danej procedury. Nie możesz w CommandButton1_Click() przypisać Set wb = Workbooks.Open(sciezka), a próbować ją odczytać w innej: CommandButton2_Click(). Żeby nie kombinować ze zmiennymi globalnymi: 1. Albo w CommandButton1_Click() w miejscu komentarza '.......dalsza część...
Dla danych wejściowych z kolumną, w której jest połączone '1' z 'X' taki kod: [syntax=vb]Sub Konsoliduj() ostw = Sheets("Dane").Cells(Rows.Count, "A").End(xlUp).Row Sheets("Wynik").Select Range("A2").Select Selection.Consolidate Sources:=Array( _ "'Dane'!R2C1:R" & ostw & "C1", _ "'Dane'!R2C1:R" & ostw & "C5"), _ Function:=xlSum, TopRow:=False, LeftColumn:=True,...
Prawie dobrze ;) Spróbuj: [syntax=vb]Sub Makro2() MyPath = "C:\magazyn\" myname = Dir(MyPath & "*.xls", vbNormal) rang = Array("D1:F10") 'tu dopisz ile trzeba ark = "Arkusz1" On Error Resume Next 'If ofs > -1 And Err = 0 Then With Sheets("Arkusz1") 'nazwa arkusza docelowego w UŻYWANE.xls For Each rn In rang .Range(rn) = Empty Next Do While myname...
Z tego co widzę próbujesz sumować warunkowo dla wybranych klientów? Dlaczego nie używasz filtra? Można odfiltrować niepotrzebne, skopiować do nowego arkusza. W swoim przykładzie odwołujesz się do całych kolumn (Np A:A), co zdecydowanie spowalnia działania na tablicach. Dlatego zamieniłbym zakres na tabelę Excela. (zaznacz, Menu>Wstw>Tabela). Zamiast...
A to? [syntax=vbscript]Sub WstawWiersze() x = 2 While Cells(x, "C") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C") Cells(y, "D") = Cells(x, "D") + Cells(x + 1, "D") 'tutaj sumuj kolejne kolumny Range("D" & y & ":I" & y).NumberFormat = "0" x = x + 2 Wend End Sub [/syntax]
Podepnij sobie pod jakiś przycisk lub kształt: Public Sub Dodaj() Dim Wynik As Integer Wynik = MsgBox("Czy dodać?", 4) If Wynik = 6 Then Range("A2") = Range("A2") + Range("A1") End If End Sub {/code]
Witam Zrobiłem troszeczkę inaczej. Myślę że lepiej ale jeżeli nie będzie ci pasowało - nie ma sprawy - poprawie dokładnie tak jak chcesz. Po wciśnięciu OK w okienku pojawia się komunikat czy chcesz wprowadzić kolejny dokument. Jeżeli tak data i numer pozostaną, jeżeli nie zamknie się całe okienko i jego ponowne otwarcie (z "głównego" przycisku) otworzy...
[syntax=vb]Range(Cells(lOstRw, 12).Offset(1, 0), Cells(lOstRw, 19).Offset(1, 0)).FormulaR1C1 = "=SUM(R[-" & lOstRw & "]C:R[-1]C)"[/syntax]
=jeżeli(D15=1;C15;0)+jeżeli(...
Z tymi -1,1,0 chodzi o to, że tylko te liczby wchodzą w ciąg 5 elementowy (liczbę L u nas ) czyli moze byc np -1,0,1,0,-1. Już rozumiem. Niestety w tym przypadku moje rozwiązanie przy wystąpieniu "-1" rozjedzie się, więc trzeba je skorygować. Pytanie czy dane w jednej komórce (dana "liczba" ) są takie jak przedstawiłeś w przykładzie czyli cyfry rozdzielone...
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
Poczytaj o WYSZUKAJ.PIONOWO, a jeżeli makro to o VLOOKUP.
[syntax=vb] Sub InsSubtot() Dim bs As Range Dim r&, rp& For Each sh In ThisWorkbook.Sheets Set bs = sh.Cells 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,...
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...
[syntax=vbscript]Sub Przycisk3_Kliknięcie() ' ' Przycisk3_Kliknięcie Makro ' Range("T4").FormulaR1C1 = "=NOW()" Cells(4, "R") = Cells(4, "R") + Cells(4, "Q") Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="c:\karta " & Format(Date, "yyyymmdd") & "usuwanie.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End...
Hej, już raz mi pomogliście. Chciałam zapytać jak poprawić makro, żeby działało. Mam taką tabelkę jak ta poniżej: 1 0.2 2. 0.4 itd. a w trzeciej kolumnie chciałabym, żeby mi się te dwie liczby sumowały Napisałam takie makro Dodano po 48 Na prawdę nikt nie wie jak to zrobić?
Hmm... Trochę więcej tych danych, niż się spodziewałem. Najprościej byłoby dodawać[syntax=text]WYSZUKAJ.PIONOWO(RAN... MIN w kolumnie C, to 2, MAX - 32, suma kolumny 80326 (losowań) w 5000 wierszach :( Nie mam tyle cierpliwości. No i będzie się działo gdy zmienią się dane w kolumnie C. LOS, MAX.K, INDEX(... w...
Cześć, Tworzę w Excelu proste Makro (których znawcą nie jestem). Mam listę zamówień na daną ilość oraz wartość różnych produktów. Lista zawiera przykładowo 155 pozycji, jednak towarów jest tylko 5. Do zsumowania łącznych ilości i wartości zamówień poszczególnych towarów używam sumy częściowej, co widać na poniższym obrazku. http://obrazki.elektroda.pl/7840969700_1...
jest jakaś opcja, żeby makro pracowało bez przerwy Teoretycznie tak, wystarczy zamiast kodu wątpliwej jakości weryfikacji poprawności wpisywanych danych (można tu wykorzystać choćby natywne funkcje Excela poprawności danych :idea: ) wprowadzić makro typu Worksheet_Change, które będzie uruchamiało makro sumuj() po każdej zmianie w którymkolwiek arkuszu...
Trzeba było takie informacje: Z programu wagowego eksportowany jest cały pomiar (wszystkie ważenia) do excela Każde takie rozliczenie chcę robić w następnym skoroszycie. przedstawić we wcześniejszych postach :cunning: Jeśli te tabelki mają taką strukturę jak przedstawiłeś w załączonym pliku :!: to nie ma żadnego problemu :D Wprowadź sobie to makro do...
Hej, jeśli umieściłam temat nie tu gdzie trzeba to przepraszam i proszę o przekierowanie. Mam plik który w jednej kolumnie ma nazwiska pracowników a w kolejnej przypisany do nich czas pracy np. Jan Nowak 2h, Anna Kowalska 4h, Barbara Marzec 4h, potem znowu Jan Nowak 6h itd. Wydaje mi się, że najlepiej byłoby wykorzystać makro, które po kliknięciu przycisku...
Lzep :arrow: Z fotki wynika wszystko jasno, chyba że ktoś nie miał do czynienia z Excelem i dartem ... tomi1972 :arrow: Excel działa domyślnie w trybie natychmiastowego przeliczania formuł. Bez odpowiedniego makra nie da się zrobić tego co oczekujesz. Usuwając sumy pośrednie (F2 i J2) wartość zawsze będzie "wracać" do 501. Napisałem proste makro sumujące...
Cześć, potrzebuje makra które będzie sumować zakres. w linku zobrazowane o co mi chodzi. Czy mógłby mi ktoś w tym pomóc? https://obrazki.elektroda.pl/6553279700_...
Dziękuje działa :) a czy dałoby się jeszcze napisać jedne makro, które sumowałoby mi kwoty z kolumny B z danego warunku?
Zwykła tabela przestawna do tego nie wystarczy??
Dzięki, a myślałem, że uda się obejść makro
Skoro sam trochę zrobiłeś, to pomoc Ci się należy.;) [syntax=vbscript]Sub Sumuj() Dim x As Long, a As Double x = 1 Do While Cells(x, "A") <> "" a = a + Cells(x, "A") x = x + 1 Loop [D2] = a Open ThisWorkbook.Path & "\wynik.txt" For Output As #1 Write #1, a Close #1 End Sub [/syntax]
hej, mam taki problem: potrzebuję sumować dane w zależności od koloru tła komórek w których się znajdują i jednocześnie po tekście. Na przykład muszę zsumować kwoty dla XY na tle zielonym, niebieskim, żółtym (oczywiście oddzielnie) to samo dla YZ itd. czy jest jakis sposób na to? używając makra do sumowania po kolorach zrobiłam jedną część sumy, używając...
Samo raczej nic w przyrodzie się nie dzieje. Jeżeli chcesz zautomatyzować pewne czynności wykorzystaj makro.
Super bardzo wszystkim dziękuję, osiągnęłam to czego chciałam na ten moment. Gorzej, że teraz muszę to zapisać w makro :):)
czy istnieje możliwość sumowania danych w wielu arkuszach tj. arkusz1 - jabłka 5 - gruszki 10 arkusz2 jabłka 4 - śliwki 3 w arkuszu3 chciałbym przepisane nazwy i sumę wszystkich rodzai. Oczywiście arkuszy jest więcej. próbowałem konsolidacji i tabeli przestawnej - chyba tylko makro.
a jak te makro miałoby wyglądać ?
No spróbuj tak: Sub rozs() Dim ow& ow = Cells(Rows.Count, 1).End(xlUp).Row Cells(1, 3).Copy Range(Cells(2, 3), Cells(ow, 3)) End Sub W C1 musi być przykładem formuły
Witam, Czy chodzi Ci o coś takiego jak w załączniku? Makro napisane na szybko, "na kolanie", z bezczelnie zagnieżdżonymi 5 pętlami FOR (gdzie aż się prosi aby użyć jakiejś rekurencji...), dodatkowo operacje wykonywane na liczbach całkowitych, żeby uniknąć problemów z sumowaniem i porównywaniem liczb zmiennoprzecinkowych (czyli 1 = 0.1, 2 = 0.2 etc).
Na obrazku efekt działania makra. Dane wejściowe z załącznika. Sprawdź, czy o to Ci chodzi (liczby w kolumnach D i F są sumowane). http://obrazki.elektroda.net/17_12597370...
sumowanie warunkowe
Makro to wyszukuje komórki z tłem i je sumuje Trzeba było napisać ;) : "Makro ma sumować wartości komórek z określonym kolorem tła". Ale to nie powinien być problemem, żeby zmodyfikować podany przeze mnie kod? No dobra ;) Sub sumowanie_w_zaznaczeniu() '(c) "fascynat" 'Sumuje wartości komórek o określonym kolorze tła w zaznaczeniu...
dla większej jasności Chodzi tylko o arkusz MAIN ? lub te arkszy (14, 15, .... 18) ? innymi slowy - co w pliczku jest MAIN 1 , MAIN 2 , ... ? Dodano po 50 w stylu excela: Kod: vbscript Dodano po 13 Jest 2 warianty 1. Na koniec tygodnia przy użyciu buttona makro tworzy kopię arkusza głównego Kontynuacja makro sprawia statystyki 2. Oddzielne makro sumuje...
Cześć, Potrzebuję pomocy z następującą sprawą. Mianowicie mam arkusz składający się z kilkunastu kart, i chciałbym aby makro sumowało kolumne posiadającą nagłówek "Wartosc" w każdej z kart. Kombinując trochę się zapętliłem w tym działaniu, stąd bardzo proszę Was o pomoc, bo nie do końca potrafię zastosować pętle. do tej pory stworzyłem taki kod jak...
Witam serdecznie, mam napisane makro, które sumuje mi unikatowe wartości z kolumny w "Arkusz1" o nieskończonej liczbie wierszy i pokazuje je w arkuszu "Suma" w kolumnie C. W kolumnie D są natomiast wartości do porównania z kolumną C. Jeśli wartości wierszy z kolumn C i D są różne to odpowiednia komórka w kolumnie C ma pojawić się na czerwono. Nie wiem...
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.
Faktycznie strasznie zawile to tłumaczysz. Chyba się domyślam scenariusza, pewnie zmieniono indeksy magazynowe, a tym masz zrobić zestawienie z poprzedniego roku kiedy były jeszcze stare, tak aby można było porównać dane z tymi z roku bieżącego. Masz dwie operacje. 1.Zamiana indeksów 2.Sumowanie Uważam, że makro zbędne. No chyba, że będziesz to robił...
W załączniku masz plik z Makrem - żeby go uruchomić musisz włączyć Makra, następnie wciśnij ctrl + Q Makro zrobione w excelu 2000 (bo takiego mam) więc mogą się pojawić problemy z kompatybilnością, wtedy ci to przepiszę na nowszą wersje, jak będę w pracy i znajdę chwilkę wolnego. Wyrzuciłem wiersze z błędną wartością w kolumnie G (było ich sporo) bo...
Witam, Mam podobny problem jak (at)coobah. Czy byłby ktoś w stanie mi pomóc? Plik będzie składał się z kilku tysięcy wierszy (klientów) i będą się oni powtarzali - makro miałoby grupować ich i sumować zużycie oraz wartość dla danego klienta. Dodatkowo dane w pliku co pewien okres będą zmieniane, więc dobrze by było gdy plik był "ruchomy". Jeśli byłby...
Witam wszystkich serdecznie. Na wstępie chciałbym uprzedzić, że jeśli chodzi o VBA to jestem praktycznie noga. Przeszukałem internet oraz obecne forum i znalazłem makro prawie pasujące do moich potrzeb, mianowicie makro sumuje konkretną komórkę ze wszystkich plików znajdujących się w danym folderze. I tu moja prośba do kolegów. Czy byłby ktoś w stanie...
Nie jest potrzebne makro. Wystarczyłaby funkcja SUMA.WARUNKÓW, gdyby nazwy z listy "typ_aktywności" były zgodne z nagłówkami tabeli (wiersz Nr2 arkusza "Rozliczenie tygodniowe"). Chodzi o Np "spotkania" / "spotkanie" etc.
To tylko makrem
Ponawiam temat sumowania tak jak widać pozdrawiam
Cześć, potrzebuję pomocy. W załączonym pliku znajdziecie arkusze: - weryfikacja - firma 1 - firma 2 - kodowanie firma 1 - kodowanie firma 2 Przystępując do pracy: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB 2. Uzupełniam formułę w kolumnie A 3. W kolumnę B wpisuje "F1" 4. Kopiuję kolumnę A i wklejam do arkusza "Kodowanie Firma...
i chce wywoływać makro z poziomu Accessa i teraz pytanie czy jest możliwość by w accesie zapisała sobie to makro na zasadzie wywołaj mi go w pliku 1234.csv Tak, czyli access musi otworzyć sobie 1234.csv (ma wstawić w t4 date i sumować r4 i q4, zapisać jako csv ?)
Nie wiem czy dobrze zrozumiałem Twój problem Tabela przestawna sumuje zobacz Twój plik
Witam, Dopiero uczę się VBA i mam taki problem. Potrzebuję napisać makro, które dla pewnego zakresu dat (wskazanego przez użytkownika poprzez inputbox) będzie: a) sumować dane b) wyliczać średnią z tych danych c) zaktualizuje wykres na bazie tych danych (co miesiąc nowy wykres) Dla przykładu w kol. A mam daty a w kolumnie B kwoty, na których chcę wykonać...
Tabela przestawna sobie poradzi z takim czymś.
Jeśli dobrze zrozumiałem, chcesz zsumować wartość z jakiejś komórki ze wszystkich arkuszy, które zawierają w nazwie numer mniejszy lub równy arkuszowi, z którego odpalasz makro? Jeśli tak, to w skrócie można to zrobić tak: [syntax=vb]'dla arkuszy nazwanych: Arkusz1, Arkusz2 etc. aktNumer = Mid(ActiveSheet.Name, 7, Len(ActiveSheet.Name) - 6) suma = 0...
Witam W planie jest by kalkulator po wciśnięciu enter znikał, ale też by zapisywał i sumował każdorazowo podane liczby.
Makro jest O.K ale sie nie sprawdzi, może jakaś formuła?
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...
Jestem laikiem jeżeli chodzi o VBA. Potrzebuję makro, które będzie sumowało komórki z danego zakresu względem kolorów jakie są w komórkach gdzie są wartości. Kod mam, ale po zmianie koloru komórki z zakresu automatycznie nie przelicza się, trzeba "odświeżyć". Jakieś pomysły jak to zrobić, żeby latało z automatu? Sub Makro1() Function SumujKolorowe(Zakres...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 wstawia pusty wiersz. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Makro, które utworzyłam nie wyrzuca mi błędu, ale jedyne co robi to przechodzi od komórki P1 do pierwszej pustej. [syntax=vbscript]Function PrzejdźDoOstatniego1() Dim ile...
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 =...
W przykładzie 2 formatowania warunkowe (Nr tygodnia, obramowanie) oraz sumowanie warunkowe. Przeanalizuj, dostosuj do własnych potrzeb.
T.j. istnieje jedna 'Tabela zapisu' i trzy 'idat'? W ktorzym arkuszu formula sumowania lub brak je? Gdzie przykladowy plik?
Fajnie makro oczywiście działa ale jeden mankament jest. U Ciebie adamas_nt jest wynik 122.55 a miał być 123.55. Takie małe przeoczenie ale próbowałem zmienić docelową wartość w kodzie tylko nic to nie dało. Może jakaś podpowiedź jak to zrobić żeby zadziałało bo po podaniu dobrej wartości makro mi nie rusza
To działa w 2003 ale musisz włączyć makra. (Najlepiej opcja z pytaniem za każdym razem czy włączyć makro w pliku) Dlatego się wcześniej pytałem czy dopuszczasz makra. Jest odwrotny opis na arkuszu [parzyste (1) nieparzyste (0)] ale wg mnie dobrze działa Na marginesie ciekawe rozwiązanie jedynie w samym makro można by było zmienić trochę warunek aby...
witaj, chodzi o to, że ta wartość mi się nie zgadza z tego Nie tak. ~(GPIO_AFRL_AFRL0 | GPIO_AFRL_AFRL1) zanegowane to: 0xFFFFFF00. Potem GPIOC->AFR[0] & 0xFFFFFF00 daje: 0xPPPPPP00. Gdzie P o poprzednie wartości (niezmienione). I potem 0xPPPPPP00 | GPIO_AFRL_AFRL0 daje na końcu: 0xPPPPPP0F. Oczywiście wartość do czyszczenia można zapisać jako makro...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 otwiera nowy skoroszyt i wkleja do określonego arkusza zakres komórek A1:Sn+1 lub całe wiersze 1:n+1. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Udało mi się stworzyć coś takiego, ale niestety wyrzuca mi błąd :( [syntax=vbscript]Sub...
W załączeniu wg mnie trochę bardziej uporządkowany kod i parę zmian. Też myślałem o tym by dane otwierały się kiedy trzeba. Poprawiłem ale na razie jest jedno "ale" jeżeli zaczął byś wpisywać w liście coś od litery "w" przerzuciło by cie do danych - dlatego dodałem spację do pierwszej nazwy. Pomyślę o innym rozwiązaniu ale na razie nie mam czasu. Zobacz...
Nie bardzo rozumiem, dlaczego upierasz się przy tym filtrowaniu i makrze. Prościej zrobić to formułą z sumowaniem warunkowym i bez filtrowania masz od razu sprawdzone wszystkie oddziały. Można też tę formułę przerobić na makro, ale tylko w razie gdy formuły działają zbyt wolno. Bo jak masz makro, to po każdej zmianie danych musisz wyniki ręcznie przeliczać,...
Z braku odpowiedzi można wnioskować, że Święta tuż, tuż :) Widzę 2 rozwiązania: 1) Arkusz pomocniczy z funkcjami wyszukiwania. 2) Makro. Kroki w obu przypadkach: - sortowanie wg kodów - lista bez powtórzeń - wyszukiwanie i składanie ciągów tekstowych (zamienniki) Nie rozumiem tylko do czego potrzebna druga i czwarta tabelka. Żeby znaleźć kod wg zamiennika...
Nie umiem pisać makr, dlatego piszę do Was z prośbą w napisaniu makra... Jak na razie robię to ręcznie i zajmuje to sporo czasu. Makro ma skopiować ilości poszczególnych produktów z pliku "orders" i wkleić je do tabel pod klientami w pliku "production" (kilka arkuszy). W pliku "orders", pod każdą nazwą ' Customer Type ' jest wpisywana nazwa klienta,...
Nie mam za dużo czasu a akurat do tego przydało by sie makro. Wesz co a może zrób sumy częściowe. TZN Zaznacz całą tabelę i W menu dane wybierz sortuj , wciśnij ma wiersz nagłowka i w sortuj wg kolumny: nr ewidencyjny. daj Ok Następnie w menu dane wybierz sumy częściowe. Dla każdej zmiany w: zaznacz numer ewidencyjny Użyj funkcji wybierz suma Dodaj...
Witam wszystkich, potrzebuję pomocy w dorobieniu jednej funkcji w kodzie VBA. W załączonym pliku jest tabela, w której znajdują się produkty, ale są one zduplikowane. Za pomocą makro usuwam zduplikowane pozycje, zapisując je w tabeli obok. Potrzebuję pomocy, aby dołożyć tam opcję sumowania pozycji zduplikowanych w kolumnie ENABLED. Poniżej przykład:...
Może źle zacząłem, ale chodzi mi o to że podczas używania funkcji suma.jeżeli nie che podawać wszystkich nazw arkuszu skąd mają być brane tylko chciałbym użyć zakresu arkuszy np początek:koniec!E11 czyli tak zwane odwołanie się wszystkich arkuszy znajdujących się wewnątrz tego przedziału początek i konice( przykład poczatek arkusz2 arkusz3 arkusz4 arkusz5...
Istnieją dwa sposoby: 1) wykorzystując makro Excel4 KOMÓRKA (formuła jako nazwa). 2) VBA Color, ColorIndex (Interior, Font).
Sumowanie komórek w Wordzie ? Może jednak chodzi o Excel-a ? Makro możesz "nagrać" korzystając z Menu Narzędzia->Makro ... Zarejestruj nowe makro. Włączasz rejestrację wykonujesz potrzebne czynności zamykasz rejestrację i masz makro.
Makro tu niepotrzebne. Wystarczy zastosować odp. formułę. Np sumowanie bez #ARG! http://obrazki.elektroda.pl/3087397300_1... Napisz dokładniej w czym problem, lub wrzuć przykład.
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...
1. Najpierw należy zrobić listę unikatowych numerów z całego skoroszytu (makro). Nie powinno być problemów. Porównujesz każdy numer ze znajdującymi się już na liście. Pierwszy, wiadomo musi być unikatowy. Jeżeli drugi jest różny od pierwszego - dopisujesz, jeśli nie - następny. itd przez wszystkie arkusze poza ukrytymi. 2. Sumowanie wartości wg numerów....
Jeżeli dobrze zrozumiałem intencje autora to tutaj raczej bez makra się nie obędzie. Oczywiście można użyć opcji wklej specjalnie->dodaj ale będzie to bardzo uciążliwe. W załączniku proste makro wykorzystujące zdarzenie Change arkusza , bez obsługi błędów i sprawdzania rodzaju danych wpisywanych do kolumny.
Może niech makro kasuje funkcję sumującą i wpisuje ją jeszcze raz?
W excelu można sobie łatwo budować taki prosty program. W załączniku przykład. Nawet jeśli nie programowałeś w VBA to pewnie nie będzie Ci ciężko zrozumieć kod tego makro. Oczywiście jest prosty do bólu, jedyne co robi to dekrementuje komórkę E4 w kierunku zera, jak osiągnie przy wrzucie zero to wyświetla komunikat. Po wrzucie można zapisać arkusz i...
Dziękuje za szybką odpowiedz. Przy zastosowaniu tej Formuły =SUMA('1:3'!H2) wyskakuje mi błąd #NAME? Dodano po 28 Wypróbowałem to na Excelu Microsofta i funkcjonuje poprawnie, wygląda na to ze Open Office nie wspomaga tej funkcji. Mam najnowsza wersje Open Ofiice, wiec żadne update nic nie da. Temat zostawiam otwarty jak by kto miał jakaś idee z Makro...
Witam serdecznie wszystkich zainteresowanych forumowiczów. Pisaniem w VBA zajmuje się dopiero tydzień i pojawił się pewin problem, który w pewnym sensie przerósł moje możliwości. W załączonym schematycznym pliku są dwa arkusze: "baza" i "tabela". W bazie są kolumny z datą, Dostawcą i Ilością sztuk, natomiast w tabeli chciałbym je segregować z podziałem...
Witam. Proszę o pomoc. Jak zliczyć sumę (formuła lub makro) składek, możliwych kombinacji zaznaczonych wariantów (dotyczy sumy wszystkich możliwości zaznaczeń), w tym suma składek za dzieci musi być pomnożona przez ilość wpisanych dzieci.
założyłem sobie tak że wykorzystując funkcję "suma_wydatki" oblicze sobie wpłaty dla "podanego dnia". Ten "podany dzień" byłby następnie wykorzystywany w samym makro, na zasadzie takiej że biorę po kolei dni tygodnia powiedzmy od i=1 do n i sumuję dla nich wartości, a następnie wyznaczam max. Może moje założenie jest błędne, jak jest jakaś inna możliwość...
Jak już zrobiłeś taką ładną tabelkę, to pomyśl, czy nie lepiej, zamiast zagnieżdżać wiele razy funkcję jeżeli(), dać sumowanie warunkowe albo liczbę komórek niepustych z zakresu od podanego dnia do końca miesiąca. Jedynym tematem będzie eleganckie podstawienie adresu początku zakresu do funkcji. Osobiście zaznaczyłbym dni robocze jako niepuste (dowolny...
Dzień dobry, Przypuszczalnie to się da zrobić w Excelu, tylko nie wiadomo, co dokładnie ma być w tych komórkach - jaki numer ma być w komórkach D166 i M166 i jak to ma być powiązane z zakresem E175:E290? Czy komórki D166 i M166 mają zliczać wartości niezerowe w zakresie E175:E290, czy je sumować, czy tylko sprawdzać, czy jest jakaś wartość niezerowa?...
Najlepiej na każdej Przecież masz podane w temacie formuły (nawet makra nie trzeba używać)
Dzięki za zainteresowanie. Niestety ani jeden ani drugi sposób nie załatwia mojego problemu. Po wpisaniu do komórki C9 formuł, które podaliście sytuacja wygląda tak, że jak staję na komórkę C9 i dodaje wiersz powyżej to w komórce C10 jest dalej suma tylko jednej komórki C8:C8, a mi chodziło o to, aby formuła zmieniała się na C8:C9. Dlatego zastanawiałem...
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...
Witam, przepraszam za przerwę ale inne obowiązki musiałem wpierw rozwiązać, wracając do tematu plik zawiera dane które spływają z innego pliku lecz czasem zdarza się że trafiają tam dane o takim samym numerze więc dla porządku i by nie trzeba było szukać dwóch o takim samym numerze dobrze by było by makro po wykryciu dwóch o takim samym numerze po prostu...
Poszukaj informacji na temat sortowania bąbelkowego. Tak się składa, że w VB litery i łańcuchy też można porównywać. "b">"a", "Alicja">"Ala" itd Musiałbyś kopiować dane ze wszystkich kolumn wiersza do tymczasowej tablicy, co pokazałeś że potrafisz już robić. Sumowanie najlepiej zrobić funkcją SUMA.JEŻELI. W VB Aplication.WorksheetFunction.SumIf(argum...
Witam, od kilku dni szukam odpowiedzi i nie mogę znaleść. Mianowicie muszę utworzyć makro, które będzie pobierało automatem pliki codziennie rano o określonej godzinie ( w ich nazwie jest data). Nowe pliki pojawiają się np 6.55 na dysku a o 7 makro musi przekonwertować je w taki sposób, żeby sumowało wartości liczbowe z plików i w postaci sumy pod odpowiednią...
Czemu nie załączysz przykładowego arkusza? Ten kod, który napisałeś ma niewielki sens, bo w pętli powtarzasz ciągle to samo. Po lewej stronie masz adres konkretnej jednej komórki, do której trafia wynik. A po prawej stronie zmieniasz zakres sumowania, ale wyniki trafiają i tak do tej samej komórki, więc się nadpisują i otrzymujesz w efekcie wynik ostatniego...
Czy do takiego checkBox'a potrzebujemy jakąś komendę do odświeżania danych po jej użyciu? Nie odświeżają mi się wartości z sumy częściowej po odkryciu i zakryciu wierszy? Przycisk działa tylko na pierwszą kolumnę (która sumuje częściowo), w pozostałych kolumnach sumowanie nie działa ?? Dodam, że funkcja agreguj działa tak samo jak suma częściowa, czyli...
Super robota ale niestety makro to nie działa do końca dobrze. Czasem w danym wierszu pomija dane i ich nie sumuje np dla aaa2 bbb3 aaa1 ccc2 daje aaa3 ccc2 - pomija bbb3 Szczerze nie mam pojęcia w jaki czemu tak się dzieje i jak można to poprawić :(
mam mały problem, gdyż muszę klepnąć skrypt na zawody dla dzieci w rzucaniu modelami samolotów. Każdy dzieciak ma 6 rzutów, z czego excell ma dla każdego dzieciaka zsumować tylko 3 najlepsze rzuty (w sekundach). Jeśli nie da się tego ugryźć standardowymi funkcjami może jakieś makro, które posortuje każdy wiersz, potem zsumuje... to mi wyszło, ale tylko...
Witam, Jednak makro jest lepsze. Mam jeszcze jedno pytanie czy jest możliwość dodania do komórki A1 formułę SUMA tak aby sumowała z tego zakresu A4:A8 lub A4:D4, na pewno w tych zakresach będą jakieś formuły. pozdrawiam
O ile dobrze zrozumiałam Twoje pytanie... Sub Dodawanie() ' makro odczytuje aktualną zawartość komórki c1 liczba = Range("c1") 'teraz dodajemy zawartość komórki a1 wynik = liczba + range("a1") range("c1") = wynik End sub Potem kwestia jak chcesz uruchamiać makro - guzikiem czy też ma być...
Witam. Prosiłbym o pomoc w edycji mojego kodu, który przenosi dane z jednego arkusza do drugiego. Potrzebuję przenosić wartości z wybranych kolumn G, L i M, dopóki są wypełnione danymi, do osobnego arkusza, a następnie sumować te wartości zaraz pod danymi. Sumowanie działa tak, jak trzeba, lecz chciałbym, aby makro wstawiało formułę, a nie gotowy wynik. Makro...
sumować kolumna makro sumować wyjście sumować arkusz
ustawi adres publiczny zasilanie konwertera multiswitcha volvo silnika
citroen xsara immobilizer citroen xsara immobilizer
Exacontrol 7 C - Czy współpracuje z innym sterownikiem? Mercedes W212 2.2 CDI 170 KM - Błąd P2080 Czujnik Temperatury Spalin