Jeśli adresy w podglądzie są prawidłowe, to podstaw kopiowanie. [syntax=vbscript]Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Arkusz2") wdst = 3 With ws For w = 2 To 812 Step 6 For k = 11 To 24 Step 3 'podgl = Range(Cells(w, k), Cells(w, k + 2)).Address(0, 0) & " kopiuj do " & Cells(wdst, 8).Address(0, 0) .Range(.Cells(w, k), .Cells(w, k +...
[syntax=vbscript]Sub DoBazy() kol = Application.Match([C3], Sheets("Baza").Range("A1:GR1"), 0) If Not IsError(kol) Then For i = 1 To 260 Worksheets("Baza").Cells(i, kol) = Worksheets("DoBazy").Cells(i, 3) Next i MsgBox ("Dane dla daty " & [C3] & " zostały skopiowane") Else MsgBox "Brak danych." End If End Sub [/syntax]
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...
Uruchom poniższy kod w aktywnym Arkuszu3 [syntax=vb]Sub z() Dim iLstRw% Dim iLstNmRw% Dim rRng As Range j = 3 With Sheets("Arkusz1") iLstNmRw = .Cells(Rows.Count, 6).End(xlUp).Row Set rRng = Range(.Cells(6, 6), .Cells(iLstNmRw, 6)) End With iLstRw = Cells(Rows.Count, 1).End(xlUp).Row For i = 7 To iLstRw rRng.Copy Destination:=Cells(j, 9) Range(Cells(j,...
"#N/A" - to jest angelskie, w VBA tak ma byc, N/D(w komorce) myslim ze narodowe(Local)
Ustaw w oknie właściwości pola pozycję "Locked" na True. Automatycznie szarzeje zdaje się tylko w Accesie. Ustaw ręcznie lub warunkowo w kodzie formy.
Zaczynając od wiersza 2 wykonujesz pętlę dopóki w A jest niepuste. Czyli np. jakoś tak:[syntax=vbnet] Sub Sumowanie() Dim Y As Long, S As Double Y = 2: S = 0# Do While Cells(Y, "P") <> "" If Cells(Y, "P") <> 0 Then S = S + Cells(Y, "P") Else Cells(Y, "R") = S: S = 0# End If Y = Y + 1 Loop Cells(Y - 1, "R") = S MsgBox "Gotowe" End Sub [/syntax]
Bez sprawdzania [syntax=vbscript]Dim kom As Range For i = LBound(tblArkusze()) To UBound(tblArkusze()) With Sheets(tblArkusze(i)) Set rngTmp = .Range("O2:O" & Cells(.Rows.Count, "B").End(xlUp).Row) With rngTmp.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$BY$2:" & Range("BY2").End(xlDown).Address...
Może tak: [syntax=vbscript]Sub Duplikaty() Application.ScreenUpdating = False ow = Cells(Rows.Count, "A").End(xlUp).Row For w = 1 To ow For k = 1 To 8 If Cells(w, k).Interior.ColorIndex = 6 Then Cells(w, "K") = "Puste pole" If Cells(w, k).Interior.ColorIndex = 3 Then Cells(w, "K") = "Dulikaty" Next Next Application.ScreenUpdating = True End Sub [/syntax]
Niestety dalej się zapętla. A jest możliwość dla osobnego buttona? tak żeby były buttony: Start Stop 1. Niemożliwe, pewnie kod przycisku masz w innym module niż procedurę. 2. To nie jest konieczne.
Witam Widzę tu "czary mary" [syntax=vbnet]Application.DisplayAlerts = False With wkb2.Sheets(2) .Delete End With With wkb2.Sheets(1) .Name = "Lista odczytowa" End With Application.DisplayAlerts = True [/syntax]
takie coś wymysliłem że jeśli ktoś sobie założy filtry to potem skopiuje CRM do innego nowo powstałego arkusza i wtedy bedzie wklejac... ale jeszcze pętle bym potrzebował bo ja zrobilem sobie na A2 A3 A4 tylko tak zeby zboaczyc czy bd chodzic [syntax=vb]Sub drukuj() ' ' drukuj Makro ' ' Klawisz skrótu: Ctrl+Shift+Z ' Sheets("Dane").Select Range("B2:B370").Select...
Masz racje może faktycznie ciężko i spaprałem opis, postaram się to sprawdzić po weekendzie. Jeszcze raz opisuje o co mi chodzi , mam 200 plikow w folderze "dane", w folderze "WZOR" jest plik wzorcowy wzor.xls oraz folder "CEL" czyli jest tak skrypt z folderu "dane" pobiera pierwszy plik to jest otwiera plik np g35.xls kopiuje odpowiednie zakresy komorek...
Witam, mam pytanie jak rozwiązać następujący problem mam komórkę, która przyjmuje określoną wartość np. 4 chciałbym, żeby makro pobrało tą wartość i wykonało jakąś czynność tyle razy ile jest wpisane w tej komórce np: ActiveWorkbook.Sheets("Zes").Activate Range("A2").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If...
Czułem, że trzymasz coś w rękawie ;) Z takim pryszczem poradziłabyś sobie. Spróbuj takiej pętelki [syntax=vb]Sub Merguj() Dim wrs As Long, merg As Long wrs = 1 merg = wrs Application.DisplayAlerts = False Do While Cells(wrs, 1) <> "" If Cells(wrs, 1) <> Cells(wrs + 1, 1) Then With Range(Cells(merg, 1), Cells(wrs, 1)) .Merge .HorizontalAlignment...
wyeksportowania bez pętli Pętla ma zostać. Otwieranie i zamykanie pliku ustaw poza pętlą. Otwieranie przed, a zamykanie po pętli.
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
Będę bardzo wdzięczna za pomoc Na forum jest wiele podobnych przypadków. Proponuję nagrać makro, a następnie użyć metod (pętli) ze wspomnianych przykładów.
Jest w kodzie arkusza (nie w module). Procedur zdarzeniowych oraz 'Private' nie widać w menu 'Makra'.
Przecież już tą kwestię Ci rozwiązałem w makrze kilka pozycji do góry. Chodzi o to makro pracujące w pętli for. Należy tylko podać w pętli for argument jak wiele artykułów ma sprawdzać. Można też to makro rozbudować aby samo sprawdzało ile jest rekordów i zapisywało do zmiennej.
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
Makro + pętla zagnieżdżona.
Załącz plik. Jeśli typ zmiennej jest Variant, nie powinno być tego błędu.
Dzień dobry, Bardzo proszę o pomoc z makrem, potrzebuje pętle które będzie miała za zadania kopiowanie i wklejanie w odpowiednie komórki między arkuszami aktualnie mam napisane makro ale niestety sam nie potrafię jeszcze stworzyć takiej pętli Dodano po 3 Mam już coś takiego ale jeszcze nie jest to co bym chciał osiągnąć Potrzebuje dla następnego wiersza...
Dzień dobry! Potrzebuje kod w makrze Założenia: Będzie powtarzał daną wartość np. 3000 lub tekst w danej kolumnie w askusz1 oraz powtarzał daną wartość np.0000 lub tekst 2 w arkuszu 2
Kod czego ... pętli ... tablicy ? Pętli przecież masz, a tablica niekoniecznie potrzebna, można np. tak (o ile problem poprawnie opisany): [syntax=vbscript]Option Explicit Private Sub CommandButton2_Click() Const pth = "P:\RAPORT\" Const fle = "Plan wk" Const sht = "Main sheet" Const fsht = "R" Dim x As Integer, week As Integer Dim dzientygodnia As...
Dzięki wielki. Super, makro działa
Zacznij od dodania na początku procedury Application.ScreenUpdating = False. Skróciłbym też kod: [syntax=vbscript]y = 1 For i = 1 To 7 For x = 1 To 18 Sheets("KOR").Cells(1, lastcolumn + y + (i - 1) * 18) = "nazwa" & y & "_" & i y = y + 1 Next Sheets("RAT").Activate Sheets("RAT").Range(Cells(1 + i, 1), Cells(1 + i, ile_kolumn)).Copy Sheets("KOR").Range("A1").End(xlToRight)...
Witam ponownie, Nie linczujcie mnie :) podejrzewam, że dzisiaj jeszcze poproszę kilka razy o pomoc - jestem początkująca, ale bardzo chętna do nabywania wiedzy:) Mam problem ze stworzeniem pętli do tworzenia nowych skoroszytów, napisalam makro tworzące 10 skoroszytów o nazwach dane_1, dane_2 itd., zapisujących się w folderze utworzonych na pulpicie...
Tak na szybko... Bez obsługi błędów, gładzenia kodu itp. Sub czytajpliki() Dim linia, sciezka, fs As Object, f, f2, k 'Application.ScreenUpdating = False sciezka = "C:\Documents and Settings\admin\Desktop\test\" Set fs = CreateObject("Scripting.FileSys... Set f = fs.GetFolder(sciezka).Files For...
Załącznik nie uruchamia się normalnie(Znikające makra)
Witam, generalnie to mam wrażenie, że Twój opis jest bardziej zagmatwany niż to czego faktycznie potrzebujesz. Niestety w załączniku nie ma makr, którymi planujesz generować swoje zestawienie i to trochę utrudnia znalezienie właściwego rozwiązania. To co mi się na początek rzuca w oczy to układ pliku. Dodanie kolejnych produktów spowoduje przesunięcie...
Wszystko działa tylko w starym EB8000 brakło możliwości wykonywania makra w pętli czasowej.
Wyłącz Eventy na czas działania makra (Application.enableEvents=True/False)
:arrow: Do autora: Dobrze podstawiłeś to makro? W załączeniu przykład z działającym makrem kolegi adamas_nt Poprawiłem tylko to, że nie liczy dla 100 wierszy tylko dla wszystkich wierszy w kolumnie A zeszytu1. Dodane po czasie ----------------------------- Zmieniłeś treść wiadomości więc moja uwaga nie ma już uzasadnienia, niemniej pozostawiam przykład...
(...) nd G0, G1, G2, G3 - współrzędne początkowe: X0, Y0, Z0 - za każdym przejściem wysokość Z zmniejszana o 0,05mm - średnica początkowa: 13 mm - głębokość: 4 mm - kąt stożka: 90 stopni - średnica końcowa wynikająca z matematycznego wyliczenia z kąta, średnicy początkowej i głębokości. (at)ElektrodaBot Wstępna ocena dostępnych informacji Zadanie polega...
[syntax=vb]For i = 3 To 31 Select Case i Case 3 To 7, 12 To 27, 30, 31 '[dzialanie] End Select Next [/syntax]
Niestety po wpisaniu niepoprawnej daty makro kończy działanie
ale i to nie przyśpieszyło makra. I nie przyspieszy. 1. po co masz w kodzie dwie pętle otwierające plik? 2. Pozbądź się tych "aktivejtów i selektów"
witam, bardzo fajne makro a czy można zrobić pętle tego makro bo to jest tylko przypisane do jednego wiersza a można tak zrobić dla większej ilości? jeśli tak to jak ??
Pytanie o sens całkowicie zasadne ;) Nie rozumiem... Uruchamiasz powyższe makro skąd? W tym makro wywołujesz w pętli makro z jeszcze innego pliku (personal). Wcześniej odniosłem wrażenie, że w tych otwieranych plikach są makra o tej samej nazwie, wykonujące różne działania i je własnie chcesz uruchamiać. Ale, widzę, to nie tak. Dlaczego nie trzymać...
Zastanów się, czy makro toggle jest operacją atomową. W tym kodzie można tą operację rozbić na 3 etapy: pobranie IO_PORT, zanegowanie bitu oraz zapisanie IO_PORT. Jeśli przerwanie wystąpi pomiędzy pobraniem a zapisaniem IO_PORT, przerwanie spowoduje zmianę stanu pinu, ale zaraz po powrocie nastąpi wpisanie nowej wartości z IO_PORT, z którą wiąże się...
Pytanie nie jest precyzyjne. Albo wszystkie możliwe 6 cyfrowe kombinacje cyfr 0-9 - makro i pętle Albo 6 cyfrowa kombinacja z cyfr 0-9 -wtedy =ZAOKR(LOS()*-9+9;0)&","&ZAOKR(LOS()*-9+... itd
Gdzie, w sterowaniu tym wyświetlaczem jest konieczność używania makr? Wystawiana jest dana, po czy na lini zegara, zmiana na H, następnie L. Gdyby trzeba to zrobic kilka razy to już prędzej, ale wtedy lepiej użyc pętli. Chyba, że makra mają zastąpić pętle. Ale to szczególny i zadki, zwłaszcza w dzisiejszych czasach, przypadek.
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")...
Ja nie widzę problemu z odwoływaniem się.. - pewnie zerwałeś połączenie (nie wiem skąd to się wzięło ? W pewnym momencie jak wpisywałem formułę "=" to ta formuła autentycznie zostawała w komórce ! dopiero jak następny raz otworzyłem plik i wyczyściłem zawartości tych kilku kolumn (aby rozpocząć nowy miesiąc) udało się wpisać formuły i teraz wszystko...
Jeśli makro, to prosta pętla 'Do-Loop' z instrukcją warunkową. Ale, z kolumną pomocniczą, można i bez makra (załącznik)
Jeśli makro, to prosta pętla porównująca każdą parkę z każdą. Można też bez makra. Oba (E2k0) rozwiązania w załączniku.
Napisałeś pętlę nieskończoną. Nie do końca łapię co chcesz zrobić. Może wystarczy licznik pętli przesunąć poza gałąź If Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = "" If Range("A" & i).Value = 37258 Then Range("A" & i + 1).EntireRow.Insert...
Witam, Mam problem z makrem, które dzieli duży plik na zakładki, filtrując po nazwie miasta. Makro działa w pętli, pobierając nazwę miasta z tabeli, ale przerywa działanie, gdy w zestawieniu brakuje danego miasta. Jak zrobić, aby zapisało pustą zakładkę i przeszło do następnego rekordu w tabeli.
Nagraj to makro i dodaj pętle for o odpowiedniej ilości. Jeżeli zdążę :) to za chwile podrzucę ci kod
Ciekawe czy to jest w ogóle możliwe w VBA szukałem w necie jakiejś gotowej pętli ale nic nie ma Nagraj sobie makro i podstaw to pod np. pętle for
Chciałbym poprosić o pomoc w związku z makrem które, muszę zbudować. Mianowicie chodzi mi o to że mam tysiąc komórek które wyglądają mniej więcej tak: dzbanek_02-01-2008_K20 W VBA możesz użyć czegoś takiego: Do moderacji: Wiem, że odświeżam temat, ale może ta krótka instrukcja się komuś przyda, bo autor pewnie już sobie poradził. Usuwajcie jeśli uznacie...
Dzięki za podpowiedź Mam pytanie jak przypisać wartość LinaMax dla (komórka.Value =) Tak żeby można było skończyć pętle
W kodzie masz 79, zaś w treści 77 - to poczynając, od której właściwie ma to się dziać ? Dzięki za zainteresowanie, ale nie do końca o to chodziło. Może źle to wyjaśniłem. W kodzie jest 79, bo wartość jest przenoszona z wiersza 79, ale scalanie ma się rozpocząć od wiersza 77 i w scalonej komórce ma zostać wartość przeniesiona z wiersza 79. Przy czym...
A jak dokładnie są nazwane arkusze? Cała data, czy tylko numer dnia? Jeżeli cała data to: Sub NazwaArkusza() Range("a2") = ActiveSheet.Name End Sub przy numerze dnia: Sub NazwaArkusza() Range("a2") = ActiveSheet.Name & ".02.2011" End Sub To jest tylko dla jednego arkusza. Dla większej ilości...
Tylko makro i pętle w pętlach z formułą sprawdzającą za każdym przejściem wynik i jego tolerancję z E2. Swoją drogą to ciekawą pracę domową dał wam sor na święta, aczkolwiek nie za trudną - takie podstawy wykorzystania pętli :)
Musisz dodać kolejna pętle po hasłach.
Potrzebuje napisać makro, ktore bedzie mialo dwie pętle Co do tej pory napisałeś? i gdzie załącznik.
Ja bym zrobił makro, które w pętli będzie wyszukiwało pierwsze wolne pole w kolumnie B i tam wstawiało wartość z A1
W przypadku pętli i wieszania błędem było jednak makro. Po dodaniu START: na początku makro (potem reszta kodu) i w dwóch miejscach zmiana pętli tj. użycie GoTo START zamiast Call nazwa_makro naprawiło problem. Wywoływanie tego samego makra funkcją Call zamiast GoTo powodowało zamykanie WORD-a lub jego restart. Podobno nie powinno się używać w kodzie...
Mam problem z petla While.. wydaje mi sie ze wszystko jest poprawnie mimo to uzyskuje blad #define WAIT_NIRQ_LOW() while(PIND&(1<<NIRQ)) (...) void rfSend(unsigned char data){ while(WAIT_NIRQ_LOW()); //<< Blad writeCmd(0xB800 + data); } //taki blad // ../cosss.c:86: error: expected expression before 'while'
u mnie nie pokazuje ilości plików. klikając F8 i mam dla próby 4 pliki i makro robi pętle 4 razy i za 4 kończy na end sub Dodano po 2 jak jest close to wywała błędy. saved jest ok tylko drukuje 1 plik i konczy na tym
Niestety nie działa. Nie znam się za bardzo na tych makrach i pętlach, więc potrzebuję gotowca. Załączam plik w którym w kolumnach A i B mam moje dane a w E i F fragment tego jak to powinno wyglądać. Oczywiście nagłówki mogę usunąć, a kolumny pozmieniać. Każdy ciąg 36 wartości musi się powtórzyć 30 razy, pod nim kolejny itd. Proszę o pomoc :)
Ciekawa sprawa... Przecinek jakby z innej bajki i nie chce się formatować komórka. Spróbuj w pętli: [syntax=vb]Sub Makro() Dim c As Range For Each c In ActiveSheet.UsedRange If Right(c, 1) = "*" Then c = Val(Left(c.Value, Len(c) - 1)) c.NumberFormat = "0.00" End If Next End Sub[/syntax]
Witam ponownie Zacznę od tego, że mam takie dane w excellu: 1293.2750.4324.1294.2750.3765. 0. 0. 0. 1. 1. 1. 1. 2. 3. 1. 2. 3. I teraz chciałabym napisać takie makro, które kopiuje mi komórki z pierwszego wiersza jeżeli w komórkach w wierszu poniżej wartości są takie same. Chciałabym, żeby te skopiowane wartości (tutaj akurat po 3) były kopiowane do...
Witam, nie znalazłem rozwiązania na forum. Mam makro, które otwiera linki wpisane w komórki. Wszystkie linki znajdują się w pierwszej kolumnie i lecą daleko w dół. Problem w tym, że chciałbym, aby pętla wykonywała to makro otwierania linku do momentu osiągnięcia numeru wiersza wpisanego w inną komórkę. Czyli jeżeli wpiszemy w komórkę '500' to pętla...
Jeśli sprawa jest jednorazowa można skopiować arkusze do pliku roboczego, zadziałać formułami i wynik przez kopiuj-wklej specjalnie umieścić w arkuszu docelowym. W innym przypadku sugeruję proste makro na pętlach For lub Do. W jakim stopniu masz opanowane VBA? Wrzuć jakiś przykład jako załącznik bez prowizji. Arkusze mogą być w jednym pliku, koniecznie...
Jakiś program typu Macro Recorder Lite i musiałbyś "nagrać" sobie makro w pętli z całym procesem czynności jakie chcesz, żeby wykonywało. Dokładniej musiałbyś po kolei nagrać co chcesz, kliknięcie po kliknięciu, powtórzyć dla wszystkich plików i zapisać. Ograniczenie jest takie, że makro zrobi wszystko co nagrasz, ale tylko w swoim "polu roboczym" i...
Niestety musi być w jednej tabeli:/. Proszę pomóżcie -jakiej pętli użyć?
A możesz korzystać z funkcji arkuszowych excela? Czy wszystko ma być "czystym" basicem? Max.k() to w VBA Application.WorksheetFunction.Large(ZAKR... pozycja) czyli u ciebie maksimum1= Application.WorksheetFunction.Large(Rang... 12), Cells(UBound(dni), 12)) , 1) maksimum2= Application.WorksheetFunction.Large(Rang... 12), Cells(UBound(dni),...
To jest VBA? Jaka baza danych i dlaczego zapytanie jest w pętli?
Tak samo jak Adamas nie piszę w Wordzie, ale to działa: [syntax=vb]Sub dokument() Dim wartosc As String, wrs As Integer, x As Integer x = 1 Open "C:\Przyklad.txt" For Input As #1 'tu podaj ścieżkę, lub tylko nazwę jeśli w tym samym katalogu Do Until EOF(1) For Each tbl In ActiveDocument.Tables For wrs = 1 To ActiveDocument.Tables(x).Rows.Count Input...
Potrzebna ci nie funkcja tylko procedura (sub) Problemem jest to, że nazwisko będzie się pojawiać kilkakrotnie w tym samym wierszu i powinno być każde wpisane do innego arkusza. A tego właśnie do końca nie rozumiem więc ... Załącz przykład (Jak to excel powyżej 2003 to go spakuj np. zipem
Nie wiem co masz w kolumnie T ? w pliku, który wrzuciłeś pętla działa gdy ma wszystko różne od 0 (Cells(x, 8) <> 0), bo w kolumnie H ostatnie było 0, więc przerywa działanie pętli. Chociaż do końca nie mogę rozgryść tego "x" do czego on się odnosi.(x=3 i x=x+1)??? zmienna x to numer wiersza od którego rusza pętla.
Potrzebny ci jest program Tasker jak chcesz to napisz pw lub odezwij sie na gg 5574713
Czemu nie załączysz przykładowego arkusza? Ten kod, który napisałeś ma niewielki sens, bo w pętli powtarzasz ciągle to samo. Po lewej stronie masz adres konkretnej jednej komórki, do której trafia wynik. A po prawej stronie zmieniasz zakres sumowania, ale wyniki trafiają i tak do tej samej komórki, więc się nadpisują i otrzymujesz w efekcie wynik ostatniego...
Można to oczywiście zrealizować przy pomocy makra, podstawiając w pętli kolejne kody z listy do kuponu. (Wydruk na końcu każdego przebiegu). Można też zrobić tyle kopii ze wzorem kuponu ile potrzeba dla kodów na liście, powiązać je i kolejno drukować strony/arkusze.
Bardzo szybko robi się to ręcznie. Filtr, zaznaczasz, Ctrl+c, Ctrl+v (możesz nawet nagrać makro i je wykorzystać). Klasycznie: w pętli + instrukcja warunkowa (If) oraz licznik wiersza zakresu docelowego.
Witam, Potrzebuje pomocy przy stworzeniu makra które w 1 pętli rozdzieli kilka zdań (zakończonych kropką), następnie w 2 drugiej pętli wyciągnie zdanie po zdaniu i wyszuka tłumaczenia w bazie tłumaczeń. To co próbuje najpierw zrobić to najpierw rozdzielenie zdań poprzez liczenie kropek, następnie funkcja LEFT aby wyodrebnić zdanie do wyszkuwania poziomo?...
Jeśli jest taka potrzeba... Nagrałem makro w Wordzie i wyszło coś takiego [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Selection.TypeText Text:="ala i as" Selection.Style = ActiveDocument.Styles("Nagłówek 1") Selection.TypeParagraph Selection.TypeText Text:="poszli w las" Selection.Style = ActiveDocument.Styles("Normalny") Selection.TypeParagraph...
Odłożyłem, jednak nadal pojawiały się momenty, w którym powrót następował po nieco dłuższym okresie czasu, niż powinien. W tym celu zrobiłem bliźniacze makro, wykorzystujące jednak trzy następne rejestry (r20-r22). Jedno makro stosuję wewnątrz pętli głównej, drugie w obsłudze przerwania i wtedy wszystko działa poprawnie. Jeśli istnieje bardziej eleganckie...
... :-) ... Piszesz o jednej tabeli, albo o jakiejś pojedynczo-domyślnej, a w dokumencie procedury, który podsyłasz jest tych tabel aż 58, co łatwo sprawdzić, wpisując w oknie Immediate edytora vba: 903088
Zasugerowałem się przyciskiem "kolor wypełnienia" w Excel2003. Jest tam tylko 40 kolorów. Sądziłem że sa po kolei ale jak przed chwila sprawdziłem - myliłem się. W zestawie 40 nie ma np ciemnego żółtego co będzie wpływać na ewentualne obliczenia. Więc we wszystkich makrach powyżej należy poprawić 40 na 56. (W przypadku pierwszego makra wydłuży to jeszcze...
Skoro 'jesteś słaby', to zapodam Ci trochę siły.;) 1. Włącz rejestrację makra, zaznacz tabelkę i skopiuj. 2. Ustaw kursor na komórce, gdzie ta tabelka ma być wklejona i wklej. Następnie zmodyfikuj to makro o pętlę. Jak zarejestrujesz makro i poczytasz o pętli 'For" w VBA, to na pewno sobie poradzisz.
Jakiej wewnętrznej pętli. Gdzie zmienić znak?
Witam, Mam taki problem. Mam plik gdzie jest kilka arkuszy. Chciałem żeby makro pewnie jakaś pętla pobierało nazwę arkusza i wklejała tą nazwę w odpowiednie komórki. Załączam plik. Czyli wynik miał by być taki: W arkuszu "Tab1" nazwa Tab1 pojawi się w komórkach W2,W3 i W4 (czyli tylko w rekordach gdzie są dane). W arkuszu "Tab2" nazwa Tab2 pojawi się...
To udało mi się osiągnąć problem w tym, że chciałbym to zapętlić w taki sposób aby makro szukało tak długo aż w kolumnie nie wykryje tej szukanej wartości. To działa ci te makro czy nie bo tego nie rozumiem. (jeżeli makro nie znalazło szukanej wartości a przeszukuje całą kolumnę B to po co ta pętla?)
Wystartuj rejestrowanie makra, zmień interesującą cię komórkę na inny kolor, następnie zamień kolor na pierwotny, zatrzymaj rejestracje makra. Wyjdź w edycje makra, dodaj warunek i pętle jak się zmienia kolor i jak on się zapisuje będziesz miał już w tym zarejestrowanym makrze.
Rozumiem. Ulepszam pomysł :) Jeśli chcesz się pozbyć nagłówków to zrób takim poleceniem, gdzie: +1 oznacza, że obcinany będzie pierwszy wiersz for /r %i in (*.csv) do more +1<%i>>wynik.tmp ren wynik.tmp wynik.csv edit: obcięte wyniki zebrałem najpierw w pliku tmp, żeby przy każdej iteracji nie uwzględniał się w pętli
Jeżeli arkusz ma być eksportowany do nowego pliku, to lepiej zrezygnować z formuł (będą się łącza za nim ciągnąć) i zrealizować wyszukiwanie w makro (metoda Range.Find, lub w pętli). p.s. Jeśli umieściłeś makro w module, zastosuj precyzyjne odwołania (arkusze). Przycisk przyciskiem, ale łatwo "wdepnąć"...
Makro niemal prosto z rejestratora, jeśli się nie mylę. Co, jeśli w arkuszu źródłowym będzie więcej niż dwie pozycje? Powinieneś pójść krok dalej i zainteresować się pętlami.
Przejdź krokowo (klawisz F8) i zobacz ile kroków wykonuje pętla. Może trzeba zmienić warunek, może kolumnę. Nie wiem, nie widzę pliku źródłowego... Jeśli działało Ci to (na tylu zmiennych obiektowych) dla jednej linii, powinno działać w pętli.
Zadaniem jest napisać makro... Wystarczy "zwykła" formuła, jeśli satysfakcjonuje Cię takie rozwiązanie. Coś na wzór: JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(...));0... W VBA należałoby zagnieździć dwie pętle dla porównania każdej komórki z każdą...
Pętla (lub dwie zagnieżdżone w zależności od układu) i warunkowe przypisanie (tekst = tekst & ", " & nextTekst).
Oczywiście masz racje co do HSE_VALUE, że może być zdefiniowane w innym miejscu, ale dodałem sprawdzenie wartości tego makra w głównej pętli programu i faktycznie ma wartość 8M, także wykluczyłbym ten problem. Przyznam że męczy mnie jedno, odbieram wartości poprawnie, bez względu na to co ustawię w konfiguracji (o ile prędkość się zgadza), ale parametry...
Problem w tym, że nigdy nie uda Ci się wpisać innej liczby porządkowej przy tej postaci kodu (nawiasem pisząc, zdała by się pętla). Zanim makro "wyprostuje" numerację musiałbyś zrealizować kopiowanie... Czyli odpowiedź brzmi: Tak, jest do zrealizowania.
Najprościej napisać makro w VB i skorzystać z pętli
Teraz działa wyśmienicie :) Musze dorobić jeszcze do tego pętle tak żeby makro po wydruku uruchamiało się na nowo Ale będę próbował to zrobić własnymi siłami dopiero jak sobie nie poradzę będę prosił o pomoc Na razie PRL masz u mnie dobre %%%%
A nie dałoby się jeszcze ograniczyć tego zakresu kolumnami? Makro działa tylko w jednej kolumnie, czwartej (While Cells(wrs, 4 )). Doklej tylko te 6 linijek i dopisz warunek pętli 'Do'.
makro excel pętel makro kopiować arkusz pętel pętel pętel efekt
naprawa kosiarki transformator ferrytowy sterowanie zaworem kulowym
Brak podciśnienia w gaźnikach Kawasaki KVF 750 - przyczyny i diagnostyka Dioda Schottky w module Bosch Athlet 25,2V: Funkcje i Diagnostyka