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...
Kasiu, Funkcję Zaokr(Liczba, IlośćPoPrzecinku) użyj tam, gdzie Ci 'nie pasuje'. Ja już wymiękam. Może Irek, albo JRV znajdzie chwilę.;)
Chciałbym również spróbować wymienić łożyska, ale po przeczytaniu różnych wątków i odpowiedzi dowiedziałem się, że mogą być różne rodzaje. Czy najlepiej najpierw zdemontować stare łożyska i poszukać na nich oznaczeń? Czy na łożyskach zazwyczaj znajdują się jakieś informacje? Tak, łożyska są opisane. Jeśli prześledziłeś ten wątek, to pewnie zauważyłeś,...
Ż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...
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]...
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...
Potrzebujesz jakiejś funkcji która zwraca to konto czy wystarczy Ci, że szybko je znajdziesz ręcznie? Jeżeli ręczne wyszukiwanie wystarczy, to można założyć autofiltr i na kolumnie konto ustawić "nie równa się 490" a na kolumnie "Nr w dzienniku" wpisać szukany numer.
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ą...
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...
Zastosuj kolumnę pomocniczą, w której znajdzie się pierwsza litera nazwiska. Dalej zwykłe LICZ.JEŻELI...
Witam, mam problem z głośnikami. W wejściu została urwana wtyczka z kabla, którym podłączane były do komputera. Moje pytanie jest następujące: gdzie znajdę do kupienia coś takiego? (patrz zdjęcie). http://obrazki.elektroda.pl/6195458500_1...
Filtrować, sortować swobodnie ze zdjęciami wklejonymi do arkusza ? Lekka pomyłka, nie będzie to swobodne. Poza tym po co vba, jak można to zrobić na funkcji "Hiperłącze" ? [syntax=dos]=HIPERŁĄCZE("Zdjęcia\" & D2 & ".jpg";"Zdjęcie")[/syntax] Jeśli plik z w/w funkcją będzie się znajdować w katalogu, w którym będzie również podkatalog "Zdjęcia" ze zdjęciami...
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...
Witam, Zwracam się z prośbą o pomoc w następującej sprawie, otóż potrzebuję usunąć dane, które znajdują się poza zakresem wydruku. Czy można to wykonać z poziomu Excela czy jest makro? Mam kilka arkuszy i chodzi o to aby nie zaznaczać kolumn i wierszy z poza zakresu wydruku i wówczas usuwać zbędne dane. Z góry dziękuję za pomoc
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...
Musi obsługiwać twoje piloty, na ich stronie znajdziesz bez problemu.
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)...
A sorka niezauwazyłem ze temat tak sie rozwinoł! jutro sprawdze na magazynie czy mamy te kosci pamieci a jak nie to cała centrala sie znajdzie! A ile Ci krzykneli za naprawe?
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ć...
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...
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ą.
...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.
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
a jakiś schemat do tego prostownika jak myśliscie znajdę gdzieś ?
http://swannman.github.io/pdf2gerb/ http://chomikuj.pl/MiniPLC/PDF+to+GERBER Strona 1 Pdf2Gerb 1.6 1 z 11 Spis treści 1. Przegląd ........................................... ........................................... ................................. 1 2 Instalacja / konfiguracja ........................................... ...........................................
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 :)
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
Zamień wszystko nie interesuje ile jest kolumn i gdzie są dane. Zamienia co znajdzie.
[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]
Dwie rzeczy: 1. [syntax=vb]Application.ScreenUpdating = False[/syntax]na początku makra i[syntax=vb]Application.ScreenUpdating = True[/syntax]na końcu. 2. Zamiast 100 razy pisać: [syntax=vb]wscel.Cells(wstaw, 2) = wsbaza.Range("B" & c.Row) wscel.Cells(wstaw, 3) = wsbaza.Range("C" & c.Row) ...[/syntax](swoją drogą: że też Ci się chciało...) zrób: [syntax=vb]wscel.Range("B"...
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ć
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,...
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
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...
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...
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...
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...
Witam Mam mały problem z makrami, sam nie potrafię sobie poradzić i mam nadzieje, że znajdzie się tu ktoś, kto mi pomoże Ale o co chodzi? Mam makro w Wordzie (Office 2007, odniesienie do biblioteki Excela): [syntax=vb] Sub dane() Dim objExcel As New Excel.Application Dim exl As Excel.Workbook Set exl = objExcel.Workbooks.Open(ActiveDocument.P... & "/excel.xls")...
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...
Myślę, że tą formułkę można trochę uprościć: =JEŻELI(KOMÓRKA("filename&q...
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ł...
No właśnie przeliczanie arkusza nie chce działać. spróbuje z opcją ThisWorkbook.RefreshAll chyba że jeszcze jakiś inny pomysł ktoś znajdzie ?
Mam problem w Visual Basic, nie potrafię napisać funkcji która przeszukiwałaby skoroszyt w poszukiwaniu wartości I liczbowych i zwaracałaby je zwiększone o 2 po prawej stronie. Jeśli ktoś by wiedział jak to zrobić I to zrobił/wytłumaczył będę wdzięczny
Witam! -szukałem dzień cały rozwiązania, i w końcu piszę. Mam taki oto dylemat: Chcę aby program otwierał dowolny plik *.xlsx w miejscu w którym się znajduje on sam. Moje rozwiązanie wygląda tak: FindFirst('*.xlsx', faAnyFile, znaleziony) ; Excel:= CreateOleObject('Excel.Application'); Excel.Workbooks.Open(znaleziony.name); // <--tu wywala błąd Błąd:...
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")[/...
KiCAD jak wynika z jego dokumentacji umożliwia tworzenie plików produkcyjnych w formacie Excellon i Gerber RS274-X, dokładniej w formacie 3:4, co oznacza iż każda koordynata w pliku opisana jest za pomocą siedmiu cyfr, z których trzy cyfry znajdują się przed przecinkiem, a pozostałe cztery cyfry znajdują się po przecinku. Także program Design Spark...
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
Funkcja SZUKAJ.TEKST rozpoznaje znaki wieloznaczne takie jak * i ?, stąd problem z jej użyciem w przypadku gdy poszukujemy faktycznie gwiazdki, a nie dowolnego znaku. Gdy szukamy literalnie gwiazdki, należy ją poprzedzić znakiem tyldy (~). Ten problem nie występuje gdy używamy funkcji ZNAJDŹ, gdyż ona nie rozpoznaje znaków wieloznacznych. Poza tym funkcje...
Spróbuj takiej formuły: =WARTOŚĆ(FRAGMENT.TEKSTU(A1;ZNAJ... andie
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...
[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...
Wszystko zależy jak masz ustawiony w systemie odczyt i wydruk plików *.pdf Zerknij na ten temat https://www.elektroda.pl/rtvforum/topic3... Sam wydruk pliku *.pdf z Excela można uzyskać np. komendą Shell druk = Shell("c:\sciezka do programu\Acrobat.exe /t d:\sciezka\plik.pdf") To oczywiście duże uproszczenie, trzeba...
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...
Znajdzie się ktoś pomocny? :)
Zamieść, jak i tak już się namęczyłeś :) Co robi program jak znajdzie identyczny cały wiersz? A jak znajdzie trzy takie same?
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
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.
Witam Próbuję odwołać się do procedur z poziomu vba, ale powstaje błąd 449 arument not optional i nie bardzo wiem co z tym fantem zrobić. Chciałbym, żeby procedury były wykonywane dlatego odwołuję się do nich za pomocą Call. Może coś robię nie tak, dziękuję za każdą pomoc, kod wygląda tak: Błąd występuje w linii Call OpenEcxel. Te procedury znajdują...
https://pl.wikipedia.org/wiki/Imieniny Ctrl+c Ctrl+v do Excela No a dalej, jestem przekonany, sobie poradzisz ;)
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.
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,...
Być może dane do zamiany są w arkuszu chronionym Faktycznie taki komunikat wyskakuje kiedy arkusz (albo poszczególne komórki), albo cały skoroszyt jest chroniony :cry: Sprawdź funkcje znajdź jeżeli taką wartość lub formułę znajdzie :arrow: to wniosek nie masz prawa zmieniać tej komórki :D
A jak są nazwane pliki z ankietami? Gdzie je zapisujesz, jeżeli mają taką samą (mozliwe?) nazwę? Czy jest jakaś struktura katalogów? I Ile tych ankiet będzie mniej wiecej? Może nie warto zbytnio kombinować z monitorowaniem tylko wczytać wszystko dopiero jak będzie potrzebne? Makra działają dosyc szybko. Mam gdzieś gotowca łączącego pliki Excela. Sama...
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...
Zamieszczam jeszcze raz listing funkcji ze szczegółowym komentarzem [syntax=vbscript]Function Osobno(x As String) Dim ch As String 'znak w ciągu tekstowym Dim list 'formalna deklaracja zmiennej typu Variant 'która będzie pełnić funkcję tablicy wynikowej ReDim list(1 To Len(x) + 5) As String 'określenie rozmiaru i typu danych w tablicy 'tablica jest...
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ż...
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ą.
Witam. Jeśli wyrazy są oddzielone tylko spacją, to najprostszym rozwiązaniem będzie użycie funkcji Zamień... (lub Znajdź i zamień w OpenOffice). W polu Znajdź.... wstaw jedną spację, natomiast w polu Zamień (na)... wstaw spację i znak "+" bez cudzysłowu. Tak to wygląda w OpenOffice: https://obrazki.elektroda.pl/4391482800_... Pozdrawiam
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...
Czy jest jakaś funkcja która znajdzie kolumne po nazwię nagłówka. Tak jest taka funkcja :idea: 930167
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...
To się baw. Sprawdzanie PESELa znajdziesz w sieci. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$12" Then If Target = "Tak" Then Range(Rows(13), Rows(14)).Hidden = True Else Range(Rows(13), Rows(14)).Hidden = False End If End If If Target.Address = "$C$15" Then If Target = "Tak" Then Range(Rows(16), Rows(17)).Hidden...
"=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...
Witam, bardzo serdecznie:) Makro wysypało mi się teraz trochę w innym miejscu. Niby prosta rzecz do zrobienia, tak mi się wydaje, skopiowanie zakresu pojedynczych komórek i wklejenie ich, żeby stały jedna obok drugiej w jednym wierszu zaczynając od komórki A1 (arkusz Excel). Makro w arkuszu Excel działa i wygląda mniej więcej tak: "Selection.PasteSpecial...
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...
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...
Należałoby przeszukać sąsiadów w wierszu "wierszkontrahenta"... Taki efekt: http://obrazki.elektroda.pl/8119171000_1... uzyskałem przy pomocy [syntax=vb]Sub Szukaj() ilekontrahentow = 20000 ListaFirm = "nazwisko" 'symulacja wartości pola tekstowego wiersz = Worksheets("KONTRAHENT").Range("B3", "B" & ilekontrahentow) _ .Find(what:=ListaFirm,...
Tu znajdziesz rozwiazanie http://blog.actuary.pl/2010/01/zegarek-n...
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...
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...
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...
znajd tekst znajd kopiuj znajd iphone
magnetowid zasilacz mozna podlaczyc akumulator kyocera pojemnik zużyty toner
Citroën C5 X7 – kod transpondera: litery czy cyfry? Format PIN, programowanie kluczy Gorenje IMC1200B – jak wyczyścić tył i układ wodny kostkarki, odkamienianie, czyszczenie dysz
