Sprawdź czy o to chodziło. Jeśli faktycznie druga procedura ma kopiować "wiersze powyżej", to oczywiście nie zawsze będzie ich 15, bo wyszukiwana wartość może zostać odnaleziona w wierszu, powyżej którego nie ma 15 wierszy. Załączona procedura w takich przypadkach kopiuje wartości począwszy od wiersza nr 3 do wiersza wyszukanego. [syntax=vbscript] Option...
Znajdz "formularze", wyswietli sie formatka z min. przyciskami. Tworzysz przycisk a nastepnie przypisujesz do niego makro.
[syntax=vb][/syntax] Witam wszystkich Forumowiczów, Jest to mój pierwszy post na tym forum jednak od jakiegos czasu sledze watki na elektroda.pl . Jednoczesnie przepraszam za brak polskich znaków. Poszukuje kodu VBA do znalezienia pierwszej wolnej komórki w zakresie a nastepnie wklejenie do tej komórki w kolumnie A tego co znajduje sie w schowku . Powyzsze...
Bardzo proszę o pomoc w napisaniu makra, które będzie kopiowało dane z wybranych komórek arkusza „Zadania” do wybranych komórek arkusza „Plan zadań”, tzn.: Z arkusza „Zadania” z komórki: z komórki "Temat" do komórki "Zadania" ze "Data rozpoczęcia" do "Data od" z 'Data ukończenia" do "Data do" z 'Data wykonania" do...
nie podpowiem ci nic odnosnie makro, ale powiem jak ja uzyskalbym taki rezultat bez zadnego bawienia sie w makro 1 zainstaluj programmers notepad, jest darmowy 2 skopiuj tresc z excela do notepada 3 i teraz magiczne opcje znajdz wszystkie i zamien "PZ" > "PZ ", z wyrazem NA zamienic musisz "NA" > " NA " Tym sposobem w sekunde rozdzilisz sobie wszystkie...
Witam.Potrzebuję zmienić funkcje tego makro aby sprawdzało 6 pierwszych znaków numerów w kolumnie i nie usuwało podobnych(teraz nie kasuje tylko identycznych .Czy ma ktoś pomysł jak to zrobić? Sub wyszukaj_numery() ' ' wyszukaj_numery Makro ' ' Otworz plik z lista numerow Workbooks.Open Filename:="C:\Users\lista numerow.xls" ' Policz niepuste wiersze...
Witam, Myślę nad zrobieniem czegoś w stylu wyszukaj.pionowo + zamień, dla tekstu zawartego w jednej komorce. Chodzi o to że z innego skoroszytu chce wyciągać wartości odpowiadające tekstowi zawartemu w powiedzmy komórce C1. Nie byłoby w tym nic trudnego gdyby w tej komorce znadowal sie tekst tylko dla jednego rekordu a wynik wyszukaj pionowo mialby...
Używam PICKIT3 więc debugowanie raczej odpada A to co za ciekawostka? Niby dlaczego? najlepszym rozwiązaniem byłoby podciągnięcie wej do Vcc (pull-up) , ale nie znalazłem takiego makra To znajdz w DS MCU którego używasz odpowiednie rejestry i użyj ich. Nie ma obowiązku używania makr. świecą się dwie diody RD1 i RD2. No tak, jak już wyjście ustawisz,...
Znalazłem coś takiego: 481253029113, tyle że nie wiem, czy to na pewno ten. Tak, to ten. Lepszego wężyka nie znajdziesz :D
ogólnie makrofotografia opiera się na dążeniu do jak największego powiększenia, dalej zwanym skalą odwzorowywaniem :) jakie szkło? hmm... w tym przedziale cenowym nic ciekawego niestety nie znajdziesz. Dobre szkła warte uwagi kosztują ponad 1000zł pierścienie pośrednie to dodtatek, a kupisz 50mm/1.8 co jest podstawą każdego fotografa! Pooglądaj sample...
Chcę zrobić makro które wyszuka dany fragment tekstu i zamieni go na podany w danej komórce. Nagraj sobie makro z przeprowadzania procedury systemowej "zamień (ctrl+H)" i w odpowiednie miejsca wprowadź swoje comboboxy :idea: Wszystko rozumiem, ale "zamień (ctrl+H)" w "znajdz" wpisuje szukana frazę i w "zamień na" w co mam wpisać ? chcę aby znajdował...
niestety u mnie po uruchominiu makra sie nic nie dzieje Pracuje na niemickim excel. Jesli chodzi o funkcje to musze tez niemickich uzywac np zamiast znajdz.pionowo - sverweis
[syntax=vbscript]Sub Znajdz() x = 1 y = 1 szukaj = "wtorek" a = Application.Match(szukaj, Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) If Not IsError(a) Then b = Cells(a + 1, 1) Set p = Workbooks.Open(ThisWorkbook.Path & "\Plik2.xlsx") Sheets(1).Cells(x, y) = b p.Close True End If End Sub [/syntax]
Można. Służy temu instrukcja Call. Przykład:[syntax=vb]Sub Przycisk() Call Makro1 Call Makro2 End Sub[/syntax]Makra umieść w module standardowym. Będą działać w aktywnym arkuszu. Jeśli ma być inaczej musisz adresować precyzyjnie (z nazwą arkusza). Sheets("Nazwa").Cells(wiersz, kolumna)
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...
https://obrazki.elektroda.pl/7932690900_... Ci, którzy czytali Docelowo chciałbym by ta seria poradników pozwoliła elektrodowiczom nie tylko na robienie lepszych zdjęć makro, ale też lepszych zdjęć prezentujących ich projekty. Być może niektórzy z czytelników zarażą się bakcylem fotografii wykraczającym poza tematykę tych poradników......
problem w tym, że nie można klepnąć gwiazdki zamiast spacji bo te teksty są już wpisane a szablon jest naprawdę niemałych rozmiarów... można oczywiście dać "znajdż i zastąp", ale wtedy i tak nie doda gwiazdki na początku i końcu wyrazu. Co do Makra to niestety sprawdzić nie mogę bo nie umię się tym posługiwać :( Dziękuję koledzy za MEGA szybką odpowiedź...
Mam pewien problem z lastRow. Napisałem poniższe makro do przeszukiwania wszystkich arkuszy w celu znalezienia "szukanej". W każdym arkuszu makro szuka od wiersza 7 do lastRow. I tu mam problem taki, że jak w Sht 1 lastRow = 7 ,a w Sht 2 lastRow =2 i załączę makro w Sht 2 to makro przeszukuje mi także w Sht 1 tylko 2 wiersze. Rozumiem to, ale szukam...
Proponuje takie makro odpal Alt+F11 w oknie VBAProject wybierz arkusz na którym pracujesz i wklej poniższy kod Public Sub znajdz() Dim i As Integer Dim j As Integer For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row For j = 2 To Cells(Rows.Count, 3).End(xlUp).Row If Cells(i, 1) = Cells(j, 3) Then Cells(i, 2) = Cells(j, 4) End If Next j Next i End Sub a...
Tu znajdziesz rozwiazanie http://blog.actuary.pl/2010/01/zegarek-n...
Najprościej byłoby umieścić w tablicy/kolekcji i posortować (chociaż 'selecteditem' jest kolekcją, można więc spróbować sortowania "w locie").[syntax=vbscript]Dim fd As FileDialog Dim tablica As Collection Set tablica = New Collection Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH")...
Zobacz makro z przykładowego załącznika. Jest pewnie dalekie od ideału i ze względu na to, że wrzuciłem tam pewnie kilka założeń za dużo, to się trochę zbędnie skomplikowało. Optymalne szczególnie też nie jest, ale brak wszystkich możliwych założeń uniemożliwia jakiekolwiek optymalizacje. Makro powinno sobie poradzić z dowolnym formatem daty, o ile...
[syntax=vb]Sub Znajdz() ostw = Cells(Rows.Count, "A").End(xlUp).Row For x = ostw To 1 Step -1 If Cells(x, 1) >= Cells(1, 3) Then Cells(1, 4) = Cells(x, 2) Next End Sub [/syntax] P.S. "Zależy mi na tym, aby obejść się bez makra. " Niedoczytałem...
Dziekuje za szybka odpowiedz. Chodzi mi tu raczej o cos w stylu znajdz->zamien->skopiuj do odpowiedniej komorki. Poczatkowo wprowadzam dane, ktore maja zostac odnalezione i na jakie dane zamienione, a potem te zamienione dane wpisac w odpowiednie komorki. Nie zawsze kody wygladaja tak jak przedstawilem. Czasem kod wyglada tak CORRI-BLRE-BRAS075DD. W...
sprawdziłem i działa! Dziękuje Mam już chyba ostatnie pytanie... najprościej ujmując po wykonaniu wyszukiwania zgodnie z ID dane przerzuca mi do arkusza wyszukiwanie... chciałbym następnie dane z tego arkusza skopiować do dwóch innych np do "arkusz1" oraz "arkusz2" zgodnie z kryterium: jeżeli w komórce F wpiszę "ok" to przerzuca mi dane dla tego wiersza...
Spróbuj pośrednio: Znajdz jakis program a'la PDFTransformer (ten nie jest darmowy) i przekonwertuj wszytkie pdfy do innego formatu, najlepiej txt. Potem mozesz albo odrazu napisać program, który ci z tego txt wygarnie dane, albo pokusić się np o masowe importowanie do programu a'la Excel i napisanie makra które przekonwertuje dane i na końcu wygenerowanie...
Tutaj bez sortowania: [syntax=vbscript]Sub Szukaj() Set a = Sheets("Arkusz1") Set b = Sheets("Arkusz2") ow = a.Cells(Rows.Count, "A").End(xlUp).Row Set r = b.Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) y = 1 For x = 1 To ow s = a.Cells(x, 1) If Application.CountIf(r, s) = 0 Then a.Range("A" & x & ":B" & x).Copy b.Cells(y, 5) y = y + 1 End If...
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ż...
Witam, Zaczęłam korzystać z makr, uczę się ich pisać na wlasne potrzeby, są one jak narazie bardzo proste. Niestety mam problem, który mi przerósł. Mam gigantyczną bazę danych w excelu stworzyłam makro które działa ale bardzo długo I na poczatku wszyscy się cieszyli ze sami moga sobie korzystac z pliku I dostawac konkretne informacje, teraz narzekaja...
Próbujesz w OpenOffice uruchomić makro napisane w Excelu? Nie będzie działać. Trzeba przepisać. Mnóstwo informacji znajdziesz w Internecie. Tu przykład makra wydruku z zapisaniem "oryginał/kopia": http://obrazki.elektroda.pl/5534132900_1... Generalnie nie jest to trudne. Trzeba "złapać". Zakres C7:C10 aktywnego arkusza w VBA zapisujesz...
Witam szanownych kolegów. ponad rok temu i ja walczyłem przy budowie lamp studyjnych. chciałem rozwiązać problem płynnej regulacji mocy błysku, niestety zabawa skończyła się na spaleniu kilku tanich mosfetów (być może były źle wysterowane) i w tym miejscu kieruję swoje pytanie do kolegi szymwala, jakiego użyć IGBT do kondensatorów o pojemnośći 6mF....
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...
Witam Jezeli chodzi o sterowniki s7-300; s7-400 to STEP7 natomiast s7-200 w programie MicroWin Do s7 można jeszcze użyć IBH Softec ale mało kto z niego kożysta Wiecej znajdziesz na tej stronie http://support.automation.siemens.com/WW...
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
W sumie każdy rodzaj termowizji pozwoli zlokalizować miejsce wzrostu temperatury. Te tanie pokażą, że coś w pewnym miejscu jest cieplejsze. Te drogie pokażą więcej informacji z większą rozdzielczością. To co pokazałeś ma przetwornik o rozdzielczości 32x24, mało, ale jak się postarasz, to znajdziesz przegrzane miejsce. Używam okazyjnie kupioną kamerę...
Żaden ze mnie ekspert ale może poniższa próba rozwiązania przeze mnie przedstawionego problemu, będzie podstawą do dalszych eksperymentów ;) [syntax=vb]Sub fascynat_help() '10.05.2013 r. Dim PozPocz As String Dim PozKonc As String Dim ObszarZamiany As Range Dim Dokument As String Dim ZnajdzStart As Long Dim ZnajdzStop As Long Dim ZnajdzNast As Long...
[syntax=vbscript]Sub ZnajdzPole() ' ' ZnajdzPole Makro ' Puszkiwania {pola edycji} ' a = Selection f = False If Len(a) > 0 Then If Left(a, 1) = "{" And Right(a, 1) = "}" Then f = True If Left(a, 1) = "|" And Right(a, 1) = "|" Then f = True End If If Not f Then Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1...
To w pętli, to pusty pierwszy warunek, czyli liczba rozpoczynająca równa jest 0. Tylda to negacja, wszystkie takie "pierdółki" znajdziesz w dowolnym kursie C , niekoniecznie dla mikrokontrolerów. A _BV(n) to makro - oznacza to samo, co (1<<n) . Pozdrawiam, Daniel
Witam! Mam problem z poprawnym działaniem mojego makra. Zadaniem makra jest skopiowanie zakresu danych z arkusza "faktura" do innego skoroszytu o nazwie rejestr2 arkusz "Rejestr". Kopiowane dane mają być wklejane do pierwszego wolnego wiersza. Poza tym trzeba sprawdzić czy faktura o danym numerze już istnieje w rejestrze. jeżeli istnieje to ma się wyświetlić...
https://obrazki.elektroda.pl/8567963000_... Witam i przedstawiam kolejny mój projekt. Tym razem z obszaru innych moich zainteresowań. Stacker dla osób, które nie są w temacie pozwala na robienie serii zdjęć makro. W zależności od obiektu mogą to być zdjęcia makro robione typowym obiektywem ze skalą odwzorowania 1:1, np. grzybów, kwiatów...
[quote="Makro1993"]Przecież kolega wyżej wszystko wyjaśnił. Witam. Czytałem co kolega wyjaśniał ,ale to nie jest przyczyna żeby nie napisać o swoich problemach.Może znajdzie się ktoś kto znajdzie lekarstwo na ten problem. Pozdrawiam
Myślę że dobrym wyborem na początek będzie Canon Powershot A480. W tej cenie raczej nic lepszego nie znajdziesz. Ma niestety trochę "zabawkowy" wygląd, ale łatwo mieści się w kieszeni. Zasilanie - 2 baterie AA (możesz zaopatrzyć się w akumulatory, polecam kupić od razu akku Sanyo Eneloop z ładowarką w komplecie). Ma złącze na tanie karty SD, funkcje...
A nie dostałeś jeszcze odpowiedzi na Twoje zgłoszenie problemów do autora kodu ? :D Wydaje mi się, że ja mam dość bujną wyobraźnię :ok: , lecz nie mogę sobie wyobrazić tabeli przestawnej z tych Twoich danych :cry: Spróbuj sam zbudować tabelę przestawną "na piechotę" - przy użyciu narzędzi tabel przestawnych - może znajdziesz wówczas przyczynę problemów...
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
Oczywiście, że funkcji takiej nie ma, bo jest to makro. Musisz otworzyć edytor makr w excelu (Visual Basic) i tam w moim przykładzie znajdziesz funkcję. Ogólnie możesz w edytorze Visual Basic dodać do Twojego arkusza nowy moduł i wkleić w nim definicję funkcji: [syntax=vb]Function NDay(exclude As Range, prev As Date) As Date Dim flag As Boolean Dim...
1. void ReadEncoder(); #define GLUE(a, b) a##b #define LEDPORT1(s)GLUE(PORT,s) #define LEDPORT LEDPORT1(LED) #define LEDDDR1(s)GLUE(DDR,s) #define LEDDDRLEDDDR1(LED) a) Co to jest? Coś jak podprogram? Ale dlaczego zakończony średnikiem? Pierwsza linia to deklaracja funkcji, dalsze linie...
Nie podważam żadnego z profesorów (Którzy równie dobrze mogą być podstawieni) a podważam istnienie planety która nagle miała by się znaleźć na tyle blisko ziemi żeby tak poważnie zaburzyć jej magnetyzm. Pomijając już fakt że taka planeta musiała by być doskonale widoczna z ziemi. Już teraz. Postawionych... no proszę tam są nazwiska i to nie byle jakie???...
Witam wszystkich, mam drobny problem, mam pewne makro które ma za zadanie zapisac istniejący plik, przejść do drugiego pliku "Rejestr", w Rejestrze odszukać konkretny numer, w linijce z konkretnym numerem zmienić wartość jednej z komórek, oraz na końcu zamknąć plik z którego zostało uruchomione makro. I wszystko działa do chwili aż makro nie zamknie...
jest to moje pierwsze makro, które chciałbym napisać i je zrozumieć Na ogół brak na tym forum profesjonalnych dietetyków :cry: również w Office nie znajdziesz informacji w tym zakresie :| Jeśli posiadasz jakąkolwiek wiedzę na ten temat - to musisz przygotować projekt pliku Excel z arkuszami ujmującymi te specyficzne dane (np. tabela kaloryczności określonych...
Nie piszesz jakie masz soczewki dodatkowe. ...aparat Olympus E520 ze standardowymi obiektywami i dokupionymi soczewkami makro. Soczewki te jednak bardzo zniekształcają fotografowany obraz... Więc raczej nie ma to znaczenia. ;) Co do DCR'a fajny konwerter jednak jestem wyznawcą zasady, że jednak zaprojektowany jeden zespół optyczny da lepsze efekty...
znajdz telefon znajdz uzytkownika znajdz urządzenie
sypać proszek multimedialne okulary stacje pogody działanie
rowenta suszarka instrukcja kalibracja
Samsung RV511 – czarny ekran po wymianie klawiatury, działa z monitorem zewnętrznym Audi A1 – jak utrzymać tarcze hamulcowe bez rdzy? Powłoki Brembo UV, ATE Coated, Zimmermann Coat Z
