Poprawiłem Twój kod: Function jakastam(x) Application.Volatile True y = 0 For i = 1 To x y = y + Arkusz1.Cells( i , 1).Value Next i jakastam = y End Function
Ilość osób już masz, do wyliczenia ich średniej użyj f-cji AVERAGEIF().
i = ActiveCell.Row Aktywna komórka, to aktywna komórka... If Cells(i, 3).Value = Worksheets("Dane").Cells(j, 1).Value Then Exit For Zamiast funkcji w VBA, oparłbym to o WYSZUKAJ.PIONOWO.
zawartość komórki B1 do AH17 Dopisz [syntax=vbscript]Cells(17, 34) = .Cells(x, 2)[/syntax]
Ale nie wszystkie zadania dotyczą konstrukcji funkcji. Kilka wskazówek: 5. zastosuj funkcję Jeżeli() (np.=JEŻELI(E2>60;G2-G2*8%;G2); 6. wykorzystaj jeden ze sposobów wypełniania serią danych 7. zastosuj funkcje Licz.jeżeli() i Suma.Jeżeli() 8. wygeneruj wykresy przy użyciu kreatora.
Taka oto funkcja.
Witaj to samo rozwiązanie w nieco inny sposób, z ominięciem błędu dla pustek komórki: =JEŻELI(A1="";"";LEWY(A1;DŁ(A1)-2)&"/"&P...
W VBA dużo jest możliwe. Deklarując funkcję możesz podać argumenty, którym później nadasz wartości przy wywołaniu, na przykład: [syntax=text]Function sumakolumna(litera As String) As Long Dim i As Long sumakolumna = 0 For i = 1 To 10 Step 4 sumakolumna = sumakolumna + cells(i, litera) Next i End Function [/syntax]W ten sposób podając literę kolumny...
Po prostu użyj tych funkcji wewnątrz funkcji.
Trochę zagnieżdżeń funkcji JEŻELI wystarczy w tym przypadku.
Na pewno - Chyba że masz jakieś inne zarządzanie klawiszami (np. grafika) Jak zaznaczone przytrzymujesz ctrl i wciskasz d (tylko wcześniej w "górnej" komórce oczywiście musi być jakaś funkcja).
a tak z czystej ciekawości - czy jest może jeszcze łatwiejsze rozwiązanie ? :) ale mamy wybrednych forumowiczów :) "jak się da to sie zrobi" jak to w starym kabarecie było Hmm... Pewnie że sie da prościej - bez kolumny pomocniczej - tylko formatowanie warunkowe (tylko czy to rozwiązanie jest łatwiejsze jeżeli chodzi o zrozumienie formuły suma.iloczynów()...
Cześć Jeśli Nr maszyny jest liczbą, to można go podstawić jako argument 'ile kolumn' funkcji PRZESUNIĘCIE. A jako argument 'ile wierszy', pozycję w kolumnie A (nazwa wyrobu).
Ja bym kombinował coś z funkcją percentyl. coś w rodzaju maksimum (tablica) jeżeli x<percentyl(a1:a10;0,3)... Coś z tymi funkcjami.
Funkcja Excel PRAWY Dodano po 1 np. w komorce B2 =PRAWY(A2; 3)
Ale nic się nie uczysz. :cry: Żadnych wniosków i przemyśleń z poprzednich odpowiedzi? :cry: Formatowanie pokazuje tak jak ma być. Wartość w tej komórce wynosi w przybliżeniu 39,77273% więc nie spełnia kryteriów formatowania warunkowego dla żółtego. Wciśnij ikonke zwiększ dziesiętne a prawda cię oświeci :) (na marginesie to samo tyczy się innych komórek,...
Wystarczy użyć funkcji "jeżeli" i trochę poczytać, np tu: http://www.programowaniepc.pl/excel-funk...
Trzeba to zapisać np. w taki sposób: [syntax=text]=ADR.POŚR("'"&$A$1&"'!B"&WI... [/syntax]
=ADR.POŚR("B"&4+A2)
[syntax=vbscript]Function WlasnafunkcjaWstawBranze(D As Integer, E As Integer) As String If D = 1 And E = 1 Then WlasnafunkcjaWstawBranze = D & "," & E End Function[/syntax]
Spójrz dokładnie na moją fotkę. Na mojej są trzy czerwone elipsy Tego kodu nie umieszczasz w module tylko pod odpowiednim arkuszem (w VBA po prawej stronie w eksploatorze kliknij dwukrotnie arkusz w którym wykorzystujesz funkcje liczącą bez żółtego lub pod "Ten_skoroszyt" jeżeli ma dotyczyć wszystkich arkuszy.) Poza tym nie umieszczasz tam kodu całej...
Adresy zamieszkania To proponuję spokojnie wypróbować tą drugą formułę - z moich testów wynika, że działa prawidłowo :-) Musisz tylko zweryfikować w jakim formacie są te dane - skąd one pochodzą i czy nie są stosowane jakieś specjalne formaty danych.
Sprawdź, czy o to chodzi.
Proponuję wykorzystać formatowanie warunkowe :idea: dla uzyskania efektu jak na zrzucie :D 978313
Można i makro. Ja próbowałem formułami, ale nie udało mi się uzyskać efektu jaki zamierzałem. W załączniku propozycja z kolumnami pomocniczymi dla kolejnych miesięcy. Kolumny I:T można ukryć. Byłoby łatwiej gdyby nazwiska nie były pomieszane, tylko w każdym miesiącu nazwisko miało taki sam adres. Wtedy można stosować sumowanie 3-W.
Dostosuj funkcję TrzeciOdTylu...
To dokładnie tak jak napisałem : (Alt +F11) - pojawia się okno VBA. Wskazujesz po lewej (klikasz 2 razy) na nazwie arkusza, w którym chcesz zrobić taką zależność. i tutaj zrobiłem (przyznaje się) mały błąd. Kod umieściłem w This Workbook - a nie w konkretnym arkuszu. Kod w arkuszu (np. w Arkusz1) wyglądać ma tak: [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal...
Użyj funkcji TEKST =ZŁĄCZ.TEKSTY((TEKST(DZIŚ... Tydzień ";(NUM.TYG(DZIŚ();2...
Przeczytaj pomoc do programu, nie mam je, to jest Twoj program. Prawdopodobnie to jest cos jak terminal, zazwyczaj mozna parametry w pliku. Uruchom ptw32.exe /? co powie... Dodano po 10 Wszystko mozna wprowadzic w skrypt .psl a uzywac je jako parameter Dodano po 2 Ponadto ptw32.exe ""parameter ze spacje""" Nie ma spacji między znakami cudzysłowu
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 And Target = "Pranie" Then Range("E" & Target.Row) = Date End Sub[/syntax] Ale czy czasami nie potrzebujesz funkcji?
A może koledze chodzi o coś takiego.
Zacznij od funkcji wyszukaj.pionowo
zapisane w szeregu, w jednej kolumnie. Czyli w osobnych komórkach w dół w danej kolumnie?
Jeśli dobrze Cię czytam to specjalnie nie ma co kombinować. Jeżeli A1-B1 nie równa się 0 , to aby pojawiło się zero w wyniku mnożenia przez x , to x musi być zerem. Wynik 0 (zero) możesz uzyskać w tym działaniu jedynie mnożąc przez 0 (zero).
Witam ! Musisz być bardzo precyzyjny (dokładność 1 znaku :!: ) to możesz to zrealizować formułą jak na zrzucie :spoko: 891642
Przeczytaj w pomocy funkcje WYSZUKAJ.PIONOWO
Makro uruchamia się, gdy przechodzisz do "Arkusz2" (Np po zmianach w "Arkusz1") Po linii licznik=2 przydałoby się Range("J" & Rows.Count).ClearContents Ew. szukanie pierwszej niepustej w kolumnie. To już Tobie zostawiam. Oczywiście dość łatwo przerobić to na funkcję.
Wydaje mi się, że łatwiej będzie ściągnąć jakiś gotowy program do rysowania wykresów (taki stworzony w excelu) lub napisany w innym środowisku. tutaj masz przykładzik z googli: http://www.instalki.pl/programy/download...
Funkcja, wyszukaj pionowo.
SUMA.ILOCZYNÓW((zakres=warunek)*(zakres=... patrz pomoc i przykłady na forum. Prościej byłoby, gdybyś wrzucił plik z danymi i niedziałającą funkcją...
https://tomaszkenig.pl/kurs-excel-vba/fu...
http://obrazki.elektroda.pl/9151570700_1... Staw kursor w tabelu 'Propozycja zniżki ważna od 15 styczeń 2015.' a patrz ceny w wiersze formul, ulamkowe. Dodano po 11 wynik powinien wynosić: 73 EUR + 178 EUR = 251 EUR Znaczy to ze od 1 do 50 kg zniżki nie ma ??
Widzę, że próbujesz sprawdzać jakieś procedury medyczne dla NFZ-u :) =JEŻELI(A1=B1;"TAK";"NIE") https://obrazki.elektroda.pl/7706875600_...
Dzień dobry, Lepiej gdyby Pan załączył plik, a nie obrazek. Ma Pan dość nietypową konfigurację: polskiego Excela z amerykańskimi ustawieniami regionalnymi. Daty muszą być w formacie akceptowanym w Pana konfiguracji, a więc w tym przypadku miesiąc/dzień/rok, czyli jeśli chce Pan odliczyć drugi dzień Świąt, więc musi być albo "4/21/2014", albo odwołanie...
przed specjalnie zapytał Co jak firma jest w 2014r. a nie ma jej w 2015 ? 0 - 2014 ?
po komunikat = suma1 dodaj Dodano po 2 Wtedy 'Function formatowanie' odpada
Dubel tematu - można usunąć.
Tutaj jest film gdzie wyjaśniony został sposób użycia tej funkcji. Myślę, że to będzie dużo lepsze dla pogłębienia wiedzy niż gotowa formułka. https://www.youtube.com/watch?v=4G37eJN5...
Użyj funkcji LICZ.WARUNKI.
czy istnieje taka funkcja, w której cyfry 1 i 2 będą liczone jako 12, a pozostałe, np. 4, 8, 12 jako 4, 8, 12 Tak tego typu jak na zrzucie: 896170
Tak jak kolega Marcin230 piszę, w warunku formatowania wpisz np =ORAZ($D2<=DZIŚ();$E2>=DZIŚ()) Oczywiście gdy stoisz w komórce w drugim wierszu excela (nie tabelki)
[syntax=txt]=MAX((INDIRECT(E1&"!C:C"...
Takie wyszukiwanie jest możliwe lecz ... raczej nie za pomocą funkcji wyszukaj pionowo :cry: Można to zrobić np tak jak na zrzucie przy użyciu jednokomórkowych formuł tablicowych :spoko: 873542 Całość wraz listą wyboru wyszukiwanego klubu masz w załączonym pliku :D 873546 Ps. na zrzucie widać jeden błąd, który skorygowany jest dopiero w pliku :bye:
Zainteresuj się funkcją - SUMA.JEŻELI.
tak może: =JEŻELI(C1<=175;(JEŻELI(C... niskiego wzrostu";"Osoba średniego wzrostu"));"Osoba wysoka") zmien Sobie C1 na dowolną
Pomyliły Ci się funkcje - WYSZUKAJ w tym przypadku może zwrócić albo "W" albo błąd - nigdy nie zwróci liczby! Prawdopodobnie chciałaś użyć funkcji SZUKAJ.TEKST (nie rozróżnia wielkości liter) albo ZNAJDŹ (rozróżnia wielkość liter). Jeśli wzorców jest kilka to raczej ILE.LICZB, a nie CZY.LICZBA. W sumie coś takiego (tablicowo, chyba że Excel 365): [syntax=text]=JEŻELI(ILE.LICZB(SZUKAJ.TE...
Rzuć okiem na takie coś. Wyszukałem znaki "/", następnie zmieniłem ostatnią część na liczbę i posortowałem zwykłą funkcją A->Z
Funkcja Adr.Pośr - zobacz załącznik
Czy liczby zawsze są w układzie rosnącym?. A może wykorzystaj funkcję Suma.jeżeli()
Patrz w pomocy Excel funkcje WYSZUKAJ.PIONOWO dla Q2 = WYSZUKAJ.PIONOWO(M2; A:B; 2)
A czy można prosić funkcję, Excel blokuje mi dostęp.
Zmieniłem całkowicie koncepcje. Dzięki za sugestie
W zasadzie wszystko miałeś dobrze (przynajmniej formalnie), z wyjątkiem liczby Pi, którą trzeba zapożyczyć z Excela. Dodałem tylko nagłówek i deklaracje (nie są konieczne, ale lepiej jak są, bo zabezpieczają przed niektórymi błędami). Algorytmu nie sprawdzałem, zresztą nie podałeś danych, a istotne są tu jednostki. Widać tylko, że zmienna Obr jest niewykorzystana....
Zastosuj formułę z iloczynem (and), po spełnieniu obu warunków wykona funkcję jeżeli.
Nowego arkusza w tym samym skoroszycie? Dołącz plik przykładowy. Jeśli wiesz, wszystkie wartości 1A, 1B, 2A, 2B itp to nie potrzebne makra, w Excel => 2007 jest formula(funkcja)
Jeśli zdecydujesz się skorzystać z tabeli przestawnej np. jako skoroszytu pomocniczego wypróbuj funkcję WEŹDANETABELI
poproszę o link ;) Przykładowo zastosowanie funkcji vlookup w VBA :arrow: https://www.elektroda.pl/rtvforum/viewto... Chciałabym aby w liście była pozycja jako "inne" Jeśli zastosujesz listę "poprawności danych" to nie ma żadnego problemu z pozostawieniem pustego, edytowalnego pola :spoko: np tak jak na zrzucie 960396 Wszystko...
Takie sztuczki tylko w PHP (no nie tylko ale ...) a i to trzeba dolara przed wiersz wstawić. [syntax=vbnet]Public Function wysokosc_wiersza(wiersz As Integer) As Integer w = Trim(Str(wiersz)) wysokosc_wiersza = Range(w + ":" + w).RowHeight End Function[/syntax]
Funkcja taka to: "=JEŻELI(B4<50;B4+0,35*B4;JEŻELI(B4&l... zamiast 'B4' wstaw sobie komórkę w której masz daną
Pewnie ktoś z wyższą wersją się odezwie, żeby Ci pomóc.:)
Tak, teraz dopiero wiadomo, o co chodzi. Podaję dwie propozycje formuł. Pierwsza w "starym stylu" bez funkcji LAMBDA: [syntax=text]=UNIKATOWE(FILTRUJ($K$5:$K$... z wykorzystaniem funkcji pomocniczej LAMBDA: [syntax=text]=LET(dane;$K$5:$K$24;UNIKAT...
Jeżeli z zakresu U38:AU38 pozbyć się scalania komórek oraz w każdą z nich wpisać wartości formatu albumu to można użyć następującej formuły: [syntax=text]=SUMA.ILOCZYNÓW((D4=U38:AU3...
Spróbuj w nawiasach kwadratowych.
witaj Obejrzyj plik, który posłałem na pw
Wróć do przecinków i zmień typ wykresu z liniowego na punktowy (z punktami połączonymi prostymi liniami).
A takie rozwiązanie? Function Szukanie(Wskaznik, Rok, Zakres as Range) For Each Kom In Zakres If Kom = Wskaznik Then Wiersz = Kom.Row End If Next For Each Kom In Zakres If Kom = Rok Then Kolumna = Kom.Column End If Next Szukanie = Zakres(Wiersz - 1, Kolumna).Value / 100 End Function Powinno działać prawidłowo. Dodane: Coby funkcja była...
Najwyższą wartość znajdziesz stosując funkcję MAX. Pozycję w tablicy funkcją PODAJ.POZYCJĘ. Znając pozycję funkcją INDEKS przedstawiasz wartość z innej kolumny (tablicy). Np wyszukanie imienia najwięcej zarabiającego =INDEKS(B9:B18;PODAJ.POZYCJĘ(... Dla najmniej, jak się łatwo domyśleć podstawiasz...
Można tak:[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row > 1 Then For Each c In Target If c.Value = "" Then Cells(c.Row, "B").Value = "" Else Cells(c.Row, "B").Value = Date End If Next c End If End Sub [/syntax]
Porównujesz wartość komórki z zakresem komórek. Jeżeli ma być że jest równe jednej lub drugiej z tego zakresu, użyj funkcji logicznej LUB(). Natomiast jezeli w zakresie chcesz coś znaleźć, to funkcja JEŻELI jest całkowicie nieprzydatna, tu trzeba użyć funkcji WYSZUKAJ.PIONOWO albo WYSZUKAJ.POZIOMO.
Użyj funkcji [url=http://office.microsoft.com/pl-pl/e... i wytnij z jej wyniku nazwę arkusza.
[syntax=vbscript]Sub Rozdziel() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow a = Split(Cells(x, 1), ".") For y = 2 To 4 Cells(x, y) = a(y - 2) Next Next End Sub [/syntax] Trzeba tylko ustawić format kolumn B:D na tekstowy.
dla Adres to nie dobrze, poniewaz nie zawsze wybor bedzie dobry Wystarczy tylko zakres Nazwa, Adres z pomocy funkcji WYSZUKAJ.PIONOWO
Zależy ci na konkretnych wartościach czy może być suma tych liczb? Bo jeżeli suma liczb to wykorzystaj funkcję Suma.jeżeli()
chodzi o to, żeby z 1 i 2 (i innych których nie ma we wzorze) arkusza z danej kolumny konkretnego pracownika na ostatni arkusz przenosiły się w osobną tablkę Jeżeli posiadasz Excela powyżej wersji 10 :?: to tego typu efekt jak na zrzucie 1047238 możesz uzyskać poprzez utworzenie tabelki połączonej (łącza z danymi z tabelek "kierunkowych" np w ukrytym...
I co dalej z tym zielonym zaznaczeniem? Ma pozostać na stałe? Jeśli tak, to zobacz nowy załącznik.
zastosowanie zapisu np. =JEŻELI(B1="";"";JEŻELI(D1="";"";SUMA(B1... nie pomaga. A powinno. Spróbuj =JEŻELI(LUB(B1=0;D1=0);"... Ostatnia wartość: Jeśli kolumna nie ma dziur (każdy wiersz jest wypełniony), to zlicz niepuste i podstaw jako argument funkcji ADR.POŚR. =ADR.POŚR("A"&ILE.NIEPUSTY...
Uzupełnię pytanie kolegi yogi009 Ile maksymalnie wierszy liczy grupa? W załączniku przykład dla trzech. Ograniczeniem jest maksymalna ilość zagnieżdżeń funkcji JEŻELI.
Wykorzystaj tabelę przestawną. A jeżeli funkcją to suma.warunków()
https://support.office.com/pl-pl/article...
Witam, Podpowie ktoś jak "permanentnie" można zmienić pozycję edytora/podpowiedzi funkcji w Excel? https://obrazki.elektroda.pl/8205552000_... Jak na załączonym zdjęciu zawsze pojawia się w miejscu opisu kolumn przez co za każdym razem muszę ją przesuwać - jest to dość irytujące. Będę wdzięczny za każdą sugestię ;-)
Propozycja rozwiązania w załączniku. Oczywiście zakresy tablic użyte w funkcjach trzeba sobie dostosować.
zmienić fUnkcję Lewy() na Fragment.tekstu()
A nie możesz wyniki przenieść na drugi arkusz? Wtedy tylko zmieniasz formułę: =LEWY(Arkusz1!A1;2) =PRAWY(Arkusz1!A1;DŁ(Arkusz1!A1&... Czy musisz na tym samym arkuszu kategorycznie pozostać? EDIT: Zrobiłem specjalnie dla Ciebie makro ;) [syntax=vb]Sub Prostokąt1_Kliknięcie() koniec = Range("A1").End(xlDown).Row Application.ScreenUpdating...
Zmień żeby ostatnia komórkę pobrało np. z kolumny 1 lub najpierw niech wstawi nowe kolumny później OstSpend [syntax=vb] Windows("tabela").Activate Columns("D:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove OstSpend = Cells(Rows.Count, 6).End(xlUp).Row Range("D1") = "KolumnaX" Range("E1") = "KolumnaY" Range("D2:D" & OstSpend).FormulaR1C1...
W Excelu wciśnij ALT+F11
Zobacz w załączniku. Trzeba zastosować ADR.POŚR, bo funkcja SUMA.JEŻELI obsługuje tylko pojedyncze arkusze. Dodałem JEŻELI.BŁĄD, bo arkuszy jest faktycznie 3, a formuła przewiduje 71. Można pominąć, jak błędów nie będzie, a arkuszy dokładnie tyle co wpisane do wzoru.
Witaj. Sprawdź: =JEŻELI(A1<2;"Brak promocji";JEŻELI(A1>4,5;&quo... wyróżnienie";"Otrzymał promocję")) Oczywiście zamiast A1 podstaw swoją komórkę. Dodano po 16 Kolegi drugą formułę można poprawić na coś takiego: =ZŁĄCZ.TEKSTY(JEŻELI(J3>4,5;&... wyróżnienie";"");JEŻE...
Przykład z formułą opartą na funkcjach wyszukiwania/adresu.
Osobiście uważam, że dedykowany program magazynowy to najlepsze rozwiązanie, nie zawsze trzeba wykorzystywać jego wszystkie funkcje. Excel nie jest bazą danych i nie jest "głupoto-odporny" jak nie jest odpowiednio przystosowany. Przystosowanie Excela do pracy jako "pseudo" program magazynowy jest możliwe ale jest wiele ograniczeń. Trzeba sobie rozpisać...
Coś takiego? =SUMA(B4+D4)-SUMA(-(C4-6))
excel funkcje excel makro funkcje funkcje change excel
dolna grzałka przypala esp8266 integra łożysko skrzyni
hulajnoga xiaomi zasilacz klimatyzacja prawa
Zawór upustowy i wąż turbo w Mercedes Viano 3.0 CDI: diagnostyka i naprawa Zgodność wynalazków Tesli z rzeczywistością techniczną