Zaznacz wszystko (Ctrl+A ) i zamień (Ctrl+H ) . Jeżeli ten tekst nie jest w komórkach to zaczyna być kłopot. Jeżeli te "okienka" to formant formularza to wyłącznie pisanie makra lub ręczna zmiana. Jeżeli to formant ActiveX to zaznacz wszystkie okienka z tym tekstem (pomocne jest włączenie okienka zaznaczania (na wstążce "znajdź i zaznacz a tam okno...
No nie mów, że nie wiesz... [syntax=vbscript]Y.Sheets("Arkusz1").Ran... = X.Sheets("Arkusz1").Range("A1")[/syntax] Zamień A1 na właściwą komórkę.
dla przycisku tak daj takie samo makro tylko zamień True na False
Tam jest napisane Część danych... ...jako tekst? Zapewne chodzi o komórki z datą. Zamień komórki z datą na tekstowe lub użyj skrypt: Application.DisplayAlerts = False
Jeżeli wszystkie arkusze, to: [syntax=vbscript]Sub Zaznacz() For x = 1 To Sheets.Count Sheets(x).Select False Next End Sub [/syntax] Jeżeli tylko do n-tego, to zamień Sheets.Count na 'a'.
Jest wiele metod, napiszę ci taką, która mnie odpowiada. Zaznaczasz wszystkie komórki, wybierasz opcję: szukaj i zamień. Wpisujesz to co ma być zamienione, na to co ci pasuje [kropka na przecinek, czy przecinek na kropkę], i klikasz zamień wszystko, i to tyle.
A to jakiś problem w tym przypadku? Bo z tego co widzę, to problem dotyczy jedynie komórek które mają wartość 0, niemniej Excel sobie z tym radzi np. przy sumowaniu. Najprostszy w tym wypadku jest CTRL+H i zamień 0 na 0 ;)
ponieważ VLOOKUP wyszukuje wartości z kolumny na prawo i tyle... Ściślej: przeszukuje skrajną, lewą. Zamień kolumny miejscami i zadziała...
Trzecią linię od końca czyli [syntax=vbscript]Name JPlik As Sciezka & NFolder & "\" & NPodFolder & "\" & NPlik[/syntax] zamień na [syntax=vbscript]FileCopy JPlik, Sciezka & NFolder & "\" & NPodFolder & "\" & NPlik[/syntax]
Zamień dzen = Format(Weekday(Date, 1), "dddd") na dzen=Range("AA13")
Coś ala [syntax=vbscript]=WYSZUKAJ.PIONOWO("4f56...
Najprościej jak się da: Plik -> zapisz jako -> tekst (rozdzielany znakami tabulacji) Otwórz tak spreparowany dokument w Wordzie edycja -> zamień w pole znajdź wpisz ^t w pole zamień na wpisz ^v w efekcie zamienisz wszystkie tabulatory na entery - i powstanie jedna kolumna później trzeba taki spreparowany dokument zaimportować do EXCEL-a
Zamień linię: ActiveWorkbook.SaveAs "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October YTD\CUSTOMERS FILES\" & Arkusz.Name na: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October YTD\CUSTOMERS FILES\" & Arkusz.Name & ".pdf", Quality:=...
mam makro ktore dzieli komorke na 2 po ktoryms znaku Zanim zaczniesz dzielić, zamień na String. Zadbaj, aby wyniki po podziale również były typu String (deklaracje) i nie będzie kłopotu.
Najszybciej zrobisz to bez excela ;) 1. Zainstaluj sobie Notepad++ (Freeware) 2. Skopiuj do niego zawartość arkusza. Lub zapisz arkusz jako csv i otwórz w Notepad++ 3. W Notepad++ zamień znak tabulatora "\t" (jesli kopiowałeś) lub średnik ze spacją "; " (jeśli zapisywałeś csv) na znak nowej linii ("\n"). Musisz użyć wyszukiwania rozszerzonego 4. Wynik...
1. W celu uzyskania daty, zamień "." na "-" w kolumnach D i K -zaznacz kolumnę -Ctrl+h Nie wykonuj, jeśli u Ciebie wyświetla prawidłową datę (Czesi mają kropkę, zdaje się). 2. Odejmowanie+format niestandardowy
Zapewne problem tkwi w (partokrotnym) "sztywnym" odwołaniu do komórki $O$23 w formule. Skopiuj formułę do pierwszego wiersza. Zaznacz tą komórkę i bylejaką inną obok wciśnij CTRL+H i zamień $O$23 na komórkę gdzie masz "stałą" 24:00 np O2 ale pamiętaj o dolarach czyli $O$2. Następnie skopiuj tą komórkę z poprawioną formułą w dół. Myśle że jasno - jak...
Jeżeli chodzi o arkusz to nie ma problemu. Zamień Sheets("Arkusz1") na ActiveSheet wtedy wypełnianie tabeli będzie dotyczyć aktywnego arkusza. W załączeniu sortowanie nie na "Tabeli" edit -------------------------- Jak już jest sortowanie trochę inaczej, to numerację (Lp) dodałem do pętli wpisujących dane tabeli C
Spróbowałem z minutami i... koloruje OK. Widocznie sekundy to za często (dla mojego sprzętu) W arkuszu są dwa formatowania warunkowe. Tworzysz je identycznie (instrukcja w arkuszu) Zamień MINUTA na GODZINA, ew: GODZINA($G$2)=LEFT($D4,2)=... Edit: 8:00 - podmieniłem załącznik (59+1=0) Na rysunku, widzę, masz co trzecią kolumnę. Można jak w załaczniku2
Proszę bardzo prosty kod w makro. Zmodyfikowałem troszkę nagrane makro - Zamień (Ctrl+H) z uwzględnieniem wielkości liter. Sub Makro1() For x = 1 To 18 Selection.Replace What:=Cells(x + 1, 1).Value, Replacement:=Cells(x + 1, 2).Value, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False,...
Kliknij prawym na tym pliku tekstowym i wybierz otwórz za pomocą i wybierz Exela Zaproponuje ci tam sam już opcje. Jako separator wybierz przecinek i już. Będą 2 kolumny. Następnie jeszcze w exelu - edycja znajdź zmień zamień - i zamieniasz wszystkie kropki na przecinki bo inaczej nie rozpozna w tym liczb (domyślnie przecinek jest tym co dzieli wartości...
Ponieważ kolumna C to trzecia kolumna więc zamień we wszystkich Cells() jedynkę po przecinku na trójkę czyli ,1) na ,3) np.: Cells(1,1) na Cells(1,3) i dla pewności w lini kodu OstWrs = Cells(Rows.Count, 3 ).End(xlUp).Row
Nie do końca wiem o co ci chodzi. Jeżeli chcesz aby po skopiowaniu komórek funkcje/wzory odnosiły się do nowych komórek ale w tym samym "ułożeniu" jak do komórki kopiowanej trzeba pozbyć się znaków $ (dolara) w funkcjach/wzorach (np: A10 + B10) [Znak $ wstrzymuje zmianę kolumny lub wiersza lub kolumny i wiersza przy kopiowaniu] Jeżeli chcesz zrobić...
Zamień w odpowiednim miejscu kod na poniższy: [syntax=vb] If b Like "[ ][ ]333" Then p4 = InStr(a, " 4") p7 = InStr(a, " 7") If p4 > 0 Then x4 = Mid(a, p4 + 1, 5) Else x4 = "" If p7 > 0 Then x7 = Mid(a, p7 + 1, 5) Else x7 = "" t = t & x4 & ";" & x7 & vbNewLine End If [/syntax] Wynikiem jest: 11406;42005;70005 11414;42005;79999 11423;44013;70001 11433;;70000...
Jestem początkująca w programowaniu vba... ...Potrzebuję wsparcia! Może ze względu na okres Świąteczno - Noworoczny mam ciężką zatrybkę. To co w cytacie zrozumiałem. Z resztą mam problem. Nie wiem czy dobrze zrozumiałem, ale na próbę zamień wiersz: ActiveCell.Copy Destination:=Cells(ostatniekryte... kolumna) na: Cells(ostatniekryteria,...
Wszystko działa dopóki liczby w combobox'ach mają tyle samo cyfr. To powinno Ci dać do myślenia. ComboBox-y przechowują poszczególne pozycje jako ... ciąg znaków, a nie wartości liczbowe. W swoim kodzie, zamień wartość Value , z wszystkich trzech Combo na liczbę i porównaj wtedy. Np. tak : If Val(ComboBox1.Value) < Val(ComboBox2.Value)...
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,...
Dobrze, że dałeś sobie radę. To się ceni ale to samo co na pięciu przyciskach możesz mieć na jednym po zastosowaniu mojego kodu. Nie chcę Ci udowadniać wyższości Świąt Bożego Narodzenia nad Wielkanocą. Mam jednak drobne podejrzenie, że mój kod przekleiłeś w całości bez sprawdzenia. A tam był drobny błąd na który nie zwróciłeś uwagi. A1 . Zmień sobie...
A wiec tak: 1. Otworz program Microsoft Excel 2. W polu A1 napisz nazwę użytkownika (np. elektroda) 3. Kliknij na ten czarny kwadracik w prawym dolnym rogu pola i przeciagnij w dół 4. Wejdz do pola B1 5. Wpisz dowolną liczbę (początkowa) 6. Wejdz do pola B2 i wpisz nastepna liczbę (o 1 większa od poprzedniej) 7. Zaznacz te dwa pola (B1 i B2), kliknij...
Witam! Zaznacz niechciany znak "wskakując" kursorem na pasek formuły i skopiuj do schowka. Następnie w wolnej komórce wpisz formułę: =KOD("V"), gdzie V - naciśnięcie kombinacji CTRL+V (wklejenie znaku). Excel zwróci kod ASCII znaku, w tym przypadku 160. Następnie w oknie znajdź trzymając wciśnięty ALT wystukaj z KLAWIATURY NUMERYCZNEJ a nie z linijki...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie Worksheet_Change zawężone do kolumny gdzie jest nazwisko....
Witam, Może to i śmieszne pytanie, zwłaszcza dla specjalistów, od których aż się roi na forum, ale...Jestem początkująca w Excelu i nigdzie nie mogę znaleźć odpowiedzi na pytanie jak: wyszukać i zamienić następującą frazę w excelu : "umowawarunki prad" - na "umowa warunki prąd" korzystając z :Znajdż i zamień Przy próbach wykonania tego pojawia mi się...
jedyne co przychodzi mi do głowy to znajdź i zamień
Zamień najpierw format komórki na format tekstowy.
1. Zaznaczasz obszar, który ma być zmieniony. 2. Edycja->Zamień 3. W polu "Znajdź" wpisujesz ciąg który ma być zamieniony. 4. W polu "Zamień na" ciąg na który ma być zmieniony. 5. Kliknij "Zamień wszystko".
Zamień [syntax=vb]ActiveSheet.Paste [/syntax] na [syntax=vb]ActiveSheet.PasteSpecial Paste:=xlPasteValues[/syntax]
=JEŻELI(warunek;jeżeli tak to ; jeżeli nie to) Przykładowo: Komurka A1 i A2 to dowolne liczby =JEŻELI(A1-A2>0 ; A1-A2 ; 0) (niekoniecznie musi działać ze spacjami koło średników)
Jest błąd w linii określającej warunek: If Right (komorka, 3) = " a " Then Powinno być: If Right( Cells (komorka, 3), 1 ) = "A" Then A jeszcze lepiej zamienić na małe litery. Taki zapis jest odporny na ciągi z/bez użycia CapsLock'a. [syntax=vb]If Right(LCase(Cells(komorka, 3)), 1) = "a" Then[/syntax]
Witam, Drodzy mam taki problem że potrzbuję stworzyć następującą formułę w kolumnie A: Jeżeli - Kolumna B = "AIR' to; wyciągnij trzy znaki z kolumny C, następnie sprawdź czy te znaki to "XXX" lub "YYY". Jeżeli "XXX" to zamień na "AAA", Jeżeli "YYY" to zamień na "BBB", Jeżeli co innego to wpisz te trzy znaki Jeżeli - Kolumna B <> "AIR' to "Nothing"...
Małpa '(at)' Ale wszystkie liczbowe będziesz musiał "przeedytować" (F2>Enter), żeby Excel zamienił sobie na tekstowe. W przyszłości wpisuj poprzedzając apostrofem.
Prościej: edycja -> zamień "mailto:" na nic. Tzn w polu szukaj wpisujesz mailto: a w polu zamień na, nic nie wpisujesz.
Przepraszam, jeśli napisałem to niejasno, ale to między innymi dlatego, że nie było przykładowego pliku, nie wiem czy dane są w wierszu, czy w kolumnie, czy w zakresie prostokątnym i czy mają być trwale zmodyfikowane (na wartości w tym samym miejscu) czy za pomocą formuł - to znaczy oryginalne dane pozostają na swoim miejscu, a dane przetworzone umieszczamy...
Witam, Mam pytanie VBA Excel. W pliku może być różna ilość zakładek. W każdej zakładce w kolumnie A mam wartość "1" chciałbym żeby makro zamieniało ją na wartość "2" czyli takie klasyczne zaznacz A:A i CTRL+H zamień "1" na "2" Pewnie da się napisać taką prostą pętle, która przejdzie przez wszystkie zakładki nie ważne ile ich jest i w każdej zrobi: zaznacz...
Zamień miejscami sprzedane i wyprodukowane ?
Nie mam pojęcia jak wyliczyłeś "swoje" minuty. Jaką godzinę przyjąłeś za pierwsza że ci wyszło to co wyszło. Obok załączyłem wyliczenia minut, przyjmując że badanie rozpoczęło sie 8 marca o godzinie 00:00 i każda data i godzina to kolejna wartość zwiększająca czas "eksperymentu" o daną ilośc minut
Zaznacz interesujące Cie komórki => PPM => Formatuj komórki => zakładka liczby, pole kategoria => zaznacz liczbowe Ewentualnie może być problem przecinka i propki. W zależności od ustawień Excel toleruje albo przecinek, albo kropkę jako separator dziesiętny. Zobacz jak masz w swoim cenniku i jaki format akceptuje excel (możliwe że masz ".", a excel...
Zrob UDF funkcje [syntax=vb]Function zlacz(Tgt As Range) As String For Each c In Tgt s = s & c & ", " Next zlacz = Left(s, Len(s) - 2) End Function [/syntax]
Zamień wszędzie Export\test.xlsx na np "c:\test.xlsx" (jakąś PEŁNA ścieżka) i sprawdź czy będzie to samo, jeśli błąd się powtórzy to poszukamy dalej. Co do samego zapisu to pamiętaj że to zadziała tylko jeśli jest zainstalowany excel, jeśli użytkownik na kompie nie będzie miał Excela lub będzie miał wersję 2003 to walnie błędem. Jeśli nie ma super wymogów...
Gdy tak zrobię wychodzi 11:12 Musisz sformatować komórki na odpowiedni typ danych. Po za tym w załączniku do poprzedniej wiadomości masz plik z przykładem.
Nie rozumem o co chodzi z tym leczeniem kanałowym i co to ma do dolnej kolumny... Ogólnie ciekawy pomysł... dolna kolumna... Biorąc kod marcimix wyszło takie coś: [syntax=vb]Type iCell Row As Integer Col As Integer End Type Sub ColorNext() Dim C As iCell Dim r As Range Dim tmp As Range Dim step As Integer C.Row = Excel.ActiveCell.Row C.Col = Excel.ActiveCell.Column...
Załączam plik który wykorzystuje kwerendę (połączenie z bazą poprzez import) z przyciskiem aktualizującym (makro aktualizujące kwerendę). Podobnie jak to zrobił kolegę adamas_nt z tym że w moim przypadku makro tylko wymusza odświeżenie kwerendy. Przy tym rozwiązaniu dane zawsze będą pobierane i aktualizowane na podstawie bazy więc jeżeli zmienią się...
#N/D! jest specjalną wartością komórki (błędem). Jeżeli chcesz ją sprawdzać przez Cell.Value i zawęzić tylko dla #N/D!, zrób tak: [syntax=vb]For i = 1 To Worksheets("Sheet1").Cells(Rows.Count, "C").End(xlUp).Row If IsError(Worksheets("Sheet1").Cells(i, 3).Value) Then If Worksheets("Sheet1").Cells(i, 3).Value = CVErr(xlErrNA) Then Worksheets("Sheet1").Cells(i,...
Witam. Posiadam arkusz z ok. 15 tysięcy wierszy. Jest w nim 10 kolumn z danymi zapisanymi w postaci naukowej np: 2.289593E+02 Próbuje zamienić tą wartości na format liczb z dwoma miejscami po przecinku np: 228.96 Ze względu na to że w liczbie 2.289593E+02 jest kropka zamiast przecinka Excel nie dokonuje konwersji. Zaznaczam całą kolumnę, używam funkcji...
Zamień miejscami: Calculate Application.ScreenUpdating = True A jeśli to nie pomoże, na końcu funkcji wpisz cost=cost
skopiuj całą kolumnę do txt zrobi ci się jedno pod drugim zamień kropki na przecinki zaznacz wszystko skopiuj i wklej do excella excel zapyta jaka separacja wybierz rozdzielenie do kolumn po przecinku rozrzuci ci w cztery kolumny posortuj wstaw pomiędzy te kolumny kolumny z kropkami zsumuj tekstowo te kolumny
Dokładnie o to mi chodzi, tylko żeby zrobić to nie w pętli, tylko dla całego zakresu od razu. Przy 100k+ wierszy powiesił mi się excel niestety. Jeśli robię to poprzez Text to column albo Zamień "=" na "=" takiego problemu nie ma. Taka pętla niestety jest zbyt wolna. EDIT: Ok, zadziałało w połączeniu z Selection , ale dla formuł które mają więcej niż...
Rozumiem, że chodzi o Excel. [syntax=text]Opcje programu Excel > Sprawdzanie > Opcje autokorekty > Zamień: kk Na: kosowski[/syntax]
Albo "na pałę" - jeśli używasz jakiegoś bardziej zaawansowanego notatnika, np. Notepad++ kopiujesz i wklejasz do niego całą kolumnę, a potem wybierasz Zamień (w trybie rozszerzonym) znak \r\n znakiem ;
Też nie działą Ale ty jesteś małej wiary :) Działa, działa, tylko trochę wiedzy jak wpisywać. Zaznaczasz obszar Wciskasz Ctrl+H (bo to jest skrót "zamień" bo CTRL+F to na na znajdź - to tak dla zasady) Wpisujesz spacje w "znajdź" a zamiast "twojego \n stajesz w okienku "zamień na" wciskasz i trzymasz lewy alt a z klawiatury numerycznej (ma być włączona)...
Kolego możesz to zrobić nawet w notatniku. Zastosuj ZAMIEŃ (CTRL + H). Tych poprawnych trochę jest jednak, jaki masz Excel? Konwersja z automatu może nie wyjść za bardzo.
Private Sub Worksheet_Change(ByVal Target As Range) Dim e2 As Range, q2 As Range, f5 As Range, f6 As Range Dim f2 As Range, q5 As Range, q6 As Range Dim r5 As Range, r6 As Range, y5 As Range, y6 As Range, z5 As Range, z6 As Range Application.EnableEvents = False For i = 0 To 2 Set q2 = Sheets(1).Cells(i * 9 + 2, "Q")...
A żeby trochę sprawę zagmatwać (uprościć) sugeruję napisanie każdej funkcji w jednym wierszu. Mianowicie wyrzuć dodatkowe deklarowane zmienne. Moim skromnym zdaniem laika są one tam zbędne.
Witam. Funkcja ta niestety MUSI mieć poszukiwaną daną w lewej ( tzn. w 1-szej) skrajnej kolumnie tablicy. Natomiast nie musi podawać danej z 2 kol. ale z dowolnej. Moja rada: zamień poprzez kopiowanie lub wycinanie potrzebne kolumny ( 2 z 1) , jezeli nie możesz , to w oddzielnej części arkusz skopiuj całą tablicę (możesz ukryć kolumny skopiowane tak...
Moja propozycja jest w pliku. Żeby nie było, że nic od siebie nie dałeś, uzupełnij zielone pola formułami na podstawie wpisanych równań. Jakbyś sobie nie radził, skorzystaj z naprawdę rozbudowanej pomocy Excela, przeróżnych forum (jest tego mnóstwo) - ja tak się nauczyłem Excela. Jestem tylko amatorem, mogłem nie ustrzec się błędów - jak by coś się...
Jeśli masz te wartości zapisane z przecinkiem ale w formacie godzina,minuty, to się nie uda, bo excel dodaje minuty jak normalne liczby, nie przesuwając po 60. Jest na to rada. Zrób kopie pliku dla bezpieczeństwa. Wejdź w Edycja>>zamień>> w pola wpisz odpowiednio żeby zamienił przecinek na dwukropek i naciśnij Zamień wszystko. Następnie zaznacz kolumnę...
Zamień Set wb = Workbooks.Open("43_" & pref & ".xls") na Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "43_" & pref & ".xls")
Masz prawie gotową w pierwszym swoim poście ;) Sumowanie zamień na LICZ.WARUNKI, od połowy masz dobrze, potrzebny tylko pierwszy. Zerknij do pomocy, pomyśl i rozwiąż samodzielnie (będzie co świętować).
1. Zamienione są dane Firma 1 (t) z numerem karty Istniejący fragment kodu (ten co poniżej już w formie zmienionej) zamień na ten poniżej, tzn. zamień miejscami "nr_karty"/"masa": 2. Jest jeszcze jeden istotny aspekt, o którym nie powiedziałem Pomyślę ... :) ...
Witam Potrzebuje zamienić spacje na znaki enter w tekście. Wiem, że łatwo to można zrobić w programie Word, Excel itp ale mnie interesuje tylko notatnik. Tekst przed konwersją: Ala ma kota Po zamianie: Ala ma kota Oczywiście korzystam z funkcji zamień na ctrl+ H i wpisuję: Enter: Alt+013 , lecz to nie działa. Spacja: Alt+032- Dla spacji działa lecz...
1. notatnik > znajdź i zamień wpisując poszczególne zależności 2. excel > do każdej komórki dodać wartość 17 3...x. proste programy czy to c/cpp/java/.net/python etc pobierające dane i dodający do nich 17 :)
Jeśli dobrze zrozumiałem, zamień linijkę: [syntax=vbscript]If NazwaPliku = lp & ro(y) Then [/syntax] na taką: [syntax=vbscript]If InStr(NazwaPliku, lp) > 0 And Right(NazwaPliku, Len(ro(y)) = ro(y) Then[/syntax]
No i właśnie dlatego potrzebny jest Ci Excel by dopasować format z jednej kasy do formatu kasy drugiej. Zaznaczasz kolumnę z VAT i funkcją 'zamień wszystkie' zmieniasz stawkę vat na odpowiednią literkę podatku kasy Novitus. Tą samą funkcją (zamień na nic) wycinasz wszystkie $00 z liczb. I tak dalej, ustawiasz kolejność kolum i zapis do txt. Zapewne...
O ile dobrze rozumiem masz dane typu: poniedziałek 3:30 (3 godz, 30 min [przepracowane]) wtorek: 7:54 (7 godzin, 54 min [przepracowane]) Nie utrudniaj sobie życia pierdołami, zrób sobie wszystkie obliczenia w minutach a na końcu zamień minuty na godziny. Wynik końcowy - przepracowany czas będziesz miał w godzinach więc będzie widać różnicę
Najprościej "przekręć" tabelkę (daty w pionie), tzn zamień 1-szy wiersz z 1-szą kolumną (transponuj) i zastosuj filtr. Zmodyfikuj formuły formatowania warunkowego. Dalej standardowo: kopiuj-wklej specjalnie>wartości w z góry upatrzone miejsce.
To wpisz najpierw do zmiennej. Jak nie zadziała to zamień na: "Sheet2!A" + Str(NumerWiersza1) Ale nie sądzę abyś miał tak starą wersje, ba na pewno nie bo w tamtej nie było jeszcze hyperlinków. Może lepiej pokaż co nabroiłeś.
Po pierwsze: [syntax=vb] Dim LastRowDB As Integer Dim LastRow As Integer Dim FirstRow As Integer[/syntax] Zamień typ na Long. Po drugie : [syntax=vb]LastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1 [/syntax] Szczegół, ale LastRow bez + 1. Jeżeli + 1, to NewRow.;)
Poczytaj http://obrazki.elektroda.pl/9374636900_1...
Zamień osie wykresu tak, żeby x było na osi pionowej a N-Nt na poziomej, dołóż linie trendu (najlepiej dopasowaną), podstaw do wzoru linii trendu 1489 - wynikiem będzie odpowiadający x.
Mam prośbę, Czy ktoś, kto potrafi pisać makra, może mi napisać takie coś (o ile się da): Polecenie dla excel’a: przeszukaj wszystkie komórki w kolumnie F w poszukiwaniu kody: A0012, a jeśli wystąpi, to zamień go na 0304, A0017, a jeśli wystąpi to zamień go na 0305" Itd... sporo tego mam Koło 3000 komórek do sprawdzenia... Wiec prosiłabym przy...
Wystartuj rejestrowanie makra, zmień interesującą cię komórkę na inny kolor, następnie zamień kolor na pierwotny, zatrzymaj rejestracje makra. Wyjdź w edycje makra, dodaj warunek i pętle jak się zmienia kolor i jak on się zapisuje będziesz miał już w tym zarejestrowanym makrze.
No i będzie dyskutować... :] W załączniku masz przykład, kliknij sobie. W kolumnie C dopasuje pełne nazwy do skrótów w kolumnie B. Jak już to zrobi, to skopiuj gdzieś obok kolumny B i C, zamień je miejscami, a w (pustej) kolumnie B użyj funkcji WYSZUKAJ.PIONOWO, żeby wyszukać po pełnej nazwie skrót. Już Ci nawet do drugiego arkusza przykład wstawiłem...
ach i jeszcze jedno... za kazdym przycisnieciem przycisku kopiuje dane mozna to ograniczyc zeby tylko raz to kopiowal? Tak. Uruchomić makro 1 raz.:)
Spróbuj jeszcze tak: Jeżeli kwoty oddzielane są większa ilością spacji niż poszczególne słowa w opisie (dobrze by było żeby równą - jak nie to też poradzisz, byle większą - zadasz wtedy w wyszukiwaniu/zamianie znak zapytania i ileś tam spacji), zamień ich pewną możliwie jak największą ilość na jakiś unikalny znak (np. średnik) a potem użyj funkcji tekst...
sorry ze tak post pod postem ale... co by było gdybym zrobił kolejną tabele przestawną?? tylko teraz wziął wartości z pierwszej tabeli przest+wartości z arkusza Magazyn? Tabela przestawna nie jest remedium na wszystkie problemy (twoje i Excel'a). Nadawała się do porównania - dlatego ją zaproponowałem. Do tego, co chcesz teraz zrobić - się nie nadaje....
Witam, Potrzebuję napisać procedurę VBA, zamieniającą tekst na kolumny. Problem w tym, że w występujących w tekście kwotach, jako separator tysięcy jest zastosowana spacja, która jest jednocześnie separatorem danych. Tak więc, w przypadku zastosowania standardowej funkcji zamień tekst na kolumny, przy kwotach wyższych bądź równych 1 000 zł, kwota ląduje...
Witam, Mam w komórce coś takeigo (22) 5234241 Miasto <- baza klientów. Często miasto ma dwa człony. Chciałbym oddzielić to na dwie komórki Nr telefonu | Miasto <- żeby w tabelce jechać sobie miejscowościami (sortować) Nie umiem sobie z tym poradzić. Oddzieliłem Imiona i nazwiska, zostało mi oddzielenie numerów od nazw miast. Kombinowałem tak,...
najprościej jak się da bez nauki makr Wchodzisz w menu Edycja i Znajdź ( Ctrl+F ) Tam na zakładkę zamień i zamieniasz "." (kropkę) na "" (puste) bez cudzysłowów oczywiście wpisujesz, dzięki temu z 1.500,00 otrzymasz 1500,00 czyli liczbę z 2 miejscami po przecinku. ( domyślnie schowane ) czyli widać 1500 Formatowanie ile miejsc po przecinku to już twoja...
Można to robić i makrem ale może wystarczy skorzystać tylko z ... "zamień" Bo przecież chodzi tylko o zmianę nazwy pliku źródłowego w formułach (tak to zrozumiałem). Otwierasz plik w którym są już formuły do skoroszytu z poprzedniego miesiąca. Zaznaczasz wszystko (Ctrl+A) na arkuszu. Wciskasz Ctrl+H (lub z menu Edycja wybierasz "zamień..."). W okienku...
Stawiam raczej na 'Function'. Gdzie zwracana wartość? Zamień na sub. Jest jeszcze kwestia wywołania z przekazaniem... Powinno być coś w ten deseń[syntax=vb]Sub wywolanie() Call pokaz(Range("A1:A3")) End Sub Sub pokaz(A As Range) For Each arkusz In A For Each sh In ThisWorkbook.Worksheets If sh.Name = arkusz Then sh.Visible = False Exit For End If Next...
Spróbuj testować bez spacji (w obu łańcuchach), wykorzystując funkcję PODSTAW. Zamień linię If .Cells(i, 1) = ark.Cells(j, 1) Then na If WorksheetFunction.Substitute(.Cells&... 1), " ", "") _ = WorksheetFunction.Substitute(ark.Cel... 1), " ", "") Then
Nie wiem skąd mi się wzięło 36. Zaznacz cały arkusz Test36 (otwórz arkusz stań gdziekolwiek i Ctrl+A) Następnie wciśnij Ctrl+H (zamień) Wpisz w zamień "36/" na "35/" i wciśnij zamień wszystko (wpisz bez czudzysłowów). Potwierdź ok. Ewentualnie później zmień nazwę arkusza na test 35 (dla zasady) Co do kwartałów (pisałem że to "dłubanina" i trzeba znać...
dzięki za podpowiedzi.... funkcję transponuj znam....jednakże do moich potrzeb nie pasuje.....gdyż potrzbuję odwrócić tabele z poziomej na poinową ale zachowując przy tym łącza....tak aby dane zawarte w danej tabeli pionowej sie mogły odswierzyć gdy nastapi zmiana danych w tabeli poziomej.... funkcja transponuj tylko i wyłącznie jest wynikowa na daną...
Wpisz nagłówka(lub nieco) w B4 Zamień .Columns(1).ClearContents na .Range("B5:B1000").ClearContents r = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 na r = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 .Cells(r, 1) = chb.Name na .Cells(r, 2) = chb.Name albo (bez naglowka) i lepiej [syntax=vb]Sub Idz() Dim r As Long Dim bs As Range Dim chb As Control Set bs =...
Witajcie, elektrodowi specjaliści. Mam złożony problem, z którym obecnie nie mogę się uporać, a ponieważ czas mnie nagli, chwilowo poradzę sobie "ręcznie". Jednak chciałabym wiedzieć, jak to rozwiązać w przyszłości, bo na bank jeszcze będę z podobnymi dokumentami walczyć. Mam arkusz, w którym wylistowane są artykuły sklepowe. W komórce mam dane takie,...
Nie mam żadnego doświadczenia z VBA... niestety O ile mogę usunąć te przedrostki ul to jak teraz wyfiltrować te dane bo przecież może być tak, że dwie inne osoby pracują na tej samej ulicy ale mają inne imię i nazwisko. W excelu narazie zrobiłam sobie formułę złącz.tekst tak aby imię i nazwisko pokazywało się razem i dałam formatowanie warunkowe na...
clubs: tak na pewno jest to dobra ścieżka wysypało się na: plik_1 = Workbooks("glowny_plik.xls").Sheets("dan... pisze, ż eplik = empty lanzul: masz rację, może przybliże trochę działanie maka, myślałem, ze nie będzi eto konieczne, ale jednak. Trochę pewnie teraz namieszam, bo pokaże całe główne makro, wiem, że nie jest idealnie napisane...
To dlatego że trochę zamieszałeś z opisem ;) Pisałeś o podziale według dwóch kolumn A i B - przy takim założeniu musiały by to być niepowtarzające się pary. Póki co linijkę: If tabl(i, 1) = c And tabl(i, 2) = druga_kolumna Then zamień na: If tabl(i, 1) = c Then i powiedz czy to jest to, o co Ci chodzi? Jeżeli chodzi o dynamiczna...
Witam, Myślę nad zrobieniem czegoś w stylu wyszukaj.pionowo + zamień, dla tekstu zawartego w jednej komorce. Chodzi o to że z innego skoroszytu chce wyciągać wartości odpowiadające tekstowi zawartemu w powiedzmy komórce C1. Nie byłoby w tym nic trudnego gdyby w tej komorce znadowal sie tekst tylko dla jednego rekordu a wynik wyszukaj pionowo mialby...
Dalej nie wypowiem się nad całym kodem ale wskaże gdzie co zmienić. Ta część twojego kodu odpowiada za zapis: ThisWorkbook.path np. na "c:\moja_sciezka" (w cudzysłowach) zrób to w obu fragmentach dotyczących zależności zapisu od wersji excela. Aby data w nazwie pliku była mniejsza o jeden w powyższym ciągu zmień VBA.Date na VBA.Date - 1 Jednak by nie...
[syntax=vb]Str = Trim(cell.Value) if Str <> "" Then cell.Value = Str Else If not cell.MergeCells Then cell.Clear[/syntax] Było NOTHING wpisujesz "", owszem teoretycznie Excel powinien zamienić "" na NOTHING zaś jest to tylko teoria.
znajdź zamień zamień bajty ne555 zamień
dodanie filmu youtube konwersja float wpływ mrozu
tuning silnika benzynowego miernik częstotliwości pic16f84
Zalana wkrętarka Bosch - możliwe uszkodzenia i naprawa Schemat pilota kierownicy Dacia Duster 1 (2010-2017)
