I cisza się zrobiła... No dobra, wypiłem kawę i wyszło mi coś takiego: Edit: A makro w innym pliku. Jednak późno już... Załącznik podmieniłem
Da się: http://obrazki.elektroda.pl/8027992500_1...
[syntax=vbscript]Sub Kopiuj() Set a = Sheets("Arkusz1") owa = a.Cells(Rows.Count, "B").End(xlUp).Row Sheets("Arkusz3").Select ow = Cells(Rows.Count, "B").End(xlUp).Row y = 2 For x = 2 To ow s = Application.Match(Cells(x, 2), a.Range("B1:B" & owa), 0) If Not IsError(s) Then a.Range("A1:D" & owa).AutoFilter Field:=2, Criteria1:=Cells(x, 2) a.Range("A2:D"...
zamiast exit sub daj pustą funkcję albo przypisanie jakiejś zmiennej do samej siebie
Spróbuj [syntax=vb]For Each kom2 In Sheets("Arkusz2").Range("A1:A500") If kom2 <> Empty Then For Each kom1 In Sheets("Arkusz1").Range("A1:A500") If kom1.Value = kom2.Value Then kom2.Offset(0, 13) = kom1.Offset(0, 13) kom2.Offset(0, 14) = kom1.Offset(0, 14) Exit For End If Next End If Next[/syntax]
A mógłbyś po swojemu, wspomniałeś, że nie znasz VB, napisać, jak według Ciebie taka linijka powinna wyglądać? Podpowiem, żę blisko tego: [syntax=vb] Cells(owa2, 1).Select Selection.PasteSpecial Paste:=xlPasteValues Cells(.... = .... [/syntax] Cells(1,1), to komórka A1. Cells(4,2), to komórka 4B. Proste, prawda?:)
Nie musisz niczego przepisywać. Zobacz załącznik -> dodany miesiąc i rok. T U Sprawdź czy o to chodzi.
Widzę, że nie bardzo lubisz makra ;) a wystarczy: 1. makro z WorkbookOpen powtórzyć przy WorksheetActivate (aktualizacja listy Combobox''a). 2. Usunąć instrukcje warunkowe dot. producenta Listę kolorów modyfikujesz w arkuszu "Opcje". Musi być "ciurkiem" (bez dziur). Edit 20:17 - zmieniłem załącznik (Clear brakowało przy Activate)
W formatowaniu warunkowym zastosuj taki mniej więcej ciąg myślowy: jeżeli dziś >= data_wpisana +80 to koloruj na czerwono Osobno w jakiejś tam kolumnie (przyjmijmy, że jest to komórka G4) wpisujesz normalny warunek: jeżeli dziś >= data wpisana to G4="ŹLE" w przeciwnym razie G4="OK" Wystarczy to podstawić do funkcji, celowo zostawiam Ci odrobinkę pracy...
[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("K1") <> "" Then Me.Save Else If Range("A1") > 0 Then MsgBox "Komórka K musi być wypełniona przed zamknięciem dokumentu!" Cancel = True Else MsgBox "OK, komórka K wygląda na poprawnie wypełnioną Smile" Me.Save End If End If End Sub [/syntax]
To da się zrobić nawet za pomocą suma(). http://obrazki.elektroda.pl/9193961000_1... Pochrzaniłem zakresy sumowania dla środy - nie zwracaj uwagi na liczby .
przerzucam kolejne strony książki Walkenbacha Hmmm, czyżby zapomniał wspomnieć o pętlach? ;) Przeanalizuj (w założeniu brak dubli w Arkusz2), dostosuj do własnych potrzeb [syntax=vb]Sub Mania() Dim ws As Long, wDel As Long ws = 1 With Sheets("Arkusz1") Do While .Cells(ws, 1) <> "" On Error Resume Next wDel = Sheets("Arkusz2").Columns(5).Find(what:=...
Jeśli dobrze rozumiem, to tak:
Samodzielnie rozwiązany problem.
Trzeba dodać warunek na długość zawartości komórki: [syntax=text]=ORAZ(KOMÓRKA("wiersz")=WIE... >0 będzie interpretowana jako PRAWDA.
Pierwsza sprawa to na pewno wyrzuć funkcję Jeżeli() i pozostaw tylko warunki. Możesz zapisać go w jednej funkcji Oraz(). Druga sprawa to jak zostawisz wszędzie te $ to nie będziesz mógł łatwo kopiować formuły/warunku. Adres bezwzględny pozostaw tylko przy adresie S$4 =ORAZ(B3>5,0;B3<6,0;C3<S$4) Tak zapisany warunek wpisz do formatowania warunkowego...
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...
Trzeba wrzucić to w pętlę. Jak znajdzie robi warunek PRAWDA Jak nie znajdzie to w warunku FAŁSZ wyświetla Msgbox i kończy działanie
chciałbym zeby wybierało tylko wiersze spełniające pewne warunk Jak zwał, tak zwał. Ale wyobraźmy sobie, że "wybierało" dzieje się w tej linii [syntax=vb]Print #1, kol1 & ";" & kol2; ";" & kol3; ";" & kol4; ";" & kol5; ";"[/syntax](wcześniej jest przypisanie). Wystarczy więc, tę jedną linijkę "owarunkować" [syntax=vb]if warunek then Print #1, kol1...
ale funkcje tablicowe to już "wyższa" matematyka excela Jaaaasne. :D :D I kto to pisze. To ja, zgodnie z tym co mam napisane nad tym brzydkim ryjem po lewej mogę używać takich zwrotów, a nie wirtuoz Excela. Ale żeby temat trochę uprościć to zamiast tablicówki można użyć zwykłej: =suma.iloczynów((zakres1="a...
to w tym samym rzędzie i w innej kolumnie również kolorowało mi tło tym samym kolorem używać ten sam warunek formatowania jak dla kolumny X
Dla Excela 2007 i powyżej: Formatowanie warunkowe -> Nowa reguła-> Użyj formuły do określenia komórek, które należy sformatować. W okienku formuły wpisujesz warunek "=ORAZ($A$2=1;$B$2="") i dalej ustawiasz format komórki Dla pozostałych komórek ustawiasz warunki format podobnie.
...kolego w Twoim wzorcu nawet jeśli zakres "E1:E9" jest całkowicie pusty to pokazuje wynik 3 Chyba u Ciebie... http://obrazki.elektroda.pl/9225081400_1... ">0" oznacza większe od zera Jeśli w komórce jest liczba ujemna lub tekst warunek nie jest spełniony "<>" oznacza niepusta spełniony zawsze jeśli komórka nie jest pusta.
Nie wspominałeś że może taka sytuacja zaistnieć więc funkcja tego nie sprawdza. Ale i to się da załatwić dodatkowym oraz() Tylko że w takim przypadku zadam dodatkowe pytanie czy przykładowo n5 ma date 20140101 i perc jest 1 ale inna n5 ma date 20140101 i perc 1 też jest błędem jako dubel ? Bo wtedy wykażemy warunkami że błędem jest już sam dubel - bez...
Dzień dobry, Chciałem się włączyć do dyskusji, chociaż trudno zaproponować szybkie rozwiązanie przy tak dużej liczbie danych. Nie chcę proponować VBA, są pewnie lepsi od tego specjaliści, natomiast formuły Excela można na pewno zoptymalizować. Ale najpierw pytanie, czy w przykładzie kolumna I w arkuszu "wynik" zawiera spodziewany wynik? Warunek jest...
Warunek w formule jest ustawiony na sztywno: od 8 do 16. Formuła sumuje z kolumny A wszystkie wartości, które spełniają warunek - w tym przypadku tylko pierwszą pozycję. Przeciąganie formuły w dół nic nie da - bo to zawsze będzie suma warunkowa z całego wskazanego zakresu kolumny A.
kurcze w pracy mam wersję 2007 i nie mogę żadnej frazy wpisać :/ Mało prawdopodobne :D , zaznacz dotychczasowy wpis i wtedy zacznij wpisywać swoją frazę :!: pole edycji Comboboxa i jego lista automatycznie się przestawi po pierwszej literze :D co należy zrobić , aby kolor danej komórki wyświetlił się w arkuszu "wyszukiwarka" w oknie "szt" Po prostu...
Zaznacz wszystkie komórki z datami. (zwróć uwagę że przy zaznaczaniu jedna komórka z zaznaczonych pozostaje jasna) Wybierz w menu Format "Formatowanie warunkowe" Warunek 1 zmień na "Formuła jest" a w okienko wpisz = A1 <=DZIŚ()+60 Przy czym A1 zastąp adresem komórki która z zaznaczonych jest jaśniejsza - z reguły pierwsza z zaznaczanych komórek)...
Tak się nie da. Usuń sumy częściowej. Dodaj kolumnę pomocniczą z funkcją suma.jeżeli() w której warunek będzie "odbiciem" "warunku" dla sumy częściowej i według tej kolumny posortuj dane (jako pierwszy klucz). Dopiero wtedy wstaw ponownie sumy częściowe.
Jeśli tylko ukryć wartości, to najprościej "zabielić" czcionkę za pomocą formatowania warunkowego. Jeśli wynik formuły, to warunek podobny do numerowania wyżej. Jeśli zablokować przed edycją, to jedynie makro w procedurze zdarzeniowej.
Pierwsza sobota przypada w okresie pomiędzy 1 a 7 dniem miesiąca. W tym okresie może być tylko jedna sobota i w tym okresie zawsze musi pojawić się sobota. Skoro masz już warunek na "sobotę" to dołóż drugi na dzień miesiąca < 8.
No to znowu jest kilka możliwości, można zrobić trochę kodu, który przeleci przez te komórki i jak spotka to, co am spotkać, to dopisze w jakimś arkuszu kolejny wiersz (rekord), jeżeli lista tych nazwisk jest stała to można też ich wszystkich przepisać do arkusza zbiorczego, który potratujemy autofiltrem (rozwiązanie prostsze, nie wymaga programowania).
Problem w tym, że jeśli dam aby pomijał tekst "po terminie" to będzie pomijał wszystkie teksty... Chodzi o to, że pomimo tego, że komórka jest pusta to arkusz pustą komórkę traktuje jako datę jeśli cała kolumna jest tak sformatowana. .. Wiec sprawdzaj 2 warunki w forumule np.: ORAZ(E20<DZIŚ();E20<&g... albo kolejny...
Trochę cię podprowadzę. (Bo nie koniecznie trzeba używać jeżeli ale dla zrozumienia warto) Stajesz na komórce z datą ( I3 ) Format - formatowanie warunkowe Pierwszy warunek Jeżeli komórka jest pusta pozostaw bez formatowania Wybierasz formuła jest... i tu wpisujesz funkcję sprawdzającą = czy.pusta(I3) Pozostawiasz bez formatowania Drugi warunek Jeżeli...
Korzystając z funkcji JEŻELI w kolumnie C musisz stworzyć formułę, w której: - warunek: komórka z kolumny B > 0 - wartość jeśli warunek jest spełniony: wartość z kolumny B - wartość z kolumny A - wartość jeżeli warunek nie jest spełniony: "" [2 razy cudzysłów, czyli pusty ciąg] Teraz już pewnie dasz radę.
Brak załącznika to poważny mankament! Nie wiadomo, jakie dane są w kolumnie "O". W kodzie PRL jest sprawdzany warunek: [syntax=vbscript]Sheets(x).Cells(y, "O") >= -30[/syntax]Otóż warunek ten spełniają nie tylko liczby >= -30, ale również puste komórki, dowolne teksty, w tym teksty puste, wartości logiczne. A jeśli w komórce jest wartość błędu, to program...
Zerknij do załącznika. więc wystarczyło by mi coś co wyłapuje tylko 2 wyrazowe ciągi Czyli tylko porównywanie długości ciągów... Warunek (true) testu:[syntax=text]DŁ(A1)-DŁ(PODSTAW(A1;... ";""))=1[/syntax]
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
Dzień dobry, W pierwszej chwili nie zrozumiałem, o które puste pola chodzi. Teraz już wiem, że chodzi o to, że gdy w wierszu wzorcowym jest puste pole, to pola poniżej nie mają być zaznaczane. Należy dodać drugi warunek do formuły: [syntax=text]=ORAZ(A11=A$11; A11<>"")[/syntax] W tym drugim warunku może być albo A11 albo A$11. Pozdrowienia.
Dla jednej zmiennej wystarczyło by podaj.pozycję() z 1 jako ostatni parametr. Kłopot gdy masz jeszcze jeden warunek dotyczący litery. Może wykorzystać ostatnio wykorzystywana na forum funkcję tablicową na podanie pozycji z warunkami. Zaraz popróbuję. edit Świetnie działa z warunkami jak jest wszystko określone dokładnie, ale jak ma się zbliżać tylko...
Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.
nazwy firm w zależności od statusu tylko na dzień dzisiejszy :?: Jeśli ten warunek jest istotny :?: to te nazwy firm będą jedynie w jednym wierszu (dane dla dnia dzisiejszego :D ) np. tak jak na zrzucie i w załączonym pliku :ok: 1088589 1088592 Jeśli koleżanka preferuje rozwiązania oparte o VBA :?: to można tu zastosować kod, który przy otwarciu pliku...
Hmm. Żeby sprawdzić warunek True/False (przy warunkowym uruchomieniu ze zmienną globalną) procedura musi się uruchomić. Wbudowany autozapis nie spełnia wymogów? [url=http://www.jkp-ads.com/download.asp... znalazłem jakiś dodatek (Autosave.zip), może się nada. W ostateczności można "napisać" procedurę przy otwarciu, a przy zamknięciu usunąć. [url=http://www.cpearson.com/excel/vbe.a...
Jeszcze na chwilę. Złapałem się na tym, że myślimy w kategorii "parametru dla funkcji tablicowej" (może dlatego, że takie było pierwotne założenie). A gdyby zadaniem było coś grubszego i wtedy Np 19.12.2020 - 1.02.2022 Nie było by prościej, gdyby wykorzystać tylko pierwszą datę i wyliczoną ilość dni (nawet dla ilości kroków pętli), zamiast gromadzić...
Takie zestawienie najprościej jest zrobić poprzez tabelę przestawną z wielu zakresów. Warunek jeden to pliki muszą mieć taki sam format tzn. w komórce np A2 Pytanie w komórce B2 Odpowiedź, i tak w każdym pliku. W załączeniu przykładowe pliki.
1. Funkcja znajdz() zwroci 7, wiec podany przez Ciebie przyklad zwraca nic innego jak falsz i to rozwiazanie nie jest dla mnie odpowiednie. Chcialby sprawdzic czy istnieje ciag znakow z jakas litera na poczatku i zastanawia mnie dlaczego "*", ktora oznacza dowolny ciag znakow nie dziala w moim przypadku ? 2. Ten przyklad rowniez jest niepoprawny a...
Ów zdefiniowany "tekst" wpisujesz w cudzysłowiu jako warunek równości a działanie formatowania warunkowego ustawiasz na komórkę (lub zakres), którą chcesz kolorować. Zobacz załącznik. (at)mickpr Nie do końca o to chodzi w temacie.
Jeżeli dobrze rozumiem to czas dostawy dotyczy wszystkich paczek w danym tygodniu. Jeżeli tak to dokładasz wiersz tydzień przyjazdu który jest sumą wiersza tydzień i czas dostawy . Wtedy za pomocą suma.jeżeli() otrzymasz wynik dostaw w każdym tygodniu. https://obrazki.elektroda.pl/2450138800_...
Jeśli znaki "<" oraz ">" występują tylko jako "nawiasy" znaczników i nigdzie więcej, to można w prosty sposób skorygować pętlę Do , umieszczając warunek i polecenie wyjścia z pętli wewnątrz niej. Rezygnujemy wtedy z tablicy i określamy początek i koniec fragmentu do pogrubienia wg wspomnianych znaków.
Niezadeklarowana zmienna obiektowa 'WB' Zadeklaruj (WB as workbook) i przypisz (set WB = thisWorkbook / set WB = Workbooks("JakiśInnyPlik.xlsx") Albo po prostu: For Each WS In thisWorkbook.Worksheets lub dla innego niż ThisWorkbook For Each WS In Workbooks("JakiśInnyPlik.xlsx").Workshee... Masz błąd w konstrukcji 'If': i = i -1 musi być wewnątrz bloku...
Cześć, szukam rozwiązania dla pewnego problemu. Stworzyłem formułe sprawdzającą pewne warunki znajdujące się w pozostałych kolumnach i działa do pewnego fragmentu. Do działającej formuły chciałem dodać dodatkowy warunek/ jeżeli ale wyświetla błąd. Działająca fomruła wygląda następująco. =WARUNKI(ORAZ(D6<7000000;D6>600000...
excel warunek excel obliczać warunek warunek excel formuła
piekarnik whirlpool opinie zamek tylny drzwi mercedes canon eprom
naprawa pendriva chińska tokarka
Nissan Qashqai J11 1.6DCI - Blokujący się przycisk na dźwigni zmiany biegów Optymalna antena dla tunera Technics ST-7600
