potrzebuję datę np 15.10.2021 rozdzielić na dzień 15 i miesiąc 10. Następnie połączyć dane z innej kolumny z dniem i miesiącem. Proponuję zamiast kombinować z makrem wprowadzić do kolumny H (tej ze złączeniami) prostą formułę :idea: :D : =E2&" "&TEKST(DZIEŃ(F2);"00")&"."&TEKST(MIESIĄ... i przeciągnąć ją w dół :D , albo nagrać sobie makro...
[syntax=vbscript]Sub Zamknij() Workbooks([A1] & ".xlsx").Close False End Sub [/syntax]
Jak możesz to spakuj załącznik zip'em.
Nie umiem jednak stworzyć szablonu(a w zasadzie wykresu), dzięki któremu mogę zmienić zakres danych, który odpowiada faktycznemu wypełnieniu komórek. Ale to już jest sama sprawa excela a nie c#. O, na to też są metody... Można np. użyć dynamicznego zakresu. Zakładając, że masz nagłówek w pierwszym wierszu, w komórkach A2...Ax masz etykiety, a w C2...cx...
Wystarczy jedna linijka: [syntax=vbscript]For Each f2 In f With wks Open f2 For Input As #1 Do While Not EOF(1) Line Input #1, linia .Cells(wiersz, 1) = f2.Name '<--- o, tutaj .Cells(wiersz, 2) = linia '<--- tą też można skrócić wiersz = wiersz + 1 Loop Close #1 End With Next[/syntax]
[syntax=vbscript]Sub dodaj() ThisWorkbook.VBProject.References.AddFro... _ "{0002E157-0000-0000-C000-000000000046}"... 2, 0 End Sub[/syntax]
W takim przypadku zastosuj to co napisałem wcześniej.
Ale się kolega rozpisał... ;) Jeśli dobrze zrozumiałem, chodzi o coś w rodzaju korespondencji seryjnej? Sprawdź prosty przykład z załącznika - myślę, że kod nie wymaga dodatkowych objaśnień...
Gdyby faktycznie miało sens drukowanie (czy zapisywanie w pdf) jednej kolumny arkusza z kilkadziesiąt czy kilkaset wierszami :D - to wówczas lepiej wykorzystać domyślne ustawienia Excela do ustalenia długości jednej strony (zapewni to lepszą czytelność wydruku niż Twoje 70 wierszy na stronie). Przy takich założeniach :idea: wystarczy wykorzystać kod...
W międzyczasie... ;) Marcin, nie mogę zainstalować makra, wyskakuje mi komunikat, że nie mam zainstalowanej funkcji False, nie kompiluje się 1. Makr się nie instaluje, 2. Nie ma funkcji False 3. Makra się nie kompilują w dosłownym tego słowa znaczeniu :) Chyba będzie prościej jak wrzucę gotowy plik - jak ten CI też nie będzei działał, to ustaw poziom...
Microsoft Excel 12.0 Object Library ==Starsza wersja nie może wiedzieć trzeba dostosować moduły do wersji 2003
Przy tablicach nie używa się select. A co chcesz potem robić z tą tablicą? Zawsze możesz odwoływać się do komórek arkusza jak do tablicy: For i = 1 To 5 for j = 1 to 5 MsgBox i & ", " & j & " = " & Worksheets("Arkusz1").... j) next j Next i Ewentualnie możesz zapisać dane do zmiennej typu RANGE, do...
Mam w tych plikach faktury w postaci tekstowej. Trochę to dziwne :D Faktury w postaci tekstowej :?: Z jakiego to programu wyeksportowane ? załącz przykładowy plik. Potrzebuję, aby makro Excela otwierało te pliki tekstowe jeden po drugim i wstawiało w określone miejsca pliku nowy tekst, by powstała korekta faktury Konieczny byłby szablon takiej faktury...
Z uwagi na brak obsługi przerwań w makro Excela jak chcesz uruchomić makro na jakiś czas to użyj Wait (jest opisany w pomocy). Wtedy możesz uruchomić makro na np. 2 minuty. Możesz spróbować też z z komendą Run (wywołanie innego makra).
Załączam przykładowe makro: - zapisu do pdf bieżącego arkusza Excela - wydruk pliku arkusza za pomocą komendy Shell i Acrobat DC - wydruk zewnętrznego pliku *.pdf za pomocą komendy Shell i Acrobat DC. Nie ma żadnych zabezpieczeń (błędne ścieżki, brak plików itp.) Trzeba uzupełnić własną ścieżkę do Acrobat.exe. Oczywiście to tylko prosty przykład, możliwości...
HiFi-Man , powinieneś odróżniać makra (makroinstrukcje) od funkcji, bo Twoje pytanie jest przez to niezrozumiałe. Makro to działanie wykonywane jednorazowo, doraźnie. Po wykonaniu wynik ma najczęściej formę stałej (liczby lub tekstu). Makro można powiązać ze skrótem klawiaturowym i uruchamiać go za pomocą tego skrótu. Z kolei funkcja (lub w tym przypadku...
Przy okazji załączania pliku (koniecznie z tym upartym makrem), napisz więcej o systemach i wersjach Excela zainstalowanych na obu komputerach (ilu bitowe).
Dim tera as data 1. Winno być "Date" :!: :D ; 2. Chcesz namówić VBA do "samounicestwienia" :D , tylko żeby jeszcze zakończył to makro :cunning: :?:
Czy makra i różne opcje excela tak kuleja gdy workbook jest shared? Tak :cry: 1009869 przejrzyj sobie najważniejsze ograniczenia udostępnianych plików w załączniku :idea: 1009868
Excelem łączę się przez referencje Dzięki CreateObject("Excel.Application") nie musisz dodawać referencji do Excela w twoim makrze. To jest właśnie najpiękniejsze. GetObject używa już dodanej referencji do Excela natomiast CreateObject tworzy obiekt z COM bez potrzeby ręcznego dodawania referencji. Działa w większości wersji Excela. Ciekawe czy takie...
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
Raz będę potrzebował jednych danych a raz drugich. No to musisz sobie rozdzielić makro na dwie procedury np. [syntax=vbscript]Public Sub wybierzco40() Application.ScreenUpdating = False With ActiveSheet x = Cells(Rows.Count, 1).End(xlUp).Row s = 40 For i = 1 To x If i = s Then Cells(i, 3) = Cells(i, 1).Value s = s + 40 End If Next End With Application.ScreenUpdating...
Poczytaj w helpie excela o funkcji "wyszukaj pionowo" lub "vlookup"
Błąd polega na tym że makrem wpisujesz liczbę jako tekst. Najprawdopodobniej wpisujesz liczbę od razu z okienka. Aby temu zaradzić w kodzie makra przed samym wpisaniem do danej komórki excela wartości z okienka przemnóż przez 1 lub "przekonwertuj" na liczbę funkcją Cint() [liczby całkowite] lub Clng() [mniejsze liczby] czy Cdbl(). [duże liczby] Nie...
Napisanie takiego makra nie jest czymś szczególnie trudnym, tylko ono będzie się dość długo wykonywać. Moja propozycja zmierzała do przyspieszenia tego. [syntax=vbnet]Sub kopiowanie2() ' ' kopiowanie Makro ' Dim r As Range Dim wkcalc As Worksheet Application.ScreenUpdating = False ' Workbooks.Open Filename:= _ "U:\Nowy folder\Arkusz B.xlsx" Set wkcalc...
Rozumiem że w jednym pliku excela jest zapisane makro i otwierasz w excelu następny plik wykonujesz makro i chcesz zapisać zmiany w drugim pliku, otworzyć następny, wykonać makro i zapisać zmiany. Jeśli tak to ostatnia linijka powinna mieć postać ActiveWorkbook.SaveCopyAs Filename:=katalogZapisu & "\" & Format(Date, "DD-MM-YYYY") & "_" & ActiveWorkbook.Name...
na komputerze z wersją 2003 poniższe makro działa bez problemu to samo makro na komputerze z excelem 2010 Chyba jest raczej odwrotnie, to na 2003 makro z ".Sort.SortFields" nie będzie działać. Excel 2003 obsługuje co najwyżej składnię ".Sort Key1:=, Order1:=, Key2:=, Order2:=, Key3:=, Order3:=, Header:= ..." Excel 2010 obsługuje zarówno powyższe ,...
Fakt, ze help w VBA jest w jezyku "polskim uproszczonym":D i pisanie tutaj ze nalezy sie uczyc angielskiego jest nie na miejscu. Niemniej jednak mozna z helpa sprytnie korzystac. Mozna wykonywac przyklady, ktorych jest tam mnogo, i w ten sposob opanowac, zrozumiale, poszczegolne elementy jezyka. Osobiscie, dla osob ktore dopiero zaczynaja "walke" z...
Są przynajmniej 2 rozwiązania: 1. drukowanie z Excela arkusza z formatką etykiet 2. powielenie wierszy w Excelu (jak w załączniku) i użycie korespondencji seryjnej w Word.
żeby to magiczne makro działało z moimi danymi, byłoby super Na podstawie Twojego pliku utworzyłem jeszcze drugi podobny plik csv i przetestowałem z nimi import za pomocą załączonego pliku z makrami :D Po uruchomieniu makra zmiana_numerów (skrót ctrl+i ) - wszystkie numery kart uzyskują przedrostek CN - uzyskując w ten sposób cechy wartości tekstowej....
Można np tak: ActiveSheet.Unprotect ' tu twoje makro ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Pozdrawiam!
makro importujące kilka plików PDF Z tymi pdf-ami nie jest tak hop, lepiej użyj programu typu "finereader" i pdf-y zapisuj do excela.
Jeżeli chodzi o przenoszenie formatowania to excel właściwie nie ma żadnych funkcji. Można to zrobić jedynie poprzez makro (VBA) lub "pisaniną" poprzez formatowanie warunkowe i to w excelu 2007 i powyżej, bo niższe mogą mieć tylko max 3 warunki. Ten kto zna jako-tako programowanie w VAB może sobie poradzić. Ten kto nie ma pojęcia na początku upadnie,...
Nie bardzo rozumiem, o co konkretnie chodzi. Przydałby się jakiś przykład w pliku, pokazujący jakie masz dane i co z nimi chcesz robić. Generalnie do testowania liczb można wykorzystać w VBA funkcję IsNumeric, albo zapożyczoną z Excela funkcję WorksheetFunction.IsNumber. Ich działanie różni się w szczegółach, na przykład funkcja IsNumeric traktuje puste...
Makro najlepiej jest zarejestrować. W tej chwili na kompie nie mam excela więc nie mogę Ci go podesłać. najlepiej w załączniku zamieść to co masz zrobione to popatrzę na to. Ps Zamiast przesyłania punktów lepiej kliknij "pomógł" :D
Przede wszystkim powinnaś załączyć plik Excela a nie obrazek. Na obrazku nie da się nic policzyć ani sprawdzić. A merytorycznie - po co tu makro? To ma być jakaś wprawka w pisaniu makr? Do tego typu obliczeń służą funkcje lub formuły - wystarczą funkcje wbudowane, ale jeśli ktoś woli, to może sobie napisać własną funkcję w VBA, tzw. funkcję UDF (user...
Pewnie pierwsze dane masz w drugim wierszu, u mnie był w 3, zamień: For k=3 na For k=1 (sprawdzanie od pierwszego wiersza). Makro sprawdza kolumnę B od dołu, widocznie są u Ciebie jakieś puste wiersze ... Jeżeli wiesz ile masz komórek w kolumnie B do sprawdzenia wpisz na sztywno (3500 to ilość wierszy) : zamiast: For k = 3 To Cells(Cells.Rows.Count,...
Przede wszystkim załącz plik z przykładowymi danymi i pokaż co i jak chcesz filtrować. Napisz też jaką masz wersję Excela i jaki domyślny format daty w systemie operacyjnym. Ogólny schemat postępowania jest tu.[url=https://pl.extendoffice.com/docu...
Użyj OLEAutomation , załączam przykładową app którą dawno temu napisałem w ramach "testów" . do uses dodajesz ComObj ,a jak byś chciał więcej metod dla obiektów Excela to trzeba szukać to z helpem od VBA. Jak byś był zainteresowany formatowaniem komórek to nagrywasz sobie makro w Excelu potem dajesz wyświetl kod i patrzysz co i jak :) ,aha dołączam...
Jeśli jest taka potrzeba... Nagrałem makro w Wordzie i wyszło coś takiego [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Selection.TypeText Text:="ala i as" Selection.Style = ActiveDocument.Styles("Nagłówek 1") Selection.TypeParagraph Selection.TypeText Text:="poszli w las" Selection.Style = ActiveDocument.Styles("Normalny") Selection.TypeParagraph...
Tematów na Elektrodzie o imporcie plików do Excela jest całe mnóstwo. Przykładowy kod: [syntax=vbscript]Sub ImportujPliki() Application.ScreenUpdating = False Sciezka = "C:\PlikiExcela\" Plik = Dir(Sciezka & "Historia*.xls*") Set ArkuszDocelowy = ActiveWorkbook.Sheets("Arkusz1") While Plik <> "" nw = Cells(Rows.Count, "A").End(xlUp).Row +...
Nie wiem czy zgodnie ze sztuka pisania makr w wordzie ale to chyba powinno działać jak chcesz. Zaznaczam że przerobiłem makro kolegi NAXIN. Nie jestem biegły w VBA dla worda (próbowałem się trzymać zasad z excela ale nie jest to identyczne). Opisałem jak to rozumiem Np. ItalicRun użyty za pierwszym razem włącza kursywę a za drugim ja wyłącza pomimo...
Sposób przez Ciebie podany ma wadę, gdyż nie masz żadnej kontroli (ewidencji) nad tym co już zaliczyłeś do kosztów. Prędzej czy później wpiszesz tę samą kwotę po raz drugi i w żadn sposób nie będziesz mógł tego zweryfikować. Oczywiście nie ma żadnego problemu dodanie do Twojego przykładu przycisku np. "Dodaj kwotę", który wywoła makro przenoszące kwotę...
Podałem Ci tylko przykład na liczbach. Chodzi o to, że jeśli najpierw pogrupujesz wiersze a w następnej kolejności posortujesz, to grupowanie wierszy się nie zmieni bez względu na wynik sortowania. W trakcie wybierania nazwisk do grupy licz wiersze do pogrupowania i po umieszczeniu nazwisk grupy w arkuszu, uruchom grupowanie wg. licznika wierszy. Ad....
podejrzewam że najlepszym wyborem było by próbować w vba Czytając Kolegi opis problemu prawie nic nie rozumiem. Moje podejście do VBA na podstawie domysłów z Kolegi opisu i rozwiązania Kolegi Prajz w załączniku. Makro osadzone jest w module w skoroszycie, będzie działać na wersji Excela 2003 i wyżej. Makro udostępnia w arkuszu funkcję Q (byłem leniwy...
a proszę zerknąć na screena co tak naprawdę kod zrobił Myślałem że to zamierzone (bo nie znam całego kodu) - choć jak się teraz okazuje nieświadomie. (więcej szczęścia :) ) Użyłeś odwołań względnych - poza tym formatowanie warunkowe ma pewne mankamenty jeżeli chodzi o adresowanie bo odwołuje się do zaznaczonej wcześniej komórki (a w makro nie ma żadnego...
Wiadziałem w innych topikach że trochę kumasz VBA więc czego sam nie dołożysz sortowania? Przecież to nie jest trudne. Jak czegoś nie rozumiesz to nagraj makro i przeanalizuj jak jest zbudowane. Wprowadź swoje poprawki i ... tadam ... :) proste :) Poniżej dołożyłem sortowanie po A i po E Po E bo chyba o to głównie chodzi - gdyż funkcja w kolumnie B...
Spróbuj[syntax=vbscript]Sub ADODB_method() 'Apr 15, 2014 ' 1 kolumna slowo, 2 kolumna definicja badz tlumaczenie - pisac bezposrednio slowo w a1, i definicje badz tlumaczenie w b1 , makro eksportuje plik wsadowy do anki do tego samego folderu w ktorym jest arkusz excela Dim fd As Object Const myDelim As String = "," '<<< select comma or semicolon...
Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
makro zamykające excela makro uruchomieniu excela makro drukowanie excela
telewizja naziemny trzeciewiec elektryczne foteli volvo świetlówka układ elektroniczny
podkładka chłodząca tefal stacja parowa
Transformator lampowy – rozrysowanie połączeń i dobór rezystora kompensacyjnego po wymianie mostka selenowego na krzemowy Polsat Box, Polsat Box Go – kod 1401, brak uprawnień, autoryzacja dekodera, EVOBOX, Multiroom