Trzeba było od razu ;) Można zamiast instrukcji If zastosować pętlę Do [syntax=vb]Sub Makro1() Dim szukany As Variant, kom As Range Dim i As Integer, s As Integer szukany = Array("<html>", "</html>", "<head>", "</head>") For Each kom In UsedRange If kom.Value <> "" Then 'wyłączymy puste For s = 0 To 3 i = InStr(LCase(kom.Value),...
Dodatkowo, skoro koledze arkusz ten ma posłużyć do identyfikacji towarów poprzez skanowanie ich kodów kreskowych, można jeszcze do tego dołożyć funkcję " Hiperłącze ", która wyświetli koledze zdjęcie zeskanowanego towaru, dla porównania poprawności danych. Zapis funkcji, opis reszty oraz schemat 'konfiguracji' dostępu do zdjęć towarów w załączonym archiwum...
Może tak: =SUMA(Tabela2[(at)[I]... andie
Jak poniżej. Założenie, że zwraca pierwszy 26znakowy ciąg cyfr, po usunięciu spacji z tekstu. [syntax=vbscript]Function ZwrocIban(Szukaj_Komorka As Range) Dim dlugosctekstu, pozycja As Long Dim t, ciag, maska, iban As String Dim i As Long 'usuwamy spacje z tekstu t = Szukaj_Komorka t = Replace(t, " ", "") maska = "CCCCCCCCCCCCCCCCCCCCCCCCCC" dlugosctekstu...
Od tego trzeba zacząć że nie możesz przyrównać do 8 (liczba osiem) 8:00 (godzina ósma), bo ta druga jest liczbą 0,333.... Druga sprawa wpisany w cudzysłowiu "7:35" jest ciągiem znaków (4 znaki) a w zastosowane w Twojej formule z funkcją Jeżeli "" oznacza ciąg znaków pusty (nie jest tożsamy z zerem)
Tak, istnieje taka możliwość. Co rozumiesz pod pojęciem "okienko"? Jeśli komórkę arkusza, to może wystarczy wpisywany ciąg poprzedzić znakiem "="...
Zależy, jeżeli ciąg jest stałej długości a litery są zawsze dwie i na końcu, to funkcji PRAWY(), LEWY() i złączenia przez &
To jest przechowywany w katalogu i zamyka. po prostu otwórz go Dodano po 3 lub zniszczyć ciąg z makro: ActiveWorkbook.Close
Bo to nie jest formuła tylko ciąg znaków. Skorzystaj z funkcji ZŁĄCZ.TEKSTY (czy jakoś tak).
Spróbuj albo tak: [syntax=vbscript]MsgBox "To jest bardzo długi tekst " & _ "I ciąg dalszy " & _ "i dalszy " & _ "i dalszy..."[/syntax] albo tak: [syntax=vbscript]MsgBox Range("A2").Text[/syntax]
Przy pomocy makra sprawa jest dość prosta. Zapisz tablicę rozdzielając ciąg funkcją Split . Dwie ostatnie wartości to poszukiwane ciągi. Najprościej napisać funkcję użytkownika. Ha, ale uparłem się na rozwiązanie formułami arkuszowymi :) Jeśli z ostatnim nie ma problemu =PRAWY(A2;DŁ(A2)-ZNAJDŹ(...
Sprawdzaj pierwszy prawy znak przy TextBox1_Change. Muszą być spełnione trzy warunki: 1. TextBox1<>"" 2. Znak musi być liczbą 3. Jeśli nie jest liczbą musi być przecinkiem Jeżeli pkt.2 lub pkt.3 jest False, ucinasz ciąg o 1 znak z prawej...
A czy nie prościej byłoby rozbić ciąg Split'em wg spacji? Powstanie 5-cio elementowa tablica, gdzie druga i czwarta wartość to nasze liczby...
Powtarzające się ciągi znaków są między arkuszami czy w danym (jednym) arkuszu? Powyższe funkcje nie wyłapią powtarzającego się ciągu znaków (chyba że inaczej się rozumiemy). Jeżeli w Arkuszu2 będziesz miał dubel (lub więcej) danej nazwy to zarówno wyszukaj.pionowo() jak i podaj.pozycję() znajdzie tylko pierwszy taki ciąg pozostałe ciągi o tej samej...
Kłopot polega na tym że chcesz "mieć ciastko i zjeść ciastko" Najpierw pozbywasz się daty a potem znów chcesz ją zrobić (dodając 1) To sie robi inaczej tylko że dla ciebie nie będzie przydatne. Dla excela kolejne daty to kolejne cyfry zaczynając od 1 dla 01.01.1900, 2 dla 02.01.1900 itd. To że widzisz to jako datę to właśnie zawdzięczasz formatowaniu....
Możesz użyć funkcji użytkownika: [syntax=vbscript]Function ZlaczTexty1Kolumna(zakres As Range, Optional separator As String) As String 'funkcja łączy wartości z jednokolumnowego zakresu komórek w jeden ciąg tekstowy oddzielony zdefiniowanym separatorem 'funkcja działa tylko dla zakresów ciągłych ZlaczTexty1Kolumna = Join(Application.Transpose(zakres.Value)...
w trzeciej sama trasa wypisana w formacie: sklep_xxx-sklep_yyy-sklep_zzz Jeśli dobrze zrozumiałem, to myślnik jest znakiem rozdzielającym nazwy sklepów, których trzeba wyszukać? Jeśli tak, to najprościej rozbić ciąg funkcją Split i zapisać w tablicy. Następnie wyszukać kolejne wartości w pętli For, gdzie licznikiem będzie rozmiar tablicy. Wynik można...
Wtedy nie wstydż się i pytaj. Dałeś mi (przy okazji) temat: dlaczego działało a teraz nie działa? Już ci tłumaczę (musiałem się chwilę zastanowić) Dla excela 0 lub "nic" to to samo co fałsz natomiast 1 to prawda. Jednak jak wspomniałem twórcy z M$ mieli różne wizje i jeżeli komórka ma jakąkolwiek wartość (ale nie wyraz - nie ciąg znaków) poza 0 wtedy...
Co to jest to Len, Right, InStrRev? :) ... To takie coś co można sprawdzić przez 'F1' ... :) [syntax=vbscript]Niech np.: Plik = "C:\Temp\Zdechła_kaczka\umpa_pumpa.xlsx" Plik = Right(Plik, Len(Plik) - InStrRev(Plik, "\", -1, 1)) InStrRev(Plik, "\", -1, 1) => Zwraca pozycję ostatniego "\", ale liczoną z lewej strony, czyli 23 Len(Plik) => Długość łańcucha...
Że tak się wtrącę ... Nie uczysz się :) Spróbuj załapać o co chodzi w kodzie (przeczytać go) a sam zaczniesz pisać kody uzależnione od zmian w arkuszu. (if) jeżeli (Target.Column = 6) zmiana dotyczy kolumny nr 6 czyli F (AND) oraz (UCase(Target.Value) = "K") zmieniana wartość zmieniona na duże litery równa jest K (Then) wtedy (Target.Value = "Komunalne")...
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...
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...
Przed datą w polu żółtym daj spacje. Właściwie można i tak ale to trochę nielogiczne zamieniać datę na tekst. Do autora: :) Pominąłeś dość znaczący "szczegół". Fragment tekstu dalej jest tekstem choć może wyglądać jak data, a dla excela wygląd to nie wszystko :). Trzeba ten ciąg zamienić na datę za pomocą funkcji Data.wartość(). Oczywiście jeżeli w...
Coś takiego może?
Da się: 1. Utwórz nowy moduł i wklej Cells(licznik, 1) = Mid(linia, 7, Len(linia) - 7 - ko) winno być: Cells(licznik, 1) = UTF8toWin(Mid(linia, 7, Len(linia) - 7 - ko))
Wszystko działa dopóki liczby w combobox'ach mają tyle samo cyfr. To powinno Ci dać do myślenia. ComboBox-y przechowują poszczególne pozycje jako ... ciąg znaków, a nie wartości liczbowe. W swoim kodzie, zamień wartość Value , z wszystkich trzech Combo na liczbę i porównaj wtedy. Np. tak : If Val(ComboBox1.Value) < Val(ComboBox2.Value)...
Proponuję zmianę formuły. W H5 wpisz i przeciągnij w dół: =JEŻELI(G5-DZIŚ()<0;"PO TERMINIE";JEŻELI(G5-DZIŚ()<=60;"WYKON... SERWIS";"JESZCZE CZAS")) Formatowanie warunkowe nie jest trudne w przypadku tekstu. Zależy jakiego masz Excela. Zaznacz kolumnę H. W E2007 klikasz tylko w kolejne pola kreatora. W E2003 warunkiem będzie ciąg tekstu ujęty w...
Pytania dodatkowe: -czy te dane w wierszach są tylko z zakresu 1-9 -czy to są tylko liczby Jeśli oba powyższe warunki są spełnione to rozwiązanie okazuje się banalne. Przy wykorzystaniu kolumny pomocniczej nie ma znaczenia jakie są dane w poszczególnych komórkach. Mogą być mieszane tu cyfry tu liczby, bo poprzez łącznik & zawsze wynikiem będzie tekst...
Z tymi -1,1,0 chodzi o to, że tylko te liczby wchodzą w ciąg 5 elementowy (liczbę L u nas ) czyli moze byc np -1,0,1,0,-1. Już rozumiem. Niestety w tym przypadku moje rozwiązanie przy wystąpieniu "-1" rozjedzie się, więc trzeba je skorygować. Pytanie czy dane w jednej komórce (dana "liczba" ) są takie jak przedstawiłeś w przykładzie czyli cyfry rozdzielone...
https://obrazki.elektroda.pl/8601697900_... Transponuj tabele i przez sumy częściowe sobie poradzisz. https://obrazki.elektroda.pl/5906442000_...
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ć....
Dzięki koledze adamas_nt i jego sugestii co do "automatycznego" pobrania numeru kolumny (i wiersza w domyśle) poprawiłem nieznacznie moje makro. Wystarczy teraz wkleić w arkusz "dane" gdziekolwiek twoją tabelę z danymi (jak by ona nie wyglądała). Nacisnąć wstaw kody i kody wewnętrzne zostaną wstawione bez względu na to gdzie znajduje się tabela z danymi...
Wszystko działa prawidłowo ! Popełniłeś kilka błędów: - formuła w kolumnach Wystąpienia to formuła tablicowa ! Po jej wpisaniu w komórkę, zatwierdzenie wpisu następuje po wciśnięciu Ctr Shift Enter a nie samego Enter ! W pasku formuły widać, że funkcja tablicowa jest zamknięta przez nawiasy klamrowe np. {=SUMA(JEŻELI(D$3:D$461...
Pozwolę sobie odpowiedzieć: zmień deklaracje typu zmiennych i będzie ok. Dim Nazwa_1 As Integer Dim Nazwa_2 As Integer Na Dim Nazwa_1 As String Dim Nazwa_2 As String Integer to liczby całkowite a String to ciąg tekstowy do którego też można zaliczyć "wizualnie" liczby (czyli liczby i cyfry jako tekst). I jeszcze jedno jak zmienić aby nazwy arkuszy zmieniały...
Rzucasz się od razu na głęboką wodę, mam nadzieję że już programowałeś wcześniej :) Są dwa sposoby rozwiązania Twojego problemu: 1. Przed wykonaniem UPDATE zrobić SELECT, i jeżeli nie zwróci on pożądanych wyników -> oznaczyć rekord jako nieistniejący w bazie. Sam czasami robię to w ten sposób: a. wykonać (z wykorzystaniem ADODB.Recordset) [syntax=vb]SELECT...
Rozwiązanie otrzymałem na forum Excel-a tam zamiast pogardliwej odpowiedzi (Prot) dostałem wskazówkę dzięki której sam rozwiązałem problem
Trudność bliska zeru, za to czasochłonność 8/10 Potrzebny Ci arkusz do liczenia wszystkich niewiadomych. Pewnie większy będzie od źródłowego. Pierwszą cześć zrealizujesz funkcją LICZ.JEŻELI w arkuszu pomocniczym. Drugą, połącz wszystkie komórki wiersza w jeden ciąg i porównaj długość "surowego" z ciągiem po podstawieniu nula. Np dla zliczenia zer (wynik=5):...
Trochę go poprawiłem powinno być ok.
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...
Działam w VBA MS Excel i przy pobieraniu danych tekstowych mam string, który jest "łamany", czyli zawiera wiele linii - jak najprościej, jaką funkcją zamienić ten string na jeden jednolity ciąg znaków, bez "twardych Enter'ów" ?
Cześć, Będę wdzięczny za pomoc w rozwiązaniu problemu :) W komórce A1 jest dłuższy tekst i gdzieś w nim jest np. ciąg "Pakowane po 6 szt.". Chciałbym wartość "6" przepisać do osobnej kolumny. Ilości szt. w poszczególnych wierszach są różne. Z góry dzięki!
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...
Witam ponownie. Mam jeszcze jeden (w najbliższym czasie) problem do rozwiązania. Niestety formuły tutaj nie udało mi się skonstruować (ale jeśli można to chętnie wykorzystam :) ), dlatego kieruję prośbę o pomoc do programistów VBA. Żeby zrozumieć o co mi chodzi, trzeba zapoznać się z arkuszem, który załączyłem do tego postu. Natomiast opis wklejam też...
Witam Jak w temacie chcę przemnożyć ciąg liczb oddzielonych "x". Wpisywane wartosci w komórkę mogą być róznej dł. i po zmianie już wpisanego np. wpisaniu innej wysokości to zmienia się automatycznie przemnożenie Plik w załaczniku
W kolumnie A mam ciągi znaków. Jakiej formuły użyć, aby skopiować je do dwóch innych kolumn, ale z podziałem tzn. jeśli w danym ciągu znaków na końcu będzie K5 to aby tylko to kopiowało do kolumny D a reszta znaków zostawało w C , natomiast w przypadku, gdy nie ma tego K5 na końcu, to aby całość zostawała w kolumnie C przykład: w A1 jest ciąg AKNMJIEK5...
Ok, faktycznie jest odwołanie, niestety w tym przypadku jest ono wprowadzone chyba na "sztywno" i przy odświeżaniu nie może znaleźć pliku w odpowiedniej lokalizacji. Sterownik ODBC Excel Ciąg O:\Test\ProtTABELA nie jest prawidłową ścieżką.
Witam ... odgrzejmy lekko kotleta, bowiem sprawa wydaje się dość ciekawa ... :D ... ... Jeżeli w excelu w kolumnie mam ciąg liczb, oddzielonych od siebie "+" np. 20+65+74+2+18, jak sprawdzić, wartość komórki, czy któraś z liczb jest <=50? Jeżeli warunek będzie spełniony wchodzimy w sumowanie warunkowe Z tego co kolega szadof napisał, rozumiem że...
Można tu wykorzystać problem, który był niedawno poruszany na forum, mianowicie proste zabezpieczenie przed wpisaniem dubla w danej kolumnie. Zaznaczasz całą kolumnę - menu dane - sprawdzanie poprawności... - w zakładce ustawienia w okienku wyboru "Dozwolone" wybierasz "Niestandardowe" a w okienku formuła wpisujesz: =licz.jeżeli(A:A;A1)<=1 (tu jest...
Piszesz bardzo chaotycznie. Kolumna D1 do D20 pokazuje ile razy dany produkt był brany. Jeśli to chodzi o te listy rozdzielone przecinkami, to one były w przykładzie w kolumnie C. W Kolumnie B1 do D20 ma mi liczyć ile razy występuje dany numer. To już są 3 kolumny, a poza tym w kolumnie D (lub C) są już dane. W przypadku 1 do 9 doliczane są też liczby...
I znowu nieprecyzyjnie Kolega napisał. Założenie powinno być takie, że wpisujesz swój 'numer' w komórkę A1. W komórce B1 jest formuła WYSZUKAJ.PIONOWO(A1...', która zwróci ścieżkę do pliku. I dopiero wtedy, jeżeli istnieje taki plik, to go wydrukować, prawda? Pytam, bo jedynie mogę się tylko domyślać. Dziękuje bardzo. W zasadzie udało się wszystko...
excel ciąg cyfra ciąg komina programator ciąg
rozgałęźnik słuchawek filtr górnoprzepustowy regulowany minuta saeco
knights głośnik sterownik pieca
Jak połączyć dwa komputery w domu? Tonsil ZgB-70-8-651 vs ZgB-70-8-61 – porównanie Altus 110, różnice tweeterów i zwrotnic
