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
W złych miejscach nawiasy. Ma być tak: [syntax=text]=SUMA.ILOCZYNÓW(([przykład1...
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_...
Na ten moment przy moich danych mail powinien wysłać się do 2 osób, a wysyła się 1 mail. Set OtlMail = OtlApp.CreateItem(0) Nie działa bo masz poza pętlą. Zmień [syntax=vbscript]With OtlMail [/syntax] na [syntax=vbscript]With OtlApp.CreateItem(0)[/syntax]
Wyskakuje gdzie? Po zatwierdzeniu formuły? W takim razie formuła ma błąd, trzeba ją zapisać poprawnie. Zacznij od jakiegoś innego arkusza, napisz coś z raz zagnieżdżoną funkcją jeżeli() dla zrozumienia mechanizmu działania takiego wpisu.
Wklej w komórkę J5 formułę: =JEŻELI(T5="!";"WSTRZYMAJ";JEŻELI(S5="kl... zrezygnował";"REZYGNACJA";JEŻELI(M5="";"... MONTAŻU";JEŻELI(M5<DZIŚ();"PO TERMINIE";JEŻELI(M5-DZIŚ()<=10;"WYKON... SERWIS";"JESZCZE CZAS")))))
[syntax=vb]Sub koko() For Each c In Sheets("ZLECENIA").UsedRange.Columns(1).... c.Interior.Color = IIf(Sheets("MAGAZYN").Columns(1).Find(c) Is Nothing, vbRed, vbGreen) Next End Sub [/syntax]
Zakładam, że ta tabela TCOne będzie się rozrastała i zmieniała :D , więc proponuję ewentualnie się od niej uniezależnić i poprzez "nazwane funkcje" uprościć tą formułę przeciąganą w kolumnie A :idea: - tak jak na zrzucie :spoko: 1045128 Zmiana oznaczeń (XXX - AAA itd.) można zrealizować poprzez zagnieżdżenie formuły JEŻELI() - 1045149
Żeby wykonywać jakiekolwiek obliczenia trzeba najpierw upewnić się, czy to co masz to są faktycznie daty i czas rozpoznawane przez Excela, czy też są to teksty z wyglądu przypominające daty. W tym drugim przypadku należy dokonać przekształcenia. To czy są same daty, czy daty z godziną to nie ma zasadniczego znaczenia. Data bez godziny będzie interpretowana...
Nie wiem jak to będzie "po nowemu", ale po staremu[syntax=text]=SUMA.ILOCZYNÓW((ROK...
zamiast exit sub daj pustą funkcję albo przypisanie jakiejś zmiennej do samej siebie
Jesli naprosto usunuc - tak, a jesli zamiast 2 MsgBox If odp=vbYes ??
Efekt dwóch formatów warunkowych jak na zrzucie: 925001 można uzyskać poprzez zastosowanie formatowania opartego na stosownych formułach :idea: całość rozwiązania w załączonym pliku :spoko: 925002
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).
Czy ma ktoś jakiś pomysł na formułę która zautomatyzuje poszukiwania? Proszę o pomoc. W załączeniu Excel Rozważyłbym przeprojektowanie tej tabelki albo skorzystanie z tabelki przestawnej. Ale ok. Potraktowałem to jako challenge - powstała jednolinijkowa formułka ;) Zasada działania: iloczyn logiczny ze sprawdzenia miesiąca z dniem daje nam dzień albo...
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...
Byc moze to angielska wersje Excel. Wtedy w warunku formatowania zastap 'adres' na 'address'
Zastosuj formułę z iloczynem (and), po spełnieniu obu warunków wykona funkcję jeżeli.
[url=https://www.youtube.com/watch?v=ywS... coś znajdziesz.
Da się: http://obrazki.elektroda.pl/8027992500_1...
Coś przesadziłeś, dlaczego jest warunek?
Jeśli wynik nie zgadza się, spróbuj pokombinować z funkcjami tekstowymi. Np http://obrazki.elektroda.pl/3805960600_1... Usuwane są spacje w obu kolumnach oraz sprawdzanie wartości "przekonwertowanych" do małych liter (wtedy wielkość liter nie ma znaczenia) [syntax=text]=SUMA.ILOCZYNÓW((USUŃ.ZBĘDN...
[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.Rows(s).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub...
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ą
[url=https://www.youtube.com/watch?v=NAc...
Należałoby przeszukać sąsiadów w wierszu "wierszkontrahenta"... Taki efekt: http://obrazki.elektroda.pl/8119171000_1... uzyskałem przy pomocy [syntax=vb]Sub Szukaj() ilekontrahentow = 20000 ListaFirm = "nazwisko" 'symulacja wartości pola tekstowego wiersz = Worksheets("KONTRAHENT").Range("B3", "B" & ilekontrahentow) _ .Find(what:=ListaFirm,...
[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]
Najprościej dla pojedynczego dnia zrobić to tak: =JEŻELI(B4<2000;100;JEŻELI(B4<1000... Chyba że uwzględnić że dla B4<=0 i >=20000 na być wartość 0 wówczas: =JEŻELI(B4>0;JEŻELI(B4<2000;100;JE... Co do zmienności B4, różne dni czerwca...
Jeśli dobrze zrozumiałem chodzi Ci o coś takiego? =JEŻELI(B1="*";A1;0)+J...
Może być takie proste rozwiązanie bez VBA - patrz załącznik. W komórce B1 jest zwykła lista rozwijana kontroli poprawności. Dane można wpisać wprost do okienka kontrolki. W komórkach B2:B3 definiujemy kontrolę poprawności z listą zdefiniowaną za pomocą formuły nazwanej (w Menedżerze nazw). Zestaw odpowiedzi musi być zakresem w arkuszu. Jeśli są to te...
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...
Chciałabym mieć możliwość sprawdzenia funkcją Nie do końca rozumiem co koleżanka chce sprawdzać ? Jeśli to jest tabela importowana i chodzi o sprawdzenie tylko braku "dubletów" numeracji dla danego typu ? To można to zrealizować funkcją - tak jak na zrzucie ;-) 1202325 Jak widać na zrzucie tą samą funkcje można wykorzystać do oznaczania błędów poprzez...
Witaj Trochę wątpliwości. Dlaczego jest to tak ważne, aby bez makr?
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 ??
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...
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...
Skoro Kolega chce VBA, to proszę. Kod dla modułu 'Arkusz3': [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then If Target.Cells = "XYZ" Then Call Kopiuj End If End Sub[/syntax] Kod modułu skoroszytu: [syntax=vb]Sub Kopiuj() s = Sheets("Arkusz3").Range("B2") Sheets("Arkusz1").Select ow = Cells(Rows.Count,...
Ale to zwróci ci, czy cały numer jest parzysty. A jeśli kolega ma (np. poprzez funkcję LEWY) wydzielone poszczególne cyfry do osobnych komórek, to IMO sumę parzystych cyfr najprościej zrobić tak: =LICZ.JEŻELI(A1:J1; 2)*2+LICZ.JEŻELI(A1:J1; 4)*4+LICZ.JEŻELI(A1:J1; 6)*6+LICZ.JEŻELI(A1:J1; 8)*8 Gdzie kolumny...
Dla starszych wersji Excela: [syntax=text]=JEŻELI(SUMA.ILOCZYNÓW((A:A...
...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.
tak może: =JEŻELI(C1<=175;(JEŻELI(C... niskiego wzrostu";"Osoba średniego wzrostu"));"Osoba wysoka") zmien Sobie C1 na dowolną
Należy połączyć funkcję UNIKATOWE z funkcją FILTRUJ: [syntax=text]=UNIKATOWE(FILTRUJ(C3:C10;H... Tylko to może być niejednoznaczne, bo ta sama osoba raz może być z "x" a innym razem nie. Ta formuła działa w ten sposób, że najpierw pomija wiersze z "x", a potem szuka unikatów wśród pozostałych osób.
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...
Na pewno funkcją, jaką należy zastosować jest LICZ.WARUNKI. Jeśli z pierwszą częścią nie powinno być większych problemów, to z drugą... Spróbuj: [syntax=text]=LICZ.JEŻELI(A!C1:C24;"B")-... auta")[/syntax]Przy takich nazwach arkuszy, Excel "traci orientację" (patrz apostrofy) ;) kryteria2 równie dobrze będzie...
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:=...
[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]
Przetestuj następującą formułę: [syntax=txt]=JEŻELI(G5>0;SUMA.JEŻELI($G$...
Zarówno używając funkcji ILOCZYN (warunkowo z funkcją JEŻELI), jak i w przypadku funkcji BD.ILOCZYN można podać zakres z zapasem. Puste komórki nie przeszkadzają. Tak przynajmniej jest w Excelu. W arkuszach Google nie sprawdzałem. W przypadku funkcji ILOCZYN formułę trzeba zatwierdzać tablicowo, chyba że masz najnowszego Excela 365. W przypadku funkcji...
Może coś takiego: =JEŻELI(H2="TAK";D2*E2-E2;... Zamiast ostatnich pustych "" możesz umieścić formułę wykonywaną jeśli nie jest wpisane ani TAK, ani NIE. Ewentualnie w cudzysłowiu tekst, który wystąpi zamiast formuły w takim przypadku.
[syntax=vbscript]Sub Kopiuj() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If Cells(x, "C") > 30 Then Range("A" & x & ":D" & x).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax]
Witam Sprawdź czy tak układ ci pasuje [syntax=vbnet]Sub kopia() With Sheets("Check") For x = 4 To .Cells(Rows.Count, "P").End(xlUp).Row If Trim(.Cells(x, "P")) = "yes" Then ost = Sheets(.Cells(x, "D").Value).Range("A" & Rows.Count).End(xlUp).Row + 1 .Cells(x, "P").EntireRow.Copy Sheets(.Cells(x, "D").Value).Range("A" & ost & ":A" & ost + 1) End If Next...
Najprościej jednak makrem: Edit 11:22 zmieniłem załącznik (byczek się wkradł)
Ech, pomyliły mi się te plusy z minusami :) Trzeba zamienić warunki pętli.
=JEŻELI(B1=1;A1;0)
Dalej jest źle bo nie to spakowałeś ale już stworzyłem sam. Na razie bez makro ale dodałem kolumnę pomocnicza D (Jak masz dane to prawy klawisz myszy na literę kolumny D i "Wstaw"
Mówią, że deklarowanie zmiennych, to dobra cecha programisty. Są języki, gdzie bez deklaracji się nie da. W VBA nie jest _wymagane_ deklarowanie, ale jak chcesz, to używaj 'Dim'.;) P.S. Wykorzystałeś makro 'Kopiuj2'?
Moze tak? =JEŻELI(A1<2;"wew";JEŻELI(A1<6;"sr...
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 .
A może koledze chodzi o coś takiego.
Potrzebuję napisać makro do formatowania warunkowego. Chciałabym pokolorować cały wiersz, jeśli spełnione są dwa warunki: - kolumna O > 10% oraz kolumna B zawiera tekst "styczeń", "luty", "marzec" - kolumna O > 15% oraz kolumna B zawiera tekst "kwiecień", "maj", "czerwiec" AI: Jaka wersja programu Excel jest używana? Excel 2024 AI: Czy potrzebujesz...
Chyba najprościej zastosować formatowanie warunkowe i jako regułę wpisać =suma(A:C) a jako warunek: "nierówne"
Jakiś mainframe
Zerknij wpierw tutaj, czy cokolwiek by ci się nadało do adaptacji pod twoje potrzeby: https://www.elektroda.pl/rtvforum/topic3... https://www.elektroda.pl/rtvforum/topic3...
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)
firma z przypisanym kodem z kolumny A kod_2 nie ma znaczenia? Dodano po 43 [syntax=vb]Sub kokos() Dim bs As Range, bd As Range, bt As Range Dim rs&, re&, rd& Set bs = Sheets(1).Range("A:J").Cells Set bd = Sheets(2).Range("A:D").Cells re = bd(Rows.Count, 1).End(xlUp).Row + 1 Range(bd.Rows(2), bd.Rows(re)).Delete bs.Sort key1:=bs(1, 3), key2:=bs(1,...
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next r = Date - Target.Cells If Target.Column = 2 And r > 30 Then w = Target.Row Cells(w - 1, 5) = "" Cells(w, 5) = "" End If End Sub [/syntax]
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
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]
Spoko, mogło by wyglądać tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) wiersz = wiersz + 1 Loop End Sub Dodano po 2 jaszcze taka uwaga makro działa poprawnie do pierwszej pustej komórki w kolumnie przeszukiwanej
Jeśli dobrze rozumiem, to tak:
troszkę nie kminię pomysłu , daj przykład paru komórek jak powinny wyglądać Przecież autor załączył fotkę Proponuje wpisać w A1 1 i w A2 1 zaznaczyć A1 i A2 złapać z róg i skopiować w dół do A32 A33 wpisać =A1+1 i skopiować w dół do A64 Zaznaczyć komórki od A33 do A64 złapać za prawy dolny róg i przeciągnąć/skopiować w dół aż do ostatniego wiersza...
Witam. Cos w tym stylu?
Czy ja wiem. Na takich "wielkich" arkuszach chyba wszystko szybko działa :) Wystarczy zamienić nazwiska na odwołania do komórek i nazwać zakres żeby było mniej pisania i można ciągnąć w dół do woli.
Opis jest niezbyt jasny. Czy chcesz wypełniać puste komórki w kolumnie H tekstem z kolumny I, czy chcesz w innej kolumnie np. J uzyskać efekt połączenia kolumn H i I (po weryfikacji). Jeśli to pierwsze, to raczej nie formułą tylko makrem. Jeśli to drugie, to możesz użyć formuł. Ale nie takich jak próbowałeś. Nie można używać symbolu zastępczego gwiazdki...
[syntax=vb] Sub SzukajCiagu() Dim x As Long, y As Long, z As Long, SzukaneSlowo As String x = 1 z = 1 Sheets("PrzeszukiwanyArkusz").Select While Cells(x, 1) <> "" y = 1 While Sheets("ListaSlow").Cells(y, 1) <> "" SzukaneSlowo = Sheets("ListaSlow").Cells(y, 1) If InStr(1, Cells(x, 5), SzukaneSlowo) > 0 Or InStr(1, Cells(x, 6), SzukaneSlowo)...
Dzień dobry. Proszę tak spróbować: +----+-----+----------------------------... | | E | F | G | +----+-----+----------------------------... | 1 | ad1 | ={MOD(L6:L10;2)=0}...
Odwołaj się w pętli do arkusza źródłowego/docelowego przez Worksheets("nazwa_arkusza"), a po kropce do konkretnej komórki: albo w postaci .Range("E" & i) albo w postaci .Cells(i, 5), gdzie i - nr wiersza źródła (ew. jeżeli zrobisz w pętli for each c in ...., to możęsz użyć c.Row). Do tego druga zmienna np. j dla wiersza arkusza-celu, czyli: j = 1 for...
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...
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).
Spróbuj to [syntax=vb] Sub Porzadkuj() x = InputBox("Podaj datu", "Data przyporziadkowania", Date) If Not IsDate(x) Then Exit Sub x = DateValue(x) Dim nazwy As Range, d As Range With Sheets("pivot") Set nazwy = .Rows(3) Set d = .Cells.Find(x, LookIn:=xlValues) If d Is Nothing Then Exit Sub Set d = d.EntireRow.Cells For Each sh In ThisWorkbook.Sheets...
Dzień dobry, Należało załączyć przykładowy plik do testowania. W tekście jest błąd składniowy "Is Numeric" powinno być jednym słowem. Ponadto wewnętrzny warunek pętli nie może być nigdy spełniony, bo gdy komórka jest pusta, to funkcja IsNumeric zwraca True, a tu jest koniunkcja warunków. Pozdrowienia.
W załączniku przykład reguł formatowania warunkowego dla dwóch wartości (1z, 2z), dla kolumny C. Wg wzoru możesz ustawić formaty dla reszty zakresów i pozostałych wartości. Moim zdaniem będzie tego trochę dużo, albo czegoś nie zrozumiałem do końca. Jeśli tabelki w arkuszu mają stałe położenie, można wziąć pod uwagę zastosowanie makra na Offset'ach...
Zastosowałem SUMĘ.WARUNKÓW. [syntax=text]=JEŻELI(A2&C2&D2<...
Witaj Łatwiej zrobić nowy niż szukać błędów: Dodano po 3 Specjalnie w tym przykładzie może być łatwiej [syntax=vb] Sub Usun() Dim r&: r = 2 While Cells(r, 1) <> Empty If Cells(r, 1) = "X" Then Cells(r, 1).Delete Shift:=xlToLeft End If If Cells(r, 2) = "Linia" And Val(Left(Cells(r, 3), 3)) >= 1 Then r = r + 1 Else Rows(r).EntireRow.Delete...
Witam [syntax=vb]Dim tb As Control Dim wiz As Boolean wiz = Not (Index = "") For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Visible = wiz Next [/syntax] Jeśli jest to widoczne, ale zablokowany [syntax=vb]wiz = Index = "" For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Locked = wiz Next [/syntax] nie zaleca się używania...
Przetestuj następujące makro [syntax=vb]Sub GetVIN() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi sCol = "D" With ActiveSheet sRegExpPatt = "[A-Z0-9]{17}" lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row Set objRegExp = CreateObject("VBScript.RegExp")...
Witam, Mam za zadanie zrobić na zajęcia coś takiego, jak kalkulator rat kredytu. Mój problem polega na tym, że każda rata musi być wypisywana oddzielnie w kolumnie. Nie wiem jak to mam zrobić, bo jeśli ktoś np. wybierze kredyt na 2 lata, to musi wypisać raty w 24 komórkach. Wydaje mi się, że nie da się tego zrobić bez programowania w excelu, a moja...
Już był podobny temat: http://www.elektroda.pl/rtvforum/topic11... Możesz użyć więcej niż 1 warunków formatowania warunkowego.
Witam byłem nieco zapracowany umieszczam plik w którym korzystałem z pomocniczych tabelek do sprawdzania 35h przerwy, co 4 niedzieli wolnej, zmian rosnących itd może to naświetli jeszcze dokładniej bolączki z którymi muszę się zmagać Pozdrawiam zainteresowanych i ewentualnych inicjatorów wszelkiej udzielonej pomocy w tej materii Dodano po 2 tu załącznik...
Wg Twojego opisu: [syntax=text]=JEŻELI(E5<80%;0;JEŻELI(...
W Excel'u (MOffice) jak klikniesz na komórkę z funkcją "=JEŻELI(CZY.LICZBA(D3);D3-C3;0)" to zaznaczy się ta komórka i w dolnym prawym rogu tej zaznaczonej komórki jest "mały kwadracik". Złap za ten kwadracik (lewym przyciskiem myszy) i przeciągnij na dolne komórki. Po puszczeniu lewego przycisku dolne komórki wypełnią się same tą samą formułą i automatycznie...
ElseIf kom <> "" And Left(kom, 2) = "nie" Or Left(kom, 3) = "asd" Or Left(kom, 3) = "ffg" Then 1 błąd. - Left(kom, 2) = "nie" -> w "nie" jest trzy a nie 2 litery 2 błąd. - brak nawiasy -> ElseIf kom <> "" And ( Left(kom, 2) = "nie" Or Left(kom,...
Ktoś podpowie jak zrealizować formułę, która zadziała w sposób następujący: Jeśli komórka A1 jest pusta a B1 ma jakąś zawartość w komórce C1 napis "dodano" Jeśli komórka A1 ma jakąś zawartość a B1 jest pusta w komórce C1 napis "usunięto". Czyli w komórce C1 funkcja z podwójnym warunkiem (jeśli to możliwe z odpowiednim formatowaniem napisów). Ktoś podpowie?...
Potrzebuję zsumować komórki zaznaczone na kolorowo (fiolet, który jest uzupełniany ręcznie) w zależności od wartości, która znajduje się w kolumnie "B" (warunek: większe od 5). Wystarczy w funkcji sumującej zmienić warunek :spoko: (stosownie do Twojego zrzutu gdzie sumujesz wartości z kolumny C :!: ) na: [syntax=vbscript]If indRefColor = cellCurrent.Interior.Color...
Witam, Mając wykonany printscreen obrazku, z pozycji komórki, w której ma być wklejony, uruchamiam makro, które: - blokuje współczynnik proporcji - wstawia mi obrazek automatycznie pomniejszony do wysokości 2,5 cm - zmienia właściwości obrazu na "przenoś i zmniejszaj rozmiar wraz z komórkami". Już parę dni męczę temat i nie potrafię dopisać warunku,...
w F24 =INDEKS($1:$21;PODAJ.POZYCJĘ(D24;A:A;0);...
Jeśli bez makr, to można wspomóc się wierszami pomocniczymi. W moim przykładzie 2-ma. Formuły, poza 1-szym wierszem, są "kopiowalne". Warunek: posortowane kolumny A:B
O to chodziło
Oczywiście. Po prostu ją ukryj. (prawoklik na kolumnę [literkę oznaczającą kolumnę] i ukryj)
Z kolumnami pomocniczymi wychodzi jak w załączniku. Formuły masz tylko w kolumnie L (naroża). Szukana pozycja musi wyjść z co drugiego wiersza, dlatego "(WIERSZ()-25)/2+0,5". Sprawdź, zdecyduj i uzupełnij, jeśli takie rozwiązanie jest OK.
warunek excel excel obliczać warunek warunek excel formuła
wciąga kasete bezpiecznik dmuchawy termiczny renault instrukcja obsługi megane
pe1091 v28a001434b1 pe1091 v28a001434b1
Kod usterki T280 w wózku Still - diagnostyka i rozwiązania Uszkodzony alternator a blokada wału VW LT 35 2.5 D