Dobry wieczór, Miał być przykład, ale się nie doczekałem. Można zdefiniować funkcję użytkownika np. taką: [syntax=vb]Function Tło(adr As Range) As Integer Application.Volatile Tło = -CInt(adr.Interior.ColorIndex <> xlColorIndexNone) End Function[/syntax] Funkcja pobiera adres komórki jako argument i zwraca 0 jeśli komórka nie ma zdefiniowanego...
Witaj [syntax=vbnet]Sub CellToComment() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection For Each Rng In WorkRng koment = koment & Rng.Value & vbLf Next WorkRng(1).Offset(WorkRng.Count).NoteTex... Text:=koment End Sub [/syntax]
Czyli poprostu w stan konta nie może sie zaliczać jedna z dwóch (inwestycje albo do wydania) ?? Chyba ze odejmujesz inwestycje od do wydania :) i pozostaje do stan konta :) Inwestycje musza być odejmowane od stanu konta jako wydatki :) Przychodu masz 1500 kosztów 360 a inwestycje to prawdopodobnie tez wydatki (mogą być jako przychody ale wtedy musisz...
W załączniku.
o samo co wyżej. Pokazuje tylko pierwszy błąd, nie wypisuje wszystkich kolumn Ciekawe, jak do tego doszedłeś... Sprawdź plik.
Sheets("DATA ENTRY " & s)
[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("V15:V16")) Is Nothing Then If Target.Address = "$V$16" Then r = 1 Target.Offset(-10 - r, 3).Resize(2, 2).Copy Target.Offset(r * 2, 2) End If End Sub [/syntax]
Jak masz już zapamiętany w zmiennej numer kolumny, to możesz odwołać się do komórki w trzecim wierszu przez [syntax=text]Cells(3, numer_kolumny)[/syntax] Jeśli potrzebujesz się odwoływać za każdym razem do innej kolumny, to: [syntax=text]Cells(3, ActiveCell.Column)[/syntax]
VBA wyszukiwanie wartości komórek i ich zamiana
Dzień dobry, Co Pan chce mieć wpisane w kolumnach? 8 (jako liczbę) czy 8 godzin (w formacie czasu Excela). Tu jakby brak konsekwencji. Komórki w kolumnach dni są sformatowane jako liczby całkowite, a kolumna podsumowania (AI) jest sformatowana jako godziny i minuty gg:mm. To nie pasuje i nic się Panu nie będzie sumować. W arkuszu są jeszcze różne inne...
Pytanie chyba niezbyt przemyślane, a propozycja rozwiązania prosta, ale dość ryzykowna. A co będzie jak użytkownik kliknie dwa lub trzy razy? Nie ma żadnego śladu, co było pierwotnie w komórce, ani możliwości cofnięcia operacji. Poza tym, czy w arkuszu będzie tylko jedna taka cena? Jeśli wiecej, to przy każdej będzie przycisk? Moim zdaniem lepszym rozwiązaniem...
Dzień dobry, Proszę spróbować z taką formułą w formatowaniu warunkowym: [syntax=text]=JEŻELI(MOD(WIERSZ(A1);2);A... Puste komórki w zakresie są traktowane jak zera. Teksty są "większe" od liczb, więc zawsze będą zaznaczane, gdy wystąpią w parze z liczbą. Gdyby miało być inaczej, trzeba zmienić formułę....
Dzień dobry, Jeśli rozwiązanie ma być w Excelu to należy użyć funkcji JEŻELI np. =JEŻELI(A1>151;150;A1). Formułę można potem skopiować, aby objąć wynikami cały zakres. Można też najpierw zaznaczyć zakres, wprowadzić formułę i nacisnąć Ctrl+Enter, nie trzeba już będzie kopiować. Wyniki można zamienić na stałe, jesli to konieczne. Skopiować Ctrl+C, potem...
Tak na szybko masz tu makro, które chyba robi to co chciałeś. założenia - pliki są w katalogu C:\dane - pobierasz nazwę do szukania z komórki B3 - szukasz takiego produktu w kolumnie B - w obu plikach arkusze nazywają się Dane - zakres poszukiwania w kolumnie B jest ograniczony do 30 - wartość dotycząca szukanego produktu jest pobierana z komórki sąsiedniej...
Przepraszam, złe założenie zrobiłem. Odwróćmy zatem warunek: if (Asc(Right(Rng.Value,1)&... Or Asc(Right(Rng.Value,1))&... then Rng.Value = Rng.Value & addStr Dodano po 37 nie do końca rozumiem dlaczego wynik formuły ma się zawierać między 48 a 57 Teraz już nie ma się zawierać. Zrozumie Kolega czytając...
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)
Jeśli dobrze zrozumiałem w A1 wpisz: [syntax=text]=2000-SUMA(A2:A21)+MIN(C1;0...
Dim i As Integer i = ActiveCell Range("C6") = i Aby ustawić komórkę jako aktywną: Range("A2").Select
Data to liczba, a liczbę można wykorzystać w pętli FOR, tylko trzeba ją zapisać pomiędzy hashami i "po amerykańsku": [syntax=vb]poz = 2 For i = #4/1/2013# To #5/1/2013# Cells(poz, 1).Value = i poz = poz + 1 Next i[/syntax]
To trzeba wykonywać program krokowo i gdy wystąpi błąd sprawdzić wartości wszystkich zmiennych. Opis błędu wskazuje, że nie ma arkusza o wskazywanej nazwie, więc trzeba dokładnie sprawdzić jakie są nazwy arkuszy, a co jest w komórkach. Jeśli nie znajdziesz sam przyczyny błędu, załącz przykładowy plik, bo tak to można tylko zgadywać.
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
Yogi (przypominasz mi dzieciństwo) ;). Nie pamiętam, czy był to 'Zwierzyniec', czy też 'Ekran z bratkiem'. Ale autor napisał: potrzebuję makro A do Autora. Może ten kod będzie wygodniejszy (jest bez obsługi błędów, sam się pobaw): [syntax=vb]Sub Przenies() Dim d As Date, p As Date, k As Date ow = Cells(Rows.Count, "B").End(xlUp).Row y = Sheets("Arkusz2").Cells(Rows.Count,...
Co w przypadku jesli klikasz na B6, lub F4 itp.? Dodano po 3 w kodzie arkusza[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 And Target.Column = 1 Then Cells(1, 1) = Cells(Target.Row, 1) End Sub [/syntax]
Kod w module standardowym? Funkcję używaj "po staremu". http://obrazki.elektroda.pl/2078982100_1... Jeśli chcesz wartość pobierać z innego miejsca, trzeba dopisać parametr. [syntax=vb]Function CountCcolor(range_data As Range, criteria As Range, criteria2 As Range) As Long Dim datax As Range Dim xcolor As Long Dim xvalue As Variant xcolor...
Jeżeli ilość znaków pomiędzy "-" jest stała użyj: Fragment.Tekstu(Tekst; Liczba początkowa; Liczba znaków) gdy nie wiadomo ile ma być znaków pomiędzy "-" do określenia odpowiedniego parametru użyj: Szukaj.Tekst(Szukany tekst; Obejmujący tekst; Liczba początkowa) Za pomocą kombinacji tych dwóch formuł podzielisz wszystko z dokładnością...
Witam, zajrzyj tu www.excelforum.pl
[syntax=vbscript] Public Sub pobierz() Dim lang As String Dim URLStr As String, DLPath As String, UName As String, PWD As String, DontOverWrite As Boolean Dim zakres As Range Dim Lastrow As Integer Lastrow = ActiveSheet.Range("A1").CurrentRegion.Ro... Set zakres = Range("A2:A" & Lastrow) kat = Dir(Environ("USERPROFILE") & "\Downloads\karty\", vbDirectory)...
Formuła Licz. jeżeli jest najprostsza. Ponieważ liczby z zakresu B2:B58 są w formacie "0,00" dlatego też należy zmienić formułę na: =$F$17-LICZ.JEŻELI($B$2:$B$59;">"&... i będzie wynik 38. Uwaga do autora: żeby ręcznie nie kolorować danych w zależności od wartości komórki...
Witaj, Nie mam pomysłu na formułę, mam natomiast pomysł na proste makro, które mniej więcej robi to, co chcesz. Nie jestem najlepszym programistą VBA, ale w sumie na pierwszy rzut oka działa. [syntax=VB]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-04-16, autor Darek ' ' Kolumna A od wiersza 2 w dół zawiera działania ' W kolumnie B będą...
Zrozumiałem to trochę inaczej (wiele arkuszy w jednym skoroszycie). Przy porannej kawie wyszło mi coś takiego (przykład w załączniku). Uparłem się na zminimalizowanie VBA i dlatego zastosowałem jedynie odświeżanie filtra przy aktywowaniu arkusza.
Najszybciej pod jakim względem?? Możesz np. ustawić właściwość [syntax=vb]ControlSource = Arkusz1!N9 [/syntax]pola TextBox (dla formy nie ma czegoś takiego jak Input)
Mam następujące pytanie być może jest na to jakiś prosty sposób ale sam nie wiem jak to wykonać Mam listę (lista nie zawiera liczb, tylko tekst) w kolumnie D od D6 do D14 , dodatkowo w komórce C6 mam podaną liczbę w zakresie od 1 do 9. Chcę uzyskać efekt że w dowolnej komórce np A1 wyświetli mi się zawartość jednej komórki z wspomnianej list a, która...
Pierwszą część możesz wygodnie zrealizować przy pomocy procedury zdarzeniowej, gdzie warunkiem jest zaznaczenie minimalnej ilości komórek (można ograniczyć do zakresu, kolumn, etc). Przykład dla zaznaczenia >3[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 3 Then For Each kom In Target If kom.Row / 2 =...
Niestety też nie widzę opcji by nie było makra. Ale nie makro ukrywające tylko zwykłe wprowadzenie informacji do wydruku do ilu stron ma drukować. Czyli pod przycisk "wrzucić" [syntax=vb] Sub Druk() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("POŚW").Range("E22") End Sub [/syntax] I "drukować" przyciskiem.
Na przykład [url=http://www.elektroda.pl/rtvforum/vi... masz odpowiedź na swoje pytanie.
2 – Jest możliwe aby w kolumnie Kartony była podświetlona komórka zawierająca najwyższą wartość ALE z wyłączeniem tras zaznaczonych jako Anulowano i Przeniesiono? Ustawiłęm dla całej kolumny formatowanie Warunkowe -> Reguły dla pierwszych/ostatnich -> 10 pierwszych elementów i zmień z 10 na 1. Sprawdziłem, oznacza na czerwono (można zmienić)...
chciałem na razie wmontować tą blokadę żeby mi serwisanci w kulki nie lecieli Proponuję wykorzystanie innego mechanizmu zabezpieczeń "przed lecącymi kulkami" :D - opisałem jego zasady np. https://www.elektroda.pl/rtvforum/viewto... Trudno zrobić coś takiego w Google Sheets :cry: , ale zastanów się czy np. nie wystarczy wiedzieć...
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...
W komórkach J3:L3 wpisujesz wartości alternatywne, które zastąpią te z WYSZUKAJ.PIONOWO. Jeśli te komórki zostawisz puste lub będzie tam wartość nieliczbowa, to pozostaje wynik pierwotny z WYSZUKAJ.PIONOWO.
Zmieniłeś kolumnę gdzie jest wyrażenie :) =JEŻELI(NR.KOLUMNY(J$10)=$Q14+1;"NOK";JE... Teraz powinno być: =JEŻELI(NR.KOLUMNY(J$10)=$Q14+9;"NOK";JE... Liczba +1 (+9) "dopasowuje" wynik funkcji NR.KOLUMNY() do wartości w NOK. NR.KOLUMNY() dla kolumny...
Dobry wieczór, Do tego trzeba zaangażować Visual Basic, bo w samym Excelu są ograniczone możliwości sterowania treścią komentarzy. W załączniku jest propozycja rozwiązania, ale musi Pan ją zaadaptować do swoich potrzeb. Jeśli danych jest dużo trzeba zastanowić się nad optymalizacją, bo działanie może być powolne. Podstawą rozwiązania jest procedura...
Do odnalezienia minimum: =MIN(zakres komórek) dla maksimum: =MAX(zakres komórek) odejmowanie: =MAX()-MIN() ten sam wynik (bo ma być dodatni) można uzyskać: =MODUŁ.LICZBY(komórka1 - komórka2) nie ma znaczenia czy kom1 > kom2 czy kom1 < kom2 wynik zawsze będzie ten sam. Nie wiem czy to jest do końca zrozumiałe....
No to pokazałem przykład kodu ze wskazaniem w nim komórki. Wyrzucając linijkę samego wskazania będzie działał na aktualnej.
Jeśli wchodzi w grę rozwiązanie z kolumną pomocniczą to można zrobić to jak w załączniku. W Excelu nie można zdaje się wykrywać, jakiego koloru jest komórka, ale możemy skorzystać z faktu, że żółta jest co trzecia (czyli numer wiersza modulo 3 będzie zawsze taki sam dla żółtej i żadna biała nie będzie takiego miała w zakresie, który nas interesuje)....
[syntax=vbscript]Sub Dodawanie() Range("D" & Rows.Count).End(xlUp).Offset(1, 0) = Range("A5") End Sub[/syntax]
Działa, działa
Lub w inny sposób: [syntax=vb]Sub Kasownik() For Each szukana In Range("1:1") If szukana.Value = "MSISDN" Or szukana.Value = "Kod sprzedawcy" Then kolumna = szukana.Column Columns(kolumna).Delete shift:=xlToLeft End If Next End Sub [/syntax]
potrzebuję każdy wodomierz rozpisać oddzielnie i nie łączyć ciepłej wody w kuchni z ciepłej wody w łazience. Musi być każdy osobno. Kobitki, to takie marudy są odrobinę ... :| ... "Ułatwianie sobie życia" - dodać jedną kolumnę w arkuszu ''Arkusz1'' na "indeks" wylistowujący "adreso-wskazania" wodomierzy, np. w kolumnie ''E'' - i tak przecież są tam...
Hmm, wywołują mnie tu do tablicy :) Rozumiem, że już jakieś makro działa... Z tego wynika, o czym już kolega Tommy82 wspomniał, że należy do makra dopisać instrukcję warunkową. A właściwie umieścić Twoje makro w gałęzi Else. Schemat: If IsNumeric([A]) then [X]=[B].value Else tu Twoje makro End If Jesli makro jest w innym skoroszycie wywołujesz...
Private Sub CommandButton1_Click() Text = "" For Each ctr In Me.Controls If TypeOf ctr Is MSForms.CheckBox Then If ctr = "True" Then Text = Text + ctr.Name + Chr(10) End If Next ActiveSheet.Range("A1")... = Text Unload Me End Sub
Właściwość ControlSource textboxa ustaw na adres komórki, np. Arkusz1!A2 (uwaga: działa w dwie strony, tj. zmiana wartości w textboxie zmieni wartość w Excelu, chyba że dasz go tylko do odczytu)
Private Sub Worksheet_SelectionChange(... - jest reakcję na zmianę położenia kursora w arkuszu. (zdarzenie arkusz_ZmianaZaznaczenia) If Target.Column <> 12 Then Exit Sub- tylko dla kolumny L, w przeciwnym razie przerwać pracę. W Twojim przypadku[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 12 Then Range("a7")...
Poniżej załączam ostateczną wersję ładnie poprawioną (w sobotni poranek :) ) przez kolegę adamas_nt Przedstawia czytelnie poszczególne kolory i firmy. Tak jak chciał to przedstawiać autor (załącznik autora z plikiem). Przedstawiam przesłany do mnie kod makra a poniżej plik z tym makrem. Sub Kolory() Dim kom As Range, i As Integer, x As Integer...
Witaj Po mojemu powinno być coś takiego:[syntax=vb]Sub KopiujZakres() Dim c As Range For Each c In Range("A1:Z1") If c.Value = "XYZ" Then Range("zak").Copy c.Offset(10, 0) 'już po robocie, więc Exit Sub End If Next c End Sub[/syntax]
Bo to nie jest formuła tylko ciąg znaków. Skorzystaj z funkcji ZŁĄCZ.TEKSTY (czy jakoś tak).
Dobry wieczór, Jeśli bardzo Panu zależy, żeby było formułą to proszę bardzo, ale obawiałem się, że to będzie trudniej zrozumieć. Formułę trzeba zdefiniować w Menedżerze nazw i potem użyć jej w definicji wykresu. Pozdrowienia.
lesławek - tak się nie da. Sam spróbuj - ale skopiuj liczbę a nie komórkę. W załączeniu proste makro. Uruchomisz skrótem klawiszowym ctrl+m (można to zmienić) Makro odejmuje od komórki z lewej coś co jest w schowku i wprowadza to formułą w zaznaczonej komórce. [syntax=vb]Sub odejmij_schowek() Dim mem As DataObject On Error Resume Next Set mem = New...
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
Myślę, że sprawdzanie czy [syntax=vbscript]If Range("C1") = "" Then Range("C1") = Range("A1") Else ...[/syntax] jest tu niepotrzebne - pusta wartość C1 będzie potraktowana jako 0. Ja bym to widział nieco krócej: wersja "jednokomórkowa"[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And IsNumeric(Target.Value)...
Zastosuj następującą formułę =PODSTAW(A2;",";"&quo... przeciągnij ją w dół i wklej jej wyniki jako wartości.
[youtube]https://www.youtube.com/watch?v...
Jeśli dobrze zrozumiałem chodzi o coś takiego: [syntax=vb]Sub FirstAndLast(ByVal c As Integer, ByVal cellRow As Integer, ByVal cellCol As Integer) Dim i As Integer Dim first As Integer Dim last As Integer lastindex = Cells(ActiveSheet.Rows.Count, c).End(xlUp).Row For i = 1 To lastindex If first = 0 And Cells(i, c).Value <> "" Then first = i End...
Spróbuj jeszcze tak (z apostrofami): [syntax=vb].CommandText = "SELECT INVENTORY_PART.PART_NO, INVENTORY_PART.PLANNER_BUYER FROM INVENTORY_PART INVENTORY_PART WHERE (INVENTORY_PART.CONTRACT='PL') AND (INVENTORY_PART.PART_NO= '" & Range("A1").Value & "')"[/syntax]
Czy to koniecznie musi być makro? Bo to co chcesz zrobić można załatwić funkcją WYSZUKAJ.PIONOWO, dla przykładu z załącznika w komórce D2: [syntax=vb]=JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIO... przeciągnąć w dół...
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
Formatowanie warunkowe --> http://office.microsoft.com/pl-pl/excel/... Alternatywnie, możesz posłużyć się skryptem VBA (w sieci jest mnostwo gotowcow), ale czuję, że to jeszcze nie ten stopień znajomości Excela :-)
Jak automatycznie - podczas wpisywania również? Załóżmy, że masz liczby 1, 4,5 i 50. Wpisujesz 20 - wciskasz "2" i w tym momencie jest wywoływane (automatycznie jak chciałeś) sortowanie i "hans klops". Chyba nie przemyślałeś trochę koncepcji. Nie lepiej umieścić gdzieś przycisk którym będziesz sobie sortował na żądanie?
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
Wprowadz inny warunek: [syntax=vb]... If InStr(1, kom.Value, "Z WYS") > 0 Then ...[/syntax]
W drugą stronę jak najbardziej. Ale jeśli kolor wypełnienia wstawiasz ręcznie z palety (nie w wyniku formatowania warunkowego), to pozostaje makro lub funkcja użytkownika (też w VBA) z wykorzystaniem Interior.ColorIndex zakresu. Excel nie ma wbudowanych funkcji odwołujących się do właściwości formatowania komórek.
Użyj funkcji Adr.Pośr() :idea: :D 958580
Zamalować wszystkie owale czarnym recznie. Dodano po 1 następnie makro wszystko zrobi
Ma być tak jak w arkuszu 2?
Ja bym tak to zrobil Dim Tekst As String For i = 2 To Worksheets.Count Tekst = Tekst & Worksheets(i).Cells(1, 1).Text Next i Worksheets(1).Cells(1, 1).Value = Tekst
Witam [syntax=vb]=JEŻELI(A1>19;66;JEŻELI(A1>18...
=JEŻELI(A1=1,WYSZUKAJ...,JEŻELI(A1=2,WYS... ) ) )
Dzień dobry, Jest kilka sposobów rozwiązania, w pliku podałem 3 warianty do wyboru z wykorzystaniem funkcji INDEKS, PRZESUNIĘCIE i ADR.POŚR. Składnia jest następująca: =PRZESUNIĘCIE(początek_zakresu;skok*(WIE... =INDEKS(zakres;skok*(WIERSZ()-nr_pierwsz... =ADR.POŚR(litera_kolumny&skok*(WIERSZ()-...
Mimo wszystko jeżeli oczekujesz na gotowe rozwiązania to się nie nauczysz. A szkoda by było bo excel potrafi prawie wszystko :) A z drugiej strony jak zobaczysz wynik (formułę) to się możesz zniechęcić a to dość proste. Poniżej masz załącznik z dwoma rozwiązaniami (bo dalej nie wiem dokładnie jak masz ułożone dane). Funkcje w excelu najlepiej czytać....
Sprawdź, czy o to chodziło andie
[syntax=vbscript]=SUMA('2017'!C8;'2019'!...
Pomijając literówkę w przypisaniu, zamienione argumenty w Cells(row, column), zakręcony wybór kontrolki w pętli, to zdaje się coś za dużo tych pętli. Po modyfikacji http://obrazki.elektroda.pl/3585684200_1...
[syntax=vbnet]Sub test() For Each i In Range("C3:AE60") If i.Value = "R" or i.Value = "C" Then i.Interior.ColorIndex = 4 Next End Sub[/syntax]
Nowe formuły W70,Y70, AA70, AC70, AE70 nie trzeba przekształcać od razu podaje ile jednostek pozostało. JEŻELI(V70=25;0;JEŻELI(V70=0;625... JEŻELI(X70=50;0;SUMA(L80:IND... JEŻELI(Z70=70;0;SUMA(N80:IND...
Skoro formuła zwraca Ci "" to w F20 wpisz [syntax=v]=PODAJ.POZYCJĘ("";E5:E16;0)-1[...
Hmm, może dwie pętle? Jedna do określenia Nr wiersza, druga do wypełniania... [syntax=vb]wrs = 1 strS = "MAGMA" maks = 1000 'ustawienie maksimum, coby nie wpaść w nieskończoną Do While Cells(wrs, 6) <> strS If wrs = maks Then Exit Sub wrs = wrs + 1 Loop Do While Cells(wrs, 7) <> "SUMA" If wrs = maks Then Exit Sub wrs = wrs + 1 Cells(wrs,...
W kolumnie C formuła (pierwszy wiersz): [syntax=text]=JEŻELI(A1>B1;A1-B1;"")[/sy... i skopiować w dół.
Gdybyś miał jednakowe ceny, wtedy SUMA.WARUNKÓW()*SUMA.WARUNKÓW(), ale nie są. Najprościej: wydzielić kolumnę pomocniczą, wymnożyć w niej C*D i dopiero sumować warunkowo...
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
:) Jeżeli już się zwracasz do mnie w trzeciej osobie Dziękuję wam bardzo ... ... na was liczyć ... to jednak powinieneś to wyrazić z wielkiej litery lub do słowa was dodawać słowo obywatelu lub kolego, bo tak to jakoś niepewnie się czuje komu dziękujesz :) A dodatkowo (nie żebym się upominał ale na przyszłość może ktoś inny będzie ci pomagał) jak jesteś...
A to może być? [url=http://www.youtube.com/watch?v=i6sD... lista unikalnych wartości
w formule A1 chyba koledze chodzi o komórkę Z tego co zrozumiałem chcesz zmieniać wartości komórek w zależności od stanu A1 Jeśli w A1 jest 1 to w A2 jest 12 Jeśli w A1 jest 2 to w A2 jest 5 i w B6 jest 6 Można to wykonać za pomocą funkcji jeżeli. Składnia Jeżeli( warunek ; wartość jeśli prawda ; wartość jeśli fałsz ) Jeśli zatem A1=2 to B2=6 A1 jest...
Możesz jak wspomniał kolega wyżej wykorzystać funkcje dzielenia mi modulo (funkcja mod w excelu) ale możesz też skorzystać z operacji na tekstach tak zamyślałeś na początku. jeśli A5 to nasza komórka z danymi to kolejne cyfry można obliczyć np tak: =JEŻELI(DŁ(A5)>10;WARTOŚĆ... =JEŻELI(DŁ(A5)>9;WARTOŚĆ&...
Sortowanie w Excelu działa tak jak kopiowanie, a nie jak przesuwanie. W związku z tym odwołania z zewnątrz do obszaru sortowanego nie aktualizują się. W odwołaniach zewnętrznych trzeba się odnosić do stałych, a nie do adresów. Zaprezentowany problem można rozwiązać np. za pomocą funkcji WYSZUKAJ.PIONOWO.
Zacznij od "surowych" funkcji, następnie dodawaj/odejmuj... Np dla startu od D7 trzeba odjąć 6 wierszy i 1 kolumnę: http://obrazki.elektroda.pl/9304772400_1... Edit: Zapomniałem o tym "WZ" :) ="WZ "&WIERSZ()-6&"/"&...
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
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...
Może coś takiego: [syntax=vb] Sub ukryjWiersze() Dim i As Integer Dim selRange As String For i = 60 To 70 selRange = "A" & i If range(selRange).Value = 0 Then range(selRange).Select Selection.EntireRow.Hidden = True End If Next i End Sub [/syntax]
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.
Skoro nie chcą, zrezygnuj z listy i wstaw formułkę (niestandardowe): [syntax=text]=ORAZ(PODAJ.POZYCJĘ(C4;J$6:... Jeśli jednak makro, to w SelectionChange (ogranicz 'Target' do tych trzech komórek).
Takie makro: [syntax=vbscript]Sub Makro1() ' Klawisz skrótu: Ctrl+q ActiveCell.Value = Range("X1") & ActiveCell.Value End Sub [/syntax]
excel kopiować wartość komórka excel kolor komórka zmiana wartość wartość komórka pomiędzy
reset pojemnika gniazdka angielskie odbicie obrazu matrycy
philips senseo licznik geigera
Xiaomi POCO nie włącza się - brak reakcji Migająca czerwona dioda w ładowarce Parkside 20V