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)
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...
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]
[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]
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...
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...
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...
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...
Dim i As Integer i = ActiveCell Range("C6") = i Aby ustawić komórkę jako aktywną: Range("A2").Select
Jeśli dobrze zrozumiałem w A1 wpisz: [syntax=text]=2000-SUMA(A2:A21)+MIN(C1;0...
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)
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]
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,...
Witam, zajrzyj tu www.excelforum.pl
Różnica jest zasadnicza ... Przy LICZ.JEŻELI musisz podać wartość warunku w formule, a przy funkcji tablicowej SUMA(JEŻELI ...) wartość warunku jest adresem komórki czyli zmieniając wartości w D19 i/lub D20 wynik będzie inny. A o to Ci przecież chodziło ...
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ą...
[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)...
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...
[syntax=vbscript]Sub Dodawanie() Range("D" & Rows.Count).End(xlUp).Offset(1, 0) = Range("A5") End Sub[/syntax]
No to pokazałem przykład kodu ze wskazaniem w nim komórki. Wyrzucając linijkę samego wskazania będzie działał na aktualnej.
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.
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...
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)
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.
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 =...
Na przykład [url=http://www.elektroda.pl/rtvforum/vi... masz odpowiedź na swoje pytanie.
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ł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)
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...
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.
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ć)...
Bo to nie jest formuła tylko ciąg znaków. Skorzystaj z funkcji ZŁĄCZ.TEKSTY (czy jakoś tak).
Działa, działa
Pomocnicze kolumny zawsze można zaimplementować, nawet jeśli do zliczenia jest dużo - nawet jeśli zapchasz cały arkusz (co jest właściwie niemożliwe), to można te kolumny przerzucić do osobnego arkusza. Bez kolumny pomocniczej nie umiem, chyba że makrem, wtedy dodatkowa kolumna nie jest mi już potrzebna.
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]
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...
Wedle mnie chodzi o to aby w "równoległej" tabeli odejmować te pozycje na których znaleziono MIN i MAX w Tabeli 1. Przyda się tu funkcja PODAJ.POZYCJĘ, która znajdzie miejsca wystąpienia MIN i MAX w Tabeli 1, potem trzeba wybrać te same pozycje w tabeli 2 i wykonać dane działanie. Tak to zrozumiałem ...
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
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.
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")...
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ą...
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]
Da się: http://obrazki.elektroda.pl/8027992500_1...
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...
:) 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ś...
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)...
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()-...
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...
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 :-)
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...
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
Użyj funkcji Adr.Pośr() :idea: :D 958580
Ma być tak jak w arkuszu 2?
Zamalować wszystkie owale czarnym recznie. Dodano po 1 następnie makro wszystko zrobi
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... ) ) )
Sprawdź, czy o to chodziło andie
[syntax=vbscript]=SUMA('2017'!C8;'2019'!...
Nie znam Open Office'a ale może najprościej byłoby wpisać do komórki WZ 1, do komórki obok (po prawej) wpisać =lewa&"/3", gdzie "lewa" oznacza adres komórki z lewej strony, po czym zaznaczyć obie komórki i przeciągnąć w dół. Myślę, że to jest na tyle proste, że zadziała w każdym przypadku. Potem można ewentualnie zamienić wyniki na wartości i usunąć...
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]
Takie makro: [syntax=vbscript]Sub Makro1() ' Klawisz skrótu: Ctrl+q ActiveCell.Value = Range("X1") & ActiveCell.Value 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,...
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...
W kolumnie C formuła (pierwszy wiersz): [syntax=text]=JEŻELI(A1>B1;A1-B1;"")[/sy... i skopiować w dół.
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...
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]
A to może być? [url=http://www.youtube.com/watch?v=i6sD... lista unikalnych wartości
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
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.
Ok. Zrozumiałem. napisałem małe makro dla zakresu i pętlą sprawdzanie. plik w zalączeniu. kod: Option Explicit Sub ZakresPetla1() Dim wiersz As Long For wiersz = 19 To 30 Step 1 Do While Cells(wiersz, 2).Value = Range("E16").Value Range("F16").Copy Cells(wiersz, 3).PasteSpecial wiersz = wiersz + 1 Loop Next End Sub
Wklej w kod arkusza [syntax=vb]Dim tmp Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, -1).Value = tmp End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) tmp = Target.Value 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.
Łatwiej to zrobić w drugą stronę, czyli w drugim arkuszu wpisz warunek, np. coś takiego: =JEŻELI(Arkusz1!A1<Arkusz1!B1;Arkusz1... Czyli jeżeli w Arkuszu 1 wartość w komórce A1<B1 to w Arkuszu 2, w komórkę z powyższą funkcją, wpisz wartość z komórki C1 Arkusza 1. Jeżeli warunek nie jest spełniony, pozostaw pustą komórkę.
zmienia wartość komórki excel zmienia wartość komórki wartość komórki pomiędzy
klimatyzacja eberspacher tuleja głowicy schemat pozycjoner
system nawadniania pilot uniwersalny
Jak włączyć mikrofon w telefonie Panasonic? Einhell SGA 160 - Charakterystyka i Zastosowanie