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...
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...
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
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]
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...
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)
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...
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...
[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...
Nie jestem pewien czy sie to zmiesci do 36 makrocel, ale mozesz sie przygladnac implementacji UART zrobionej dla PicoBlaze . Zrodla znajdziesz na stronach Xilinxa. Jest to prosty ( bardzo ) uklad o niewielkich mozliwosciach, ale dziala i to niezle. Chyba gdzies nawet widzialem implementacje calego PicoBlaze na 256 makrocelach dla kostki CoolRunner2....
Jeśli w liście rozkazowej są np skoki jednakowo pisane (o jednakowym mnemoniku) ale skutkujące innym kodem (rodzaj, zasięg skoku), taki przykład najłatwiej podać. W moim odczuciu (lekko akademickim) ma to cechy kompilacji. Jak jeszcze poszerzymy ogląd na makroassembler, zdecydowanie jest tam więcej kompilacji niż debilnego podstawiania bajt *) za ciąg...
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...
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ż...
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! 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ć...
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...
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...
Skoro chodzi o zbędne spacje wiodące to użyj USUŃ.ZBĘDNE.ODSTĘPY(), potem przekopiuj tylko formaty do wyniku funkcji i masz tak jak trzeba :) Oczywiście kopiowanie formatowania można zrobić w VBA, wystarczy nagrać sobie makro podpiąć pod skrót lub przycisk i po problemie. Tu jeszcze archiwalny temat z podobnym problemem https://www.elektroda.pl/rtvforum/topic3...
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....
Ż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...
Chciałbym żeby automatycznie kolorowały się komórki jak w załączonym pliku. Mianowicie jeżeli w wierszu występuje wyraz 'sob' lub 'ndz' automatycznie pokolorował całą kolumnę. Dorobiłem Ci makro. Znajdziesz go przez Alt + F11. Makro możesz edytować, jednak jego nazwa musi pozostać niezmienna.
[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...
Witam poradziłem sobie z VB w Excel Mam tylko jedno pytanie, bo nigdzie nie mogę znaleźć odpowiedzi lub po prostu źle szukam. Program działa tak, że otwiera mi jakiś plik kopiuje dane wprowadza zmiany i zapisuje w formacie xls. Tak jak wspomniałem mam ok 60 plików. Mam problem z tym, że chciałbym, żeby móje makro nie sypało się gdy nie znajdzie pliku...
[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...
1. Makro "bit_is_set" jest zdefiniowane w pliku nagłówkowym sfr_defs.h. Sprawdza ono czy dany bit w rejestrze mikrokontrolera jest ustawiony. Nie koniecznie musi to być pin (nóżka). Polecam wpisanie w goolach "avr bit_is_set" - w pierwszym czy drugim linku znajdziesz kod tego makra i dokładny opis wspomnianego pliku nagłówkowego. 2. Literówka. Powinno...
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...
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...
Doprecyzujmy: pismo z urzędu jest zwykle na papierze, czy chcesz to zamienić na tekst w Wordzie? Jeżeli tak to temat jest bardzo trudny, są różne kulawe narzędzia (w samym VBA nie słyszałem), ale nie wiem czy wogóle da sie to zrobić. Jeżeli już mamy tekst to trzeba określić w jaki sposób znajdziemy każdy element, który nas interesuje. Jeżeli przy tym...
jak napisać program obliczający sumę 1+1/2 + 1/3 +1/4.... +1/n dla n podanego w polu edycyjnym , wynik pokaż w msg box lub label . Program ma być napisany w języku VBA Oczywiście, poniżej znajdziesz przykładowy kod napisany w VBA, który oblicza sumę ciągu harmonijnego 1 + 1/2 + 1/3 + ... + 1/n, gdzie n jest liczbą podaną przez użytkownika. Kod ten...
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...
Chciałbym również aby był on powiązany w poszczególnych komórkach z plikiem zbiorczym projektów. Powiązania miałyby być dwustronne . Proponuję przygotuj jako załącznik do swojego postu przykładowe pliki (szczególnie z tym "dwustronnym" powiązaniem :please: ) to można będzie Ci coś podpowiedzieć :D (VBA ma wielkie możliwości, ale to nie jest magiczna...
znajdz uzytkownika znajdz telefon znajdz urządzenie
system dozowania potencjometr wzmacniacz unitra czujnik zbliżeniowy diody
radio voice kraft zasilacz laboratoryjny
Odblokowanie pełnego zakresu częstotliwości Baofeng BF-A58 System operacyjny nie skonfigurowany do aplikacji - rozwiązania
