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...
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 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, 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...
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...
=jeżeli(D15=1;C15;0)+jeżeli(...
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...
makro sumowanie kolumny makro sumowanie kolumna sumowanie kolumny makro
pompa oleju omega czujniki zewnętrzne bezprzewodowe niszczenie papieru
cyfral cosmo bateria macallister
Kontrolka świec żarowych i nierówna praca silnika Diesla Zamarznięcie kondensatu w pochłaniaczu wilgoci - co zrobić?
