le bez niego nie wiem jak to zrobić inaczej aby znaleźć w drugim arkuszu nazwisko wybranego pracownika. Tak jak Maciej wcześniej pisał, bez załącznika ciężko cokolwiek doradzić ale tak bez sprawdzania na szybko zrób tak. Tą linijkę usuń [syntax=vbscript]Set SzukaneNazwiskoRow = tb_GrafikTSW.ListColumns("NAZWISKO_TSW")...
[syntax=vbscript]Sub Konwersja() With Application.FileDialog(msoFileDialogFold... .Title = "Wybierz folder z plikami CSV" .InitialFileName = Environ("userprofile") & "\Desktop" If .Show = -1 Then f = .SelectedItems(1) End With If f = "" Then Exit Sub x = "\PlikiExcel" If Dir(f & x, vbDirectory) = "" Then MkDir (f & x) csv = f &...
Na pewno błąd jest w wierszu: [syntax=vbscript]Progresywne = Progres + Progres[/syntax] Nie zachowujesz dotychczas obliczonych składników, tylko ostatni pomnożony przez 2. Powinno być: [syntax=vbscript]Progresywne = Progresywne + Progres[/syntax]Nie wykluczam, że mogą być też inne błędy, ale do dokładnej analizy potrzebny jest załącznik w pliku.
zapomniales Dir() przed Loop tj. plik=Dir()
Jednak chyba wygodniej będzie (jeśli chodzi o VBA) wykorzystać procedurę zdarzeniową. Przykład w załączniku.
Do tego nie jest Ci potrzebna żadna pętla. Najpierw musisz sobie określić pierwszy wolny wiersz w arkuszu [syntax=vb]a = Sheets("Arkusz1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row[/syntax] Później po wpisaniu do arkusza danych z pól tekstowych zostaje Ci jedynie zwiększyć wartość a o 1
co robię źle ... Np.: brak deklaracji zmiennych "ostw" i "ostw2", jak również deklaracje innych nie wiedzieć czemu "variant", Np.: ... ostw = Worksheets("DANE").Cells(Rows.Count, "B").End(xlUp).Row ostw2 = Worksheets("LOG").Cells(Rows.Count, "B").End(xlUp).Row Zapis " Rows.Count " odnosi się do bieżąco aktywnego arkusza, a nie do arkusza "DANE", czy...
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,...
Podobny sposób do zablokowania kontrolki - dający efekt "wyszarzania", ale samego tekstu - można uzyskać ustawiając właściwość Enabled kontrolki na False. Excel faktycznie nie obsługuje wyszarzenia całej kontrolki, chyba że jej BackColor zmienisz ręcznie ;).
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
Czy istnieje możliwość definicji zmiennej pętli do while na wybrane przez siebie liczby? Potrafię zdefiniować zmienną w ten sposób, by zwiększała się ona tak jak na przykładzie o wartość dowolnej liczby: wiersz=1 Do While Range("A" & wiersz) <> "" wiersz = wiersz + 1 Loop Chciałbym zamiast przeglądania każdego rekordu z przedziału ("wiersz+1",...
google -> VBA pętla for Linków tam od groma :)
Po mojemu, nie ma tu nic skomplikowanego, jedynie "trochę" grzebaniny... Pętla z zastawieniem kilku sideł w postaci instrukcji warunkowych i jazda. Excel nie jest od poprawiania błędów językowych, więc to zostawiłbym Word'owi, albo w ogóle się nie przejmował. Wstawienie grafiki do formularza nie jest problemem. Rzecz w tym, żeby przygotować źródło w...
Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok
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...
Hej może ktoś mi pomoże tutaj. Sprawa wygłąda tak, że mam kod, która zawiera 2 petle czyli petla w petli. Problem jest taki, że wykonuje najpierw jedną petle póżniej drugą i pózniej jak wraca do pierwszej petli aby powtórzyc działania to niestęty póżniej omija tą 2 petle. Kod wygłąda tak : [syntax=vbscript]Sub prod() Dim art As Long art = 2 y = 2 og...
Ale dlaczego pętla for? Bardziej naturalna to będzie np. taka pętla: [syntax=vbnet] Dim Y As Long Y = 1 Do While Cells(Y, 1) <> "" If Cells(Y, "B") = "" Then Cells(Y, "B") = "XXX" Y = Y + 1 Loop [/syntax]
Zdaje się, że kolega Aldrin wskazuje dobry kierunek. Zginiesz z tymi checkboxami :) Proponuję pętlę sprawdzającą stan ukrycia kolumn, przypisanie argumentów w bloku Select Case i właściwa pętla działająca na kolumnach. Przykład w załączniku.
Może najpierw wypróbuj wbudowane narzędzia Excela, a VBA w ostateczności? Mam na myśli: Dane>Analiza symulacji>szukaj wyniku oraz menedżera scenariuszy.
zwykła pętla "while" załatwi sprawę :) http://dzono4.w.interia.pl/kurs/doloop.h...
Wystarczy zwykła pętla z wieloma warunkami. Zobacz przykład (funkcja VBA) w [url=http://www.elektroda.pl/rtvforum/to... temacie.
1. ^ to operator logiczny alternatywy rozłącznej. Co on tu robi? Raczej chodziło Ci o potęgowanie. Nie ma operatora potęgowania - trzeba użyć funkcji. Operator potęgowania w postaci ^ to, jeśli dobrze pamiętam, tylko Basic wykorzystywał (i Excel ;) ) 2. Rozmiar tablic dynamicznych podaje się w nawiasach kwadratowych. Nie wiem, co oznacza zapis stworzony...
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...
Tablica, pętla i jazda. Podepnij pod przycisk taki [syntax=vb]Sub rejestracja1() Dim zakres As Variant, i As Integer, ostW As Long zakres = Array("D2", "C4", "C13", "A21", "D48") With Sheets("Spis umów") ostW = .Range("A65536").End(xlUp).Row + 1 For i = 0 To 4 .Cells(ostW, i + 1) = Range(zakres(i)) Next End With End Sub[/syntax]
Przesiedziałam już mnóstwo godzin, przejrzałam kilka tutoriali, ale dalej jest to dla mnie czarna magia... Czy ktoś mógłby mi pomóc? Ok. przedstawiłeś logicznie jak ma to wyglądać. Ale w czym ci pomóc? Przecież to proste więc nie wiem gdzie szukałeś. Dwie pętle "for". Najpierw dla tabeli A z warunkowym "if" jak w G jest X i zapis do tabeli C. Potem...
Pozostało mi jeszcze zrozumienie tego kodu może komentarze będą pomocne :) [syntax=vbscript] Sub Zakresy() Dim ark As Worksheet Dim i&, j&, w& ' deklaracje zmiennych Set ark = ThisWorkbook.ActiveSheet ' utworzenie zmiennej obiektowej w = ark.UsedRange.Rows.Count + 1 ' określenie ostatniego wiersza powiązanego z ilością iteracji pętli i...
Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". a jak jest otwarty to wykonuje dalsze instrukcje: kopiowanie potrzebnych wierszy. Pomija cała instrukcje czyli nic nie robi. czemu przed for each muszę dać otwarty=false a potem odnosić się do otwarty jako true Generalnie nie musisz dać na początku 'otwarty=false' bo zmienna...
r"]VCO to generator impulsów ? To serce odbiornika superheterodynowego. Od niego zależy częstotliwość pracy odbiornika jak i nadajnika. Jeśli nie będzie generować odpowiednich częstotliwości dla danego kanału lub w ogóle nie będzie pracować to będzie tylko szum, a odbiornik będzie martwy. Dodam że do stabilizacji częstotliwości VCO służy pętla fazowa...
jak zrobić żeby gdy podamy 1 to żeby pętla wpisywała wartości do 1 a nie do 0,8? Tu padasz "ofiarą" zadeklarowanych zmiennych zmiennoprzecinkowych :please: (sprawdź co tam dokładnie makro wpisuje do poszczególnych komórek :D ). Jeśli ten warunek (wpisywania maksymalnej wartości) jest ważniejszy od równego podziału :?: to możesz to uzyskać kodem :spoko:...
A jaki jest algorytm liczenia tych biorytmów? Po mojemu masz zły wzór, skąd go brałeś?. Wartości się zmieniają, tylko są to tak małe zmiany (na 11 pozycji po przecinku), że w komórce tego nie widać. Dodatkowo, jeżeli - jak przypuszczam - chcesz policzyć ilość dni życia i podzielić je przez coś, to w tej części wzoru: kolejność działań - i najpierw podzieli...
Mam problem z dokończeniem makra w vba, mianowicie chce wyszukać wyrazy (znaczniki html) wpisane do komórek w excel-u, w całym arkuszu. Arkusz posiada 5 kolumn i około 6000 wierszy. Po wyszukaniu wyborderować i zmienić kolor ich czcionki na czerwony. Zdaje się, że źle się do tego zabierasz. Na razie pętla mieli A1 i na oko będzie mielić bez końca (pętla...
Zamiast: Range().Select ActiveCell.FormulaR1C1 = możesz także skorzystać z Cells(i, j).Value = wartość, gdzie i - wiersz, j - kolumna. Tu możesz się łatwo odwołać do współrzędnych, jeżeli tak byłoby Ci wygodniej. Potem pętla po i. Będzie łatwiej, jak podrzucisz przykładowy plik, bo nie jest dla mnie jasne poniższe: i jeszcze jak zrobić żeby wpisywał...
Co tu tłumaczyć wrs = Columns(2).Find(what:=Ra... lookat:=xlWhole).Row Rows(wrs).Delete 'Rows(wrs).ClearContents 'w zależności od sensu słowa "wykasować" i wszystko jasne... Gdyby nie znalazł, warto ten fakt zakomunikować. Np On Error Resume Next wrs = Columns(2).Find(what:=Ra...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
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...
[syntax=vb] Sub MojeKopie() Dim r&, myCopy As Boolean slowa = Array("Period", "Account", "Terminal") For r = 2 To Cells(Rows.Count, "A").End(xlUp).Row myCopy = True For Each slowo In slowa If Cells(r, "A").Text Like "*" & slowo & "*" Then myCopy = False Exit For End If Next If myCopy Then Cells(r, "A").Copy Cells(r, "C") Next End Sub [/syntax]
Witam, Mam problem z przerwaniem pętli oczekującej na dane z portu COM. Makro które napisałem ma za zadanie odczytać wartość z urządzenia zewnętrznego, ale dopiero jak na urządzeniu zostanie naciśnięty odpowiedni przycisk. Chciałbym aby działanie makra wyglądało w ten sposób, że użytkownik klika na dowolną komórkę, w której chce wprowadzić dane, wysyła...
Witam To fragment kodu z ktróym mam problem i szukam pomocy Do taj pory kod sprawdzał czy w komórce jest wartość i petla działała tak długo jak zakres. Jednak w wypadku kiedy zamiast zakresu dam InputBox czyli "y" petla wstawia w okno przegladarki tekst który jest cały czas wpisany w okno i nie przerywa petli mimo ze w kolumnie B nie ma wiecej wartości....
Z góry na dół. Pętla działa od dołu bo jest bardziej uniwersalna, natomiast numerować ma z góry do dołu aż braknie danych.
[syntax=vbscript]Sub ImportujPliki() Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFold... If .Show = -1 Then Folder = .SelectedItems(1) & "\" Else Exit Sub End If End With Set Razem = Workbooks.Add Application.DisplayAlerts = False Razem.SaveAs Environ("UserProfile") & "\Desktop\Razem.xlsx" Application.DisplayAlerts...
Co do twojego kodu, .Range/.Cells - odwołuje się do aktywnego arkusza? Chodzi mi o te kropki na początku. Nie, odwołuje się do obiektu - w tym wypadku arkusza - użytego w otaczającej klauzuli With... To taki skrótowiec, którzy przed kropką wstawia to, co jest w With, czyli zamiast powtarzać: Przy próbie tworzenia kolejnego arkusza wywala błąd 1004...
Tabelka w mailu nie będzie Excelem, to raczej Word. Jeżeli wyślesz załącznik to będzie prawdziwy Excel. Zależy co jest dla Ciebie ważne. A czy potrafisz tę tabelkę z pola w kolumnie F zapisać gdzieś w Excelu jako tabelkę? To wtedy możesz zamienić to na HTML i wkleić do maila - są na to gotowce, też takiego używam. Tylko uwaga: HTML sklejony z innym...
... jak się za to zabrać? :) Nie wiem czy pytający to przeczyta, ale wygląda mi to na szkolne zadanie. Tu też można pomóc. Więc tak: 1. Najlepiej poszukać w google (zakładam, że na pomoc kolegów czy nauczyciela nie można liczyć) hasła VBA Excel pętle. Na pierwszej stronie będzie trochę teorii i to po polsku. 2. Wybrać rodzaj pętli (jeżeli nie wskazano...
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...
Tak się domyślałem. Po co w takim razie pętla czytająca pliki ?
Nie wiem po co aż tak namieszałaś z "i" - no ale... widocznie tak ma być. Owszem pętla nie wykona się jeżeli "i" jest większe od 6 (until i>6 ) Ale zobacz co jest pod tym zapisem : i=i+1 czyli pętla się "otworzyła" jeszcze przy i=6 i zaraz za nią od razu "i" dostaje wartość 7 A jeszcze później jest c.Value = MyLocation( i + 1 ) Nie masz lokacji ani...
Tak znalazłem przez przypadek ten wątek to umieszczę swoje rozwiązanie bo... jeżeli mamy wiele wierszy do przeglądnięcia (np. 100 000 czy 500 000) to "lecenie" pętlą komórka po komórce jest wolne :/ Ja zawsze w takiej sytuacji korzystam z .Find dzięki temu pętla obraca się tylko tyle razy ile jest szukanych elementów :) czyli nawet jak masz 500 000...
Takie ciągłe pojawianie się okna zapisu, może powodować dezorientację u mniej doświadczonych pracowników. Co za tym idzie telefony do mnie, że coś nie działa tak jak powinno. A chciałbym tego uniknąć. Ale można to anulować, dołożyłeś do elka5 kolejna pętla i ma ona zostać tak (bo w moim kodzie jej nie było)? Może napisz dokładnie co ma się "dziać"...
Witam serdecznie. Minęło trochę czasu i doszło mi klientów. Używam ww. pętli ale chciałbym dodać do niej jedną cechę a mianowicie: Ignorowanie danego wiersza. Chodzi mi o to, żeby powyższa pętla działała jak do tej pory, ale ignorowała wiersze 12 i 20 (te zielone z sumą) https://obrazki.elektroda.pl/6285921800_... Jak to wykonac?
W sumie to nie rozumiem sensu tej twojej pętli, bowiem "x" razy: 1. otwierasz dokument word (szablon.docx) 2. zmieniasz "$numer" na zestaw tych samych "peseli" z "H2" 3. wpisujesz cały czas te same dane do "B3" (Range("B3") = Format(Now, "YYYY.MM.DD") & "_Pismo") 4. pobierasz dane z "B3" do nazwy "nowego pliku" 5. zapisujesz plik cały czas pod tą samą...
Można to szybko zrobić korzystając z funkcji Połącz.teksty() i Jeżeli() jako funkcja tablicowa (wymagany jest jednak Excel 2019 lub 365). =POŁĄCZ.TEKSTY(",";PRAWDA;JEŻELI(Tabela1... Na podstawie [url=https://www.youtube.com/watch?v=IAO... - wiele wyników w jednej komórce POŁĄCZ.TEKSTY, JEŻELI W załączniku praktyczne...
Faktycznie pętla for będzie idealnym rozwiązaniem fajnie dzięki tylko powiedz mi jeszcze zamiast tych wartosci co ty podales chcialbym aby było odowlanie do komorki z data i pobranie z niej wartosci z datą Dodano po 6 Dzięki już sobie z tym poradziłem dziękuje za pomoc
pętla excel excel pętla działania excel makro pętla
krups opróżnij pojemniki komunikat ipconfig orange sieci moduł płyta indukcyjny
napęd bramy dwuskrzydłowej napęd bramy dwuskrzydłowej
Audi A3 8L - Kod błędu 18062: Przyczyny i Rozwiązania Epson Stylus DX4000 - Migające diody, przyczyny i rozwiązania
