Czy ktoś pomoże W LibreOffice można to zrobić w dwóch krokach przy użyciu wyrażeń regularnych :spoko: 1159078 1159079 W Wordzie zapewne też to można zrobić, ale Microsoft ma odmienne zasady tworzenia wyrażeń regularnych :cry:
:arrow: makary1 Nie dość że dajesz niedziałające badziewie (z błędami) bez żadnej instrukcji, to jeszcze żądasz "zapłaty" za stworzony plik. :cry: Nieładnie. :cry: Zanim coś dodasz przetestuj czy u ciebie to działa. Tworzysz okno filtra Kol A Filter, a w kodzie piszesz Kol B Filter Zaznaczasz (Range) jedną kolumnę a piszesz Field:=2 Wprowadzasz nazwę...
Ostatni, opcjonalny argument funkcji ustaw na PRAWDA, tabela musi być posortowana.
Ctrl+f, następnie klikasz "więcej" i zaznaczasz "znajdź tylko całe wyrazy".
aaa.. Formuła nie może działać w tej samej komórce Można podzielić 1 kolumne na inne dwie - przed 'w' i po 'w' zmienić jednu kolumnu tylko makrem [syntax=vb]Sub kokos() Dim c As Range Set c = Cells(1, 1) While c <> "" p = Application.WorksheetFunction.Search("w"... c) c.Offset(, 1) = Mid(c, p) c = Left(c, p - 1) Set c = c.Offset(1) Wend End Sub...
Domyślam się, że je po prostu prze-kleiłeś czyli zrobiłeś połączenie 2 plików które będzie działać jeżeli prześlesz oba pliki (word i excel) i znajdą się one w odpowiednich lokalizacjach. Aby załączyć wykresy Excela, tak aby po wysłaniu je edytować najłatwiej je osadzić tzn. w dokumencie programu Word kliknij wstaw obiekt -> Microsoft Excel Chart. dwuklik...
zwraca #N/D! Jeżeli masz nowego excela to spróbuj: [syntax=excel] =JEŻELI.BŁĄD(WYSZUKAJ.PIONOWO(C4;Fronty!... lub =JEŻELI(C4<>"";JEŻELI.BŁĄD(WYSZUKA... lub =JEŻELI(C4="";"";JEŻELI.BŁĄD(WYSZUKAJ.PI... [/syntax] Ja mam starego, więc u mnie działa coś takiego: [syntax=excel]...
Wcześniej nie zauważyłem, że jest prezentacja w Excelu, ale po Twoim zapytaniu obejrzałem. Jest więcej niż dobra i pomocna i na pewno coś z tego wykorzystam. Jeszcze pliku excelowego (źródłowego) nie ujawnię, bo sam jestem ciekawy, co wyjdzie z wykorzystania tych funkcji. Jutro będę je sprawdzał.
Kasiu, Funkcję Zaokr(Liczba, IlośćPoPrzecinku) użyj tam, gdzie Ci 'nie pasuje'. Ja już wymiękam. Może Irek, albo JRV znajdzie chwilę.;)
Takie zrobi to o co prosisz: [syntax=vbnet]Sub szukajwwordzie() Set obj = CreateObject("Word.Application") Set dok = obj.Documents.Open("T:\KSIĄŻKA TELEFONICZNA.docx") For Each komorka In Range("A:A") If komorka = "" Then Exit For With dok.Content .Find.Execute FindText:=komorka, Forward:=True If (.Find.Found) Then komorka.Offset(0, 1) = "Jest" Else...
Siemka, nie ogarniam Excela na tyle aby samemu to zrobić. Moja tabela składa się z kilku kolumn ale interesują mnie tylko 3. Chciałbym aby Excel wskazał mi duplikaty - np kolorując na jakiś kolor taki WIERSZ. WIERSZ składa się z 3 komórek z 3 kolumn. Specjalnie piszę dużymi literami aby zaznaczyć że interesują mnie 3 komórki w tej samej linii. Chodzi...
Nie zadziała A u mnie działa (no chyba że o to nie chodzi)
Liczbę zgodności można uzyskać dość łatwo pod warunkiem, że wpisy będą faktycznie identyczne. Formuła tablicowa: [syntax=text]=SUMA(--($C2:$H2=INDEKSY!$A...
adamas_nt bardzo dziękuję za podpowiedź, po nagraniu makra i podstawieniu go do całości faktycznie udało się wykonać, jednak nie w całym zakresie, sprawdziłam o co chodzi i wyszło mi że opcja -naciśnij Ctrl+Shift+Strzałka w dół -naciśnij Ctrl+Shift+Strzałka w prawo powodują zaznaczenie obszaru ale nie w całości pokrywającego się (w dół) z moim zakresem...
Dzień dobry. Chciałbym zrobić arkusz z 2 tabelami: 1) Stała; A1:G4 (7 kolumn; 4 wiersze) 2) Zmienna; H1:~ (x kolumn; 4 wiersze) W stałej tabeli chciałbym, aby wyświetlały się dane z 7 kolumn, zaczynając od kolumny H, czyli: - wartość z H1 widoczna w A1 - wartość z I1 widoczna w B1 - wartość z J1 widoczna w C1 - wartość z K1 widoczna w D1 - wartość z...
Cześć, Ja bym to tak zrobił: w komórce A1: liczba w komórce B1: =JEŻELI(A1>=209;209;JEŻELI(A1>=200;200;J... itd. przez wszystkie dzielniki. To znajdzie pierwszy największy dzielnik. w komórce C1: =JEŻELI(A1-B1>=209;209;JEŻELI(A1-B1>=200... itd, znajdzie drugi dzielnik.
Jeszcze mam takie pytanie, czy dało by się przerobić ten arkusz, aby odróżniał do 100 a nie do 10 sortował? Myślę że i to się da zrobić ale Jak masz wcześniej posortowane dane (przed tym dziwnym sortowaniem)? gdzie znajduje się 10? po 1 czy po 9 czy tak : 1 1 2 2 ... 9 9 10 10 11 11 Czy tak: 1 1 10 10 11 11 2 2 ... 9 9 Przyznam że z pierwszą wersją...
Trzeba wrzucić to w pętlę. Jak znajdzie robi warunek PRAWDA Jak nie znajdzie to w warunku FAŁSZ wyświetla Msgbox i kończy działanie
Zastosuj kolumnę pomocniczą, w której znajdzie się pierwsza litera nazwiska. Dalej zwykłe LICZ.JEŻELI...
Proszę sprawdzić załącznik. Plik po dekompresji "waży" ponad 2,6 MB i zawiesza Excela przy próbie otwarcia. Może zapisać plik w formacie .xls i załączyć bez kompresji. Po odzyskaniu zawartości pliku brak wykresów. Dodano po 1 Jeśli chodzi o wykres, to zastosowany sposób jest trochę udziwniony. Polega on na zastosowaniu różnych formatów daty, aby wymusić...
Dzień dobry. Posiadam tabelkę z danymi, gdzie znajdują się także daty. Chciałem utworzyć formatowanie warunkowe, aby: 1. Jeżeli data jest większa od daty aktualnej (dzisiejszej) - komórki podświetlana jest na zielono. 2. Jeśli data jest z miesiącem i rokiem tym samym co obecnie (np. dziś jest 22.10.2018, komórki mają daty 31.10.2018) - komórki podświetlane...
No cóż, skoro "skomplikowałeś" sprawę, to żeby miało to jakie takie "ręce i nogi", na jednym module się nie zakończy, przykładowo mogłoby to tak wyglądać: 953853 Dostęp do zdjęć bazuje na takim dostępie do nich: _01.jpg ", czyli wychodzi, np.: 100_01.jpg, 200_01.jpg, itd. Możesz sobie to dostosować. Po wklejeniu do arkusza dany obrazek (zdjęcie) otrzymuje...
System Windows7 prof 64bit. Office 2016 64bit i 32bit Na komputerze był zainstalowany office2010 starter. Wszystkie pliki otwierały się prawidło ale ze względu na ograniczoną funkcjonalność został zakupiony i zainstalowany office 2016. Pliki znajdują się na dysku sieciowym. Jeśli otwieramy arkusz którego nikt nie używa w tym momencie to wszystko jest...
Żaden komunikat o błędzie nie jest wyświetlany? E ...? Czy pojawiała się cyfra 9 ...? Czy ciepłą wodę grzeje normalnie? Która pompa się uruchamia jak się pojawia A ...? Trochę dziwnie się zachowuje. Tak jakby cały czas próbował doładowywać zasobik CWU, ale nie było obiegu, wymiennik spaliny->woda się przegrzewa i z powodu przegrzewania wyrzuca ciepło...
Może spróbuj innej wersji makra działającego tylko w obszarze do Lastrow :D [syntax=vbscript]Sub Uzupełnij() Dim i As Long, LastRow As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = 3 To LastRow If Cells(i, 1) = "" Then Cells(i, 4).Value = Cells(i - 1, 4).Value End If Next i End Sub[/syntax]
Pomysły na pewno się znajdą. Ale dlaczego za pomoc oczekujesz zapłaty (prowizja za download)?
Witam, Ponieważ nie jestem programistą mam dosyć spory problem z rozwiązaniem swojego problemu. Sytuacja wygląda następująco: mam 101 arkuszy Pierwszy z nich to "protokół likwidacyjny" w którym znajduje się tabela mająca 100 pozycji. Kolejne 100 arkuszy są to kwity likwidacyjne (nazwy arkuszy są zgodne z pozycjami w tabeli z protokołu likwidacyjnego)...
Nie. Żeby wszystko działało muszę być ustalone, sztywne zasady. Im więcej warunków i danych do sprawdzenia, tym większe prawdopodobieństwo błędów. W wierszu 23 chodzi o to, co opisujesz w p.4 Przyjąłem, że nadawcą pytania jesteś Ty. Temat rozpoczyna się od "RE: ", oznaczasz go jako "Kategoria Żółty" i jeśli pojawi się odpowiedź z identycznym tekstem...
Witam szanownych kolegów, potrzebowałbym zidentyfikować element (oznaczony na zdjęciu) z sześcioma nóżkami, który znajduje się w wentylatorze rekuperatora BRINK RENOVENT EXCELLENT 300, który prawdopodobnie odpowiada za regulację prędkości obrotów wiatraka. Niestety nie jestem w stanie odczytać oznaczeń, może ktoś z was się spotkał się z takim elementem...
Witam Zmniejsz SKREN jak pisał poprzednik ten jasny ekran najprawdopodobniej wynika z braku zasilania 200v płytki kineskopu zanim znajdziesz tego powod sprawdz co spowodowało ta usterke zobacz czy nie masz zwarcia jednego ze wzmacniaczy na plytce kineskopu powodzenia Dlaczego kolega nie używa znaków interpunkcyjnych ? Regulamin p.15 Proszę poprawić...
Filtrowanie w poziomie nie jest łatwym tematem w Excelu. Idealnie do tego nadawałby się układ gdyby wszystkie dane dostawy zawrzeć w jednym wierszu. Prezentowanie później tego nawet w takiej formie, że w kolumnie znajdą się daty będzie zdecydowanie prostsze np. wykorzystując tabelę przestawną.
Zamień wszystko nie interesuje ile jest kolumn i gdzie są dane. Zamienia co znajdzie.
...Wspomniane zastrzeżenia to dane w tabeli muszą być posortowane, w pierwszej kolumnie powinny być wartości do wyszukania. Sprostuje: dane nie muszą byc posortowane gdy ostatnim parametrem funkcji wyszukaj.pionowo będzie 0 lub Fałsz z tym że w tym przypadku jeżeli funkcja nie znajdzie szukanej wartości zwróci błąd.
a jakiś schemat do tego prostownika jak myśliscie znajdę gdzieś ?
To znaczy, że już niema dla niego żadnego ratunku? Dodano po 27 A może wie ktoś jak załadować sterowniki w LiweSuite? Wykrywa mi USBdevice, pokazuje mu ścieżkę do folderu USB Driver i nie znajduje odpowiedniego sterownika. Próbowałem na XP, 7 i 8 i wszędzie to samo
Tu znajdziesz rozwiazanie http://blog.actuary.pl/2010/01/zegarek-n...
Witam, Mam następujący problem. Muszę eksportować dane z pliku zamieszczonego poniżej do arkusza Excel. Wymóg jest taki żeby w pierwszej kolumnie znajdowało się 8 znaków łącznie ze spacjami, kolejne kolumny to już dowolny ciąg liczb. I tak dla komórki A1 powinno być [_ _ _ _ _ _ 25] - 8 znaków łącznie ze spacjami (znak _ oznacza spacje a nawias kwadratowy...
[syntax=vb]Sub PobierzDzisiejszeDane() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String Sciezka = ThisWorkbook.Path p = Date & ".xlsx" Plik = Sciezka & "\Dane\" & p If Dir(Plik) = "" Then MsgBox "Brak pliku z dzisiejszą datą." Exit Sub End If Workbooks.Open Filename:=Plik Sheets("Dzisiejsze dane").Select ow = Cells(Rows.Count,...
W załączeniu wg mnie trochę bardziej uporządkowany kod i parę zmian. Też myślałem o tym by dane otwierały się kiedy trzeba. Poprawiłem ale na razie jest jedno "ale" jeżeli zaczął byś wpisywać w liście coś od litery "w" przerzuciło by cie do danych - dlatego dodałem spację do pierwszej nazwy. Pomyślę o innym rozwiązaniu ale na razie nie mam czasu. Zobacz...
Tu masz oficjalną pomoc Microsoftu http://office.microsoft.com/pl-pl/excel-... Masz tam ładnie wszystko napisane :)
Jeśli dane mają być wpisywane w kodzie na stałe to wystarczy zrobić tabelę w html-u, tu odsyłam do lektury kursu. [url=http://www.kurshtml.edu.pl/html/tab... Natomiast jeśli chodzi o kolory to trzeba by zrobić dwa kolory tła wierszy w CSS i przy dopisywaniu kolejnych wierszy do tabelki ustawiać odpowiednią klasę. Jak to zrobić również znajdziesz...
Musi obsługiwać twoje piloty, na ich stronie znajdziesz bez problemu.
[syntax=vbscript]Sub Auto_Open() Set d = Sheets("Arkusz1").Range("J1") For x = 1 To 20 If Sheets("Arkusz2").Cells(x, 3) = d Then MsgBox "Dzisiejsza data znajduje się w arkuszu 2.", vbOKOnly Next End Sub [/syntax]
Twojego filmiku nie widać. Edit: Już się pokazał. Spróbuj jednak dokładniej opisać swoje obserwacje. Czy problem z tym plikiem "okrojonym" na potrzeby forum występuje u Ciebie na każdym komputerze i w każdej wersji Excela? Masz w pliku kilka ukrytych arkuszy, ale eksperymentujesz tylko z "B". Czy każdy arkusz po ukryciu zachowuje się tak samo? Ponieważ...
Filtr przed pompą wody? Może problem z wentylatorem? Mozesz zmienić obroty startowe w menu i zobaczyć czy to coś zmieni. Instrukcje znajdziesz na stronie ACV , kod serwisowy 05 lub 54
ylo zaznaczone tylko 6 bo tyle jest par Prawdopodobnie chodzi o coś takiego: [syntax=vb]Sub FindUniq() Dim a, b As Byte Dim r As Range Dim re As Range Dim maxIndexA, maxIndexB, aa, bb, bc As Integer a = 2 'kolumna do zakolorowania b = 40 'kolumna śmieciowa Excel.ActiveSheet.Columns(a).Copy Columns(b) Excel.ActiveSheet.Columns(b).RemoveDupli... 1...
wykres Gantta jest prosto zrobić to nawet nie musze czytać. Problem jest w tym jak nanieść na niego dodatkową współrzędną "Z" obrazującą lata tego raczej w pomocy się nie znajdzie
Czy jest jakaś funkcja która znajdzie kolumne po nazwię nagłówka. Tak jest taka funkcja :idea: 930167
Do tego nie jest potrzebne makro, wystarczy "znajdowanie i zamienianie" (CTRL+H). A jeśli już koniecznie musi być makro, to np. coś takiego (dla danych w kolumnie A, w razie czego dostosuj sobie): [syntax=vb]Sub z() Dim rngTmp As Excel.Range Dim lLstRw& lLstRw = Cells(Rows.Count, 1).End(xlUp).Row Set rngTmp = Range(Cells(1, 1), Cells(lLstRw, 1)) rngTmp.Replace...
W każdej komórce tabeli w arkuszu2 w tych polach poza kolumną 1, wstawiasz funkcję szukącej tej samej wartości, co wprowadzasz w polu A, co w polu A, ale w arkuszu 1, i ta funkcja ma zwrócić ci numer wiersza np i, potem w tym polu wpisujesz: =Arkusz1!Bi, albo inne litery dla kolejnych pól. Jak znajdę czas to sam spróbuje ci to zrobić
dzień dobry. Jak sumować tylko wartości z komórek z danego zakresu, gdzie jest wartość czasowa a pominąć komórki gdzie jest tylko podana liczba. czas wylicza się z ilości wpisanych wykonanych badań. Czas chcę wyliczyć globalnie dla całego miesiąca nie wybierając pojedyncze komórki a podając cały zakres. W złączniku przykład. Gdy biorę zwykłą sumę dodaje...
Weż dla pustego arkusza zastosuj: Dodano po 6 Reusso: Kolega sugerował użycie innej nazwy dla zmiennej, która przechowuje pierwszy wolny wiersz. Jeśli skasowałeś +1 to kolejne kopiowania będą nadpisywać ostatni wiersz. Nieprawda. Sugerowałem inny sposób znajdowania indeksu ostatniego używanego wiersza. A to, że się przyczepiłem, że LastRow + 1 jest...
Witam Miałem dokument excel na dysku D na nim pracowałem i zapisałem, po tygodniu chciałem otworzyć dokument i tego dokumentu nie ma. Znajdę gdzieś jakąś kopię tego dokumenty
https://pl.wikipedia.org/wiki/Imieniny Ctrl+c Ctrl+v do Excela No a dalej, jestem przekonany, sobie poradzisz ;)
Znajdzie się ktoś pomocny? :)
Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
W momencie pisania posta nie widziałem Twojego przykładu ... Po drobnych poprawkach makro dostosowałem do Twoich potrzeb. Łącza formantów znajdują się w arkuszu2.
Kolego, nie rób jaj tylko rusz łepetyną. To są tak proste rzeczy że aż płakać się chce. Przykład: dodać dwie liczby a+b=c Excel: w komórce A1 - wpisujemy liczbę a np. 2 w komórce B1 - wpisujemy liczbę b np. 3 w komórce C1 - wpisujemy działanie które chcemy wykonać , czyli dodawanie wygląda tak: = A1 + B1 jak naciśniemy Enter to pojawi się w tej komórce...
W kod arkusza wklej[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Column = 5 And Target.Value <> "" Then wrs = Columns(5).Find(what:=Target.Value, lookat:=xlWhole).Row Target.Offset(0, 1) = IIf(Target.Row = wrs, "", Cells(wrs, 6)) End If End Sub[/syntax]W przypadku braku odpowiednika znajdzie sam...
No właśnie przeliczanie arkusza nie chce działać. spróbuje z opcją ThisWorkbook.RefreshAll chyba że jeszcze jakiś inny pomysł ktoś znajdzie ?
A jak zrobić żeby w tej sytuacji wynik pojawiał się w komórce obok A nie w komórce z której zostały pobrane dane ?
Myślę że do twoich celów odpowiednia będzie wbudowana funkcja wyszukaj.pionowo. Ma ona 4 argumenty - pierwszy to wartość szukana, druga to tabela zawierająca dane (może mieć wiele kolumn). Tabela musi mieć w pierwszej kolumnie wiersz w którym będziemy szukać wartości podanej w pierwszej kolumnie. Funkcja znajdzie tą wartość i zwróci z wybrane dane z...
Witam, tak jak w temacie. Pozdrawiam
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,...
Chyba tu znajdziesz rozwiązanie: http://support.microsoft.com/kb/162059
[syntax=vb]Dim ObjXL As Object, xlWkBk, StrWkBks As String ' Test to see if there is a copy of Microsoft Excel already running. On Error Resume Next Set ObjXL = GetObject(, "Excel.Application") If Err.Number <> 0 Then MsgBox "No Excel Files are open (Excel is not running)" Exit Sub End If For Each xlWkBk In ObjXL.Workbooks StrWkBks = StrWkBks...
Część A czyli miasto będzie niezmienne w każdym przypadku, załóżmy Warszawa. Nie znajda się, także "ul." "Ulica", "Osiedle", ani też znaki przystankowe. Dokładnie wygląda to tak: WARSZAWA JANA Z KOLNA 1/2 WARSZAWA JANA Z KOLNA 11 WARSZAWA JANA Z KOLNA 11A WARSZAWA JANA Z KOLNA 11A/2
Ostatnie pytanie.. jak będzie wyglądała procedura która ma za zadanie : po naciśnięciu Buttona zamknąć Formę a otworzyć plik excel'owsi w którym się znajdujemy ? Dokładniej chodzi mi o to, że.. po otwarciu excela otwiera mi sie automatycznie forma z moim programem.. i teraz, chce zrobic tak, ze jak ancisne button ktory u mnie sie nazywa "Zamknij" to...
Tak naprawdę liczba pkt będzie zawsze w przedziale od 1 do 3 (nigdy nie będzie to mniej niż 1 i więcej niż 3), ale znajdą się tam miejsca po przecinku.
Wydłubałem coś takiego: żadna francja-elegancja, ale na załączonym przykładzie Worda działa. Zrobiłem test dla ~500 tabel, im dalej znajduje się pozycja, tym dłużej muli - zamiana pojedynczej pozycji może potrwać do kilkunastu sekund - ale działa i może do czegoś Ci się przyda. Mam też nowszego Offica, więc pewnie w VBA->References będziesz sobie musiał...
Ok, a gdyby chcieć to zrobić z badaniem wartości dwóch komórek? Tzn. Jeżeli w komórce A znajdują się wartości od 1 do 10 oraz w komórce B znajduje się "określony tekst" to wpisz wartość z komórki a?? Wtedy po "Excelowsku", dla danych w jednym wierszu, wg Twojego wzoru =JEŻELI(ORAZ(A4<11;A4>0;B4...
Wielkie dzięki za pomoc! Zmieniłem trochę twój kod do moich celów. W twoim kodzie makro kończyło pracę gdy w pierwszej kolumnie napotkało pierwsza pustą komórkę. Potrzebowałem mieć pewność, że wszystkie dane zostaną skopiowane. Dlatego też zmieniłem pętle DO WHILE na pętle FOR i użyłem funkcji adamas_nt . [syntax=vb] Sub Copy() Dim myPath As String...
Czyli w ogóle nie potrzebujesz obsługi plików na AVR. Odczytujesz EEPROM i wysyłasz dane do PC, żeby było je łatwiej analizować, rozdzielasz dane jakimś znakiem, np. enter. Na PC jak pisałem robisz przekierowanie z com do pliku przy pomocy >>, albo znajdujesz np. wtyczkę do excela odczytującą dane z com. Mając je w excelu robisz sobie wykresy jakie...
Niewiele zrozumiałem z tego, co teraz napisałeś. W załączonym arkuszu jest jedna wersja - nie wiem, czy to jest to co masz, czy to co chciałbyś mieć? Które komórki mają niewłaściwy format i dlaczego jest on niewłaściwy? Poza tym nie wiem co kopiujesz i w jaki sposób. Czy chodzi o kolumny B i C z godzinami? Że nie potrzeba sekund? Jeśli o to chodzi,...
Myślę, że tą formułkę można trochę uprościć: =JEŻELI(KOMÓRKA("filename&q...
Pod prawda podstaw A10, pod fałsz "wyszukaj w tabeli G". Tu nie ma znaczenia kolejność, bo oba się wykluczają (nie zawierają się w sobie). Zobacz: Jeżeli(oraz(zielona;duże oczy);żaba;jeżeli(ogon;jaszczurka;inna gadzina)) Jeśli zacznę od ogona i go nie znajdę... Jeżeli(ogon;jaszczurka;jeżeli(oraz(itd Na jedno wychodzi ;)
[syntax=text]=ZASTĄP(A1;ZNAJDŹ("-";A1);Z...
Witam. Do znajdowania drogi w labiryncie są specjalne algorytmy. Bawiłem się tym kiedyś. Najprostszy algorytm polega na numerowaniu kolejnych komórek od punktu startu zaczynając, aż natrafimy na punkt docelowy. Teraz lecimy od punktu docelowego za kolejno zmniejszającymi się o jeden liczbami do punktu startu, zaznaczając jednocześnie trasę. W ten sposób...
W przykładzie było 22°55'02.3"E czyli Oczywiście można tę formułę rozbudować o kolejne warunki i wyszukiwać gdzie się znajdują znaki. Formuła ta ma też inną wadę np. nie rozróżnia półkul. Dodano po 15 Tylko czasami mam wartość: 55°21'39.8" a czasami np: 56°22'9.8" i wtedy mam błąd:/ =LEWY(A2;2)+((FRAGMENT.TEKSTU(A2;4;2)/60...
Pliki excela dodawaj bezpośrednio korzystając z funkcji załącz plik. Pakuj je wcześniej do zip, wtedy załączysz je bez problemu. Obrabianie pliku generowanego przez ten OCR do Excela to będzie porażka. Pierwszym krokiem jakiejkolwiek analizy takich danych musiałoby być ich uporządkowanie. Nawet po tym algorytm próbujący rozpoznać informacje nie będzie...
Np formułą jak w załączniku. Edycja: poprawka formuły [syntax=text]=JEŻELI(CZY.BŁĄD(ZNAJDŹ(JEŻ... "&D$2&" ";A2)=DŁ(A2);" "&D$2;D$2&" ");D$2);A2));"niedostępny";"dostępny")[/...
Nie dam za to głowy, ale wydaje mi się, że foxpro posługiwało się formatem dBase. Bazę można zaimportować do accesa, jeżeli baza jest niewielka - otworzy ją nawet excel. W sieci znajdzie się też sporo darmowych narzędzi, które sobie z tym poradzą.
Spróbuj takiej formuły: =WARTOŚĆ(FRAGMENT.TEKSTU(A1;ZNAJ... andie
Zadanie polega na tym żeby skopiować z arkusza nr 1 (Data), tylko te kolumny z którymi pokrywają się nagłówki znajdujące się w arkuszu nr 2 Zadanie polega na tym czego nie dopowiedziałeś. Czy kopiowane mają być wszystkie, czy tylko wyfiltrowane wiersze, jak np. te według "Kolekcja/Seria", wyfiltrowane po "Casual" ? Wyfiltrowanych jest 4 062, a nie...
Potrzebuje pomocy. Potrzebuje makra, które zrealizuje mi coś takiego - otwiera automatycznie dwa dokumenty - jeden jako dokument xls drugi jako txt. To mi działa. Chciałbym aby z pliku txt z komórki A2 szukał jej w pliku xls po komórkach A i jeżeli znajdzie pasujący wynik to wklei zawartość w pliku txt do xls ale od kolumny B. Prawda jest taka, że nie...
"=RC Tak Nie wiem jeszcze czy okaże się szybsze, ale warto spróbować. Jeżeli podłączysz makro pod skrót klawiszowy (obsługiwany jedną ręką), np w stylu CTRL+D to wbrew pozorom będzie to szybsze niż to co teraz robisz. A szybciej nie osiągniesz nic więcej bo przecież też żeby wkleić wciskasz ctrl+v. Po prostu stajesz myszką na danej komórce, wciskasz...
Zamieść, jak i tak już się namęczyłeś :) Co robi program jak znajdzie identyczny cały wiersz? A jak znajdzie trzy takie same?
Tu znajdziesz wszystko http://www.planet-source-code.com/vb pozdr. dioda dla ułatwienia http://www.planet-source-code.com/vb/scr...
Witam raz jeszcze, Mam nadzieję, że piszę już po raz ostatni w tym temacie, ale nie daje mi on spokoju, ponieważ makro traktuje wszystkie procedury jako True. A sądząc z warunku If, jeśli nie znajdzie odpowiedniego wymiaru w tabeli, to powinno być False. Nie wiem też czemu po podświetleniu w kodzie słowa knyps, zawsze wyświetla się knyps=True, a moim...
Widzę, że praca wre... Uchował mi się formularz z filtrowaniem, który jest gdzieś na forum (nie chce mi się szukać). Dostosowałem, dorobiłem wyszukiwanie. Przetestuj, a nuż się nada. Przy inicjacji pobierane są listy ze wszystkich arkuszy, po czym przy przepisywaniu tablic usuwane są duble. Funkcja WYSZUKAJ.PIONOWO znajdzie oczywiście pierwszą z góry...
Dokładnie takiego samego to chyba nie znajdziesz (czyjaś praca). Mnie się udało znaleźć jeden podobny arkusz (aktywny do wypełnienia) ale to też jest czyjaś praca. Tak że szukaj w internecie aktywnego arkusz .xlsx i sam dostosuj do swoich potrzeb. https://obrazki.elektroda.pl/1875457600_...
Raczej na pomoc, gotowca nie chcę. [url=https://www.google.pl/webhp?sourcei... Nie jestem wcale złośliwy. Pocztaj, popróbuj i się zgłoś z pytaniami o pomoc. Na pewno znajdą się osoby chętne do pomocy. Pozwolę sobie doradzić, że w tabeli z miesiącami proponuję w danym miesiącu dwie kolumny...
Jeżeli możesz umieścić wynik w innej kolumnie niż B to wystarczy formuła: =JEŻELI(DŁ(B2)<=6;B2;(ZASTĄP(B2;SZUKA... Pod warunkiem, że 1.250,00 to 1250. Jeżeli trzeba podstawiać w tej samej kolumnie, to można tę formułę przekształcić w makro, zapętlić, postawić warunki itd Dodano po 4 Eeeh, coś mnie naszło i zrobiłem coś takiego...
Dzień dobry, Nie trzeba makra, wystarczą funkcje WYSZUKAJ.PIONOWO lub PODAJ.POZYCJĘ. Wyszukiwane dane należy połączyć w pary operatorem złączenia tekstów & i wprowadzić funkcje jako tablicowe Ctrl+Shift+Enter. WYSZUKAJ.PIONOWO zwróci szukany wyraz (jeśli go znajdzie) lub błąd #N/D! jeśli nie znajdzie. PODAJ.POZYCJĘ zwróci położenie znalezionego wyrazu...
w komurce obok tej w ktorej wybierasz wartosc, klikasz na funkcja, następnie szukasz funkcji o nazwie "wyszukaj", wybierasz ją, i zaznaczasz - "szukana_wartość;przeszukiwany_wektor;we... następnie ok, wskakuje okno argumenty funkcji. W polu "szukana_wartość" podajesz adres bezwzględny (taki u mnie lepiej działał np. $a$1) komórki w której...
No cóż, drygu do formułek to takiego nie mam jak kolega Prot , natomiast makrem to tak, jak poniżej w pliku, no i takie zgrabne to to nie jest .. : / ... : ) ... 907466 Starałem się uwzględnić tutaj "stan nieustalony", tzn. sytuację kiedy " tak dostawy2 " może znajdować się albo pod " tak dostawy1 ", albo po przekątnej od niej. 907467 Poza tym, lepiej...
Ku...rcze działało itd ale pracowałem na otwartym pliku z internetu i co z tego że zapisałem............ Jutro jak znajdę czas to powtórzę.
(at)skritland , dziękuje za podpowiedź. Poczytałem na temat funkcji "shell" i udało mi się wywołać przykładowe programy za pomocą makra: Sub Makro1() Dim varID varID = Shell("C:\Program Files (x86)\Program XYZ\program XYZ.exe") End Sub Program, który chcę uruchomić za pomocą makra w Excel'u konwertuje pliki znajdujące się w folderze: C:\ultra z formatu...
Wczytuje dane ze wszystkich plików tekstowych znajdujących się w tym samym katalogu, co plik Excela: [syntax=vb] Sub ddd() Dim wiersz As Integer Dim wielkosc As Integer Dim lInputFile As Variant Dim linia As String Dim i As Integer Dim tekst As Variant Dim opis As String wiersz = 1 Dim plik_txt As String plik_txt = Dir(ActiveWorkbook.Path & "\*.txt")...
Jeśli chodzi o pobieranie danych i ich sortowanie, to można by to tak zrobić jak w pliku poniżej (jeden z wielu wariantów): 964013 W kodzie praktycznie brak obsługi błędów, więc bierzesz odpowiedzialność za rzetelność swoich danych, będą chińskie albo złe formaty daty, makro się wywróci, będziesz sabotować własne działania w obróbce danych, makro się...
znajd tekst delphi znajd znajd iphone
kanał niemiecki tranzystor to220 przegrywanie kaset
przesterowanie wejścia tunera wsady biosu
Kawasaki EN 500 nie reaguje na gaz - przyczyny i diagnostyka New Holland T5.100: Błąd 2583 - Przyczyny i Diagnostyka