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...
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]
[syntax=vbscript]Sub Dodawanie() Range("D" & Rows.Count).End(xlUp).Offset(1, 0) = Range("A5") End Sub[/syntax]
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...
Wprowadz inny warunek: [syntax=vb]... If InStr(1, kom.Value, "Z WYS") > 0 Then ...[/syntax]
Witam, zajrzyj tu www.excelforum.pl
No to pokazałem przykład kodu ze wskazaniem w nim komórki. Wyrzucając linijkę samego wskazania będzie działał na aktualnej.
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]
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)
Bo to nie jest formuła tylko ciąg znaków. Skorzystaj z funkcji ZŁĄCZ.TEKSTY (czy jakoś tak).
Takie makro: [syntax=vbscript]Sub Makro1() ' Klawisz skrótu: Ctrl+q ActiveCell.Value = Range("X1") & ActiveCell.Value End Sub [/syntax]
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",...
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
:) 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ś...
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...
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...
Coś ala tak, pod zmienna wartość będziesz miał zawartość komórki "A2" po filtrowaniu. [syntax=vbscript]wartosc = ActiveSheet.AutoFilter.Range.Offset(1).S... 1)[/syntax]
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.
W przypadku E2003 maksimum 6 zagnieżdżeń (w przykładzie masz 5). W E2007 duuużo więcej. Jakimś rozwiązaniem jest tabela z wszystkimi możliwymi literami i liczbami. W komórkę D38 wpisujesz "N" a w komórce kolumny pomocniczej WYSZUKAJ.PIONOWO lub coś podobnego. W głównym arkuszu odwołujesz się tylko do komórki kolumny pomocniczej. Możesz też WYSZUKAJ.PIONOWO...
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()-...
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)...
Wartość komórki mniejsza/większa niż ="DZIŚ" A tak próbowałeś bo powinno zadziałać: Wartość komórki mniejsza/większa niż =DZIŚ() Oczywiście wprowadź jeszcze do warunku jakiś format.
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ąć...
A1 - imię B1 - =Jeżeli(A1="Anna";5;0) C1 - 3 D1 - =B1*C1 i wszystkie komórki skopiowane "w dół".
apollinaris , dałeś taki przykład, że trudno się zorientować jakiego wyniku oczekujesz. Czy czas w kol. C będzie zawsze taki sam tzn. 10:45, czy będzie zmienny i kolory mają być dopasowane proporcjonalnie? Jeśli zmienny to adres używany w formule musi zawierać nr wiersza bez znaku $. I zawsze piszemy formułę dla pierwszej komórki zakresu formatowania....
Jeśli zaznaczasz dwie komórki (lub więcej), to obiekt Target jest złożony z 2 lub więcej komórek, więc też jego właściwość .Value jest tablicą, a Ty ją chcesz przypisać do pojedynczej zmiennej zadeklarowanej jako String. Nie dziw się zatem, że jest Type mismatch. Taką sytuację należy przewidzieć i odpowiednio obsłużyć. Sposobów rozwiązania jest kilka:...
Witam, spróbuj tak (w Excel 2007 lub nowszym): Zaznacz komórkę z datą następnego badania, kliknij: formatowanie warunkowe -> reguły wyróżniania komórek -> większe niż... -> w okienku, które się otworzy wskaż komórkę w której masz obecną datę i dopisz "+31" (bez cudzysłowów) lub taką wartość dni ile potrzebujesz. Czyli w tym okienku będziesz miał np....
Nie wyjaśniłeś, co z tymi numerami działek w różnych miejscowościach. Wobec tego zakładam, że numer działki określa ją jednoznacznie i miejscowość nie jest istotna. Jeśli tak, to rodzaj tytułu prawnego można określić za pomocą funkcji WYSZUKAJ.PIONOWO w jej najbardziej typowym wariancie użycia: [syntax=text]=WYSZUKAJ.PIONOWO(C2;Dane_1...
Jeżeli chodzi o przenoszenie formatowania to excel właściwie nie ma żadnych funkcji. Można to zrobić jedynie poprzez makro (VBA) lub "pisaniną" poprzez formatowanie warunkowe i to w excelu 2007 i powyżej, bo niższe mogą mieć tylko max 3 warunki. Ten kto zna jako-tako programowanie w VAB może sobie poradzić. Ten kto nie ma pojęcia na początku upadnie,...
Na początek dwie uwagi: 1. Nie należy manipulować formatowaniem "dosuń do prawej" i "dosuń do lewej" w trakcie opracowywania danych, bo to skutecznie utrudnia orientację, z czym mamy do czynienia w komórce. Excel domyślnie dosuwa liczby do prawej krawędzi komórki, a teksty do lewej. To jest ważna informacja, bo czasem jakiś zapis przypomina datę/czas,...
Tak przy okazji mógłbym jeszcze prosić o wyjaśnienie poniższej linii? Bo coś nie do końca rozumiem W kolumnie B arkusza "Arkusz3" znajdź wartość z komórki dwie kolumny w lewo od tej, w której dokonano zmiany, dopasowując całą zawartość do wzorca i zwróć Nr wiersza (właściwość Row zakresu, tu znalezionej komórki).
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
Na podstawie czego Excel ma Ci wyliczyć tą wartość !? Musiałbyś wprowadzić jakąś formułę np co 0,1 km wysokośc zwiększa się o 10 m czy coś w ty stylu, Excel sam niczego nie zrobi ! Możesz wprowadzić formułę obliczającą różnicę miedzy dwoma wartościami i poprzez podzielenie na ilość komórek niewypełnionych (+1) wpisującą w wolne pola wartość wynikającą...
To czemu to nie działa?? For i = 1 To ThisWorkbook.Worksheets.Count If Sheets(i).Name = "M-" & x Then MsgBox "TAKA NAZWA JUZ ISTNIEJE!!!", vbOKOnly, "Podaj inną nazwe!" TextBox1 = "" TextBox2 = "" Exit Sub End If Next Przed uruchomieniem tego kodu przypisz "x"-owi wartość TextBox1.Text
Witam w tym samym skoroszycie ale pod nazwa wzięta z komórki. Wartość w komórce będzie zmieniać codziennie? Dodano po 6 poprzez kliknięcie przycisku excel skopiowały arkusz Przycisk w tym samym arkuszu? Dodano po 34 [syntax=vb] Sub Kolejny_dzen() dzen = Range("b1").Text For Each sh In ThisWorkbook.Sheets If sh.Name = dzen Then MsgBox "Juz zapisane":...
Sądząc po nazwie ("Polewyboru") to nie ActiveX tylko formularzowe. Wykorzystaj wartość komórki wpisanej jako "łącze komórki"... P.S. Na końcu procedury włącz odświeżanie ekranu.
Najprościej, to czas zamienić na fragment doby, która w Excelu ma wartość 1. Następnie dla komórki wynikowej zastosować odpowiednie formatowanie. W przykładzie przerobiłem tylko istniejące formuły.
Witam, w ostatnim czasie stworzyłem kod, którego zadaniem jest wysłanie maila. Interesuje mnie aby wartość komórki została pobrana z arkusza oraz dodana w tekście maila. Niestety posiadam problem z kodem (załącznik1). Wiadomość email otrzymuje w nieczytelnej formie (załącznik 2) Czy jest możliwość uzyskania poprawnego efektu ? ZAŁĄCZNIK 1 Sub WyslijMail_CDO()...
Witaj. Należy użyć formatowania warunkowego z określeniem funkcji, na podstawie której robiony jest format. Jeśli posiadasz Excela w wersji 2013 lub nowszej, to ma on wbudowaną funkcję CZY.FORMUŁA, która rozróżnia czyw komórce jest wpisana liczba/tekst, czy wartość jest obliczona na podstawie formuły rozpoczynającej od "=" - i o takie rozróżnienie chyba...
Wg mnie źle zadałeś pytanie. Poza tym opis komórki jest niejednoznaczny Jeżeli uważasz że w komórce C6 powinno być 21,48% to najprawdopodobniej chodzi ci o wartościowe wykonanie planu a w takim wypadku należałoby w opisie dodać słowo "wartościowo" i zmienić formułę: "obrót wykonany"/"obrót wymagany" czyli C12/C11
czyli np.: =arkusz1!A1 jak przeciągnę tą formułę w bok (poziomo), to excel automatycznie w następnej komórce skopiuje dane z komórki B1, czyli =arkusz1!B1, a chciałbym żeby w następnej komórce była wartość z komórki A2, czyli =arkusz1!A2 Hmm, to jeszcze byłoby wykonalne. Jeśli kolumny po kolei w jednym wierszu, to skąd wiadomo gdzie ostatnia komórka...
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.
Szukam funkcji która by pobierała wartość z komórki i szukała numeru wiersza wyświetlając jego zawartość Funkcja [syntax=vb]=INDEKS(A:A;H8;1)[/syntax]?
Tak na marginesie: :) Kolego, po napisaniu odpowiedzi zanim ją wyślesz, przeczytaj to co napisałeś, byś był pewien że odpowiadasz na pytanie. Twoje pierwsze zdanie: ... jeżeli w A1 wpiszę wartość to ... w A2 należy ... To wynikało z Twojego pierwszego postu, ale excel tego nie zrozumie :) Całe szczęście że dodałeś drugie zdanie :) Z komunikatem jako...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
...1. jak mam sformatować komórkę aby wyświetlała w zawartości ze zczytanego kodu kreskowego zawartość w postaci szeregu cyfr. Nie wiem dlaczego w jednej komórce, która jest sformatowana jako tekst wyświetla ten szereg cyfr a w innej mimo iż jest tak samo sformatowana już nie. 2. Jak mam połączyć funkcję ... Tak abym do komórki D28 nie wpisywał jak...
Chcesz mieć w jednym polu informację czy jedna z komórek zakresu jest pusta ? Czy informację, że dana komórka jest pusta ? Jeżeli chodzi o pierwszą sprawę to musisz w takim razie pisać po kolei Jeżeli(Czy.Pusta(A1) I (Czy.Pusta(A2)) itd. 1;0) - wartość wszystkie komórki będą puste to w polu z formułą zwrócona zostanie wartość 1 w innym przypadku 0....
Bez VBA chyba się nie obędzie. Spróbuj: 1) wpisać do tablic zawartość komórek rozdzielając ciągi Split (tekst, chr(10)) 2) porównać tablice każdy rekord z każdym, jeśli porównanie da wynik negatywny przepisujesz wartość do trzeciej tablicy lub bezpośrednio do komórki wynikowej. Ale: w A2 jest "STOP_RAPORT CTX_CARDMAN" spacja zamiast AltEntera. Takie...
Skorzystaj z funkcji POWT() podając jako drugi argument ilość znaków wymaganą do wstawienia. Jeżeli ilość ta jest zmienna a z tego co przeczytałem wynik ma mieć stałą ilość znaków wartość tą możesz obliczyć odejmując od wymaganej aktualną długość łańcucha zmierzoną za pomocą funkcji DŁ(). Obie w funkcjach tekstowych Excel-a. Edit: Można też mierzyć...
Rozumiem że gdzieś masz pełną tabele z danymi np Nazwisko (M) | Dochód (N) Nie do końca wiem jak masz zorganizowany wybór z listy (okno combo box czy komórka) Zakładam że w komórce (poprzez tzw sprawdzanie poprawności - lista) Wykorzystaj do tego Szukaj.pionowo =wyszukaj.pionowo(adres komórki z wyborem; Cała tabela z danymi; liczba kolumny z dochodem;...
zmienia wartość komórki excel przywraca wartość komórki wartość komórki pomiędzy
android proces akumulator robot p0087 peugeot
wypadanie zapłonu zimny silnik bizhub c250i
Valtra 6850: Brak kontrolki świec żarowych i wyświetlacza licznika Diagnostyka przekaźnika świec żarowych Valtra 6850