Stara formuła / 9 }/[0-9]{2}
Możesz użyć takiego makra zdarzeniowego: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Value = "B" Then Application.EnableEvents = False Cells(Target.Row, 2).Value = WorksheetFunction.Max(Columns(2)) + 1 Application.EnableEvents = True End...
Jeśli dobrze zrozumiałem Twoje potrzeby :?: To efekt taki jak na zrzucie 1011231 tzn. po wpisaniu numeru kontraktu zakupu makro automatycznie wyszukuje "wstecz" (tzn. do góry :D ) czy już wystąpił taki numer i jeśli tak - to wprowadza do kolumny D ilość pozostałą z wcześniejszej transakcji :spoko: 1011234
Filtr działa, wg Twoich danych i ustawień tylko 1 data jest większa niż dzień dzisiejszy. Może przyjęłaś błędne założenia ? Oczywiście trzeba zmienić nazwę arkusza i numer kolumny wg której makro ma filtrować dane ...
Można do przycisku przypisać Np takie makro Option Explicit Sub cmdWstaw() Dim pozycja As Integer, numer As Integer Dim kom As Range pozycja = Sheets("Arkusz1").Rang... + 1 If pozycja = 77 Then MsgBox "Osiągnięto koniec zakresu w zestawieniu..." Exit Sub End If For Each...
(at)ElektrodaBot Szukam scalaka HMT624.1, POMOŻESZ? (at)ElektrodaBot AI: Do jakiego urządzenia lub zastosowania potrzebujesz ten układ HMT624.1? Do frezarki podologicznej RUCK. AI: Czy masz jakieś konk... Bezpośrednia odpowiedź - Tak, pomogę. HMT624.1 to układ w obudowie SMD (deklarowany jako SOP‑28), ale publicznie dostępne informacje o nim pochodzą...
Pisałem ze nie do końca działający bo musiałem mieć więcej wiedzy na temat tego twojego magazynu. Zachowałem twój układ - w sumie dla makra to bez różnicy. W załączeniu plik. Przetestuj czy dobrze działa i czy tak jak chcesz bo ... to tworzył człowiek, a mylić się jest rzeczą ludzką. :) ---------------------- Jest jeszcze jeden błąd który będę mógł...
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...
... Filename:= "C:\Documents and Settings\Marek\Pulpit\FORMULARZE.xls&quo... i drugi (można od razu wpisać bez zmiennej Newfilename) ... Filename:= "C:\Documents and Settings\Marek\Pulpit\" & numer & "-2015.xls"
Rozwiązanie dla Excela. (W czasie prób wyłącz drukarkę) Makro drukuje zadaną ilość stron, zmienia Nr i umieszcza napis "Oryginał" lub "Kopia". Ustawienia w arkuszu "Opcje".
A jak zmienić kod aby do zmiany wartości była uwzględniana tylko kolumna C, ale skrypt był wyzwalany po zmianie w kolumnach B, C, D. Do tych kolumn wklejam jednocześnie dane, po wklejeniu danych do trzech kolumn skrypt nie działa. Wstępna ocena dostępnych informacji Witam ponownie, Zrozumiałem, że chce Pan zmodyfikować skrypt w Google Apps Script tak,...
Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS
Na samym wstępie zaznaczę, że jak na razie nie korzystamy z makr tylko z wbudowanych funkcji excela. Wydaje mi się że to co chcesz to właśnie razem z kolegą adamas_nt ci zaproponowaliśmy ostatnio. Sprostuje jedynie że nie trzeba stosować formuł tablicowych - ale to ci chyba i tak za dużo nie mówiło No chyba że dalej nie rozumiem. Na końcu (w prawo)...
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
Aby było 0 przy wchodzeniu do arkusza DANE trzeba w kodzie arkusza wpisać: Private Sub Worksheet_Activate() For i = 1 To 11 Cells(i + 2, 9).Value = 0 Next i End Sub Co do przecinka samo Val czy CSng w tym przypadku nie wystarczy bo raz pobierasz dane z arkusza a raz wpisujesz z ręki. Można to było uzależnić od "rozbicie" ale stwierdziłem...
Szanowna, wcześniej już miałem pytanie: konik95 napisał: W mojej Bazie danych są jednak pewne elementy, które powinny być do wszystkich skopiowanych wierszy dodawane ręcznie? Tylko teraz widzimy jak wypełnić pola( NumerNazwaWersjaData utworzenia dokumentu) Z Numer a Wersja mniej więcej jasne. Dane skąd Nazwa i Data? Wątpliwości, że mamy wymyślić.
W zasadzie wszystko działa idealnie oprócz tzw. przeksięgowania ... :D Wpisuję numer RZ w komórkę "G-1" a następnie przyciskiem "Obciąż RZ" zdejmuję liczbę podzespołów z arkusza "RZ" ... :?: mechanizm arkusza "robi" rozliczenie tak jaby wszystkie dane tabeli arkusza "Przeksięguj" dotyczyły tylko RZ zawartego w komórce "G1"... :?: Po pierwszym użyciu...
Makro jest w kodzie arkusza REJESTR - reakcja na zdarzenie Worksheet_SelectionChange (wybor kursorem dowolnej komorki w arkusze REJESTR). Makro pisze w N1 (nazwa 'wiersz') numer wiersza w ktorem zaznaczena komorka. Dalej w PROTOKOL'e formula INDEKS wybiera z tego wiersza dane(w przykladzie tylko wartosc PROTOKÓŁ ODWODNIENIA NR: , reszta dopasuj wg tego)...
Czemu jak już zrobiłeś przykład nie załączyłeś go do postu? (spakuj na przyszłość zipem i załącz) Po prostu wykorzystaj funkcję wyszukaj.pionowo() Zamknąłem w pętli i sprawdza po kolumnie M czy wysłano (dlatego tez na końcu pyta czy wysłałeś. Poniżej z paroma "wodotryskami". Makro nie sprawdza poprawności adresu mailowego więc jeżeli będzie zły a ty...
Cześć. Sprawdź, czy takie coś Ci pasuje: [syntax=vbscript]Sub Rep() Const RFrom = "A1" Const RTo = "H1" Const Src = 3138 Dim x As Long For x = Range(RFrom).Column To Range(RTo).Column Columns(x).Replace what:="#", replacement:=Cells(Src, x).Value, _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False...
zamiast: if (bit_is_clear(PINC,PINC1)){} możesz napisać: if(!(PINC && PINC1)){} PINC1 musi być liczbą typu 0b00001000 gdzie pozycja jedynki oznacza numer pinu. Ale myślę, że pierwsze rozwiązanie wygeneruje krótszy kod, bo to makro ze wstawką asemblerową (1 rozkaz). Jeśli mimo to chcesz krócej - napisz sobie makro typu: #define BCLRC(x) if (bit_is_clear(PINC,x))...
Przyczyna błędu jest skutkiem błędnego zadeklarowania lub błędnego użycia zmiennej kol. Jest zadeklarowana jako String (tekst), a w tekście procedury jej wartość jest odczytywana z komórki T1, która zawiera wartość liczbową 50. Potem używa się zapisu: [syntax=vbscript]Range("f11:" & kol & wynik)[/syntax]który po podstawieniu wartości zmiennych daje...
Witam Zrobiłem troszeczkę inaczej. Myślę że lepiej ale jeżeli nie będzie ci pasowało - nie ma sprawy - poprawie dokładnie tak jak chcesz. Po wciśnięciu OK w okienku pojawia się komunikat czy chcesz wprowadzić kolejny dokument. Jeżeli tak data i numer pozostaną, jeżeli nie zamknie się całe okienko i jego ponowne otwarcie (z "głównego" przycisku) otworzy...
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...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
ogolnie do przerwan to interrupt z numerem na koncu funkcji ( 0 - adres 0x03, 1 - 0x0b itd) jest w pdf o kompilatorze. do nopa jest jakies makro chyba _nop() ale nie pamietam dokladnie tylko trzeba biblioteke dolaczyc. void przerw0(void) interrupt 0 { ; } mozna jeszcze dodac using i potem numer banku rejestrow ktore beda dla tego przerwania...
Pisałem, że w procedurze Calculate nie ma zmiennej Target, więc nie ma sensu jej używać, chyba że się ją zadeklaruje samemu. [syntax=vbscript]Private Sub Worksheet_Calculate() With Range("A2") .Value = "TAK NIE" If Range("A1") = 1 Then .Characters(5, 3).Font.Strikethrough = True .Characters(1, 3).Font.Strikethrough = False Else .Characters(5, 3).Font.Strikethrough...
Być może, ale co z powtarzających się kombinacje "data transakcji - kwota - numer karty" ? Z dużej bazy danych takich zdarzeń mogą być spowoduje że wiele niejasności. Skąd się bierze dane w arkuszu RAP? (źródło) Jest to możliwe, w RAP daty transakcji z dokładnością do sekundy?
Makro w oddzielnom skoroszycie [syntax=vb]Sub wypelnienie() Dim rd&, rs&, bd As Worksheet, bsh As Worksheet rs = InputBox("Wprowadz numer wiersza danych", "Wiersz #?", 1) path_A = "d:\AAA\" path_B = "d:\AAB\" Set bsh = Workbooks.Open(path_B & "BAZA").Sheets(1) Set bs = Range(Cells(rs, 1), Cells(rs, 7)) plik = Dir(path_A & "*.xlsx") While...
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...
Z przesłanego pliku wynika, że tylko bardzo niewielka część ofert skutkuje zawarciem umowy - co powoduje, że w kolumnie P jest "więcej dziur niż sera" :D Konieczne jest zatem (jeśli baza danych jest "chronologiczna") odwrócenie procedury wyszukiwania. Dla nowych rekordów - można to zrealizować kodem: edycji starych rekordów w celu modyfikacji wpisu...
Problem jest kiedy zamiast kiedy chce zwiększyć ilość danych do pobrania z 3 do 4 lub 5 Zmienna "r" to zmienna "pośrednio" wskazująca ilość "pobieranych danych". Jest to numer wiersza, od którego zaczyna się pobieranie danych z zeszytu "Dane.xlsx". Naturalnym jest to, że jeśli przy 20 wierszach, zaczniemy pobierać je od ... np.: r = 10 ... to pobierzemy...
Jeśli to pierwsze makro to miało być _SFR_ IO _ADDR to wyjaśnienie jest następujące : w plikach nagłówkowych avr-lib wszystkie rejestry specjalne zdefiniowane są adresami w przestrzeni adresowej pamięci. Jak ktoś używa asemblera, to do instrukcji typu in, out, cbi, sbi, ... potrzebne są mu adresy w przestrzeni wejścia-wyjścia i to makro zamienia jedne...
hmm no tak nie pomyślałem o tym to fakt ;) ... więc tak na szybko można byłoby to zrobić troszkę inaczej ;) ; Jump if Bit in SRAM is Set ; jbisr adres_komórki, nr_bitu, adres .macro sbisr lds R16, (at)0 andi R16, (1<<(at)1) breq PC + 2 rjmp (at)2 .endm ; Jump if Bit in SRAM is Cleared ; jbicr adres_komórki, nr_bitu, adr .macro sbicr lds R16, (at)0...
Hej. Jak dla mnie widzę tu tylko makro w Excelu. Niestety programista ze mnie kiepski, więc coś tam próbowałem wymyślić, jednak nie gwarantuję, że będzie działać idealnie. [syntax=vb]Sub Makro1() Const MaxR = 20 ' maksymalna ilość powtórzeń If ((Selection.Rows.Count < 2) Or (Selection.Columns.Count < 2)) Then MsgBox "Zaznacz obszar, na którym...
Mam rozwiązanie. Niech klawisz "0" nazywa się "C0" wtedy: Private Sub C0_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) C0.BackColor = &H80000010 ' Zmieniamy kolor przycisku End Sub Dla klawisza "1", który nazywa się "C1" Private Sub C1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,...
Tak najprościej: On Error Resume Next 'wyłącza błąd jeżeli wpiszesz daną której nie ma w arkuszu 2 a = Sheets(1).Range("a1&quo... 'pobranie ciągu znaków z komórki A1 pierwszego arkusza w excelu kol = Sheets(2).Cells.Find(What... ' numer kolumny wpisanego ciągu znajdujacego się w drugim arkuszy excela...
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
podejrzewam że najlepszym wyborem było by próbować w vba Czytając Kolegi opis problemu prawie nic nie rozumiem. Moje podejście do VBA na podstawie domysłów z Kolegi opisu i rozwiązania Kolegi Prajz w załączniku. Makro osadzone jest w module w skoroszycie, będzie działać na wersji Excela 2003 i wyżej. Makro udostępnia w arkuszu funkcję Q (byłem leniwy...
Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...
Jak widać nie każdy lubi łowić ryby ;P Zwiększasz tylko numer dla ostatniej pozycji - dla VBA to co masz w komórce nie jest liczbą,a tekstem. Musisz go najpierw rozdzielić funkcją Split() po myślniku, następnie w ostatnim elemencie tablicy zwiększyć liczbę o jeden i na koniec - "skleić" tablicę na powrót w wymaganym formacie. Jak przedmówca wspomniał...
Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...
Ze względu na "zaszumione" dane zrobienie formuły jest dosyć dużym wyzwaniem, ale można kombinować z makro: [syntax=vbnet]Function Wyjmij(r As Range, n As Integer) As String Const minLen = 5 Wyjmij = "" Dim x, tmp, tmp2 As String Dim v, cn, cg As Integer tmp = "" For Each x In r tmp = tmp & x tmp = tmp & "%" Next x tmp2 = "" cn = 0 cg = 0 For...
Dzień dobry, nie ukrywam że kompletnie nie znam się na tworzeniu makr..i moze mój problem będzie można rozwiązać bez tworzenia makra..mam nową prace w której mam stworzone bazy danych w excelu..dwia główne arkusze i w każdym zakładki...bazy są podobne jednak w każdej zakładce mam albo więcej danych na temat danej osoby a w niektórych tylko komórki z...
w naszej pętli zamiast MsgBox wystarczy podstawić Razem byłoby coś takiego Sub petla() For i = 2 To Range("D2").End(xl... For j = i To Range("D2").End(xl... If Cells(j, 4) <> Cells(j + 1, 4) Then Exit For 'porownanie w kol D indeks 4 Next i = j 'żeby nie od...
(at)sandrak24 Niestety, dalej nie wyjaśniłeś, co chcesz osiągnąć i trzeba się domyślać. Z Twojego programu paru rzeczy nie rozumiem bez tych wyjaśnień. 1. Znak jest zdefiniowany przez 16*5 = 80 bitów? To znaczy, że jeden znak zajmuje dwie matryce? 2. W programie obsługujesz trzy układy MBI. Masz ich więcej i planujesz obsłużyć wszystkie? Dobrze rozumiem?...
https://obrazki.elektroda.pl/1002030200_... Bezpośrednia odpowiedź - FR950 to rezystor bezpiecznikowy (fusible). Nie jest to „zwykły” R… tylko element zabezpieczający gałąź zasilania. - Wartość FR950 w U2413f zależy od konkretnej wersji płyty. Wartość 0,2 Ω/1 W, którą można znaleźć w internecie, dotyczy innego modelu Della i nie powinna...
Jeśli to jest nowy Excel (365) No właśnie Autorka jest coś małomówna. ;) Nie mam 365 i nie wiedziałem, że takie udogodnienie w nim jest. Mam 2007 i 2021. Nawet w 2021 nie ma "Automatyczna konwersja danych"... Ale zawsze można napisać makro dla starszych wersji, żeby ułatwić pracę. W załączniku makro do wczytywania pliku CSV.
https://obrazki.elektroda.pl/3570276400_... Pokażę tutaj jak przyśpieszyłem programową komunikację SPI służącą do obsługi pamięci Flash. Sprawdzę jak dużo kodu może kryć się za warstwą abstrakcji GPIO BK7231 a potem spróbuję operacje na pinach zredukować tak, by działały bezpośrednio na rejestrach. Ile cykli procesora tracone jest...
https://obrazki.elektroda.pl/9396852000_... Wstępna ocena dostępnych informacji Na załączonym ekranie widoczne są dane zapisane w arkuszu kalkulacyjnym Excel. Arkusz zawiera trzy główne tabele: 1. Tabela 1 (kolumny A-D): zawiera dane liczbowe pod nagłówkami „LO”, „CW”, „ZW”, „CO”. 2. Tabela 2 (kolumny E-H): na razie wypełniona jedynie w...
kolejny numer makro diodowy numer numer makro uruchamiać makro
mission subwoofer kondensator mniejszy zasilacz dodać internet android
hydrofor sprzegło milwaukee klucz
Krups FDB145000P – komunikat „napełnić pojemnik”, czyszczenie pływaka i czujnika wody ABM238 Sliding Gate Controller Manual, Wiring, and Faults – Similarity to Jujiang PYM-X2208, ABM338