Mam taką formułę =JEŻELI(LUB(LICZ.WARUNKI(A&#... Szybka odpowiedź Zastąp frazę „NOK” konstrukcją, która zwraca „1” lub „2” zależnie od tego, który z dwóch liczników jest różny, a „OK” gdy oba się zgadzają:...
Dzień dobry, Na wstępie powiem że ze wszystkich sił starałam się nie fatygować nikogo by mi pomógł znaleźć rozwiązanie problemu, próbując sama zrozumieć dlaczego tak się dzieje. Jednak moja nieznajomość VBA wzięła górę i do co utknęłam w martwym punkcie (choć może nie do końca bo makro w sumie robi co chce). Makro które udało mi się stworzyć, przerabiając...
Ok zmiana w B2 Ale nie "idz" od razu na koniec "zabrakło tabeli na 30/06/2013 ( CO) więc ją skopiowałem od poprzedzającej w prawo mam nadzieję, że zasadnie? " No nie do końca bo kwiecień/ maj ma błąd a co za tym idzie ostatnia kolumna czerwca też jest błędna. Po kolei jeszcze raz: zmieniasz B2 idziesz do końca 1 miesiąca i sprawdzasz ostatni dzień i...
To akurat udało mi się rozgryźć.Chodzi mi tylko o to że jak wkleję jedną pod drugą to w drugiej jest inna szerokość kolumn.Nie wiem jak to obejść. Robisz dwie kolumny jedna o szerokości tej prawidłowej krótszej a druga obok o takiej szerokości by wspólnie z pierwszą kolumną tworzyły tworzyły tą szerszą kolumnę w innej tabeli. Scalasz w tej tabeli komórki...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Dzień dobry, Nie wiem, czy o to dokładnie chodziło, ale można wypróbować coś takiego: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("J:J")) Is Nothing Then Exit Sub LastRow = Cells(Rows.Count, "J").End(xlUp).Row ActiveSheet.Unprotect Range("J:J").Locked = False Range("J2:J" & LastRow).Locked = True ActiveSheet.Protect...
Podam ci teorię bo inaczej się nie nauczysz (adres bezwzględny). Znak $ w adresie zatrzymuje "zmianę" numeracji wiersza lub kolumny lub obu podczas kopiowania. Przykład 1. W komórce jest napisane =A$10 jeżeli będę kopiował w bok zmieniać się będzie tylko litera kolumny adresu. Prawdę mówiąc kopiując taki przykład tylko w prawo czy lewo nie trzeba "zatrzymywać"...
Witam. Próbuje uruchomić klawiaturę matrycową 3x3, Znalazłem obsługę takiej klawiatury tutaj : http://hobby.abxyz.bplaced.net/index.php... No usunąłem zbędny kod do obsługi innych rzeczy, została tylko klawiatura. Chcę uzyskać efekt, że po naciśnięciu przycisku zmienia mi się wartość na wyświetlaczu. Na tej podstawie już będę mógł później...
A działa Ci na wewnętrznym zegarze mikrokontrolera? Zrobiłem dokładnie według schematu Jaboo i wgrałem program Draukerusa. Bez przestawienia fusebitów zegar działał na wewnętrznym zegarze - zmiana następowała co kilka sekund, tak więc zanim zaczniesz przestawiać fusebity sprawdź poprawność układu. Jeśli zaś chodzi o samą zmianę fusebitów, w AVR Studio...
Z mieniłem program żeby podprogram nie wywoływał sam siebie: [syntax=basic4gl]'---PROCESOR-----------... $regfile = "M32Def.dat" Wait 2 $crystal = 16000000 $hwstack = 128 $swstack = 64 $framesize = 64 '---WYŚWIETLACZ-------------------------... $lib "glcdKS108.lib"...
ANTENA 11 ELEMENTOWA UKF-FM 87.5-108 Są różne programy do projektowania anten Yagi-Uda, lepsze i gorsze. Te darmowe, mogą być nieco uproszczone. Te profesjonalne mogą wymagać rzeczywiście wydajnych komputerów no i większej wiedzy z zakresu teorii i podstawowych zasad projektowania i działania anten typu Yagi-Uda. Aby w przybliżeniu nakreślić problem...
Nie bardzo rozumiem jak ten plik ma działać. Na pewno nie ma uzasadnienia, żeby tam dawać zdarzenie SelectionChange. Może najwyżej Change. Kod tego zdarzenia sprawdza wszystkie wypełnione wiersze pod kątem zawartości kolumny S. Tam jest różnica między datą dzisiejszą a datą wpisaną w kolumnie H. Skąd się bierze ta data? Jest wpisywana ręcznie, czy z...
To jest procedura zdarzeniowa z trzyargumentową podprocedurą (tak było mi wygodniej). Po umieszczeniu w kodzie arkusza, "sama" się uruchamia. Tzn uruchamia się przy zmianie wartości w dowolnej komórce ;) Ustawienia są w 4-ech miejscach: 1. nagłówkowa kolumna tabeli źródłowej - "Set zakres_wierszy_zrodlowych" 2. nagłówkowy wiersz tabeli źródłowej - "Set...
Co do daty, to rozumiem, bo tam elementem formuły jest DZIŚ(), które jutro będzie miało inną wartość, a Ty chcesz zachować zapis pierwotny. Natomiast w kolumnach A i C nie widzę takich elementów dynamicznych, więc nadal nie wiem po co te odwołania cykliczne. Zakładam, że nie są potrzebne. Działanie Excela nie zawsze jest przewidywalne. Dużo czasu zajęło...
Spróbuj taki kod: Sub Makro1() kolumna = 1 wiersz=1; Do while Cell(wiersz,kolumna).value<&g... Cells(wiersz, kolumna).Select If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then ActiveCell.Offset(1, 0).Insert Shift:=xlDown wiersz = wiersz + 1 End If Loop End Sub
Wyszła mi taka formuła: [syntax=text]=ADR.POŚR("'[01 Par. -Styczeń 2017.xlsx]"&TEKST(WYSZUKAJ(100;B$7:B7);"... wykorzystuje liczby wpisane w kolumnie B. Wyniki muszą być wpisywane od siódmego wiersza. W kolumnie W jest formuła wyliczająca numer wiersza...
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Witam mam problemik z Excelem. Mam np dane w kolumnie A w kolejnych wierszach np 1,1,2,3,3,3,4,5,5,5 czy jest jakas formuła która z automatu porównała by te dane i przed każdą zmianą danych wstawila pusty wiersz aby pozniej wygladalo to tak 1,1 pusty wiersz, 2 p[usty wiersz 3,3,3, pusty wiersz 4 i tak dalej? Z gory dzieki za pomoc
Jak dodajesz wiersze do tabeli, to zawartość wierszy pod spodem przesuwa się w dół, ale wysokości wierszy pozostają bez zmiany (nie przesuwają się). Jest tak dlatego, że poza obrębem tabeli (w innych kolumnach) może być inna zawartość wymagająca innej wysokości wierszy. Żeby przesunąć wszystko w dół wraz z wysokościami wierszy trzeba wstawiać całe wiersze....
Faktycznie, w moim poprzednim poście z załącznikiem wkradł się błąd, który potem niechcący powieliłeś :) - w komendzie sortowania wpisałem dwa razy Key1=..., podczas gdy powinno być Key1=... i Key2=.... poprawiłem tamten załącznik. Natomiast teraz problem z sortowaniem wynika z tego, że jest: [syntax=vb]Worksheets("wyniki").Range("A... & ostatniWiersz).Sort...
W zasadzie ładnie algorytm już opisałeś, pozostaje tylko poszukać odpowiednich funkcji. Wg mnie, jeżeli nazwy w kolumnie A nie będą się powtarzały, to o wiele prostsza w użyciu będzie funkcja .match , np. [syntax=vb] Szukana_nazwa = Worksheets("Arkusz1").Cells(ActiveCell.R... 1).Value 'Wiersz aktywnej komórki, kolumna A czyli 1 Nr_wiersza = Application.WorksheetFunction.Match(Szuk...
Witam, znalazłem w internecie taki kod VBA: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim xRg As Range, xCell As Range On Error Resume Next If (Target.Count = 1) Then If (Not Application.Intersect(Target, Me.Range("K4:K1003")) Is Nothing) Then _ Target.Offset(0, -3) = Date Application.EnableEvents = False Set xRg = Application.Intersect(Target.Dependents,...
Nie mam za dużo czasu a akurat do tego przydało by sie makro. Wesz co a może zrób sumy częściowe. TZN Zaznacz całą tabelę i W menu dane wybierz sortuj , wciśnij ma wiersz nagłowka i w sortuj wg kolumny: nr ewidencyjny. daj Ok Następnie w menu dane wybierz sumy częściowe. Dla każdej zmiany w: zaznacz numer ewidencyjny Użyj funkcji wybierz suma Dodaj...
Jest prosty sposób na uruchomienie makra jeśli aktywowana będzie określona komórka. Powiedzmy, że zmieniasz dane w A1. Jeżeli posługujesz się klawiaturą to następna aktywowana komórka będzie A2 lub B1. Przykład uruchomienia makra dla B1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) wiersz = 1 kolumna = 2 If Target.Row = wiersz...
Pokazałem Ci jak sterować położeniem komórki zmieniając i numery wiersza i kolumny. W "ActiveSheet.Cells(i, i + 1)" nie jest ustalona na sztywno kolumna C bo "i + 1" wyznacza kolumnę na podstawie zmiennej "i", więc za każdą jej zmianą - kolejnym obrazkiem, pozycja obrazka w arkuszu będzie się zmieniać i w wierszu i w kolumnie, czyli dla i=2 będzie...
Pytanie zrozumiałe. To zwykła suma liczb, więc w czym problem? Osobiście nie bawiłbym się w składanie formuły. Wystarczy zostawić jeden wiersz, pozostałe usunąć i wpisać sumę... Jeśli jednak składniki ulegają zmianie. Zamiast "+" użyj ActiveCell.Formula = "=SUM(arg1,arg2,...)" Gdzie prawa strona równania jest typu string, więc łatwo poskładać.
Intersect(Target, Columns(...)) zwraca zakres komórek typu Range(), będący wspólną częścią - w przypadku zdarzenia Worksheet_Change - obszaru, który uległ zmianie (Target) oraz wybranej kolumny (Columns(...)). Tym obszarem który uległ zmianie (Target) może być tylko jedna komórka (np. kiedy wpisujesz w nią wartość ręcznie), ale też zakres komórek (np....
Jak pisze kolega zimon wylosowanie jednej liczby z wielu jest dosyć proste. Ale jeżeli chcesz "wymieszać", to dla Excela znaczy, że chcesz wylosować 1000 z 1000 bez zdublowania. Musisz podzielić to na etapy, wykorzystać kilka funkcji w tym WYSZUKAJ.PIONOWO i dlatego dane muszą zostać ułożone we właściwy sposób. W moim przykładzie użyjemy trzech kolumn....
Dobrze by było jak te formuły miały charakter stały, uwzględniając np. zmianę dnia w tygodniu (ponieważ inaczej rozlicza się godziny w dzień roboczy, a inaczej w święto). Zrób dodatkową kolumnę, którą będziesz wyróżniał dzień wolny/sobota-niedziela/święto od normalnego dnia pracy. Wtedy wartość z tej kolumny ta może posłużyć za warunek do zmiany sposobu...
A może założyć trigger na kolumnie J z eventem Worksheet_change, w chwili zmiany komórki w kolumnie J przenieść wiersz z aktywnego wiersza do Zestawienia Wydatków. Edit. RADU23
Makro reaguje na zmianę wartości w komórce. Jeśli pierwszy wiersz jest "FPS", określa ostatnią komórkę z wartością w kolumnie. Począwszy od 2 wiersz do ostatniej wartości koloruje. Dodano po 16 Oto mały fix, gdyby w zakresie niewypełnione komórki Dodano po 11 Czy chcesz malować kolumna E, ale "FPS" w innej kolumnie(np. B)? Wtedy byłoby inne podejście...
Zupełnie mnie nie przekonuje to rozwiązanie, wpisywanie wartości w jednym arkuszu a potem wyszukiwanie wg kilku kryteriów, automatyczna zamiana lub dopisanie itp. Trochę za dużo kombinacji. Trzeba pamiętać, że działania makr są nieodwracalne, najmniejszy błąd i pozamiatane :( Oczywiście makro jw. da się napisać :) Proponuję inne, wg mnie prostsze rozwiązanie...
Witam serdecznie, Uprzejmie proszę o pomoc w napisaniu makra, które miałoby w tym samym arkuszu działać w następujący sposób [syntax=tex]stan przed: a b c d e f g h wiersz i xxxx 23 wiersz i+1 xxxx 23 stan po: a b c d e f g h wiersz i xxxx 23 wiersz i+1 xxxx 100[/syntax] Chodzi o to, żeby makro porównywało 2 sąsiednie wiersze i jeśli w kolumnie A będzie...
OK, rzeczywiście jest jak mówisz. Wracając do makra z tego ostatniego pliku: zmień linijkę rekalkulacji w Excelu. Zmiana koloru takowej nie powoduje, więc dopóki coś nie zmieni wartości, funkcja pokaże starą wartość. PS 3. Nie wiem czemu piszesz, że nie możesz funkcji użyć w kodzie VBA: taki sposób wywołania działa: [syntax=vb]MsgBox SumByColorsFuction(Range("AA4:AA13"),...
Jeżeli chcesz podawać tylko nr wiersza pozostaje ci formuła Indeks(tablica;nr wiersza;nr kolumny) przykład poniżej Ps. Nie wiem jak masz dane w AKR (jeżeli imię z nazwiskiem jest pierwsze) to może lepiej by było wskazywać nazwisko (np z listy rozwijalnej) i np poprzez wyszukaj.pionowo i indeks wybierałyby się dane. Bo skąd wiesz że cię interesuje 6...
Proponuję zrobić przykładowy plik z danymi i dokładny opis czego oczekujesz od tego makra :?: Czy w gotowym arkuszu ma sprawdzić kolumnę A i w zależności od kryterium tekstowego skopiować określone wiersze do drugiego arkusza :?: Czy też po zmianie wartości w kolumnie A na określony tekst, kopiować ten wiersz do drugiego arkusza :D :?: A co wtedy ma...
A czy można i jak zapisać aby działało w całej kolumnie? W kolumnie, wierszu, zakresie, poza zakresem. Jak sobie życzysz. Po wpisaniu 'Target' i postawieniu kropki w edytowanym kodzie, otworzy się lista rozwijalna z własnościami i metodami. M.in. Address, Column, Range, Row, itp. W niemal każdym przypadku będzie nieco inna składnia zapisu. Można o...
...I już się ucieszyłem, lecz stworzył się kolejny problem!! Ponieważ napisów jest ok 40-50, to po powyższej zmianie zajęty obszar pamięci data(RAM) nie wynosi już 31,3%, lecz 93,4%. I CO Z TYM DALEJ ROBIĆ:cry::?: Chyba się nie zrozumieliśmy :( Dane możesz umieścić w pamięci programu ... prog_char PM_UST_ZEG[] = "Ustaw zegar: ";...
Przed zmianą wartości w miejsce kolumna,wiersz wpisujesz znak śladu, zmieniasz wartość i wpisujesz znak punktu. Nie odświeżaj całej planszy, bo mija się to z celem. Ustawiaj tylko kursor na właściwej pozycji. W przeciwnym wypadku będziesz musiał tworzyć tablicę z mapą, na podstawie której być planszę odświeżał.
nie mam excela pod reka ale dodaj zmianę formatu komorki ActiveSheet.Cells(wiersz, kolumna).NumberFormat .NumberFormat = "#,##0.0_ ;[Red]-#,##0.0 ;-" daj wewnątrz warunku if... then, po Then
Obawiam się, że tego nie rozwiążesz tak jakbyś chciał. Chyba, że z pomocą VBA. Excel stosuje tu zwykły mechanizm modyfikacji adresów jak w przypadku formuł. Nie ma tu znaczenia, czy adresy są z dolarami czy bez. Dolary odgrywają rolę tylko przy kopiowaniu. Najprościej unikać wstawiania wierszy na górnej granicy obszaru. Gdy wstawiasz nowy wiersz w miejscu...
Wyskakuje przy pierwszym przebiegu? Tak Może trzeba zmienić typ dla wierszy z Integer (max 32767) na Long... Próbowałem i bez zmian :( Przy zmianie zmiennych na stałe (zamiast kolumna i wiersz liczby) wyskakuje dokładnie ten sam błąd.
hej, triggery czy poczytałeś trochę o zastosowaniach i jakie są ograniczenia ich zastosowania ? niżej pare cennych dla Ciebie informacji :) - jeśli Ci odpowiadają ograniczenia no to działaj :),ale wcześniej zrób sobie gdzieś backup bazy :) W wyzwalaczach nie wolno uzywac operacji zwiazanych z transakcjami: COMMIT, ROLLBACK. Ograniczenia w uzyciu wyzwalaczy:...
Formatowanie warunkowe, np kolumny B =WIERSZ()< PODAJ.POZYCJĘ(MAX(B:B);B:B;0)
Tylko po co w tym przypadku odwoływać się do nazwy, wystarczyło by msgbox cells(1,1) Mnie jednak chodzi by sie odwoływać tylko do nazwy, formularz w którym są nazwy jest długi ma około 40 komórek scalonych oraz kilka kolumn. Mogę się odwołać do zakresów i będzie działać ale jak zrobię jakieś zmiany np dodam kolumnę lub wiersz cały kod wszystkie zakresy...
jak to jest technicznie zrobione? Do arkusza1 przypisane jest makro reagujące na zdarzenia zmiany :idea: (wprowadzenie nowej wartości) komórki I4. Jeśli takie zdarzenie wystąpi w pierwszym wolnym wierszu kolumny A wprowadzana jest aktualna data, a w kolumnie B nowa wprowadzona do I4 wartość. Na koniec czyszczona jest zawartość komórki I4 :spoko: w...
Propozycja makro łączącego komórki tak jak chciałaś. Makro wykorzystuje dane z kolumn H i I, zastępuje formuły w komórkach scalanych. Usuwa formuły w kolumnie J (aby umożliwić modyfikację danych w razie potrzeby). Nie ingeruje w formatowanie warunkowe, które było już ustawione w arkuszu. Makro jest zapisane w module uniwersalnym. Działa w arkuszu aktywnym....
Mam stworzony dość rozbudowany kod, opierający się na zmianach przeprowadzanych w arkuszu. Po wykonaniu kodu, zaznaczony zostaje edytowany ostatnio wiersz (zgodnie z instrukcją w kodzie, która zaznacza wiersz i odkreśla bądź nie cały wiersz). Początkowo pomysł był taki, żeby zatwierdzenie wprowadzonej wartości powodowało wykonanie marka, a następnie...
Podaję sprawdzony i działający sposób znaleziony w sieci na pozbycie się problemu z datą. Jako, że program nie ma już właściciela, który się zlikwidował i wyparł na wszystkich, którzy nawet płacili za licencję Fit Faktury (żeby nie powiedzieć przeobraził w inny podmiot , który nie rości żadnych praw do Fit Faktura, a jak rości to zapraszam przez oblicze...
Dzień dobry, mam raport płatności z SAP gdzie w kolumnach mam daty, w wierszach natomiast odbiorców i warunki płatności (dla 90 dni). Odświeżam Tabelę Przestawną "na piechotę", pomyślałam, że można przerobić to na bazę danych zamieniając to tak, aby data była w kolumnie, a odbiorcy w wierszach. Bardzo proszę o pomoc :) dopiero zaczynam przygodę z VBA...
zmiana wiersz numerować wiersz kolumna wklejać kolumna wiersz
garmin mobile najlepszy modem aero2 podciśnienie poduszka
ekspres siemens grzałka przyłbica spawalnicza
Szarpnięcie silnika elektrycznego 220V przy włączaniu i wyłączaniu Citroen Saxo 1.5 Diesel - Opis pinów ECU, zasilanie i masa
