Klasyczne pola wyboru czy opcji przy dużej liczbie kontrolek są trudne do obsługi. Sugerowałbym raczej rozwiązanie zastępcze z użyciem VBA. Coś takiego wstawiłem do przykładowego arkusza. W kolumnach B i C są tam wstawione do komórek znaki Unicode przypominające znak akceptacji i pusty prostokąt. Do obsługi tego jest makro zdarzeniowe, które reaguje...
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, proszę o pomoc, moja cała znajomość programowania ogranicza się do znajdowania i dostosywania formuł - kiedyś znalazłem i dostosowałem do swoich potrzeb makro do wprowadzania danych w arkusz za pomocą userform z przyciskami do przechodzenia między wierszami, wstawiania i kasowania wierszy - ogólnie bardzo fajny programik. niestety po skopiowaniu...
Jeżeli przez 10 dni nie ma żadnej reakcji, to powinieneś się zastanowić, czy pytanie jest zrozumiałe. Teraz podbiłeś pytanie, ale nic w nim nie uzupełniłeś. Załącznik nie zawiera żadnych makr ani formuł, tylko losowo wpisane liczby 1, 2, 3. Piszesz, że w pierwszej tabeli nie będzie pustych wierszy, a wiersz 25. (w arkuszu) jest pusty. Zatem nie wiadomo,...
Nagłówki będą wszystkie w np wierszu nr 2. Jeśli chodzi o ciągłość to np od wiersza 3 do 20 będzie coś wpisane i dopiero wiersz 21 będzie pusty i wtedy makro ma się przerwać. Ale chce żeby samo się dostosowało jeśli wpisze coś w wiersze 21-23 to przerwie się wtedy na wierszu 24 bo on będzie pusty jako pierwszy po dopisaniu
Cześć, pracuję nad plikiem Excel, w którym potrzebuję połączyć teksty. Próbowałam rozwiązać to za pomocą dwóch warunków JEŻELI. Pierwszy warunek JEŻELI (AD4""; AD3&": "&...) sprawdza, czy komórka AD4 nie jest pusta. Jeśli nie jest pusta, to łączy zawartość komórki AD3, dwukropek i spację. Drugi warunek JEŻELI (AD4""; AD4&", "; "") sprawdza, czy komórka...
Cześć. Można próbować tak: [syntax=vbnet]Sub Makro1() Const oc1 = 1 ' wyjście do kolumny 1 Const oc2 = 3 ' wyjscie do kolumny 3 Const wks = "Sheet2" ' arkusz wyjsciowy ' Sheets(wks).Cells.Delete ' mozna odkomentowac aby czyscic caly arkusz przed wykonaniem makro Dim x, r, c As Integer r = 2 c = 2 x = 1 Do While Cells(r, 1).Value <> "" Do While...
(at)ElektrodaBot /* Program realizujący obliczanie i wysłanie przez moduł HC-05 (Bluetooth z interfejsem SPP, czyli RS-232) wyniku funkcji kwadratowej y = 0.3187x^2 + 2x - 7 na podstawie x odebranego wcześniej także za pomocą HC-05. Szczegóły: http://mikrokontrolery.blogspot.com/...
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
Tak tez probowalem,ale Jak w komorce zaznacze archiwizuj wiersz i ten wiersz zaznaczam, wycinam, w drugim arkuszu znajduje pierwszy wolny wiersz i wklejam. Super tylko, ze jak zrobic ,by wycial ten z zaznaczona komorka i znalazl pierwszy wolny wiersz. W tym drugim arkuszu. By tam wkleic. Ok probowalem makro zrobic nawet na zasadzie, by w tym drugim...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Cześć, Dziękuję, Ale mam jeszcze jeden problem, Tak by działało na kilku arkuszach, Np. Jeden plik w tym co podałeś "Stary" ma dwa arkusze np. Arkusz1 - Surowce Arkusz2- Opakowania To samo plik "Nowy" też dwa takie same arkusze. Tak by wyszukiwało w jednym arkuszu 1 starym i do arkusza 1 w nowym oraz w arkuszu 2 starym i arkuszu 2 nowym Niestety działa...
Cześć, widziałam no forum już https://www.elektroda.pl/rtvforum/topic2... podobny temat, ale próbuję zastosować UpdateRemoteReferences = False i niestety nie działa. [syntax=text] Sub Kopiowanie_z_pliku() Dim Dane As Variant Dim FileName As String Dane = Application.GetOpenFilename( _ FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm",...
Funkcja wyskakuje ponieważ zakresem jest cała kolumna ( range(A:A) ), a u Pana pierwszy wiersz jest pusty więc od razu jest Exit For. Jeśli nagłówek przesunie Pan o oczko w górę lub określi zakres np A3:A3000 powinno pójść :)
W makro otwieranie powtarzasz za każdym kopiowaniem. Zostaw tylko jedno na początku, a "Close" na samym końcu... i jak tak zmieniam: Sub OpenCloseWorkbook() Dim Dane As Variant Dim FileName As String Dim Rng As Range Dane = Application.GetOpenFilename( _ FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm", Title:="Wafel") Workbooks.Open...
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...
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...
Tak szczerze, zaraz wytłumaczę dlaczego "gotowiec" by mi się przydał: znam się tak "trochę" na excelu, ale na podstawowych funkcjach itp, nic nie wiem na temat makr, vba itp i moje rozumowanie w przypadku twojej odpowiedzi wygląda tak: " ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E" - GDZIE USTALAM TZN...
witam :) Próbuje napisać mały programik jednak cały czas mam jakieś błędy, a na niektóre rozwiązania brak mi pomysłów. To mój pierwszy program, dotychczasowe wypociny opieram na tym co wyczytałem w internecie. Chciałbym stworzyć makro w Excelu, miałby to być wykaz uwzględniający wszystkie informacje z pozostałych zakładek (które edytowane są ręcznie)....
Witajcie moi drodzy. Chciałem zrobić komunikację po RS232, na początek w jedną stronę - z atmegi do komputera. Niestety, ciągle pojawia się taki błąd: http://obrazki.elektroda.pl/4311460800_1... Korzystam z zewnętrznego kwarca 16MHz bez kondensatorów. Takie mam fuse bits: http://obrazki.elektroda.pl/7171078000_1... Podłaczenia...
Witajcie moi drodzy. Udało mi się obsłużyć (częściowo) klawiaturę matrycowa. Proszę o sprawdzenie kodu (kod bazuje na przykładzie dondu bo przez rs232 wysyłam to co kliknięto) http://obrazki.elektroda.pl/2692005700_1... 1. Co można ulepszyć/usprawnić? 2. Czy idea (oraz tryby pracy portów) są poprawne? 3. Czy wartość rezystora jest odpowiednia?...
Witam, mam problem z nawiązaniem połączenia przez układ MCP2200. Jest to konwerter USART=>USB. Korzystam z programu z strony: http://mikrokontrolery.blogspot.com/2011... Kod programu: http://obrazki.elektroda.pl/3793960700_1... Wszystko robię tak jak jest opisane na stronie, po podłączeniu układu...
Sprobuj takie makro [syntax=vb]Sub sortgodz() With ActiveSheet.UsedRange .Sort key1:=.Columns(4).Cells(1), header:=xlYes Set bt = .Find("Zast") r = Cells(Rows.Count, 4).End(xlUp).Row + 1 Rows(bt.Row).Cut Rows(r).Insert shift:=xlDown End With End Sub [/syntax]
Nie sadze zeby bylo cos co zrobi to automatycznie. Trzeba napisac skrypt uzywajac VBA.
Witam! Bardzo proszę o pomoc, mam następujący problem chciałbym aby makro wstawiało pusty wiersz po określonej liczbie w moim przypadku chodzi aby wiersz pusty był wstawiany przed ostatnią liczbą mniejszą od 1 000 000 (wartości zawsze posortowane są malejąco) np mam taki ciąg: a 6 541 237 b 3 214 578 c 1 002 478 tutaj makro wstawia pusty wiersz d 987...
Jest tam makro. Otwórz pusty arkusz i uruchom makro DwaDzieścia :)
Dlaczego myslisz, ze wklejenie makra w jego opisie odniesie jakis skutek? Opis zostaw pusty, dodaj makro, nastepnie wybierz wyswietl makra -> edycja i dopiero tam wklejasz kod.
Jak zmieniłeś nazwy arkuszów ("Arkusz1" to teraz "BAZA" a "Proszki" to "MAŁE") to w całym kodzie makra trzeba je zmienić, a nie tylko w jednej linii. Poza tym (nie chce mi się tego mocno analizować dlaczego) ale makro odczytuje ostatnią pustą komórkę w kolumnie B arkusza "Dane" jako "zapisaną". Nie wiem czego - może ktoś z kolegów wyjaśni. Dlatego dołożyłem...
otwiera się Arkusz 2 zaznaczając pustą komórkę kolumny B (ewentualnie dodaje nowy pusty wiersz) Patrząc na załączony plik nie mogę zrozumieć w jakim celu chcesz zrobić to makro :?: :cry: Jeśli chcesz szybko weryfikować odniesienia do arkusza 2 to najprościej proponuję makro w arkuszu 1 :spoko: : [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal...
Dziękuje JRV - Twój sposób również zadziałał, ale ostatecznie skorzystałem z tego, że makro otwiera pustą prezentację z utworzonym już wzorcem dokładnie takim jaki mnie interesuje, a dodawanie kolejnych slajdów udało mi się rozwiązać w taki sposób: [syntax=vbscript] PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1, ppLayoutTitleOnly...
[syntax=vb]xx = sciezka & "\Dokumenty\LZH\" & NazwiskoImie If Dir(xx, vbDirectory) = "" Then MsgBox "Nie ma Folderza": Exit Sub If Dir(xx & "\*.*") = "" Then MsgBox "Folderz pusty": Exit Sub With Application.FileDialog(msoFileDialogOpen... .InitialFileName = xx .Show End With [/syntax]
A może wrzucę przykładowy arkusz, to może będzie prościej. Link dobry, ale dotyczy on kolumny, a mnie by interesowało, żeby dopisywał kolejny wiersz z wartością o 1 większą niż poprzedni.. Podałem Ci "wędkę" ale widzę, że Ty chyba oczekujesz na gotowe :) Owszem da się, tylko trzeba przykład podany w linku przerobić na swoje potrzeby. Nie jest to trudne.
Nie wiem, czy da się osiągnąć taki efekt jak zamierzasz. Trzeba by było wymyślić jakieś sprytne makro. Standardowo Excel potrafi ukryć wszystkie puste wiersze, a tu należałoby pozostawić pierwszy pusty odkryty. Myślę, że lepiej wykorzystać te mechanizmy, które zostały przygotowane, a nie walczyć z Excelem. Tu należałoby wykorzystać tabelę Excela. Ona...
do C1 wstaw JEŻELI(CZY.PUSTA(A1);"";B1) i ukryj kolumne B, było tutaj też: http://www.elektroda.pl/rtvforum/topic12...
Z przedstawionego teraz opisu wygląda, że Tobie nie jest potrzebne kryterium filtrowania, a wynik filtrowania - to znaczy czy wszystkie komórki w wyniku filtrowania są jednakowe, czy są różne. Jeśli jest tak w istocie, to możesz spróbować takiego makra: [syntax=vbscript]Sub Wart_zakresu() Dim zakres As Range, rws As Long, wynik Set zakres = Range("A1").CurrentRegion.Columns(1)...
Oki, tylko że jeśli postawisz kursor w danej tabeli, to masz już z autoamtu przygotowany pusty wiersz do wprowadzania danych, tak działa lista-tabela. 912568 1. Czy chodzi ci zatem o to, żeby prócz tego wiersza z gwiazdką, makro wstawiało dodatkowy pusty wiersz, jako "kolejny" (wtedy będą dwa puste, w tym jeden z gwiazdką) ? 2. Czy wystarczy może tylko,...
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Tego załącznika nie da się odczytać. Jest uszkodzony. Zresztą już jego wielkość 256 bajtów wskazuje, że jest praktycznie pusty.
Widocznie "stop" nie jest ostatnią pustą... Spróbuj z wyszukiwaniem [syntax=vbscript]Sub Makro() Dim target As Range Dim wrs1 As Integer Dim ostWrs As Long Dim i As Long Set target = ActiveCell wrs1 = target.End(xlUp).Row On Error Resume Next ostWrs = Columns(target.Column).Find(what:="stop"... lookat:=xlWhole).Row If Err > 0 Then MsgBox "brakuje znacznika...
Nie wykrzacza się, ale nic nie kopiuje. Arkusz pozostaje pusty...
Witaj. Można spróbować dopisać sobie w makro: On Error Resume Next If Cells(Target.Row, 5).Value = "" Then Cells(Target.Row, 5).Value = Now On Error GoTo 0 Linijki On Error są opcjonalne, ale jak w kolumnie E będziesz miał w zwracanej formule błąd, to makro też wyłoży się błędem. Po wymuszeniu działania w przypadku napotkania błędu wartość jest aktualnie...
Witam, czy jest jakiś sposób aby w ThisWorksbook nowo tworzonego arkusza za pomocą VBA umieścić wpis określonego Makra (bo normalnie ThisWorkbook jest pusty) ? Pozdrawiam: keszybz
Nie znam przykładów Freddiego ale poszukam. Dzięki za wyjaśnienie ogólnie wolę makra chyba że rejestr jest pusty w miarę.
Witam wszystkich forumowiczów Mam problem z prostym makrem, mianowicie potrzebuję aby w każdym arkuszu makro automatycznie wstawiało pierwsza pustą kolumnę. W moim makrze wstawiane jest tyle kolumn ile arkuszy w zeszycie i to tylko w akurat podświetlonym arkuszu. Wiem, że mógłbym to zrobić operacją na wielu arkuszach ale niestety potrzebny jest mi automat....
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.
No sumy częściowe jak najbardziej mi pozwolą posortować i zsumować odpowiednią kolumnę. Chyba nie dość dokładnie opisałem w czym rzecz ;-) Suma, 30 (pusty wiersz) Miałem na myśli makro, które znajdzie wiersz podsumowujący i wstawi poniżej pusty wiersz (lub 2, 3 wiersze ...) poniżej. Dokładniej, muszę popracować w dwóch, trzech wierszach poniżej nad...
Działa. Dzięki. Robiłem coś takiego, ale w zły sposób, bo włączałem nagrywanie, minimalizowałem i tworzyłem nowy plik na pulpicie. W makro bylo tylko "minimalizacja" A trzeba wybrać menu plik, nowy "pusty skoroszyt"
Można umieścić kod w ThisWorkbook przy zdarzeniu Open. Żeby zabezpieczyć plik przed otwarciem bez makr można ustawić na kluczowe arkusze atrybut VeryHidden (z poziomu edytora VB) a widoczny zostawić dodatkowy pusty arkusz. Przy starcie jeśli warunki są spełnione wystarczy zamienić atrybuty. Tu konieczne hasło ochrony VBA. Przy zamknięciu ustawić na...
Sprecyzuj co chcesz uzyskać. Przekaz jest co najmniej 2 znaczny. Przecinki maja znaczenie. chcę żeby "data" pierwsza od góry buła kopiowana niżej w pustą komórkę, (to jasne) po napotkaniu następnej "daty" skopiować ją i niżej wpisać w pustą komórkę. (gdzie ma wystąpić następna data? w kolejnej komórce niżej, w pierwszej napotkanej komórce z datą. Czasem...
Witam. W przypadku kwerendy więcej niż 2 linie, zaproponować, co następuje: 1. Makro, który odświeża dane pierwotnie ociera wszystkich wierszy w kwerendzie. 2. Makro organizujące dane okresowo sprawdza, czy drugi wiersz jest pusty. 3. Gdy kwerenda jest przygotowany, makro będzie kontynuować prace.
makro pierwszy pusta makro kopiować pusty makro pusty komórka
zmiana napięcia alternatora zestaw głośnomówiący telefon instrukcje mercedes
prowadnice liniowe prowadnice liniowe
T.amp TA-2400 MK-X i TA-1050 MK-X: Dane techniczne i pomiary mocy Naprawa spalonego telewizora: diagnostyka i wymiana komponentów
