Nie wiem czy o to chodzi ale moja propozycja brzmi tak tak: kolumna:=1; // zalezy w ktorej kolumnie szukamy wiersz:=0; while StringGrid.Cells[kolumna,wiersz]... do Inc(wiersz); StringGrid.Row := wiersz; // zaznacza pierwszy pusty wiersz
ale "Jelczan" prosił o makro Aaa, to najprościej oprogramować zdarzenie (co sugerował już kolega PRL ), Np [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a2:a100")) Is Nothing Then If Target = "" And Target.Offset(0, 1) <> "" Then Range(Target, Target.Offset(0, 10)).Interior.ColorIndex = 6...
Range("G6:G89").Select Jak go zmienić, żeby zakres brał pod uwagę wszystkie niepuste komórki w tej kolumnie? Więc tak, jeżeli chcesz, żeby z całej kolumny zaznaczył zakres składający się z niepustych komórek to będzie takie makro: Sub proba() Dim x As Double Dim zakres As String For x = 1 To ActiveSheet.Cells(ActiveSheet.Rows.C... "G").End(xlUp).Row...
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
http://obrazki.elektroda.pl/3150320100_1... Z uwagi na problemy z generowaniem czcionek do moich projektów opartych na LCD np od Nokii 6610 i 6800 napisałem swój własny programik, który ułatwia tą czynność. Programik (oczywiście darmowy) napisany jest przy użyciu darmowego środowiska Lazarus dostępnego zarówno dla Windowsa jak i dla...
Ja widzę każdą zmianę kolor, mam monitor graficzny, ale nie w tym rzecz. Tutaj filmik z innym kolorem: https://www.dropbox.com/s/a63ox30nj10wca... jak widzisz nie jest to problem z kolorem. Być może mówimy o innym działaniu, bo u ciebie kasowało całe wypełnienie tabeli A powinno to działać w ten sposób: https://www.dropbox.com/s/nazbiwwll08uou...
Dzień dobry, od dłuższego czasu szukam sposobu na zaznaczanie w Excelu wiersza i kolumny aktywnej komórki. Internet jest pełny rozwiązań wykorzystujących formatowanie warunkowe lub wprost kolorujących te wiersze i kolumny, znalazłem jednak leciwy już, ale fenomenalny w swojej istocie kod, który zamiast kolorowania po prostu zaznacza wiersz i kolumnę...
Witam, Mam takie pytanie mam takie makro które przeszukuje wybrana kolumnę E2:E8 i sprawdza czy wartości są różne od zera jeżeli tak to zaznacza wiersz od A do E mam prośbę żeby przekopiować dane z tych komórek ale same wartości to co mam na teraz to Sub zaz() Dim wiersz As Integer, i As Integer i = 0 For wiersz = 2 To 8 If Cells(wiersz, F) <>...
Nie wiem, ale z Twojego pliku widać, że można tutaj zastosować bardzo prosty trick rozwiązujący ten problem - wprowadzenie na początku tabeli dodatkowej kolumny z identyfikatorem (numerem) trasy Umożliwi to dokładne wychwycenie wszystkich wierszy z określonym identyfikatorem Powiem szczerze nawet o tym myślałem, ale po pierwsze arkusz generowany jest...
Zaznaczanie i kopiowanie dynamicznego zakresu kolumn A w treści piszesz o wierszach ... Jednak proszę o pomoc w modyfikacji tego kodu aby spełniał warunki opisane powyżej Załączyłeś ... dopiero później ... Udało mi się znaleźć i zmodyfikować kod, który zaznacza zakres tabeli Kod, który załączyłeś tyczy się zupełnie czegoś innego ... (at)Prot zamiast...
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...
Mam taki problem: wyświetlam w DbGridzie dwie kolumny z danymi. Jeśli klikam myszą na komórkę w kolumnie lewej to zaznacza się dany wiersz (tak ma być) ale jeśli kliknę w komórkę w kolumnie prawej to lewa kolumna znika, prawa kolumna przesuwa się od lewej strony siatki a po prawej zostaje puste miejsce. Co zrobić żeby klikając w dowolną kolumnę zaznaczał...
Witam, Napisałem makro, które z 3 podanych komórek szuka maksymalnej wartości w wierszu 1 i zaznacza kolorem. Chciałbym żeby to makro przeszukiwało wiersz po wierszu aż do 43 wiersza izaznaczało maks wartość w każdym kolejnym wierszu, czyli w wierszu 2 szukałoby po A2, D2, F1. [syntax=vb]Sub Color() Dim MaxValue Dim Cell As Range MaxValue = Application.WorksheetFunction.Max(Range(...
jeśli masz na myśli usunięcie[syntax=vb]Exit sub[/syntax] to teraz zaznacza mi ostatni wiersz w tabeli, a chciałbym żeby przeszło mi do pierwszego wiersza spełniającego warunek nastepnie do kolejnego wiersza i tak dalej.
Niestety niewiele ostatnio udało mi się zrobić. Ale mam coś do pokazania i omówienia: https://obrazki.elektroda.pl/3653132000_... Być może to jest przesadnie złożone i lepiej byłoby to uprościć. Na razie koncepcja jest taka: w każdym wierszu tabeli można pozaznaczać kratki w kolumnach "boks" i "ile/fl". Można też wpisać imię psiaka...
Hej Chodzi mi o wszystkie pełne wiersze poniżej i wklejenie tego zakresu o wiersz wyżej. Kod trochę zmieniłam na swoje potrzeby i obecnie wygląda jak poniżej, zaznacza i kopiuje 1000 wierszy (tu wolałabym żeby zaznaczał wszystkie pełne) po pierwszym pustym ale brakuje mi wklejania skopiowanego zakresu o wiersz wyżej. Sub usuniecie() Application.ScreenUpdating...
Witam po dłuższej przerwie. Mianowicie jestem nadal w tym samym punkcie i mam ten kod: [syntax=vbscript] Dim Y As Integer, R As Range Y = 2 Do While Cells(Y, "A") <> "" With Sheets("XXX" & Cells(Y, "B")) Set R = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) Range("A" & Y & ":E" & Y).Copy Destination:=R End With Y = Y + 1 Loop...
Po kilkudniowych męczarniach wpadłem na pewien pomysł z wykorzystaniem szablonu "makememos" z książki "Excel 2003 Programowanie w VBA Vademecum profesjonalisty". Sens jest taki że program ma tworzyć plik w wordzie gdzie kopiuje tekst z komórek , potem zaznacza cały tekst w wordzie i go kopiuje :). Jest jeszcze kilka nierozwiązanych kwestii i prosiłbym...
No jakoś mi nie wychodzi. Nagrałem makro, które wyszukuje dany "text", ale jak zapuszczam je to owszem znajduje ten tekst, ale nie przechodzi do tego miejsca focus. I jak dodam : Selection.Rows.Delete to nie usuwa tego wiersza, w którym jest ten tekst. Jak dodałem twój skrypt, to on cofa do pierwszego wiersza tabeli i zaznacza kilka wierszy. Mi chodzi...
Może rzeczywiście za dużo jak na początek :) Chciałem zrobić automat by jedną komórkę można było przeciągać zarówno w wierszach jak i kolumnach, ale było juz późno i mając na uwadze to że przecież możesz mieć inaczej ustawione dane porzuciłem zamysł. Na chwilę obecną można to kopiować w dół i w bok łapiąc (zaznaczając) na raz i kopiując trzy komórki....
Tak o to mi chodziło. Tylko coś robię źle bo w momencie jak wstawię: wartosc1 = UserForm6.TextBox1.Text wartosc2 = UserForm6.TextBox2.Text i używam userform to kiedy do boxow podstawie wartości jakieś to nie zaznacza niczego, natomiast jak pozostawię puste to działa bo zaznacza wszystkie puste wiersze.
Hej, Macie pomysł jak wśród podanych dat wybrać/oznaczyć cały wiersz gdzie występuje tylko pierwsza sobota danego miesiąca? Póki co zrobiłam formatowanie warunkowe i zaznacza mi wiersze z wszystkimi sobotami (reguła: DZIEŃ.TYG($C3;2)=6 ). Jak wybrać z nich tylko pierwsze soboty? Jaką formułę wpisać w regułę formatowania warunkowego? Z góry dzięki za...
Dzięki za odpowiedź ale.. chodziło mi o coś innego: Np. mam kolejno w wierszu (niezależnie czy to wiersz 10 czy 50) : B A ‘ Aktywna komórka A B B C ‘ Koniec zaznaczania A A C C Ustawiam się na pierwszej komórce A, włączam makro i chcę żeby zaznaczyło mi komórki od A (w dół) do danego słowa - w tym wypadku np. do C. *Czyli zaznacza wiersze...
StringGrid zaznacza komórki po kliknięciu lewym przyciskiem myszy, a prawym już nie. Dlatego oprogramowałem sobie ten prawy przycisk zdarzeniem OnMouseDown, żeby w momencie wyboru menu kontekstowego zaznaczało mi wiersz na którym się klika. Niestety w tym momencie pojawił się niemiły problem. Kiedy ruszy się rolką myszy wyskakuje błąd Grid index out...
office XP: Dane-->filtr-->autofiltr ale najpierw zaznacz wszystkie kolumny ktore ma sfiltrowac!! W autofiltrze nie zaznacza się żadnych kolumn tylko pokazuje wiersz (tzw. wiersz nagłókowy) w którym masz mieć wybór danych z kolumny i generalnie nie służy do tego co zamierzasz zrobić chociaż nie twierdzę że nie da się też i w ten sposób tylko więcej...
Wielkie dzięki. Udało się :) Makro wygląda tak [syntax=vb]Sub Scalak() Dim dWkb As Workbook, wrs As Long, ostW As Long Dim dArk As String, katalog As String, nazwa As String, plik As String Const haslo As String = "1" 'tu wpisz has?o do plików Set dWkb = ThisWorkbook dArk = ActiveSheet.Name wrs = 1 katalog = "D:\Test\" plik = Dir(katalog & "*.xls")...
Pracuję już trochę dni na tym dokumencie i jednak coś do końca jest nie tak. Cały czas jak zrobię 51,52,53,54 wiersz to w wierszu ostatnim formatowanie jest ok natomiast w przedostatnim jak kliknę do zaznacza mi kilka wierszy powyżej.
Witam, Ponawiam prośbę o pomoc w napisaniu tego makra. Poniżej zamieszczam kawałek kodu, który zaznacza w wierszu wszystkie wypełnione komórki poza kolumną H, pozostaje napisać pętle, która by w przypadku wypełnienia wiersza poza kolumnę H automatycznie wstawiła nowy wiersz i przeniosła do niego tą zawartość itd. [syntax=vb][/syntax] Sub zaznacz_przenieś()...
Proszę. :) W poprzednim makro usuń wiersz [syntax=vb]Range("c2:c" & p) = "1" 'dopisanie 1 jako sztuka pierwsza w obliczeniach[/syntax] Natomiast w wierszach: [syntax=vb]Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie[/syntax] zamień literkę b na c [syntax=vb]Range("a2:c" & p).Select ' tu zaznacza...
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...
Witam, Bardzo bym prosił o pomoc w rozwiązaniu problemu. Wiem, że nie można filtrować 2 kolorów na raz. Mój problem wygląda następująco. Mam spis firm, wraz z pracownikami zapisanymi normalnie klasycznie wiersz po wierszu. Czyli nazwa firmy kilku pracowników itd. w kolumnach mam pozapisywane pewne daty dotyczące tych pracowników i mam dla nich przypisane...
Działa na każdym Wordzie, ważne aby zaznaczyć pierwszy wiersz tylko myszką, każdy następny naciskając i przytrzymując Ctrl + zaznaczenie wiersza myszką. Pomiędzy zaznaczaniem można puścić Ctr (np. przewinięcie strony myszką), pamiętając jednak że zanaczenie wiersza bez klawisza Ctrl spowoduje, iż poprzednio zaznaczane wiersze zostaną odznaczone. Nie...
Witam, Tak worksheet to to samo co ws - dzięki za zwrócenie uwagi, po prostu po czasie dopisywałem ten fragment i jakoś pominąłem, że ws został juz określony przez DIM. W załączniku wrzucam plik, po ściągnięciu trzeba zmienić rozszerzenie z *.jpg na *.xlsm - wyskakiwał błąd poczas dodawania pliku z roszerzeniem excela, że nie można załączać plików z...
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...
Witajcie, Napisałem makro kopiujące cały wiersz. Problem mam z tym, ze jak bierze już dany wiersz do kopiowania w którym są checkboxy i kazdy z nich ma jakieś odwołanie, to wkleja wiersz ponizej już z tym odwołaniem. Nie wiem jak zrobić aby odwołanie się nie kopiowało, a checkbox tak. Poniżej wklejam kod: [syntax=vb]Sub WstawPo(SearchedRn As Excel.Range,...
Witam, próbuję napisać program zamieniający małe litery na duże, za pomocą funkcji pobierającej jako parametr referencję do obiektu string. Przy próbie kompilacji pojawia sie komunikat, że program nie widzi funkcji strlen() i zaznacza się na czerwono ten wiersz kodu: int dlugosc = strlen(s); Proszę pamiętać o używaniu znaczników syntax . Opcja Listing...
Witam. Mam pliki 1.xls który ma w kolumnie A wpisane niepowtarzające się numery. Drugi plik 2.xls do którego chcę skopiować numery, wszystki od ostatniego w pliku 1. http://obrazki.elektroda.net/30_12556027... Mam takie kody, z których można skorzystać, bo działają, w innym pliku. I na ich podstawie wykonują się inne funkcje. Ale nie wiem jak...
Zeżarło odpowiedź. Zdarza się. Warto wyrobić nawyk kopiowania do schowka ;) Zronbiłem przykład z EWB, miał 2 węzły z tego jeden uziemiony. Jak dołożyłem węzeł w miejscu w którym dałeś masę to już nie wyszło, pewnie walnąłem błąd w znaku. Chwilowo tyle mogłem... Teoretycznie węzeł (3) nie powinien chyba wpływać na wyniki? A może się mylę, bo teoria...
Stostując taki sposób deklaracji zmiennych zmienną wiersz masz zadeklarowaną jako Variant, a zmienną i jako Integer. Do operacji na nieciągłym zakresie możesz użyć [url=http://msdn.microsoft.com/en-us/lib... Union Twój kod można skrócić do poniższej postaci, nie trzeba zaznaczać komórek i przeskakiwać pomiędzy...
Słuszna uwaga, tego raczej nie nie przegapiłem, raczej błąd przy zaznaczaniu i wklejaniu. Dzięki za poprawkę.
Nie zauważyłem by autor pytania prosił koniecznie o formułę. Owszem wspomniał, że: "Wiadomo jest to jedna formuła", ale nie wiemy czy kurczowo zamierza trzymać się formuł, bo jest (jak np: ja) entuzjastą Excel'a, aczkolwiek dopiero "raczkującym", czy być może jest to dla Niego rodzaj testu, zadania (ze szkoły, studiów, pracy - niepotrzebne skreślić)....
Korzystam z podobnego rozwiązania ale potrzebne jest też formatowanie warunkowe (aby zaznaczać tylko zakres wiersza). Zaznaczanie aktywnego wiersza za pomocą formatowania warunkowego i VBA 1. Zaznaczanie aktywnego wiersza Definiujemy nazwę: AktywnyWiersz=0 Wpisujemy formułę w VBA w sekcji Worksheet - SelectionChange Private Sub Worksheet_SelectionChange(ByVal...
Zakres zaznaczasz od pierwszej do ostatniej komórki czyli od A1 do kolumna,ostatni wiersz.
Na początku musisz ustalić długość kolumny, którą będziesz przeszukiwać tzn. ostatnią niepustą komórkę. Możliwe jest to za pomocą: Application.WorksheetFunction.CountA(... Do wyszukania wartości użyć można: Selection.Find() Cały wiersz zaznaczasz za pomocą: Rows().Select Zaznaczony wiersz kopiujesz: Selection.Copy Wklejasz: Range().Select...
Cześć, Dziękuję za szybką pomoc. Jestem pod wrażeniem, dokładnie o to mi chodziło, makro ma szukać fragmentu tekstu i na tej podstawie zaznaczać wiersz w którym występuje szukana fraza. Sprawdziłem u siebie i fajnie śmiga. Zauważyłem jedną różnicę, gdy wpisuje szukaną frazę tak jak jest wpisana w tabeli, np. UTR z dużych liter to makro szuka i koloruje...
Dzięki, nie znałam! Dodano po 14 Cały wiersz zaznaczam np. na żółto jeśli jest nieopłacone a zielonym jeśli jest opłacone.
Open office sobie z tym poradzi Wklej dane do pliku tekstowego i zminen jego rozszerzenie na csv (gwiazdka to cokolwiek) Otwórz plik klikając w niego. Wyskoczy okienko import tekstu Opcje separatora rozszerzony. Następnie zaznacz pole inne i obkok wpisz ; Podzieli ci na komórki tak jak masz średniki. Jak chciał byś to w pionie to zaznaczasz wiersz dajesz...
Obok wyboru czcionki, jest pole że stylami, z listy rozwijanej wybieramy jak potrzebujemy. Jeżeli potrzebujesz wyedytować konkretną komórkę w tabeli, zaznaczasz cześć treści, bądź cała treść (komórkę). Dla przykładu jak zaznaczysz bez odstępów to jeden pod drugim. Na moje, jeżeli danego dnia robiłaś zajęcia w kilku grupach, to możesz podzielić komórki,...
Powiem szczerze, że nie działa to zbyt płynnie i jest dodatkowo utworzony kolejny arkusz. Przy wyszukiwaniu np. numeru 100 000 000 po wpisaniu w wyszukiwarce 10 wyświetla się wiersz natomiast, gdy wpiszę 100 to już nic nie wyszukuje. Przy filtrowaniu wyszukuje bardzo dokładnie nawet po fragmencie numeru, który znajduje się w środku natomiast nie ma...
Wiele przycisków w arkuszu to kiepski pomysł, żeby je obsłużyć musisz mieć tyle samo procedur. U mnie sprawdza się inny sposób: mała formatka z przyciskiem (taki asystent, można go potem rozbudowywać). Zaznaczasz komórkę w arkuszu a potem klikasz przycisk. Wiersz i kolumnę masz z obiektu ActiveCell. Formatkę masz zawsze na ekranie, więc jej nie musisz...
makro zaznacza wiersz zaznacza zakres wiersz zaznacza kolumna
nikon coolpix uszkodzić obrót touran wentylator chłodnicy rezystor
k53sv matryca scania diagnostyka
Kod P1110 w Peugeot 206 2.0 HDI - przyczyny i diagnostyka Parametr gazu w piecu Termet Silver Pro 20 kW