Poczytaj o WYSZUKAJ.PIONOWO, a jeżeli makro to o VLOOKUP.
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łą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...
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...
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...
Spróbuj tej wersji: [syntax=vb]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2013-01-24, autor Darek ' ' Dim maxIndex, maxX, maxY, nextFree, tmp, x, q As Integer Range("A1").Select maxX = ActiveCell.SpecialCells(xlLastCell).Colu... maxY = ActiveCell.End(xlDown).Row maxIndex = Round(maxX / 2) Dim nazwy() As String Dim wartosci() As Integer ReDim...
Trochę myślałem ale tu są "poważne" zagadnienia. (nie wiem czy bez makro pójdzie) O ile tabelkę dla danego detalu (max i nazwisko lub min i nazwisko) nie jest zbyt trudno zrobić (*z zastrzeżeniem) to już podać nazwisko przy łącznych detalach dla max lub min zaczyna być problemem. W tym przypadku max/min to nie problem ale z nazwiskiem ... * Zastrzeżenie...
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
Ja tez nie kumalem tego kiedys .. poszukaj ,poczytaj i zrozumiesz:) ps1- http://galaxy.uci.agh.edu.pl/~chwastek/l... na tej stronce masz kurs samego C , tam sa wytlumaczone operatory itp rzeczy. ps2 . co_dana & 0x80 - jedno & oznacza iloczyn (AND) bitowy tzn: mamy np to zmienna co_dana ktora ma powiedzmy wartość 185 - binarnie...
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]
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...
dziennie może być od 30-60 i do każdego będzie osobne rozliczenie Jeśli tak :cry: to proponuję inne rozwiązanie budowy pliku z arkuszami oznaczonymi nazwą (lub kodem) klienta i datą ważenia :D po wypełnieniu tabelki danymi - makro (uruchamiane skrótem ctrl+r ) zrobi raport dla tego arkusza oznaczy go stosowną nazwą i przygotuje następny szablon do...
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...
Super :) Dziala rewelacja, szczerze to wykorzystalem <code> On Error GoTo open_err Set conn = New ADODB.Connection conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ThisWorkbook.FullName & "; Extended Properties=Excel 8.0;" On Error GoTo 0 </code> I dziala. Dodano po 59 Dzieki bardzo za pomoc. Mam jeszcze jedno pytanko-...
Witam, Mam bazę danych, w osobnym arkuszu utworzyłam sobie listę w której mogę wybrać nr klienta (nr klienta jest czasami z jakimś tekstem lub z jakimiś dodatkowymi liczbami ale mam go traktować jako jeden klient). Udalo mi się napisać proste makro (jestem poczatkujaca) które z wyfiltrowanej listy kopiuje te nr do osobnego arkusza, sortuje tam te dane,...
Nie bardzo mam czas wnikać, ale z opisu wynika, że wystarczy zmodyfikować nieco "Makro2" W przykładzie sumowanie z trzech komórek. Jeśli zaskoczy, dopisz sobie ile tam trzeba... [syntax=vb]Sub Makro2() MyPath = "M:\magazyn\" myname = Dir(MyPath & "*.xls", vbNormal) rang = Array("A1", "A2", "A3") 'tu dopisz kolejne adresy ark = "Arkusz1" With Sheets("Arkusz1")...
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...
Dzięki, a myślałem, że uda się obejść makro
sumowanie warunkowe
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,...
W przykładzie 2 formatowania warunkowe (Nr tygodnia, obramowanie) oraz sumowanie warunkowe. Przeanalizuj, dostosuj do własnych potrzeb.
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...
edytowania sumy, w taki sposób, aby automatycznie i proporcjonalnie zmieniały się też składniki sumowania Musisz przemyśleć założenia i określić ograniczenia, które możesz napotkać, np.: Założenia: 1. Określony, być może stały, zakres komórek w kolumnie ze składnikami do sumowania (argumenty) 2. Wyliczenie współczynnika proporcjonalności danej składowej...
Załączam. Makro potrzebuję napisać w pliku statystyki.xlsm - makro licz_uslugi. Później podepnę je pod przycisk W pliku "zlecenia.xlsm" mam dane osobowe wraz z zamówionymi usługami (usługi w kolumnach od K do BK - jak w komórce pojawia się liczba 1 lub 2 lub 0,5 to znaczy, że dana usługa była zamówiona). W pliku statystyki sama podaję daty, które mnie...
Samo zsumowanie to nie problem gorzej z wydzieleniem kont które istnieją w górnej tabeli wpisaniem ich do dolnej tabeli. Tu potrzebne jest już makro z pętlą do 31 a w pętli ustawianiem listy kont. Ale najprostszym rozwiązaniem jest nagranie makra w postaci : posortuj tabelę wg konta ... potem ... sumy pośrednie ... przypisz do przycisku i ... już jest...
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....
[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,...
Istnieją dwa sposoby: 1) wykorzystując makro Excel4 KOMÓRKA (formuła jako nazwa). 2) VBA Color, ColorIndex (Interior, Font).
Witam. Mam następujące makro: Sub Makro2() ' ' Makro2 Makro x = 1 y = 1 suma = 0 Do While Cells(x, 1) <> "" Do While Cells(x, y) <> "" If Cells(x, y).Interior.ColorIndex = 3 Then suma = suma + Cells(x, y) End If y = y + 1 Loop y = 1 x = x + 1 Loop Cells(6, 1) = suma End...
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.
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, - w czasie epidemii koronawirusa, w czasie robienia zapasów artykułów spożywczych, pomyślałem, że dla zinwentaryzowania tego co w lodówce, na regale w spiżarni i wszystkiego co może się zmarnować - bo mija data przydatności do spożycia, napiszę żonie makro. Myślę, że może się przydać, tym bardziej, że zauważyłem, iż ludzie z braku tego po co...
[url=https://www.youtube.com/watch?v=Lw8...
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.
Przy takiej ilości pozycji to faktycznie użycie tej funkcji może byc problematyczne, lepiej było by napisać jakiś programik w VBA (o ile ma pan dostępny edytor Visual Basica w Excelu (Narzędzia -> Makro -> Edytor Visual Basic)) Czy identyfikatory produktów są jednorodne czyli czysty numer czy też jakaś kombinacja literowo-cyfrowa ? Ile jest różnych...
[syntax=vb]Range(Cells(lOstRw, 12).Offset(1, 0), Cells(lOstRw, 19).Offset(1, 0)).FormulaR1C1 = "=SUM(R[-" & lOstRw & "]C:R[-1]C)"[/syntax]
Wolałbym makro bo mam np 70 arkuszy. A jak złączyć te teksty aby wartości z kolumy A i D były tylko raz a wartości z B były takie i tyle razy o ile w d jest coś.
Przepraszam, że lepiej tego nie określiłam. Dla lepszego wyjaśnienia załączam plik (nie jest w formacie makro ponieważ taki był niedozwolony do załączenia). To moja dzienna produkcja. Każdego dnia zmieniam tu kolory aby zaznaczyć która zmiana ile i czego wyprodukowała. Obok mam zestawienie, chciałabym aby w efekcie końcowym samo wszytko się liczyło,...
Można napisać to makro na te sumy i adresy. Taki zamysł mam, żeby zwracało w zależności od parametru albo ilość albo tablicę adresów. Np =ciagi(C2:C267,dwudniowe,0) zwróci ilość a {=ciagi(C2:C267,dwudniowe,1)} tablicę tych adresów. Tylko jak ma liczyć ciągi przełomu miesięcy? Np. okres 30.I.-12.II.1961... jest to ciąg 14-dniowy. Czy takie coś traktować...
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...
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...
Witam Chciałbym się podłączyć pod temat. Mam podobny problem i nie potrafię go rozwiązać. Wyjaśnię mam dwie kolumny. W kolumnie A jest wpisana kwota w kolumnie B data(daty się powtarzają może być więcej jak jedna liczba przypisana do tej samej daty) A B C 12----------01/01/2013 Wartosc 15----------01/01/2013 19----------01/01/2013 25----------03/01/2013...
=jeżeli(D15=1;C15;0)+jeżeli(...
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...
Witam. Poniższy kod z VB Excel potrzebuję przerobić na C# tak by wyświetlał się w datagirdview. Zadaniem kodu jest zliczanie wierszy o takiej samej nazwie w kolumnach A:B, sumowanie wierszy w kolumnie D, usunięcie policzonego wiersza. [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q...
Witam! Nie będę owijał w bawełnę: to jest mój pierwszy kontakt z vba w excelu i poległem. Problem jest taki(oczywiście bardzo upraszczając arkusz): wpisuję wartości do komórek: A1, A3, A5 i w momencie opuszczania komórki A5 (wciśnięcie entera) chciałbym aby w A6 została wpisana wartość SUMY z A1,A3,A5 następnie kursor ustawia się w A6 i jeżeli wartość...
Proszę o pomoc w rozwiązaniu takiego zadania. Jest to swego rodzaju harmonogram. Mamy kolumnę liczb posegregowaną wg. określonej kolejności, chciałbym aby od pierwszego wiersza następowało sumowanie z warunkiem aby suma = 1000, jeśli np. wiersz1 + wiersz2 <1000 to dodajemy wiersz3 itd. Jeżeli suma 1000 zostanie osiągnięta to wartość "1000" zapisywana...
[syntax=vb][/syntax] Witam wszystkich Forumowiczów, Jest to mój pierwszy post na tym forum jednak od jakiegos czasu sledze watki na elektroda.pl . Jednoczesnie przepraszam za brak polskich znaków. Poszukuje kodu VBA do znalezienia pierwszej wolnej komórki w zakresie a nastepnie wklejenie do tej komórki w kolumnie A tego co znajduje sie w schowku . Powyzsze...
No teraz już widze, że nie będzie to takie proste. Makro czyści odpowiednie komórki - działa tak jak to sobie wymyśliłem i poprosiłem. Jednak nie przewidziałem podstawowej rzeczy. wszystkie komórki w obszarze miesiąca mają przypisaną funkcje jeżeli, jeśli makro czysci komórki zaznaczone kolorem czyści również z danej komórki funkcje. Potem po zmienie...
Zaczynając od wiersza 2 wykonujesz pętlę dopóki w A jest niepuste. Czyli np. jakoś tak:[syntax=vbnet] Sub Sumowanie() Dim Y As Long, S As Double Y = 2: S = 0# Do While Cells(Y, "P") <> "" If Cells(Y, "P") <> 0 Then S = S + Cells(Y, "P") Else Cells(Y, "R") = S: S = 0# End If Y = Y + 1 Loop Cells(Y - 1, "R") = S MsgBox "Gotowe" End Sub [/syntax]
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...
Dziękuje obie odpowiedzi jak najbardziej poprawne :) dodam jeszcze że wykonałem sumowanie uzyskanych wyników (sumowanie poszczególnych kolumn) For x = 0 To 9 Step 1 Cells(105, 8 + x).Formula = "=Sum(" & Range(Cells(11, 8 + x), Cells(103, 8 + x)).Address(False, False) & ")" Next x Aktualnie pracuje nad nowym kodem, ale napotkałem na nowe błędy!! :((...
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]
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...
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...
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...
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ć?
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...
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ł...
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).
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
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?
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...
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.
Witaj. Za pomocą makra.
Cześć, bardzo ładnie proszę o stworzenie makra, które pozwoli mi: 1) pobrać dane z jednego arkusza do drugiego sumując przy tym dane dla powtarzających się ID klientów. W tabeli mam m.in : id klienta, nazwę klienta, typ dokumentu, wartość. ID, Nazwa i typ dokumentu mogą powtarzać się wielokrotnie, przy czym lista Id klientów nie jest stała. Chcę w drugim...
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...
Zlitowalem się nad VBA i wyrzuciłem formatowanie komórek/zakresu poza ostatnią pętlę, bo pierwotnie było wewnątrz. Reszty już nie poprawiałem. Trzeba jeszcze zwrócić uwagę na E1, bo sumowało daty (??)...
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.
Często jest tak że wykonując zapis komendy do sterownika oprócz samego kodu komendy zapisywany jest także argument. Spójrz do dokumentacji sterownika. Z tego właśnie powodu do makra DISPLAY_SET_X oraz DISPLAY_SET_Y sumowane są argumenty. Użycie modulo jest spowodowane jedynie potrzebą dostosowania argumentu w komendzie.
Nie skorygujesz tego. Jest to ograniczenie Excela. Masz do wyboru - albo zrobić sobie kolumny pomocnicze, w których porównasz 15 ostatnich cyfr z osiemnastocyfrowego kodu (wszystkie kody u Ciebie mają jedynkę i kupę zer na początku, więc przynajmniej dla tego przykładu nie zrobi to różnicy - możesz to zrobić jeszcze inaczej, na przykład pierwsze trzy...
Może niech makro kasuje funkcję sumującą i wpisuje ją jeszcze raz?
To raczej zakończy się błędem argumentu... a spróbowałeś chociaż mojego sposobu? bo widzę, że nie;] a jest prostszy niż makra
Najlepiej na każdej Przecież masz podane w temacie formuły (nawet makra nie trzeba używać)
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.
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...
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
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...
..Najprościej nazwać arkusze i odpowiednio ustawić je na pasku zakładek.. Myślałem o tym rozwiązaniu ale zmusza ono do pilnowania pewnego porządku. Autor problemu nie określił, będzie tylko on używał arkusza, czy inne osoby też. W przypadku większej ilości użytkowników istnieje konieczność pilnowania porządku w arkuszach. Dlatego jestem zwolennikiem...
Kurcze faktycznie działa o wiele wiele szybciej :) Ma to jeszcze jedną zaletę... Z szablonu można korzystać na tablecie z androidem (generalnie nie ma aplikacji na androida, która obsługuje makra)
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ć,...
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...
Poradziłem sobie z problemem za pomocą krótkiego makra. Posługując się tylko "poziomem", znajomość produktu była niepotrzebna.
Macro dziala tak ze ma mguzik w pliku X, Nciskam go i Macro łączy się z plikiem źródłowym Y. Macro pobiera potrzebne dane i tworzy TEMP Sheet gdzie wkleja pobrane dane w formie tabelek miesięcznych. Następnie w Temp Sheet manipuluje danymi, przestawia kolumny, zmienia nazwy nagłowkow itd. Potem copiuje tak zmienione dane i wkleja do Sheet Ostatecznego...
Ponieważ sumowanie ma się odbyć w arkuszu suma a nie w poszczegulnych arkuszach np arkusz 1 Wszystkie dane maja być ssumowane w arkuszu 1 jeżeli(dzis()=< w kilku arkuszach e14; to w arkuszu suma ma sumowac odpowiednie komórki. Jeżeli jakas dana data jest wystapi za miesiąc to ma zostać pominieta; natomiast jak data jest która jest dzis a w komórce...
Formuła komórki C2: =JEŻELI(A2<B2;B2-A2;JEŻELI(A2>B2;2... Komórki A2 do C32 muszą być sformatowane na niestandardowe > gg:mm , wszystkie inne sformatowane na ogólne. Godz. początku i końca wpisujemy więc gg:mm Problem jest z sumowaniem kolumny C, ponieważ suma jest MODULO 24h. W związku z tym stosuję kolumny...
Tak dokładnie :) No i fajnie było by mieć to automatyczne sumowanie w każdym arkuszu
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...
Ponawiam temat sumowania tak jak widać pozdrawiam
Nie wiem czy dobrze zrozumiałem Twój problem Tabela przestawna sumuje zobacz Twój plik
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...
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...
jest to tabela do płatności za faktury, i jest to rozróżnienie czy dana faktura jest przeterminowana, czy nadal w terminie płatności. Do tej części mam już porobione makra, które same automatycznie sumują daną część arkusza. jedyne czego mi potrzeba to właśnie sumowanie po rodzaju waluty i nadawanie waluty w zależności od danych z kolumny C.
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ć...
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 ?)
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...
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...
A gdyby pokombinować z tymi makrami?
makro sumowanie kolumny makro sumowanie kolumna sumowanie kolumny makro
współczynnik strat testy akumulatorów wymiana toner
Jak wgrać nowe firmware do Telefunken 55? Zmywarka Miele - migające kontrolki i zatrzymanie
