Ż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....
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ę...
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...
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...
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 & "...
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")
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...
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,...
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...
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
polsat cyfrowy montaż wymiana grzałki regulacja młynka ekspresie saeco
rl34hgps samsung rl34hgps samsung
Zamiana trymera 3-12 pF na 4-15 pF w układach elektronicznych Schemat serwisowy Krups EA873 - dostępność i alternatywy
