tekst zostaje rozformatowany Zamiast & vbCr (jak w Ciebie) Treba & vbCrLf potrzebna by była chyba dodatkowa cała procedura Tak :) bf.SetText "" bf.PutInClipboard ' do schowka
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Co masz na myśli pisząc "karta"? Dla arkuszy skoroszytu można zagnieździć kod w kolejnej pętli For ark = 1 to thisworkbook.sheets.count ' lub liczbowo indeksy Np 2 To 4 sheets(ark).select 'kod Next
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Zarejestruj jeszcze wyszukiwanie tekstu (Ctrl+f), zamiast 'Activate/Select' wpisz 'Column' i przypisz do zmiennej. Powinno wyjść coś takiego p.kaczmarek2 . Do tego obsługa błędu, w razie nieznalezienia, oraz różne takie mniej istotne...
aaa.. Formuła nie może działać w tej samej komórce Można podzielić 1 kolumne na inne dwie - przed 'w' i po 'w' zmienić jednu kolumnu tylko makrem [syntax=vb]Sub kokos() Dim c As Range Set c = Cells(1, 1) While c <> "" p = Application.WorksheetFunction.Search("w"... c) c.Offset(, 1) = Mid(c, p) c = Left(c, p - 1) Set c = c.Offset(1) Wend End Sub...
Chamski (podwójne NOT) kod, ale działa. - najpierw wybierasz sobie "co chcesz wstawić" z komórek D1..D6 - potem wybierasz sobie "gdzie to wstawiasz" - komórki A1..A6 O pierwszej nad ranem trudno o lepszy kod :) Myślę, że koncepcję moją już znasz, przerobisz sobie "na swoją modłę" - jak będziesz chciał. Kod wklejasz bezpośrednio w kod arkusza, którego...
ad. 1: [syntax=vb]Range("B2").ClearComments Range("B2").AddComment ("Przypisano: " & Range("A2"))[/syntax] ad. 2: [syntax=vb]=JEŻELI(DZIEŃ.TYG(DZIŚ();2) = 5; LICZ.JEŻELI(A:A;DZIŚ()+3); LICZ.JEŻELI(A:A;DZIŚ()+1))[/syntax]
Jak masz tak ładnie popisane "stare:xxxxxxx" i "nowe:yyyyyy" we wszystkich wierszach to nawet nie musisz sięgać ani do wyrażeń regularnych, ani do VBA :please: Wystarczy zrobić odpowiednią formułę (na bazie fragment.tekstu) w kolumnach C i D i przeciągnąć ją na dół kolumny :idea: :idea:
Źle Ci podałem, bo stała 'wd' nie jest znana z poziomu Excela, lecz Worda. To i tak nie ma znaczenia w tym przypadku, bo czarny i tak ma wartość 0. Natomiast zmień linię : Nie wiem czy to coś zmienia ale dane są w tabelce w excelu To gdzie w końcu chcesz zmienić kolor?
Cóż, być może w ten sposób Edit: nowy plik
Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...
Spróbuj [syntax=vb] Sub mySplit() Dim bs As Range, mar() As String Dim r&, i&, n&, x$, xx$ Dim p&, pd&, ps&, pw&, lmi&, pn&, px&, pf&, pe&, sl& Const dig = "0123456789" Set bs = Sheets("dane").Range("b:g") r = 2 While bs(r, 1) <> vbNullString x = bs(r, 1): n = 0 If bs(r, 1).MergeCells Then n...
Do tego nie potrzeba makra, można to prosto zrobić korzystając z listy rozwijalnej i łączenia tekstu. Prosty przykład
[syntax=vbscript]Sub Dzialaj() Application.ScreenUpdating = False Dim Tekst As String Sciezka = "C:\PlikiExcela\" Tekst = "mój tekst" Plik = Dir(Sciezka & "\*.xls*") While Plik <> "" Call Wyszukaj(Sciezka & Plik, Tekst) Plik = Dir() Wend Set fso = CreateObject("Scripting.FileSystemObject... Set s = fso.GetFolder(Sciezka) For Each p In s.SubFolders...
sklep1(;;zmienna3) 1. Wyedytuj stary wpis z średnikami. 2. Uruchom makro. 3. Otrzymasz nowy wpis
Można to zrobić, ale nie dałeś przykładowych plików, to sobie dostosuj nazwy i ścieżkę. Załączam 2 pliki z danymi (docelowo zamknięte) i plik roboczy.
Wróżę problemy z jakimikolwiek poprawkami nawet tego prostego kodu. Makro jest podpięte pod Arkusz1->Worksheet->Change.
Wyskakuje błąd: #NAZWA? Czyli masz literówkę w nazwie funkcji lub, jeśli wciskasz formułę w makro to musisz użyć angielskich nazw funkcji. Najlepiej użyj nagrywania makr i wpisz formułę, którą Ci podałem. W ten sposób w makro wpiszą Ci się angielskie odpowiedniki.
Cześć, mam problem. Potrzebuję wiedzieć jak zrobić makro, które polega na ściąganiu danych z innego pliku. Ma wejść w inny plik, znaleźć konkretne słowo, przejść 5 komórek w prawo, skopiować wartość i wkleić w konkretne miejsce, potem przejść z tej piątej komórki na siódmą komórkę od tej znalezionej i skopiować ja w konkretne miejsce. Makro ma działać...
Głupie pytanie ale nie wystarczy zaznaczenie tej kolumny i zamiana tekstu poprzez CTRL+H? Możesz zawsze zarejestrować sobie makro robiące dokładnie tę czynność.
W sumie racja:) Dziękuję
Zależy, jak chcesz żeby się makro wykonywało. Albo zarejestruj makro i kod wklej tam, albo wstaw przycisk i w zdarzeniu przycisku.
a u mnie działa. może zamioast ; wstawiasz , dodaje załącznik. - przy otwieraniu pojawi się monit o tym ze plik posiada makro - jest tam tylko to makro (w module). plik i komputer czysty i sprawdzony antyvirem
Jak dopisać do zapytania, aby wyniki puste też się pojawiały? Puste wyniki, to zero, które wchodzi w skład obliczenia średniej. Albo obliczamy średnią, albo pokazujemy wartości pomiaru. Rozdzielamy wtedy Godzinę i Minutę na osobne kolumny, które są tylko tekstem. Zmieniłem czas.
Dlatego, że nie wiedziałem, jak potraktuje średniki w tekście.
Makro musi uwzględniać "budowę" tekstu. Podeślij fragment.
Nagraj sobie makro i wpisz cokolwiek.
Ja już "ogarnąłem" (ogarnąłem to o co ci mniej więcej "chodzi") Po pierwsze za mało danych: To ma być funkcja czy procedura? To ma dotyczyć zaznaczenia, całego arkusza, całego skoroszytu? Co z resztą danych jeżeli znalezione wyniki przekroczą 1024 znaki? Po drugie: Ja z kolei chcę kolejne piwo (a nie chcę mi się iść już do sklepu). Pokaż co już stworzyłeś...
:arrow: tadkli9743 Zaglądałeś w ogóle do arkusza? A u mnie bez kolumn pomocniczych (lub VBA) ani rusz :( dane z postu #1 http://obrazki.elektroda.pl/9886155100_1... W G1: =LICZ.JEŻELI(B1:E5;PRAWDA) Edit: Aj! Miały być tylko 6-cio cyfrowe http://obrazki.elektroda.pl/6354320300_1... Teraz warunek mam ">99999". Ale, jeśli...
Można obyć się bez makr. W załączniku wykorzystanie funkcji WYSZUKAJ.PIONOWO z kolumną pomocniczą.
Wydzielono z [url=https://www.elektroda.pl/rtvforum/t... [adamas.pl] Witam wszystkich, na początku ukłony bo algorytm super działa, jedynie jaki mam problem za ze zbyt długim tekstem w komórce - wyskakuje wtedy taki błąd: Parametr typu string jest zbyt długi. Czy można zmienić w jakiś sposób określenie vb że w tej komórce jest długi...
chodzi o wyciągnięcie zawsze tych pierwszych dat Ogólnie to konieczne by było makro z wyrażeniami regularnymi :idea: , w tym konkretnym przypadku można jednak wykorzystać prostą przeciąganą formułę :D [syntax=vbscript]=FRAGMENT.TEKSTU(E3;SZU...
Dołączam plik VCF. Można go otworzyć jako wizytówkę i zapisać w książce telefonicznej lub otworzyć jako tekst
Witaj, Nie mam pomysłu na formułę, mam natomiast pomysł na proste makro, które mniej więcej robi to, co chcesz. Nie jestem najlepszym programistą VBA, ale w sumie na pierwszy rzut oka działa. [syntax=VB]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-04-16, autor Darek ' ' Kolumna A od wiersza 2 w dół zawiera działania ' W kolumnie B będą...
Zdaje się, że badany tekst jest krótszy niż 3 znaki. Wyłącz obsługę błędów (On Error Resume Next) lub sprawdzaj długość stringa. Powinien mieć co najmniej 4 znaki.
Pierwsze makro - czy ma znajdować jedynkę w tekście, który może być dłuższy, czy też wyszukiwać komórki tylko z jedynką, a komórki gdzie jest coś więcej ignorować?
Podobny sposób do zablokowania kontrolki - dający efekt "wyszarzania", ale samego tekstu - można uzyskać ustawiając właściwość Enabled kontrolki na False. Excel faktycznie nie obsługuje wyszarzenia całej kontrolki, chyba że jej BackColor zmienisz ręcznie ;).
Wydziel dodatkowy arkusz (może być ukryty), zrób tabelkę znaków i ich odpowiedników łacińskich i zamiast w tablicy działaj w arkuszu. Na przykład tak: https://obrazki.elektroda.pl/4775489200_... https://obrazki.elektroda.pl/4498160400_... gdzie:[syntax=vbscript]Function FrPol(tekst As String) As String Dim i As Integer,...
Wydaje mi się że nie potrzebujesz kopiowania, wystarczą formuły (w załączniku) Jedynie na co potrzebujesz makro to na wklejenie aktualnej daty np w A2, po zmianie tekstu w B2
Nagraj makro jak wpisujesz formułę. Zobaczysz ją w kodzie.
Porada okazała się skuteczna. Makro jest już pełnosprawne. Dzięki
Witam, potrzebuję funkcję, która będzie zliczać teks (z tym problemu nie ma CZY.TEKST) w arkusz, którego nazwa będzie zapisane w pewnej komórce. Przykład W Aruszu1 komórce A1 zostaje zapisana nazwa nowo utworzonego Arkusza np 10 o nazwie np "GŁÓWNY". W arkuszu tym będą zapisywane nazwy różnych podzespołów. Chciałbym by funkcja odnalazła Arkusz po nazwie...
możesz użyć sheets(25) w komórce ta nazwa jest dane(spacja)październik(spacja)2014 bo to jest ważne by wyciąć tekst
Nie uwgzlędnia słów "liczba" i "tekst" przez co jest przesunięcie. Poza tym jak wyczyszczę arkusz efekt końcowy i odpalam makro to generują się tylko dwa pierwsze wiersze
Wnioskuje że w jakimś okienku (ZaznaczForm) w polu (tbWartość) chcesz wprowadzać tekst (i tylko tekst). Tak? Może wystarczy tylko wykasować w linijce kodu wartość = Val(ZaznaczForm.tbWartość.Value) funkcję zmieniajacą "Val" czyli wartość = ZaznaczForm.tbWartość.Value Tylko jak to się będzie miało do większy mniejszy od jakiegioś innego tekstu wpisanego...
ale jeśli koleyno wklej do A1, A2 ... to następujące dane zastępują poprzednie dane i B1 zmieni wynik, ponieważ formuła nie jest wyjściem w tej sytuacji może po prostu zrobić makro oczywiście pozwolić makro
Znalazłem kolegę poza tym forum, który nie zaczął mnie "prostować" i obdarzać ocenami, tylko zabrał się do pomocy i stworzył odpowiednie makro. Dziękuję wszystkim tym, którzy próbowali mi pomóc.
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
Czy to 2010* to wartość w którejś z komórek? Dodane: Tak sobie pomyślałem i ... if left(tekst,len(a)+4)=a&&... then wyszło mi coś takiego. Zadziała?
Włączasz rejestracje makra, robisz ręcznie pierwsze dwa, po czym otwierasz makro do edycji i poprawiasz.
Chcesz powiedzieć, że nie wiadomo co będzie Typ pole 'numer artykułu'? Tekst lub liczba?
mam duży problem (choć prosty :-) ) mam tekst: get system name name = ... w drugiej kolumnie odpowiedni " PPPoA Bridging ... skrypt: WierKon = InputBox("wiersz koncowy") N = WierKon Sheets.Add.Name = "liczniki_pppoa" ' nowy arkusz Sheets("liczniki_pppoa").Select ActiveWorkbook.Sheets("liczniki_pppoa").... = 3 Sheets("Arkusz1").Select 'WierAkt...
paweliw i Maciej Gonet! Dziękuję za bardzo rzeczowe podpowiedzi. Jako początkujący takich porad potrzebuję. Wpadłem na to żeby użyć funkcję TEKST i działa. Nie zdążyłem napisać posta, że problem rozwiązałem - byliście szybsi. Jednak dalej dręczy mnie pytanie: Dlaczego zarejestrowane makro daje inny wynik niż rejestrowana procedura?
Bardzo bardzo dziękuję, wszystko działa :).
A co jest w komórce, na której makro się "wykłada"? I co dokładnie robi AUTOWIERSZ?
Prubuje i nadal nic. Zrobiłem jeszcze w prostszy sposób czyli nagrałem makro jak zamieniałem " ." na "" ale niestety po odpaleniu makra z liczy 1.200,000 tworzy sie 1200000 Nie wiem co dalej zrobić.....
A może być w dodatkowym arkuszu cała "baza" nazwisk i przypisanych im specjalności - i tam byś wpisywał nowych a w przedstawionym arkuszu wybierał byś tylko nazwisko. Czy jednak to ma działać ściśle tak jak napisałeś czyli jeżeli wcześniej wystąpiło nazwisko to ma się pojawić obok specjalność jak nie to czyste pole oczekujące na wpis. - jeżeli tylko...
Dla jednego pola nie jest to skomplikowane - działające makro to: Dla zakresu [syntax=vbscript]Sub elka() For Each c In Range("H8:H100") If c = "TAK" Then c.Offset(, -5) = True ElseIf c = "" Then c.Offset(, -5) = False End If Next End Sub[/syntax]
Witaj Zmienic: tekst = tekst & ListBox1.list(w, 1) na tekst = tekst & ListBox1.list(w, 0) nazwa = ListBox1.list(w, 1) na nazwa = ListBox1.list(w, 0) Dla przycisku - nowe makro w Modulu da się przypisać Sub pokaz() Magazyn.Show End Sub
[syntax=vbnet]Sub Dodaj() Cells(Cells(Rows.Count, "A").End(xlUp).Row, 1) = InputBox("Podaj dane:", "UWAGA") End Sub[/syntax]
A to musi być makro? Jeżeli tekst masz w A1 to dla pierwszej cyfry =FRAGMENT.TEKSTU(A1;ZNAJDŹ(" ";A1;1)+1;ZNAJDŹ(" ";A1;ZNAJDŹ(" ";A1;1)+1)-ZNAJDŹ(" ";A1;1)-1) a dla drugiej =FRAGMENT.TEKSTU(A1;ZNAJDŹ("na ";A1;1)+3;ZNAJDŹ(" ";A1;ZNAJDŹ("na ";A1;1)+3)-ZNAJDŹ("na ";A1;1)-3) Przeciągasz w dół i tyle Ponizej załącznik A jeżeli uważasz że porada kolegi makbeta...
moim zdaniem to jest niezbędne do makro... ActiveSheet.Hyperlinks.Add Anchor:=<komorka> , Address:=<tekst URL>
jak wejdzie się w kod i dołuły to jest zrobione okienko tylko chodzi o podpięcie wpisanego tekstu do tabelki wstawianej
A czy byłoby niepoprawne wyciągnięcia dnia z daty jako liczby i skonwertowanie tej liczby na tekst? I analogicznie rok i miesiąc?
Prościej chyba zastosować formułę niż makro. Np: http://obrazki.elektroda.pl/1848695100_1... Uzupełnić w JEŻELI(CZY.BŁĄD i stosowny tekst w przypadku błędu i będzie elegancko.
Za wybieranie rekordów odpowiada zapytanie SQL, w tym kodzie to fragment: Sql = "SELECT [ID klienta], SUM([Godzin]) FROM [Dane$] GROUP BY [ID klienta] ORDER BY [ID klienta]" Jeżeli chcesz dodać kolumnę o nazwie SIGN i grupować najpierw po ID klienta, a później po niej, napisz: Sql = "SELECT...
Pytania: Czy ta wartość to wartość tekstowa czyli "1" (jak piszesz), czy tez może jednak liczbowa, czyli 1 (cyfra/liczba 'jeden') ? I czy jest to fragment większego ciągu (np. 000199KGHM000), czy też tylko pojedyncze "wartości" (1, względnie tekst "1") ?
Najprościej zaciągnąć dane kwerendą (jak leci), http://obrazki.elektroda.pl/2859189500_1... ew. można zoptymalizować, czyt. wyrzucić co niepotrzebne. Nagraj makro wykonywania w/w czynności, a do wyszukiwania użyj arkuszowych formuł...
makro akapit przed właściwym nagłówkiem również formatuje Faktycznie tak się dzieje - trudno precyzyjnie operować jest ułomnymi "symbolami wieloznacznymi :cry: Dla tego zmieniłem zapis tych "wyrażeń regularnych" Worda, zmieniłem też zastosowane style (na dotyczące znaków i akapitu :idea: ) i całość w nowej formie zamieściłem w załączniku. Czy jest...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Porada, którą otrzymałem zmusiła mnie do bardziej intensywnych poszukiwań rozwiązania, a było dość proste. Mianowicie po wykonaniu się makra dopisałem pomnożenie tych komórek, które tego wymagały by zmienić się z tekstu na zapis cyfrowy, w wierszu wstawionym przez makro. Jest Ok, dzięki za natchnienie. janusz
Witam serdecznie potrzebuję z czegoś takiego wykroić tekst po "|" i przed "-" lub przed "." kropką: YSZUFPRN|YSZUFPRN|Higiena i czystość >> Szufelki|Szufelka PRESTIGE. - łączy ze sobą wysokiej jakości tworzywa sztuczne z elastomerem, dzięki czemu jest niezwykle trwała - wyprofilowana rączka szufelki bardzo dobrze układa się w dłoni|||0,0792|1|0,0792|5903355004790||....
(at)cbrman Mogę prosić o wyjaśnienie kodu? Mam błąd na linijce "lCnt = Mid(sTemp, i, Len(sTemp))" - "type mismatch". (at)lanzul 1. Po AU09 ma być AU10. 2. Zestaw znaków zawiera się w zbiorze jaki tworzy alfabet angielski + cyfry + znaki specjalne jak kropki, przecinki, myślniki 3. Ma się to dziać jedynie w jednej, scalonej komórce o adresie B+C, 9+10...
Z reguły za pomocą makra. Można też w dodatkowym arkuszu ale to więcej zabawy niż to warte. Wpisz w google kwota słownie w excelu lub coś w tym stylu a znajdziesz parędziesiąt rozwiązań. Tutaj np. jedno z nich z delikatnym opisem co zrobić: http://blog.grzegorzsurowiec.pl/2009/01/...
hibou1 , nie piszesz, w której wersji Excela pracujesz. Generalnie, nie należy takich plików otwierać przez dwuklik na ikonce/nazwie pliku, bo wtedy zdajemy się wyłącznie na domyślność Excela - a Excel wszystko co przypomina liczbę traktuje jak liczbę, a dokładność pamiętania liczb to 15 cyfr. Wszystko co ponad to jest zastępowane zerami. Dlatego zanim...
Tu nie trzeba makra, wystarczy funkcja łańcuchowa wycinająca fragment od lewej, albo od zadanego momentu w tekście. Sugeruję utworzenie dodatkowej kolumny i skopiowanie tam formuły wycinającej. No i nie wszystko jest proste, bo jeszcze powstawiałeś tam jakieś "czerwony", itd. Skąd to się niby bierze ? Excel ma to wiedzieć ? Sprecyzuj temat.
w zależności od godziny np. 6:00-14:00 lub 14:00-22:00 będzie zmieniało po zaznaczeniu fragmentu Myślałem, że był to czas, kiedy autor pracuje z danymi, nie czas w tekście
W związku z pytaniem na pw. Utworzyłem sobie plik w c:\ o nazwie plik1.xlsx, w którym wpisałem tekst w komórki Od B34 w prawo. Następnie uruchomiłem makro (c:\ w InputBox'ie). Dane pięknie skopiowały się do "Arkusz2", komunikat: "skopiowano z 1 pliku". Możliwe przyczyny błędu: -podajesz złą lokalizację -lokalizacja jest dobra ale nie ma tam plików -nazwy...
ponizej moje agrane makro, z niedoskonalosciami: Może tak? [syntax=vbscript]Sub save_unicode() ActiveWorkbook.SaveAs _ Filename:="C:\users\desktop\TEST\" & ActiveSheet.Name & ".txt", _ FileFormat:=xlUnicodeText End Sub[/syntax]
Potrzebuję pomocy przy zadaniu z Excela: Napisz makro wpisujące podaną przez użytkownika datę do komórki a1 arkusza, tak, aby chroniło arkusz przed wpisaniem przez użytkownika innego niż data tekstu następnie za pomocą odpowiednich funkcji tekstowych przenieś do oddzielnych komórek dzień, miesiąc, rok.
Ja podpowiem że jak już się wząłeś za makro to jest funkcja Split która rozdziela ciągi po danym znaku/znakach np: tbl = Split(Cells(1, 1), "_") dana = tbl(0) dana2 = tbl(1) Czyli w twoim przypadku: kawalek=Split("700 x 600"," x ") Wynik=Val(kawalek(0)) * Val(kawalek(1))
do tego celu lepiej jest wykorzystać jakaś baze danych stworzoną np w Akcesie w excelu będziesz musiał oddzielić ogladanie takie bazy od wpisywania danych Oglądanie za pomocą funkcji: wyszukaj.pionowo, wyszukaj poziomo lub index a do wprowadzania stworzysz albo jakiś formularz albo np w każdym arkuszu będziesz miał dane na dany miesiąc i tam bedziesz...
Zainteresuj się trochę innym podejściem do problemu. Może do wykonania tego zadania, wystarczy użycie wbudowanej w Word-a funkcji Mail Merge . Funkcja ta pozwala na wypełnianie szablonów dokumentów Word, danymi pochodzącymi z arkusza Excel.
Chodzi o to, by podczas np. edytowania bazy danych, dane wynikowe były uzupełniane na bieżąco . Właśnie z tego powodu proponuje ci funkcje excelowskie a nie makro. To co ci przedstawiłem to pomysł. Wzbij się ponad chmury i spójrz pod innym kątem :). Nie daj się ograniczeniom i spójrz świeżym okiem :) . Bazy (ani dobrze przygotowanych kolumn pomocy)...
Tutaj masz usuwanie ostatnich znaków od końca lub znaków początkowych: http://office.microsoft.com/pl-pl/excel-... Rozdziel sobie na godziny i minuty osobno
Skoro ma być w VBA... Przykład z tablicą i... InputBox'em ;) [syntax=vb]Sub aver() tekst = InputBox("Wpisz liczby oddzielając średnikiem", "Obliczanie średniej") tekst = Replace(tekst, " ", "") 'wyrzucamy spacje tekst = Replace(tekst, ":", ";") 'mogło się komuś omsknąć tekst = Replace(tekst, ".", ",") 'to sie często zdarza tablica = Split(tekst, ";")...
Błąd polega na tym że w kolumie A wszystkie dane masz jako tekst (mimo że wyglądają na liczbę) natomiast w kolumnie C masz większość danych jako liczbowe. Zaznacz wszystko i odznacz wyrównanie do prawej. Jeżeli żadna z opcji formatowania nie zostanie włączona to tekst jest wyrównywany do lewej krawędzi a liczba do prawej. Mimo że wyglądają tak samo...
To napisz makro, które tworzy plik CSV po nacisnieciu przycisku - prosciej chyba nie można? Przynajmniej ja tak robię. Zamiast tłumaczyć dziesiątkom użytkowników co i jak, wolę zrobić makro i podłączyć pod jeden przycisk.
Makro z użyciem RegEx Rozdzielany tekst ma być w komórce A1, poszczególne wyrazy pojawią się w kolejnych komórkach kolumny A. [syntax=vb]Sub OddzielWyrazy() Dim l& Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ With ActiveSheet sRegExpPatt = "[a-ząćęłńóśżź]+" Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.IgnoreCase = True...
Szukam makro które porówna wiersze do siebie z dwóch kolumn. Porównanie ma polegać na wyłapaniu najbardziej podobnych tekstów min 5 znaków. STORNO
A tak będzie dobrze? Makro Numerowanie()
Owszem to filtrowanie danych ale w żadnym wypadku nie powinno być powiązane z auto-filtrem, tym bardziej jak masz excel 2003 i poniżej. Tu masz kod. Tłumaczyć? [syntax=vb]Sub Makro1() Dim ostWrs As Long, x As Long Dim tekst As String, szukane As String ostWrs = Range("B" & Rows.Count).End(xlUp).Row tekst = InputBox("Podaj szukany ciąg", "Podaj szukaną")...
"Zapomniałeś"dodać, że w kolumnie B też się mogą zdarzyć "wypadki", że ten sam tekst będzie pisany raz dużą, raz małą literą... Niemniej tak na szybko udało mi się takie coś naskrobać, jak w załączniku. Sprawdź sobie czy działa... PS. Gdybyś kiedyś szukał kogoś do stworzenia za rozsądne pieniądze porządnie takiego arkusza planistycznego - polecam swoje...
Brak załącznika to poważny mankament! Nie wiadomo, jakie dane są w kolumnie "O". W kodzie PRL jest sprawdzany warunek: [syntax=vbscript]Sheets(x).Cells(y, "O") >= -30[/syntax]Otóż warunek ten spełniają nie tylko liczby >= -30, ale również puste komórki, dowolne teksty, w tym teksty puste, wartości logiczne. A jeśli w komórce jest wartość błędu, to program...
Masz tam dwa rodzaje makr - jedna grupa tylko zmienia kolor tła, druga grupa zmienia kolor tła i dodaje tekst. Nie wiem, czy chcesz ograniczyć działanie wszystkich makr do kolumn C i L, czy tylko tych, które wpisują tekst. W każdym razie do każdego z makr, które mają mieć ograniczony zakres dopisz na początku (pod nagłówkiem) takie 3 wiersze: [syntax=vbnet]...
No, to prawie wszystko masz gotowe, tylko o funkcji CDate() zapomniałeś - "w polskich warunkach systemowych" FileDateTime() zwraca tekst, a nie podtyp daty z "Variant", jak napisane jest w pomocy podręcznej - łatwo to sprawdzić, np. przez "?TypeName(test2)" w oknie Immediate. Czyli porównujesz np.: tak: "If CDate(test) > CDate(test2) Then", chociaż...
Z tymi -1,1,0 chodzi o to, że tylko te liczby wchodzą w ciąg 5 elementowy (liczbę L u nas ) czyli moze byc np -1,0,1,0,-1. Już rozumiem. Niestety w tym przypadku moje rozwiązanie przy wystąpieniu "-1" rozjedzie się, więc trzeba je skorygować. Pytanie czy dane w jednej komórce (dana "liczba" ) są takie jak przedstawiłeś w przykładzie czyli cyfry rozdzielone...
Ja myślę, że to by całkiem szybko i prosto stworzył produkując odpowiedni dodatek do Outlooka, który jednoczesnie przez OLE będzie dogadywał się z Wordem i Excelem.
W komórce z formułą włącz zawijanie tekstu, a oprócz tego w module arkusza zdefiniuj sobie takie makro zdarzeniowe: [syntax=vbscript]Dim kom Private Sub Worksheet_Calculate() With Range("B8") If IsError(.Value) Then .Rows.AutoFit kom = 0 ElseIf .Value <> kom Then .Rows.AutoFit kom = .Value End If End With End Sub [/syntax]Alternatywnie możesz...
rozdzielać tekst excel makro excel makro szukaj tekst tekst excel
amica piekarnik oprogramowanie silnik rozdrabniacza blaupunkt pobór prądu
obrotomierz skacze wskazówka amica pa4560a420
MAN FSTB 3556: Usterka hamulca postojowego i błędy skrzyni biegów Samsung LE26S81B: Komunikat "Tryb niedostępny" po podłączeniu dekodera