Że tak się wtrącę ... Nie uczysz się :) Spróbuj załapać o co chodzi w kodzie (przeczytać go) a sam zaczniesz pisać kody uzależnione od zmian w arkuszu. (if) jeżeli (Target.Column = 6) zmiana dotyczy kolumny nr 6 czyli F (AND) oraz (UCase(Target.Value) = "K") zmieniana wartość zmieniona na duże litery równa jest K (Then) wtedy (Target.Value = "Komunalne")...
Witam! Kolejny raz potrzebuję wsparcia - bardzo proszę bardziej zaawansowanych użytkowników o pomoc. W Skoroszycie mam tylko 1 arkusz, w którym w polach od A1 do E25 posiadam wypisane dane (ciąg liczb pomieszanych z literami o długości od 10 do 16 znaków) które chciałabym aby po dwukrotnym kliknięciu przenosiły się do pierwszej pustej komórki w wierszu...
Witam, mam problem z automatyczną numeracją w załączonym pliku.Chodzi o to że w arkuszu 1 i kolejnych 31 ( numer arkusza oznacza dzień miesiaca) automatycznie przydzielić numer w komórkach. d166, m166 itd jeżeli wartość w zakresie E175:e290 (itd) jest>0 formułą nie dam rady- nie można przewidzieć który zakres będzie zerowy myśle ze makro załatwiło by...
Witam, mam problem z arkuszem który jest w formacie Ogólny. W jednej z kolumn mam wartości liczbowe np. 19500001. Po dodaniu do tej wartości ' czyli '19500001 liczba traktowana jest jako tekst czyli ok, ale dzieje się tak jak dodam ' z palca. Przy użyciu funkcji złącztekst która dodaje ' do 19500001 arkusz nie traktuje tego tak samo jak wpisanie z palca....
W pierwszym wierszu mam pewne nieposortowane wartości, chciałbym aby w 3 wierszu były one porównane i wyrzucone z przypisaną liczbą od 1(najwięsza) do najmniejszej. http://obrazki.elektroda.pl/3799156500_1...
Mam arkusz: 1 ff 5 2 hh 10 3 zz 3 4 ff 12 5 zz 5 6 dd 15 7 ff 5 chciałbym aby mi powypisywał po przecinku wartości np. ff 5,12,5 hh 10 zz 3,5 dd 15 sumę robię bez problemu ale tego nie potrafię z góry dziękuje Emil Przykład już jest :) jeśli ktoś wersje iż przepisuje do komórek proszę podać już coś będzie i zrobi sie dalej :)
Wyobraź sobie tabelę, w wierszach poszczególne elementy tworzące koszty, w kolumnach ich różne warianty. Załóżmy, że masz 5 kolumn z wariantami i do nich (obok) kolumnę z podanym wybranym numerem wariantu (1-5). W każdym wierszu możesz wpisać numer wybranego wariantu. Pole logiczne powinno sprawdzić, co tam jest wpisane i odpowiednio podliczyć koszty....
zastosowałem funkcję VLOOKUP. Jeśli kolumna pierwsza składa się ze scalonych komórek z pięciu wierszy i ma określoną treść, a kolumna druga ma pięć wierszy z określoną treścią, To jak zrobić, zakładając, że obie kolumny są zakresem tabeli, aby funkcja VLOOKUP pokazywała mi drugi wiersz z drugiej kolumny jeśli odniosę się do pierwszej kolumny ze scalonych...
https://obrazki.elektroda.pl/5692942100_... Tematem dzisiejszego artykułu jest -przejęcie kontroli na światem! Ha, Ha, Ha -to miał być złowieszczy śmiech ;-) A dokładnie to tylko nad wyświetlaczem VFD, który jest integralną częścią amplitunera SONY STR-DB840QS. Sprzęt leciwy, ale jeszcze daje radę ;-) i jako grajek w sypialni ma się...
Taka oto funkcja.
Wpisz w B2 =INDEKS(dane!$A$1:$E$8;PODAJ.POZ... i skopiuj w lewo i w dół...
Z powodu że na razie nikt nie wie jak rozwiązać moje pytanie. Zapytam w prost tak żeby było to czytelne. Jak zapisać wartość z A1 w C2 podając w B1 (nr kolumny 2) a w B2 (nr wiersza 3) Następnie jeśli zmienię wartości w B1 na 3 a w B2 na 4 to zawartość C2 zostanie dalej taka jaka była a w D4 zapisze mi się wartość z A1. I czy to wykonalne. Jeśli nie...
Nie powinno sprawić Ci problemu. Po pierwsze: trzeba znaleźć Nr kolumny. Najprościej przy pomocy metody ' Find '. Opis w helpie pod hasłem "Range.Find". Potrzebna jest wartość liczbowa, więc będzie to mniej więcej Do While ' gdzie warunkiem będzie sheets("Arkusz2").cells(wrs, nrKol)<>"" P.S. Przyjrzyj się (w moim przykładzie) definiowaniu dynamicznej...
Pojawiły się kolejne problemy z moim zadaniem. 1. Chcę zrobić wykres zależności liczników od czasu (oś X: data i godzina, oś Y: ilość danych). Jeśli tylko zaznaczę te dane Excel wrzuca mi na oś X tylko daty (bez godzin) i do każdej daty wrzuca w pionie wszystkie wartości łącza z jednego dnia). Próbowałem zmieniać format komórki, ale nic mi to nie dało....
Wypełnianie kontrolki ComboBox danymi: '/ wypełnianie kontrolki ComboBox1.AddItem dane Next x ComboBox1.ListIndex = 0 indeks = (ComboBox1.ListIndex) End Sub '/ przepisanie do okienka txt1 = ComboBox1.Value End Su[/syntax]b Mniemam że, jak kolega będzie tworzył tyle formatek na ekranie , to zgubi się lada moment z kodem. Do wyświetlania lub pobierania...
No właśnie wychodzi brak jakiejkolwiek teori dotyczącej budowy języka VB. Zostawmy na razie ostati wiersz bo to "specyficzny" przypadek. W twoim przypdaku kopiowanie (metodą copy) nie ma za bardzo ma sens wystarczy zwykłe przepisanie wartości danej komórki do innej komórki. Ale jeszcze raz od adresowania powoli przeczytaj ze zrozumieniem: Sheets(nazwa_arkusza_w...
Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.
Cześć, jako że jestem nowym użytkownikiem forum, na wstępie chciałbym wszystkich powitać. Niemniej, nie stworzyłem tego tematu w tym celu, zatem przechodzę od razu do sedna sprawy. Chcę zrobić prostą tabelę w Excelu, która będzie przepisywać rekordy, które są wprowadzone w bazie danych (na drugim arkuszu). Tzn. mam rozwijaną listę z której mogę wybrać...
Adhdpro , źle przepisałeś moją formułę, tam były przecinki , takie jak Twój separator, a Ty wstawiłeś apostrofy ,dlatego nie działa. Oczywiście zera w wynikach można zamaskować, jeśli przeszkadzają.
W załączniku masz plik z Makrem - żeby go uruchomić musisz włączyć Makra, następnie wciśnij ctrl + Q Makro zrobione w excelu 2000 (bo takiego mam) więc mogą się pojawić problemy z kompatybilnością, wtedy ci to przepiszę na nowszą wersje, jak będę w pracy i znajdę chwilkę wolnego. Wyrzuciłem wiersze z błędną wartością w kolumnie G (było ich sporo) bo...
Przepisałem dane z fotki... Udało mi się dopiero przy pomocy dwóch kolumn pomocniczych. Żeby toto liczyło, C3 musi być niepusta (w ostateczności można "ukryć" białą czcionką). + formatowanie warunkowe. Ops, przegapiłem dwa posty ;) Edit: Jednak dobrze było w 1-szej wersji - powrót do "starego" załącznika.
Scalenia nie pasują do rozwiązania, więc "rozScaliłem". Możesz ew. w wierszu pomocniczym przepisać nagłówek /WARTOŚĆ(.../ Dla ułatwienia zmieniłem format godzin w tabelce (06 zamiast 6, itd) Odczekałem do 11:00 i działa. Reguła musi być formułą, nie kombinuj z wbudowanymi. Jeśli ma kolorować cała "trójkę", to skopiuj do "sąsiadów". Np w T6 i V6- formuła:...
Zrób tak jak kolega radzi. Prościej? W komórce w której ma być dana "przepisywana" z arkusza podstawowego naciśnij "=" (równa się) a następnie przełącz się myszką na arkusz podstawowy i wskaż komórkę w której znajduje się (biędzie się znajdować) ta dana do przepisania i wciśnij enter.
To chyba nie będzie takie proste. Niestety Excel jest bardzo ubogi jeśli chodzi o "kolorowe funkcje". Wg mnie musiałbyś zrobić wzorcową tabelkę z indeksami kolorów i przepisać ją do tablicy. Następnie do drugiej tablicy przepisać indeksy z "kolorowego" zakresu do sortowania i dodatkowo umieścić je w kolumnie pomocniczej Wreszcie czymś na wzór sortowania...
Przepisać /skopiować/ dane do komórek by były w jednym ciągu np. do T7 do T13 i użyć funkcji: =ŚREDNIA.JEŻELI(T7:T13;">0")
Aby wydrukować jeden szablon, możesz użyć prostego przepisania wartości (lub nawet formuł): [syntax=vbscript]Arkusz2.Range("A1:E6").... 'wyczyść stare dane na szablonie Arkusz2.Range("A1").Value = Arkusz1.Range("A1").Value Arkusz2.Range("A3").Value = Arkusz1.Range("G5").Value Arkusz2.Range("A5").Value = Arkusz1.Range("G3").Value * 1000 & "...
No niestety w obu plikach są też inne dane, a na dodatek trzeba sprawdzić nie jeden, a kilka zakresów danych (dokładnie 8). Excel ma naprawdę duże możliwości, ale domyślać się nie potrafi. Trzeba określić rzeczy stałe, podać ewentualne granice tych, które mogą ulegać zmianie, a jeśli makro/funkcja ma działać w różnych zakresach, czyli być uniwersalne/a,...
No to trzeba było od razu... Najprościej (znooowuuu) zbić string z dwóch (lub więcej - aż do uzyskania unikatów) kolumn. W przykładzie (dostosuj do swoich danych) D, wykrzyknik i C zapisywane w kolumnie K.[syntax=vb]Sub SortE() Dim wrsOst As Long Dim rw As Long Dim lista() As Variant Dim poz As Integer Dim i As Long, j As Long Dim ile As Integer Dim...
Czyli jak zdebugjesz to okienko to po wpisaniu w pola tekstowe wartości chcesz aby pojawiły się w tabelce ? jak da radę to tak Przypisz kod do klawisza OK. Tu masz przykład jak przepisać treść pola "przeznaczenie" do arkusza. [syntax=vb]Private Sub CommandButton1_Click() If CommandButton1.Caption = "OK" Then Range("C9").Value = TextBox1 'przeznaczenie...
Funkcja ADR.POŚR służy do poskładania adresu z tekstu (string). Trzeba podstawić właściwe wartości, dokleić (&) wartości z komórek, pododawać/odejmować jeśli trzeba. Poczytaj opis w pomocy, porównaj obie podpowiedzi. Pokombinuj sam - zmień położenie "tabelki", przepisz argumenty... Trening czyni mistrza ;)
Wstaw na początku makra [syntax=vb]Application.ScreenUpdating = False[/syntax]a na końcu, przed wiadomością: [syntax=vb]Application.ScreenUpdating = True[/syntax]Dzięki temu unikniesz przeskakiwania między arkuszami. Druga sprawa: cały taki przykładowy fragment: [syntax=vb]Sheets("instrukcja").Select Range("b11").Select Selection.Copy Sheets("czas pracy").Select...
Witam mam takie samo zadanie chodzi o to żeby przeszukał kolumnę z pliku 1 i taka sama w pliku 2 i rekordy które nie występują w pliku 2 przepisał (nadpisał w tym pliku) cały wiersz. czy można jakoś zmodyfikować wasze makro? proszę o pomoc. Pozdrawiam
Tu masz programy magazynowe. http://dobreprogramy.pl/index.php?dz=1&t... Spokojnie coś wybierzesz. Możesz także to zrobić w Excelu lub jeszcze lepiej w OpenOffice, ponieważ jest darmowy. Zrobienie takiego arkusza w Excelu czy OpenOffice to przysłowiowa "bułka z masłem". Dla przykładu robisz pionowe kolumny, które odpowidają poszczególnym materiałom....
Zdaje się, że TRANSPONUJ to funkcja tablicowa. Spróbuj (mogłem pomylić nazwy arkuszy)[syntax=vb]Sub dopisz() Dim wiersz As Long With Sheets("Historie") On Error Resume Next 'tu podstaw swoje przypisanie wiersz = Sheets("Historie").Range("C65536").End(x... + 1 On Error GoTo 0 If wiersz > 0 Then .Range(.Cells(wiersz, "C"), .Cells(wiersz, "M")).FormulaArray...
Ja miałem wczoraj egzamin o godzinie 12 arkusz 04 zadanie były takie -zamontować ram -zamontować kart graficzna i instalacja sterowników u mnie sterowniki instalowały się automatycznie -wył zintegrowana kartę graficzna -utworzyć konto architekt dodać do grupy administratorzy i utworzyć konto biuro dodać do grupy Użytkownicy -zablokować dostęp do zmiany...
Ja miałem wczoraj egzamin o godzinie 12 arkusz 04 zadanie były takie -zamontować ram -zamontować kart graficzna i instalacja sterowników u mnie sterowniki instalowały się automatycznie -wył zintegrowana kartę graficzna -utworzyć konto architekt dodać do grupy administratorzy i utworzyć konto biuro dodać do grupy Użytkownicy -zablokować dostęp do zmiany...
Można zrobić to stosując makro, które w pętli przeszuka kolumnę komórka po komórce i po napotkaniu szukanej wartości skopiuje cały wiersz do nowego arkusza. Następnie wznowi przeszukiwanie od miejsca zatrzymania i po napotkaniu szukanej wartości - kopia wiersza. I tak do ostatniej niepustej komórki. To co napisałem wygląda prawie jak przepisane od Ciebie,...
Przepisałem na arkusz wszystkie dane zgodnie z zamieszczonymi. Nic mi się nie zgadza. Np. w komórce C8 jest wpisane 1,7 a powinno być 3,5 (wartość z komórki H6)? Proszę załączyć plik w Excelu (nie obrazek) z danymi przed (na jednym arkuszu) i po przeprowadzonym zabiegu doprowadzania do wartości dodatniej w polach B6, B9 itd. (na drugim arkuszu).
Ja bym przepisał tablicę: litera - cyfra, jedna pod drugą, i użył funkcji WYSZUKAJ.PIONOWO na podanej tablicy. Wyszukujesz po literze i zwracasz cyfrę. Albo wykorzystać kody ASCII, np. dla dużych liter (A=65): =MOD(KOD(B1)-65;9)+1
Nie wiem czy dobrze kolegę zrozumiałem ale myślę że o to chodzi. Zeby np. przepisać wartość i zachować taką strukturę do wszystkich danych w kolumnie to np. niech będzie to kolumna H. Główna wartość wpisana jest w H7 i żeby h8 miała taką samą wartość to w H8 wpisać trzeba =$H7, z kopiowaniem w inne nie będzie problemu bo wystarczy wcisnąć CTRL + lewy...
1. Tak. Wiersz równy wartości zmiennej wrs , usuwasz. Tu trzeba będzie przepisać listę ComboBox'a, lub po prostu zamknąć i otworzyć ponownie uForm 'Wybierz'. 2 & 3. Z tego wychodzi, że: a) jeśli zaznaczono 'BrakTłumaczenia (chk górny) - email i 'Archiwum' b) jeśli 'BrakWarunków' - email i 'Dane_Przetworzone' c) w pozostałych przypadkach 'Dane_Przetworzone'...
W załączniku plik z obliczeniami. Chodzi o to żeby przepisać odpowiednią wartość z kolumny C do kolumny M w zależności od położenia pojazdu które jest w kolumnie T. Np od 0 do 1,34 powinien przypisać wartość D4 czyli 1900, dla zakresu od 1,34 km do 2,09 km przypisać D5 czyli -5200 itd. Da się to zrobić funkcją 'Jeżeli' ale jest ona ograniczona do 7...
Tak, '?' nie zdarza sie nigdy i nawet jezeli mialby sie zdarzyc mozna go latwo wyeliminowac. znak '?' to tylko przyklad. Chodzi o to ze jezeli bedzie przy danym rekordzie umówiony znak który normalnie się nie powtarza np xxx(abcd;?;asd) to ma to byc informacja dla excela że w pliku z lista ma wyszukac wlasnie 'xxx' w liscie i wpisac go jako drugi parametr...
Wielkie dzięki za odpowiedź. Przed chwilką znalazłem problem. Komórka z której wychodzi A1 nie była importowana z innego programu i miała wartość "XX,XXX mm". Więc trzeba było pozbyć się tego mm. Zrobiłem to w sposób: =LEWY($G2;SZUKAJ.TEKST(",";$G2)-1) Co spowodowało, że nasza wartość nie była rozpoznawalna jako liczba. Wystarczyło stworzyć komórkę...
:arrow: JRV Jeśli makro, to może warto byłoby pozbyć się powtórzeń (na obrazku widać, że występują). Np przez zapisanie liczb do kolekcji z kluczem i następnie przepisanie do "kolumny obok" z jednoczesnym CountIf. Co Ty na to? MyCollection.Add item := Inst, key := CStr(Num) Edit: O, nawet znalazłem kawałek kodu z przykładem [syntax=vbscript]Dim nUnique...
nie do końca się zrozumieliśmy. Chodziło mi o to, że w excelu tworzę obliczenia, dodaje mnożę, dzielę sprawdzam warunki i takie tam.. i to mi zajmuje już przeszło 400 wierszy, następnie muszę przepisać to na kartkę lub np do worda i nając np w wierszu trzysta którymś taka formułę: =MIN(AB299:AB301)*$M$4/10*AB208/10*MIN(T... aby przepisać...
Ja miałem wczoraj egzamin o godzinie 12 arkusz 04 zadanie były takie -zamontować ram -zamontować kart graficzna i instalacja sterowników u mnie sterowniki instalowały się automatycznie -wył zintegrowana kartę graficzna -utworzyć konto architekt dodać do grupy administratorzy i utworzyć konto biuro dodać do grupy Użytkownicy -zablokować dostęp do zmiany...
Przyznam, że zaczynam się gubić. Spróbuj: [syntax=vb]Private Sub CommandButton1_Click() Dim szukaneTabl As Variant Set wscel = Worksheets("sheet1") Set wsbaza = Worksheets("sheet2") ost_wiersz_celu = wscel.Range("A65536").End(xlUp).Row 'ost_wiersz_bazy = wsbaza.Range("D100").End(xlUp).Row szukaneTabl = wscel.Range("A2:B" & ost_wiersz_celu).Value...
Jednak szybciej było napisać makro:) W załączniku. Z tym, że w twoich danych (w załączonym pliku) dane, które chcesz kopiować znajdują się chyba w wierszu 8 a nie 37. Zrobiłem makro kopiujące dane z wiersza 8 pod warunkiem, że są mniejsze od zera. Ponadto, żeby data również się przepisała, musi znajdować się dokładnie 5 wierszy powyżej danych z których...
Ja bym tu zastosował taki (mniej więcej) algorytm: 1. wklejam oba cenniki jeden pod drugim, przy czym w czwartej kolumnie nowy rok zaznaczam (może to być wartość "2013", może też być jedynka albo "v" - nie ma znaczenia) 2. sortuję całość wg indeksu, wpisy o tych samych indeksach znajdą się jeden nad drugim - sąsiadująco, 3.Teraz program powinien przepisać...
Ja miałem wczoraj egzamin o godzinie 12 arkusz 04 zadanie były takie -zamontować ram -zamontować kart graficzna i instalacja sterowników u mnie sterowniki instalowały się automatycznie -wył zintegrowana kartę graficzna -utworzyć konto architekt dodać do grupy administratorzy i utworzyć konto biuro dodać do grupy Użytkownicy -zablokować dostęp do zmiany...
Ja miałem wczoraj egzamin o godzinie 12 arkusz 04 zadanie były takie -zamontować ram -zamontować kart graficzna i instalacja sterowników u mnie sterowniki instalowały się automatycznie -wył zintegrowana kartę graficzna -utworzyć konto architekt dodać do grupy administratorzy i utworzyć konto biuro dodać do grupy Użytkownicy -zablokować dostęp do zmiany...
W załączeniu plik z magazynem, faktury wyglądają tak samo tylko mają więcej towarów i czasem nowe pozycje, zależy mi na dwóch sprawach: 1. żeby operacja sprawdzania odbywała się po indeksie towaru i jeżeli wykryje ten sam indeks w magazynie i w fakturze to żeby dodał wartości ilościowe z faktury do magazynu . 2. jeżeli porównując magazyn z fakturą wykryje...
jednak nadal nie wiem jak zrobic aby do zestawienia szef... były wczytywane konkretne dane po kolei z wszystkich plików ZlecenieXXX-2011.xls jakie są w całym konkretnym katalogu. Nie wiadomo jak zrobić, ale co? Kopiowanie danych (A) czy odczyt wszystkich plików (B) w celu pobrania danych do arkusza szef? A. Jeśli dane występują w takim samym układzie,...
Cześć, Mam sobie arkusz w excelu, z którego potrzebuję wyciągnąć jakieś dane, na zasadzie, że sobie mogę je wyklikać (tj, zaznaczę komórkę, a jej wartość automatycznie skopiuje się do innej wybranej przeze mnie komórki). Celem czegoś takiego jest stworzenie formularza w wordzie, który będzie pobierał dane z excela. Wiem, że można załatwić to przez formanty...
przepisanie wartości excel przypisanie wartości excel sumowanie wartości
pikanie radia citroen naprawa szarpaka pralka polar diana programator
bateria parkside naprawa udaru makita
Dane techniczne głośnika W.STX.10.2.180.16.F.S.MC w kolumnach STX F-360n Backing Up Firmware on BL602 Tuya Devices
