Witam! Możesz wykorzystać kod: :spoko: [syntax=vbscript]Public Sub zapisz() Dim Wb_Name As Variant Wb_Name = Application.GetSaveAsFilename If Wb_Name <> False Then ActiveWorkbook.SaveAs Filename:=Wb_Name End If End Sub [/syntax]
Twórcy Excela mają obsesję zamieniania wszystkiego, co może przypominać datę, na tę datę właśnie. I niestety nie znam sposobu jak to wyłączyć. Kluczem jest tu format daty ustawiony w systemie operacyjnym w ustawieniach regionalnych, bo z niego Excel odczytuje domyślny format daty. W Windows 10 PL przyjęto jako domyślny, format daty z kropkami dd.mm.rrrr...
W sposobie formatowania nic nie zmieniałem. Dodałem funkcję UDF Daty, która zamienia zapis w kolumnie H na tablicę dat, która jest potem używana do definicji reguł formatowania warunkowego. Akceptowalne zapisy w kolumnie H: Pojedyncza data w formacie: d.m.rrrr (z dwiema kropkami) Ciągły przedział dni zapisany z kreską: d-d.m.rrrr (jeden łącznik, dwie...
[syntax=vbscript]Workbooks.Open ("C:\Users\Fransf\Desktop\TESTY\Klienci\... & nazwaklienta & ".xlsx")[/syntax]
[syntax=vbscript] Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Const MAX_PATH As Long = 260 '~~> Change this where and how you want to save the file Const FlName = "C:\MyWorkbook.txt" Sub Sample() Dim tmpFile As String Dim MyData As String, strData()...
Jakie operacje wykonujesz w Excelu na tych danych? Pokaż jak faktycznie wyglądają te Twoje dane. Najlepiej w formie załącznika. To co napisałeś w poście jest niespójne. Raz masz kropki dziesiętne, innym razem przecinki. A to właśnie jest przyczyną kłopotów. Ważne jest też jakich ustawień systemowych używasz w swoim komputerze. Jaka wersja językowa,...
Eksperymenty związane z EKG Od dawna uważałem za interesujące rozważania o własnych systemach EKG. Szczególnie interesują mnie rozwiązania niedrogie i łatwe w konfiguracji. W tym artykule przedstawiono kilka sposobów wykorzystania tej techniki. Ale najpierw coś podstawowego: Ze względu na bezpośredni kontakt elektrod EKG z ciałem, wszystkie elementy...
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
To sobie zmień zapisy typu [syntax=text]"Firma"&{1;2;3}[/syntax]na stałe tablicowe z faktycznymi nazwami arkuszy: [syntax=text]{"Adidas";"Nike";...}[/synt... A wersję Excela należy zawsze podawać. Gdybyś podał od razu, zrobiłbym to trochę inaczej, a teraz już nie mam czasu przerabiać. Jeszcze inny pomysł na rozwiązanie. Najpierw znalezienie arkusza,...
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
Witam, Poszukuję rozwiązania w VBA dotyczącego możliwości wyciągnięcia z komórki A1 (w której znajdują się zapisy tekstowe przeplatane z cyframi np. "jakiś tekst 22-122 dalej jakiś tekst3223333 2333 222 tekst" itd do komórki A2. Ciągi cyfr w komórce A1 zapisane są różnie jak w podanym przykładzie. Chciałbym mieć możliwość wyciągnięcia takiego ciągu...
Przyznam, że u mnie w domu jest to samo co u ciebie. W pracy zapisywało mi bez przycisku a jedyna różnica to taka że w pracy mam W7 co nie powinno mieć wpływu. Edit: A może w pracy już dodałem tą linijkę kodu i dlatego mi działąło. Poniżej kod kolegi adamasa z linijką usuwającą przycisk. [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie...
Witam, czy mogę prosić o dalsze wsparcie i pomoc? Niestety mimo usilnych prób nie potrafię napisać tej formuły która obsłuży 24h godziny tryb pracy i zliczy stanowiska w każdej godzinie przy założeniu że beda tylko zapisy godzinowe np 20-03, 14-20 itd
Przykładowo taki zapis: [syntax=vbscript]Workbooks("zlecenia.xls... 2), Cells(100, 2))[/syntax]jest nieprawidłowy. Powinno być: [syntax=vbscript]Workbooks("zlecenia.xls... jak koniecznie chcesz używać obiektu Cells, to np. tak: [syntax=vbscript]Set wks...
Prowadzę od lat arkusz, w którym co miesiąc dokonywane są inne wpisy, praktycznie wszystkie wartości w komórkach pieniężnych. Czy Excel posiadam taką możliwość, jakieś zapisy w historii, abym mógł zobaczyć jak wyglądał ten arkusz w poprzednim miesiącu, dwa miesiące temu i trzy? Kto pyta nie błądzi, a jako montażysta video w słusznym wieku, programy...
HeHeHe :) Prot, Maciej, Bardzo dziękuję Wam za pomoc. O to mi właśnie chodziło, działa wyśmienicie. Owszem, istnieje ryzyko, że operator zostanie dłużej na stanowisku pracy i wówczas jego przerwa (na tym stanowisku) trwa np. 20min., a kolejne 10 min trwa już w zapisach (raporcie) innego stanowiska, ehhh Póki co zwracam im uwagę, żeby zapisy czasu pracy...
[syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then w = Target.Row ok = Cells(w, Columns.Count).End(xlToLeft).Column nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Range(Cells(w, 1), Cells(w, ok)).Copy Destination:=Range("A" & nw) Cancel = True End If End Sub [/syntax]
Jaka wersje Excel ? Jaky komunikat?
arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Napisz do wyjaśnienia adresów tych komórek. Ponadto sciezku dla zapisu Dodano po 1 [syntax=vb] Sub Kolejny_dzen() Sciezka = "D:\tmp\" '- to dopasuj do swoich potreb plik = Sciezka & Format(Int((Date...
ssd now snv125-s2/64gb. Powiem Ci, że obserwowałem zużycie procesora w trakcie testu i skakało ono na poziomie 5-15% czyli średnio 10% dzięki antywirusowi, explorerowi itd, jak to możliwe że dysk zabiera prawie 20% kiedy zużycie wynosi 10% dla wielu programów działających w tle? Sprawdzę ten program, wyłączyłem dla testu superfetch i prefetch, nic się...
Może tak? Private Sub CommandButton14_Click() Dim newFile As String, fname As String fname = "nowy plik" newFile = fname sFName = Application.GetSaveAsFilename If sFName <> False Then ActiveWorkbook.SaveAs Filename:=fname End If End Sub
Cześć Taka absurdalna sytuacja: wczoraj edytowałem plik Excel, zapisałem, wszystko OK. Dzisiaj plik nie otwiera się (komunikat o błędnym haśle, sprawdzeniu CapsLocka itd.) - mimo że hasło na 200% prawidłowe. Mam backup tego pliku sprzed kilku dni i ten backup się normalnie otwiera, aktualny plik - nie. Próbowałem na dwóch wersjach Excela - 2003 (na...
Witam. Mam podobny problem. Chciałby skrócić zapis kliku funkcji "Jeżeli" o ile takie coś jest wykonywalne w excelu. W załączniku plik. Z moim problemem. Te wszystkie formułki z arkusza2 z komórek od Q1 do X1 muszę skopiować 150 razy w dół. dodatkowym problemem jest to że w każdym nowym wersie przy zapisie F1<5, F<10 itd. Wartość F1<X będzie...
w 3 zestawie na początku należy zainstalować sterownik z pulpitu a potem zmienić udostępnianie czy na odwrót ? Kosztorys w open office wygląda tak samo jak w excel ? tzn chodzi mi o to że są takie same zapisy tj. =SUMA(B1:B8) - liczy sumę od b1 do b8. Z góry dzięki !!
Nagraj sobie makro zapisywania. Poniżej zarejestrowane (bez korekty) dwa: "Zapisz jako" oraz Ctrl+s (zwykłe zapisz) http://obrazki.elektroda.pl/3841968300_1... i wybierasz z listy. Aby oprogramować komórkę/zakres potrzebujesz procedury zdarzeniowej [url=http://dzono4.w.interiowo.pl/kurs/d... Tu należy warunkowo wywołać...
Witam podczas zapisywania pliku exela exel przywiesil sie poczym sie wylaczyl jak gdyby nic ale po ponowynym otworzeniu wyskoczyl blad ze plik jest uszkodzony :( w folderze TEMP (w ustawiniach lokalnych) znalazlem poprzednie zapisy tego pliku ale maja one rozszezenie .tmp po zmianie rozszezenia na .xls exel wyzuca blad "nieznany format pliku" jak to...
Jeśli masz tych wzorców kilka (np. 4), nie ma potrze by stosowania makr, wystarczy kilka funkcji (logicznych i tekstowych), w następnym kroku (np. na następnym arkuszu) wyniki możesz zebrać tak, aby nie było między nimi pustych wierszy - takie zapisy pojawiały się już na Elektrodzie - z tego, co pamiętam ostatni ok. 2 miesięcy temu.
Jakby co, to do tego makr nie potrzeba - wystarczą nazwy zdefiniowane z przypisaną odpowiednio wartością. Tylko że potem trzeba stosować zapisy "ściśle matematyczne". Załóżmy, że utworzę nazwę "czarny", której przypiszę wartość "2" - w danej komórce trzeba będzie wtedy wpisać "formułę": "=2 * czarny" , aby otrzymać wynik "4". Podobnie z kombinacjami...
Wybacz kolego nie rozumiem na podstawie Twojego przykładu co chcesz osiągnąć (te "codzienne" zapisy w arkuszu Y są max 9 razy w roku ? nie wszystkie zamówienia podlegają agregacji w arkuszu X ?) :?: Mam wrażenie jednak, że w takich sytuacjach gdy masz w jednym arkuszu masowe dane (codzienne), a w drugim agregowane ale z tymi samymi nagłówkami - warto...
Witam np tak [syntax=vbscript] Range("B1") = Me.ComboBox1.Value If OptionButton1.Value = True Then Range("B2").Value = "tak" [/syntax]
skaner symbol LS2280-SR20007R-UR, nie mam do niego żadnej płytki :/ chodzi mi o ustawienie w exelu tak aby w kolumnie np w kolumnie A dawał zapis kodu i ilosci w kolumnie B dawał zapis z drugiej etykiety porównawczej w kolumnie c dam funkcję aby sprawdzał prawda/fałsz chciałem aby z automatu po przeskanowaniu 2 pierwszych kodów w A, wskakiwał w kolumnę...
Witam. Szukałem w necie ciekawego rozwiązania który by mi pomógł w rozwiązaniu takiej zagadki. Chciałem zrobić coś co przypominało by: - Zapisy do grafiku on-line w sieci lokalnej, dostępne jednocześnie dla kilku użytkowników. - Użytkownicy muszą mieć możliwość dostępu do "pliku, formularza czy cokolwiek tam powstanie" on-line, niezależnie od tego czy...
Przykład korzystania z okna zapisywania z filtrem ZapiszJako = Application.GetSaveAsFilename(fileFi... Excel (*.xls), *.xls") I jeśli domyślna ścieżka i nazwa z komórki to sciezka = Application.DefaultFilePath & "\" nazwa = Range("A1").Value ZapiszJako = Application.GetSaveAsFilename(Initia...
Wygląda, że jest ok. Czy mogę jeszcze dostać instrukcję krok po kroku które zapisy za co odpowiadają? :) Ciężko mi się trochę połapać a muszę ją zmodyfikować do wskazywania odpowiednich danych :) A i jeszcze jedno. Procenty muszą być wszystkie ustawione rosnąco? Nie mogą być tylko w danej grupie? bo szczerze mówiąc stanowi to spory problem :) edit.2...
Witam serdecznie. Dziękuję Ci adamas_nt za szybką reakcję. Twoja podpowiedź dużo mi pomogła, ale nie do końca rozwiązuje mój problem. Chodziło mi bardziej o: KONTA KOSZTÓW mogą w ciągu dnia rozbijać się nawet do kilkunastu pozycji np. 01.01.2011 r. może być 12 wierszy x(1So...) na KP czyli mamy 12 miejsc powstawania kosztów i tak przez 31 dni stycznia...
marek003 , dzięki za zainteresowanie się tematem. Co do godziny to nie ma co z nią robić kolumna wiersz i auto jest po prostu kopią. Formatowanie zostaje ogólne samą wartość tam zapisaną traktujemy bardziej jako tekst niz wartość czasową. To nie jest na dobrą sprawe potem w żaden sposób wykorzystywane. Po prostu determinanta tego o której godzinie...
Wystarczy znać dokładny czas rozpoczęcia i zakończenia pomiarów oraz ich ilość. Nawet jeżeli odstęp między pomiarami nie będzie wynosił dokładnie 1 minuty, to mając powyższe dane możemy go wyznaczyć bardzo dokładnie. Wyniki i tak będzie pewnie obrabiał komputer, bo nie wyobrażam sobie robienia tego "na piechotę", więc problemu też nie ma, komputerowi...
Narzędzia -> Opcje -> [Zapisywanie] -|/|Zapisz informacje niezbędne do odcztania pliku co |_| min Pozdrawiam Lt.
[url=https://docs.microsoft.com/en-us/of...
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
Nie da rady w Excelu, ten program to nie temporalna baza danych tylko prosty program kalkulacyjny
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
To wina Office, zobacz trzeci post w tym watku: http://answers.microsoft.com/en-us/offic... Office podczas zapisywania tworzy nowy plik zamiast modyfikowac otwarty.
[syntax=vb]Sub CoMinute() y = 1 Sheets("Pomiary").Select ostw = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ostw Step 60 Sheets("Wykres").Cells(y, 1) = Cells(x, 2) 'napięcie Sheets("Wykres").Cells(y,2) = Cells(x,3) 'natężenie y = y + 1 Next x End Sub[/syntax] Arkusz z pomiarami nazwij 'Pomiary", a arkusz, gdzie pojawią się dane do wykresu, nazwij...
Pierwsza zmiana wpisuje noc (zapisz), druga zmiana wpisuje rano (zapisz)... A co się dzieje z wartością komórki "noc" po pierwszym zapisie :?: a co przy drugim zapisie ? :D W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany np zapisu czasu przez poszczególne zmiany można wykorzystać Twój pierwotny kod w postaci: [syntax=vbscript]Sub...
Chyba wszyscy krótkofalowcy znają (powinni znać). Widzę, że Google Ci się zepsuły, więc jak już je naprawisz, to wpisz wyrażenie log stacji radiowej lub dziennik stacji amatorskiej i będziesz miał wszystko, o co pytasz. W poniższym linku masz przegląd programów wraz z opisami: https://hf5l.pl/abc-log/ ...program do zapisu łączności, ale tylko i wyłącznie...
Do tego nie jest Ci potrzebna żadna pętla. Najpierw musisz sobie określić pierwszy wolny wiersz w arkuszu Inkrementacja jest zbędna przecież (kod pod przyciskiem)... 1. Wywal pętlę. 2. W miejsce a=a+1 wpisz powyższą linię i ciesz się działaniem.
[syntax=vbscript]Sub PDFy() s = "C:\PlikiPDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=s & "Excel.pdf" Set Wrd = CreateObject("Word.Application") a = s & "Excel.pdf " For x = 1 To 2 Set Doc = Wrd.Documents.Open(s & x & ".docx") p = s & "Doc" & x & ".pdf" Doc.SaveAs p, 17 a = a & " " & p Doc.Close Next Wrd.Quit q = Shell(s & "pdftk.exe...
Witam, Mam bazę danych w excelu, w jednym pliku mam dane z których kożysta makro w innym pliku. Chciałem zabezpieczyć plik z danymi przed wprowadzeniem zmian bezpośrednio przez użytkownika (nie uprawnionego). Jednocześnie makro w drugim pliku powinno mieć możliwość zapisywania zmian w pliku bazy. Z bazy może kożystać kilka osób, każda ma u siebie osobny...
Dodaj sobie np. [syntax=vbscript]With ActiveSheet.UsedRange .Font.Name = "Arial" .Font.Size = 55 End With[/syntax]
Zrobiłem tak, jak to zwykle robią zawodowcy ;) 1. Nagrałem sobie makro przy zapisywaniu. Wyszło takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\Zeszyt1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=...
"in" to nic innego jak cal (25,4 mm) - przelicz sobie to w excel'u - ten drugi zapis jest prawdziwy (zgodny rachunkowo)...;)
Spróbuj tak: [code][syntax=vbscript] Sub ZapiszIUsuń() Dim Plik As String Plik = ThisWorkbook.FullName ThisWorkbook.SaveAs Filename:="C:\NowaŚcieżkaDoPliku\" & ThisWorkbook.Name Kill Plik End Sub [/syntax] W cudzysłowie trzeba podać ścieżkę docelową andie
Tu problem mogą stwarzać tabele Excela. One w zamkniętych skoroszytach nie działają. Ewentualnie zmień odwołania ze strukturalnych na zwykłe adresowe. Na tym pliku, który przesłałeś nie bardzo wiem, co mógłbym przetestować. Potrzebne są 2 pliki: źródłowy i ten, w którym ma działać formuła. Żeby ten źródłowy można było otworzyć, zamknąć i porównać. Edit:...
Można ręcznie wpisywać datę, ale można też wcisnąć jednocześnie Ctrl i ; (klawisz Ctrl i znak średnika). A makrem Sub dzisiejsza_data() ActiveSheet.Range("A65536"... 0) = Date End Sub
Musisz zadecydować kiedy data ma być zapisywana do komórki. Komórka z datą ani nie może być wynikiem funkcji, ani działania makra. To Ty masz zdecydować jakie zdarzenie zapisze datę prania w kolumnie z datami prania. a mi zależy na dniu, w którym kod kreskowy będzie zeskanowany No właśnie do tego zdarzenia dodaj zapis daty prania...
Cześć, chciałabym prosić o pomoc w stworzeni kodu, który zaznaczy w excelu zakres od A1 do CP54 i zapisze go jako nowy plik pdf w folderze WYNIK pod nazwą z komórki J6.
Tak to wiem ale nie mam zielonego pojęcia od czego zacząć z pisaniem takiego kodu. Excel będzie uruchomiony ciagle bo będzie używany jako przekazywanie statystyk na monitor tylko chciałbym żeby w między czasie tam przykładowo o godz 23 robił sobie taki jakby dobowy zapis.
A masz może możliwość wysłania mi pliku Excela z gotowym kodem? Nie wiem jak masz to zrobione tj. "te pojawienie" się wartości w danej komórce sprawdź (dwa rozwiązania) żeby dane pojawiały się w A1
Czy uruchomiłeś kod w pliku z załącznika, czy w swoim skoroszycie? Jeśli w swoim skoroszycie, to czy dodałeś arkusz o nazwie "Ostatni"? Te komunikaty wskazują, że ze skoroszytu próbuje się usunąć wszystkie arkusze. Wtedy przy usuwaniu ostatniego pojawiają się takie komunikaty.
Witaj =SUMA(PRZESUNIĘCIE($C$15;0;0;B1))
Witam, mam dosyć rozbudowany plik excel-a (wiele arkuszy, połączeń z innymi skoroszytami, makra, itp.), lecz nie to jest problemem. Mimo ogromnej ilości danych arkusz działa dosyć sprawnie. Problemem jest długie zapisywanie skoroszytu 2-4 minuty w zależności od komputera. Zależy mi na tym żeby dane nie zostały utracone, więc po wykonaniu pewnej czynności...
Ustawienia lokalne są poprawnie skonfigurowane To jeszcze sprawdź "obracając" zapis z No niestety nie pomogło :-(
Rozwiązanie można znaleźć tu: http://excelforum.pl/topics1/zapisywanie...
Przeciez masz komunikat ze jest tam Project VB Nie mam 2013, zrob zrzut ekranu VBA edytora
Widzę, że lubisz chyba jak się Ciebie ciągnie za język. :D Chętnie bym się w tym temacie doedukował jak coś wskażesz. Jak dla mnie śp. pamięci "kozak vba" "Charles Pearson" http://www.cpearson.com/excel/optimize.h... ps widzę że nie którzy stosują zapis np. [A1] łatwiejszy zapis ale jak piszą wolniejszy.
Pewnie dlatego, że w matematyce zapis X =X +1 jest błędny.:)
Tu masz schemat kopiowania danych do innego pliku. Procedura sprawdzona, działa i jest używana. Wystarczy dostosować co ma być kopiowane i już. [syntax=vbnet] Private Sub Zapisz() Dim Src As Workbook, Dst As Workbook Dim S As String S = Application.ActiveWorkbook.Path & "\Braki-" & Format(Date, "yyyymmdd") Set Src = Application.ActiveWorkbook Src.Sheets(1).Range("A1:E"...
Co Ty się tak uczepiłeś ChDir i ChDrive? Masz Localization = ThisWorkbook.Path i tego się trzymaj i tę zmienną użyj do zapisu pliku dokumentu.
Spróbuj: ActiveWorkbook.SaveAs Filename:=ActiveCell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbookMacroEn... reszta (Pasword etc.) jest na wartościach domyślnych.
$B$1:$2000 z arkusza 1 czyli Arkusz1!B$1:$2000 Excel nie rozumie Twojego błędnego zapisu :cry: Jak wpiszesz =Arkusz1!$B$2:$B$2000 to będzie wiedział o co chodzi :please:
zmodyfikowany tylko 4 cyfry nie po to, aby zmienić kolejność arkuszy, nowe dodajemy na końcu
Cześć. Jak w C# zrobić zapis do excel i txt z wyborem dysku i katalogu?? Po wcisnięciu "przycisku zapisz" wyskakuje okno z wyborem dysku i katalogu do zapisania. Pozdrawiam.
Plik *.RAR ląduje na poczcie e-mail. Muszę go zapisać na dysku, rozpakować (plik *.CSV) - otworzyć plik, przerobić dane (formatowanie, usuwanie niepotrzebnych kolumn) zapisać jako *.CSV - o odpowiednim kodowaniu i zapisać na dysku FTP. Jeśli korzystasz z poczty przez outlooka to wszystkie te rzeczy, można nawet w excel vba zrobić.
Błędnie składasz string dla zapisywana. Spróbuj [syntax=vb]Sub WklejDoWorda() Dim oWord As Object, a As String Set oWord = CreateObject("Word.Application") oWord.Documents.Add oWord.Visible = True 'możesz usunąć a = Selection.Row Range("D" & a).Select With oWord With .Selection .Font.Size = 11 .Font.Name = "Arial" .TypeText Text:="xyz" End With End...
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Jeśli podasz liczbę jako tekst, to nie zmieni jej na inny zapis. Przed liczbą wpisz apostrof.
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:=...
Proszę bardzo. DDE to mechanizm wymiany informacji między aplikacjami wprowadzony, jak podaje Wiki w 1987, w Windows 2.0. Ja go pamiętam z początku lat 90tych i Windows 3.0/3.1. Począwszy od Win95 zastępowany przez COM, gdzieś w okolicach roku 2000 niemal zanikł. NetDDE to autorski pomysł Wonderware, włączony do Windows bodajże w wersji WfW 3.11, definitywnie...
Witajcie, Potrzebuje wykonać makro które: Będąc w Arkuszu1 po zastosowaniu makra, zapisywało wszystkie niepuste komórki Arkusza2 (zakres A:A) o nazwie pobranej z komórki (B3) Arkusza3 do pliku tekstowego który zostanie utworzony w tej samej lokalizacji co otwarty dokument excela z obsługą makra. Po wykonaniu makra w Arkuszu1 np. w komórce C5 pojawia...
Zakładając, że komórka A4 zawiera nazwę "STR2", a komórka B4 nazwę "RAPORT", to tak: [syntax=vbscript]Sheets(Array(range("A4"... te nazwy są w innym arkuszu niż aktywny, to można dodać kwalifikator.
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
Oto twoje makro. Powodzenia Dim PreviousValue As Variant Private Sub Worksheet_Change(ByVal Target As Range) Dim wsZestawienie As Worksheet Set wsZestawienie = ThisWorkbook.Sheets("Zestawienie") If Not Intersect(Target, Me.Range("C3")) Is Nothing Then Dim NextEmptyCell As Range Set NextEmptyCell = wsZestawienie.Cells(wsZestawienie.Rows.C... "C").End(xlUp).Offset(1,...
Nie znam niczego co bym mógł polecić, najlepiej poszukać na google. W załączniku umieściłem przykład z jakiegoś mojego projektu jakbyś chciał rozwiązanie podpatrzeć. Mimo że jest to plik .xml, zapisuję go jako .xls, dzięki temu ikona wygląda jak excel ;)
... efekt istnieje tylko w office 2003 ... Pytanie skąd się wziął ? Domyślnie w 2003 standardowa szerokość kolumn to 8,43 a tu skądś wzięło się 0. Sprawdź swoje makra, może one coś gdzieś rzeźbią, samo się to nie zrobiło, a szkoda by było stracić wyniki swojej pracy, przez być może drobnutki błąd w zapisie kodu.
W której komórce masz datę i w której kolumnie w pliku csv jest data do porównania? Dam Ci przykład. Jeżeli w komórce A1 jest data i chcesz ją porównać z datą, która jest w pliku csv, w kolumnie 3 (na trzecim miejscu po średniku), to: [syntax=vb] If Cells(x, 1) = a(2) Then Cells(x,2) = a(3) End if[/syntax] Rozumiesz powyższy zapis?
W Twoim kodzie było: [syntax=vbscript]ActiveWorkbook.Close[/s... tę linijkę po prostu przepisałem. Gdy zapisuje się plik pod nową nazwą przez SaveAs, otwarty skoroszyt przyjmuje nazwę zmienioną pod którą był zapis. Nie wiem, czy można zmienić nazwę otwartego skoroszytu inaczej niż przez zapisanie go. Zatem w tym przypadku proponuję ponowny zapis...
Witam Aby zapisać w wskazanym katalogu i nazwą to spróbuj tak: [syntax=vbscript] ActiveWorkbook.SaveAs Filename:= _ "C:\Users\twojaNazwaUzytkownika\Document... [/syntax]
Pracuję na pliku który korzysta z bazy danych (baza jest spora) zapisanej w arkuszu tego pliku. Słyszałem że makra i sam plik Excel lepiej pracuje jeżeli baza danych jest umieszczona nie w arkuszu ale w pliku tekstowym i do niego są zapisywane danie i z niego pobierane. Czy to jest prawda?
... potrzebuję wyciągnąć wszystkie unikaty, które znajdują się w kolumnie A i zapisać je do kolumny B. Na necie znalazłem formułę, która to wykonuje, niestety ma jeden minus, w przypadku gdy danych w kolumnie A będzie mniej niż zakres w tej formule, formuła wywala błąd. Wystarczy usunąć "g" z komórki A28 i wszystko znika. Jeśli ktoś ma jakiś patent...
Nie wiem jak ostatecznie zdecydowałeś się to zapisywać, ale zasady są takie. Jeśli zastosujesz zapis tekstowy w rodzaju: [syntax=text]=JEŻELI(A3=8;"7:35";"")[/sy... wynik w postaci tekstowej, który nie nadaje się wprost do obliczeń. Jeśli zastosujesz zapis liczbowy typu: [syntax=text]=JEŻELI(A4=8;--"7:35";"")[/... ułamek określający...
Poprawiłem makra. Kod przycisku uprościłem dla jasności. Przeanalizuj zapis dot. co dokąd jest kopiowane, zawsze będziesz mógł sobie zmienić...
Można też utworzyć nazwy i przypisać im wartości. Trzeba by jedynie inaczej rozwiązać zapis tych samych cyfr.(10;10;10;10, itp)
Musisz to przenieś do zdarzenia arkusza pod "worksheet calculate"
No, nie wiem... Moim zdaniem wystarczy użyć funkcji IsDate() do sprawdzenia, czy wpisana wartość zostanie przez Excela rozpoznana jako data. jak pisałem, wtedy fromat DD.MM.YYYY nie zostanie jako taki rozpoznany (co innego: DD-MM-YYYY). W tym kodzie co masz teraz za "poprawny" zostanie uznany np. taki zapis: 99.99.9999
[url=http://stackoverflow.com/questions/... masz kilka sposobów na pobranie ścieżki pulpitu w VBA.
Znalazłem niedozwolony znak w zapisie pliku - ukośniki :)
Funkcja ADR.POŚR pobiera dane tylko z otwartego pliku, więc tu raczej się nie nada. W Excelu można to zrobić odpowiednim makrem, ale dostosowanym do konkretnego problemu. Twój zapis formuł wskazuje jednak, że to nie jest Excel. Podaj dokładnie jakiego programu chcesz użyć i więcej szczegółów o tych danych (czy to są pojedyncze komórki z każdego pliku,...
Witam, Mam problem z zapisywaniem plików w excell, sprawa wygląda następująco: Loguje się na konto domenowe użytkownika, otwieram wybrany plik excell, edytuję go po czym próbuję zapisać zmiany. Wybieram Save, zmiany się zapisują. Następnie zamykam arkusz i po kilku sekundach pojawia się okno "Program Microsoft Excel przestał działać...". Mimo tego zmiany...
Przy pomocy przeniesienia do notatnika zapisu do txt, otwarcia w Excel i transpozycji
zapisy gwintu kopiować excel excel kopiowanie excel excel
ekspres bosch wyczyść zaparzacz gaśnie hamowani samsung qe55q70rat
wykrywacz metali schemat wykrywacz metali
Nokia N85 nie włącza się po flashowaniu - jak naprawić? Jak samodzielnie wykonać i zamontować dipol do polaryzacji pionowej?
