Nie precyzujesz co ma być zapisane w nowym pliku. Zakładam, że arkusz "dane". Wklej kod do modułu standardowego, zdefiniuj ścieżkę zapisu i podepnij pod przycisk [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie z ukośnikiem na końcu nazwa = Range("B1") If Cells(1, 2) & Cells(2, 2) <> Empty Then With Sheets("dane2") ostWrs...
No tak. Miałeś ActiveSheet. [syntax=vbscript]Sub Drukuj_jezeli() Dim Arkusz As Worksheet For Each Arkusz In Sheets With Arkusz If .Name <> "Dane z zam" And .Name <> "Arkusz1" Then If Application.WorksheetFunction.CountIf(.R... ">0") > 0 Then .PrintOut .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\test\pdf\" + .Range("f7")...
Może i Makrem byłoby łatwiej ale.....poległem. No to masz z instrukcją "if" :) (dodane do twojego kodu) [syntax=vbscript]Private Sub CommandButton4_Click() On Error Resume Next 'po błędzie kontynuuje dalej Application.ScreenUpdating = False DatExample = Date Dim s As String s = "C:\Users\jasuc\OneDrive\Tamex Żwirkop\Kopia Dane Tamex\PDF\" y = 2 With...
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...
Dziękuję koledze LordBlick, poprosiłem go o odblokowanie tematu, bo wydaje mi się, że mimo pozornej prostoty problemu warto się nad nim chwilę zastanowić. Zanim przejdę do odpowiedzi na post #3, powiem dwa słowa o makrodefinicjach. Wiele osób z nich chętnie korzysta, w pokazanym wyżej przykładzie zdecydowanie lepiej posługiwać się makrami LED_ON i LED_OFF...
Replace, psze Pani, Replace...
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
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]
Powiem że (polskie) google nie oferuje za dużo info na temat VBA Word, a nagrywanie to jakaś masakra. No ale udało się. Może to dla znawców trochę toporne ale zawsze jakieś rozwiązanie: [syntax=vb]Sub osobny_plik() Application.Browser.Target = wdBrowsePage For i = 1 To ActiveDocument.BuiltInDocumentProperties... of Pages") ActiveDocument.Bookmarks("\page").Range....
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 wiem, czy się rozumiemy... [syntax=vbscript]Sub ZapiszPlik() ActiveWorkbook.SaveAs Filename:=[H1] & [H3], FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub [/syntax]
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
Skoro sam trochę zrobiłeś, to pomoc Ci się należy.;) [syntax=vbscript]Sub Sumuj() Dim x As Long, a As Double x = 1 Do While Cells(x, "A") <> "" a = a + Cells(x, "A") x = x + 1 Loop [D2] = a Open ThisWorkbook.Path & "\wynik.txt" For Output As #1 Write #1, a Close #1 End Sub [/syntax]
Wklejam, może się komuś przyda Po co tylko ta pętla otwierająca 5x ten sam plik - zapis - zamknięcie?
Udało sie GetData(moc_a, "MODBUS TCP/IP", 4x, 86, 1) wynik_a = moc_a SetData(wynik_a, "Local HMI", LW, 0, 1)
Podepnij sobie pod przycisk "Zapisz" następujące makro [syntax=vb]Sub zapisz_karte() Dim sFlnNm As String 'nazwa pliku z komórki A1 Dim sPath As String 'ścieżka zapisu na razie taka sama jak pliku źródłowego Dim sWrbkFrm As String 'nazwa pliku docelowego z rozszerzeniem sPath = ThisWorkbook.Path & "\" sFlnNm = Range("A1").Value If sFlnNm = "" Then MsgBox...
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...
Przydałby się przykładowy plik, żeby chcący Tobie pomóc, nie musieli robić tego za Ciebie.
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...
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 <> ...
Tak samo jak Adamas nie piszę w Wordzie, ale to działa: [syntax=vb]Sub dokument() Dim wartosc As String, wrs As Integer, x As Integer x = 1 Open "C:\Przyklad.txt" For Input As #1 'tu podaj ścieżkę, lub tylko nazwę jeśli w tym samym katalogu Do Until EOF(1) For Each tbl In ActiveDocument.Tables For wrs = 1 To ActiveDocument.Tables(x).Rows.Count Input...
Jak zmienia się którykolwiek TextBox uruchamia się procedura TTextBox. Jak wykonuje się makro w którym jest zapis do TextBox uruchamia się ponownie i tak ciągle. Proponuję zostawić Label, tu też można wyśrodkować tekst. W załączniku poprawiony Label i kod od Private Sub ListBox12_Change(), bo nie zawsze zwracał poprawne dane.
A jakby baza losowań z czasem okazała się nieaktualna to jak temu zaradzić? Co rozumiesz pod pojęciem "nieaktualna"? Bazę pobieramy z http://www.mbnet.com.pl/dl.txt" jeżeli będzie na innej stronie należy w makro poprawić zapis. Mogę to zrobić by się nie "grzebać" w makro a pobierać dane z komórki gdzie wpisze się ścieżkę dostępu do bazy. Jednak nie...
Siedziałem główkowałęm i rozwiązałem to trochę w inny sposób. Podziały stron zastąpiłem na podział sekcji Potem mały kawałek z wybieraniem kolejnej sekcji (tu musiałem dodać małe przesunięcie zaznaczenia aby pominąć zaznaczenie podziału sekcji bo wrzucało na PDF-ie pustą stronę na końcu) A potem Pdf z zaznaczenia przez Range := wdExportSelection Poniżej...
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...
Pomoże ktoś??
Potrzebuję napisać makro w Excelu, które: przy wyłączaniu Excela zapisze wszystkie otwarte dokumenty w jakichś plikach po włączaniu otworzy je.... Pomocy, potrzebuje to na wczoraj :)
idat wpisywane recznie, na poczatku nowej I zmiany, lub gdy juz potrzeba wpisac dane I zmiany(nowej). wtedy kasuje sie tabela I, II, III zmiany. Makro dodaje nowy wiersz ze wpisana data. Dane w 'Tabela zapisu ' gotowe kazdy raz, jak byly zmiany w itab
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
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...
Plik działa, ale wymaga abym nazwę wpisał sam i wskazał adres zapisu Jakoś nie widzę zapisywania. Powinno być w pytaniu po Else... Czas mierz przed msgbox'em z pytaniem, a wynik możesz wyświetlić w tytule.
Zupełnie o tym zapomniałem. Teraz wszystko działa. A czemu kwalifikator nie jest potrzebny przy zapisie danych do pliku, w którym jest makro. Poniższy zapis działa poprawnie. TenPlik.Range(Cells(OWD + 20, 4), Cells(OWD + 22, 38)) = Dane Przy odczycie danych z pliku zewnętrznego nawet po otworzeniu pliku i ustawieniu arkusza "Wyniki zbiorcze" jako aktywnego...
Witam Poszukuję pomocy ze stworzeniem makra dla zapisu plików w excelu. Mianowicie chodzi mi o to żeby plik excela który otwieram z pulpitu po jego wypełnieniu i kliknięciu w dyskietkę (zapisz), zapisywał się automatycznie z datą w docelowym folderze. Może ma ktoś już podobne makro które mógłbym wykorzystać ?
Zgadzam się ze zdaniem kolegi Prot . Po jakimś czasie uzbiera się tych kopii tyle, że zrobi się bałagan. Wg mnie, kopię takiego zestawienia można zmieścić w jednym wierszu arkusza (jednej linijce pliku tekstowego). Do podglądu/wydruku archiwów wystarczy odwrócić makro zapisu + jakaś zgrabna wyszukiwarka/filter. Jeśli z jakiegoś powodu będzie potrzebny...
Na pasku górnym otwierasz Makra - Nowe Makro. Wpisujesz nazwę elementu i OK. Otwiera się okno Edytor Elementów. Tam rysujesz cały element od podstaw, wybierając kształty, dodajesz wyprowadzenia (PinDown, PinLeft itp.) numerując je i wprowadzając nazwy. Można też przerobić istniejący element. Jak skończysz, klikasz OK i element pojawia się na obszarze...
Mam parę problemów z kodem poniższy kod kopiuje wszystkie dane w wybranego pliku do pliku z makrem, problem polega na tym że po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się automatycznie zamknąć po skopiowaniu [syntax=vbscript]Sub WyborPliku() ' ' WyborPliku Makro ' ' Klawisz skrótu: Ctrl+j ' Wybor okreslonego pliku na którym ma...
Nie zapisuje nowego pliku w .xlsx bo jak pisałem w tym rozszerzeniu nie może być makra a Ty masz makro, jest błąd i nie zapisuje. Nie usuniesz makra z którego w danej chwili korzystasz. Trzeba to obejść tworząc kopię Arkusza bez makra i zapisując kopie. Sub Zapis() Dim Sciezka As String Dim adres1 As String Dim adres2 As String adres1 = Range("G2")...
To jest trochę, moim zdaniem , źle przez Satela zrobione ale musisz zrobić tak : w DloadX w zakładce ETHM1-Plus>GuardX /Integra Control musisz stworzyć Makro załączające dane wyjście . Potem , oczywiście po zapisie do centrali , importujesz z poziomu aplikacji na iPad / iPhone makra. Następnie z poziomu ustawień kamery musisz dodać to wyjście którym...
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
Chciałbym się podpiąć pod pytanie. Chciałbym jednam żeby mój plik z makrem po zakończeniu procedury zamknął się?? czy to w ogóle możliwe?? Kończę swoje makro poleceniem: ActiveWindow.Close SaveChanges:=False Zamyka mi się jednak wszystko ale sam excel (bez otwartego żadnego pliku) jest otwarty.
żeby skopiował wartość innej komórki Cells(x, 2) = InnaKomorka;) Kolego, jak poprzednim razem, proszę pisać konkretnie. Dodano po 35 Łukaszu, ja Ci nie pomogłem tym wpisem. Pewnie nie zauważyłeś średnika na końcu.:) Napisz konkretnie, co makro ma robić w przypadku, gdy w 'Arkusz2', w kolumnie D znajdzie się zapis 'VW', to Ci przerobię powyższe makro.
Jako ścieżkę i nazwę (z A1) podstaw[syntax=vb] Filename:= Environ("UserProfile") & "\Desktop\" & Range("A1") & ".pdf"[/syntax]
E tam "zlituje" zaraz ... zwykłe "sie mu zechce" i tyla ... bo jak się zagmatwy"wowawoło"wuje proste sprawy, to ludziskom innym się nie chce ... Drugie marko ma drukować wszystkie arkusze z skoroszytu "akrusz ocen" ale przez zapisam makro musi poprosić o podanie ścieżki zapisu jak i makro musi dopisywać numerek przy każdym zapisie (tak żeby nie nadpisać...
Witam. Czy jest możliwość aby za pomocą makra skonfigurować plik worda aby drukował się automatycznie przy zapisywaniu pliku? Wklej to do thisdocument zapisz i zamknij i otwórz. [syntax=vbscript]Private WithEvents App As Word.Application Private Sub Document_Open() Set App = Word.Application End Sub Private Sub App_DocumentBeforeSave(ByVal Doc As Document,...
Mimo tej modyfikacji, makro cały czas zachowuje się tak samo - wywala ten sam błąd. Przecież masz w nim te stare makro. Po podmianie makra na te co podałem wyżej, wszystko działa w pliku testowym2
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.
Witam Mam wielki problem. Mam plik Excela w nim jest makro. Problem jest taki że jak otworze plik z danymi i nie zapisze danych lub zapisze to plik znika z folderu. Nie można odnaleźć gdzie on podzial. Gdzie jest problem? Excel wersja2007.
Konfiguracja wygląda na poprawną, natomiast proponuję: - odznaczyć opcję "Pytaj o hasło" - wprowadzić prawidłowe hasło użytkownika, który ma możliwość sterowania wyjściami MONO/BI (upewnić się w uprawnieniach) - kolejne, nie ma to nic do rzeczy, ale wskazywanie ikony wg wyjścia 4 mija się z celem (na sekundę zostanie zmieniona ikona) - lepiej wskazywać...
Po zapisie do Flash centrala z reguły się restartuje.
A dlaczego warunkujesz działanie działanie Textboxów w Arkuszu1 od stanu filtrowania w Arkuszu2 (który jest całkowicie pusty) ? Popraw makro w zapisie "Arkusz1" zamiast "Arkusz2" i będzie działać :D
Poproszę linijkę bez komentarza, bo powyższy zapis jest błędny.
Spróbuj tak: 1. Wejdź w Narzędzia -> Makro -> Zarejestruj nowe makro 2. Nazwij makro, opcjonalnie wybierz klawisz skrótu, a z listy Przechowuj makro w: wybierz Skoroszyt makr osobistych 3. Nagraj makro lub po prostu zakończ rejestrację. 4. Zamknij plik. Kiedy zapyta o zapis zmian w arkuszu makr osobistych, zatwierdź zmiany. 5. Otwórz dowolny plik, wejdź...
Witam Dziękuje Działa, ale chciałbym mieć możliwość całkowitego zablokowania możliwości zapisu pliku z włączonymi filtrami. Makro działa - wywala błąd, ale mimo wszystko pozwala użytkownikowi zapisać plik.
Brak załącznika. Podobny temat [url=https://www.elektroda.pl/rtvforum/t...
Edit Jest jeden myk: [syntax=vbscript] ActiveWorkbook.Windows(1).Caption = "dowolna nazwa" [/syntax] Jak chcesz go potem zapisać to w oknie dialogowym pojawia się nadal Zeszyt1 zamiast "dowolna nazwa".
Makroinstrukcja jest 'wklejana' a podprocedura wykonywana poprzez skok. Makro jest szybsze (mnie instrukcji, nie trzeba nic zapisywać na stosie) ale kod wynikowy jest dłuższy (bo za każdym razem jest umieszczany).
Tym razem nie napiszę gotowca, lecz pół;) [syntax=vbscript]Function KolejnyNumerPliku(Katalog As String) As Integer Dim Plik As String Plik = Dir(Katalog & "*.xlsx") x = 1 While Plik <> "" n = Val(Plik) If n > x Then x = n Plik = Dir Wend KolejnyNumerPliku = x + 1 End Function Sub Test() MsgBox (KolejnyNumerPliku("C:\PlikiExcela\")) End...
Czyli 4 pierwsze bajty masz zapisane w EEPROM. Do odczytu służy makro eeprom_read_byte(), zaś do zapisu eeprom_write_byte(). Prawdopodobnie, nie analizowałem, błędy masz w warunkach... R
Nie wiem czy dobrze rozumuję. Wyniki obu porównań można umieścić w odpowiednich arkuszach pliku "makro.xls", skopiować (arkusze wynikowe) do nowych plików, nadać im nazwy i zapisać (zamknąć z zapisem).
Dodać nowy moduł w VB, wkleić do niego kod i uruchomić. W celu ułatwienia użytkowania, można dodać przycisk uruchamiający makro do wstążki - nie posiadam wersji 2016 ale dla 2010 to należy zrobić tak: Opcje programu Outlook -> Dostosowywanie wstążki. W oknie po lewej - Wybierz polecenia z: Makra (zaznaczasz właściwą procedurę). W oknie po prawej...
[syntax=vbscript]Private Sub CommandButton2_Click() Dim Path As String Dim filename As String Path = "C:\Users\Krzysztof\Desktop\" filename = Format(Now(), "ddmmyyyy") & Arkusz2.Range("Q2") ActiveWorkbook.SaveAs Path & filename Application.DisplayAlerts = False Application.Quit End Sub[/syntax]
To całe makro?? Ten fragment służy jedynie do wybrania nazwy pliku. Zapis nastąpi w momencie wywołania: [syntax=vb]ThisWorkbook.SaveAs (ZapiszJako)[/syntax]
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ć...
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
Przede wszystkim dziękuję za pochylenie się nad moim problemem :) Co do zapisywania pliku z samą godziną, bez minut i sekund (czyli samo hh w formacie) - zrobiłam to celowo. Plik użytkuje wiele osób, jest wielokrotnie otwierany w ciągu dnia. Taka nazwa nie generuje błędu przy kolejnym zapisie w tej samej godzinie, jak pisałeś, natomiast powoduje nadpisanie...
Zamiast msgbox użyj to jak ścieżki do pliku.
Aby poprawnie utworzyć nazwę arkuszową w VBA trzeba użyć metody Names.Add Można sobie nagrać stosowne makro i wtedy otrzymasz zapis kodu: RefersTo , który jest drugim parametrem w wywołaniu metody Names.Add [syntax=text]ActiveWorkbook.Names.Add "kod", "=L2!$B$13:INDEX(L2!$B$13:$B$44,COUNTA(L... [/syntax]Tekst formuły musi być podany w wersji...
Widzę, że wątek wisi od... zimy ;) Makro przy wydruku, czy zapisie wymaga zdarzenia. Tu się w OO sprawa komplikuje. O wiele łatwiej będzie napisać makro drukowania dla przycisku i w nim umieścić numerację...
Zapisanie etykietę w wordzie z roszerzeniem.doc lub .docx nic nie daje. Nie mam pomyslu jak mozna obejść "etykietę" aby makro dzialalo. Nie sadze aby twórca systemu chcial zmienić zapis.
Po dodaniu w 2 linijce jak wyżej mam " invalid use of prioerty" U mnie działa
Witam, Mam problem z makro. Tworząc pewien raport w każdy poniedziałek filtruje daty w kolumnie Y dla poprzedniego tygodnia. W formularzu Excel umieściłam w 2ch komórkach następujące funkcje; Y3 =dziś(), Y2 =dziś() -6, a następnie w filtrze niestandardowym wybieram większy lub równy Y2 i mniejszy lub równy Y3, aby uzyskać interesujący mnie przedział...
[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...
Ale nie rozumiem jak jest z zapisem liczby z kalkulatora do jakieś komórki w arkuszu Jak można nie rozumieć, że ty sam napisałes? To znaczy: Z pierwszego arusza "Sheets(1)" odczytaj komórkę A1 i dodaj do niej liczbę z TextBox1 ("TextBox1.Value" = przekształć tekst na liczbę). Wynik zapisz do pierwszego arkusza "Sheets(1)" do komórki A1 = "Range("A1")...
For i = 0 To UBound(PATH) Folder = Folder & PATH(i) & "\" If PATH(i) = "" Then CheckDir = Dir(FullPath & "Nowy" & Date, vbDirectory) If CheckDir <> "" Then MsgBox CheckDir & " - taki folder już istnieje" Else MkDir FullPath & "Nowy" & Date MsgBox "Utworzono nowy folder " & FullPath & "Nowy" & Date End If...
Nie widzę sensu w działaniu tego kodu, gdyż za każdym przebiegiem pętli zmienia się zawartość 4 tych samych komórek. Zakres C3:C6. Poza tym nie wiem po co w pętli wyświetlanie informacji MsgBox. Zapytam więc: co chciałeś osiągnąć pisząc to makro?
Witam Próbuję dane z excel - z różnych arkuszy przenieść do WORD. Znalazłam wątek "Makro zapis danych z EXcel do Word" (Niestety wątek jest zamknięty więc zakładam nowy. ) W wspomnianym wątku zamieszczono bardzo przydatny wzór - w załączniku. Jeśli uruchamiam makro z oryginalnego pliku działa bez zarzutu. Jednak przeniesienie fragmentu kodu nie skutkuje...
Potrzebuję stworzyć taki algorytm/makro który będzie automatycznie dobierał zakres danych wykorzystanych do wykresu (każda taśma ma inna długość co ta tym idzie różną ilość zapisanych pomiarów) oraz tworzył wykres przebiegu walcowania. Jak to się ma do układu danych? Nie można zaimportować jedynie kolumn z danymi, a wykresy tylko aktualizować (zostawić...
No na pewno jest szybszy przy zapisie i odczycie. Zresztą na oficjalnej stronie przy Pro jest podany zapis i odczyt, a przy XT tylko odczyt. http://www.pqi.com.tw/product2.asp?cate1... http://www.pqi.com.tw/product2.asp?cate1... Mógłbyś mi wysłać fotkę w wysokiej rozdzielczości (najlepiej makro) blokady zapisu?
Prosta sprawa a tu taka dyskusja :) , Teraz to wychodzi, że zawsze jest lepiej załączyć przykładowy plik (dane mogą być fikcyjne), ale "budowa" musi być oryginalna. Sama nazwa nawet jak będą znaki specjalne musi się wyświetlić w okienku "nazwa pliku" ale przy próbie zapisu dostaniesz błąd. ps. w tym elka2-nie działajca, formula jest w d8 a kod w makrze...
Brakuje jakby tego ostatniego elementu. Nie wiem czy tu nie brakuje czegoś żeby zapisywało nowo utworzony plik, a nie ten z makrem, ale nie wiem jak to zmienić. Pomijam "budowę" tego kodu, jak już to tak. [syntax=vbscript] ActiveWorkbook.SaveAs Filename:="H:\" & Format(Date, "yyyy.mm.dd") & "_Zestawienie Zgromadzeń Inwestorów" & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook,...
Zapis do wielu rejestrów to 16, nie 10. Możesz napisać sobie makro.
Taki problem, który pewnie jest dla wielu banalny. Zapisując plik za pośrednictwem zwykłej funkcji: Zapisz jako i wybierając .CSV rozdzielany przecinkami uzyskuję plik, który przy ponownym otwarciu jest podzielony na kolumny (patrz załącznik: 1058226 ZDEM_via_Excel.csv) tymczasem gdy stosuję taki kod do zapisania pliku. ActiveWorkbook.SaveAs Filename:="C:\ZDEM.csv"...
Witam proboje skompilować kod PDU z pewnego ebooka według mnie brakuje tutaj makrodefinicji #include ... tylko jakiej prosze o pomoc code char CPIN[] = "AT+CPIN=1643"; //wprowadzenie numeru PIN code char CHOOSEMEM[] = "AT+CPMS="; //wybór domy lnej ś lokalizacji pamięci code char ECHOOFF[] = "ATE0";...
Niestety nie działa to jak należy. Po aktywowaniu makra wyskakuje okienko zapisu, gdzie muszę wpisać nazwę i wybrać typ zapisywanego pliku. https://obrazki.elektroda.pl/9879440800_... Chciałbym aby plik zapisywał się automatycznie i miał nazwę pliku przed zapisem z dodaniem na końcu nazwy daty aktualnej w momencie zapisu. Dodatkowo...
Mam funkcję "worksheet_change" i zmieniam wartość w Arkuszu 1 w dowolnym polu. Następuje wywołanie funkcji "worksheet_change" i rusza makro. Niestety rusza makro które wykonuje operację dla ponad 1000 komórek. Mam pytanie, czy da się odczytać w VBA w jakiej komórce została zmieniona wartość (czyli położenie komórki w arkuszu, następnie wartość wpisaną...
Procedura jest prawie dobra. Zapisu do pliku dane.txt można dokonać przez:[syntax=vb] Open "C:\dane.txt" For Output As #1 [/syntax] Ponieważ zapisujemy do pliku a nie odczytujemy z niego (linia po linii), zapis [syntax=vb] Do Until EOF(1) .... Loop [/syntax] nie ma sensu i należy go usunąć.
Zapytam jeszcze raz JAK WYŁĄCZYĆ OKNO O ISTNIEJĄCYM DOKUMENCIE PRZY ZAPISIE! Napisałem makro które ma zapisywać kilka pól w kilka miejsc. Więc zapisz lub autozapis nie rozwiązują tego problemu.
Dzień dobry. Za pomocą Logo AcessToll pobieram wartość licznika do Excela. Udało mi się stworzyć arkusz, który generuje trend z ostatnich 100 próbek pobieranych co 60sec, czyli mam informację z ostatnich 100 minut. Aby mieć dane z całego dnia, potrzebuje makra lub formuły, która będzie przepisywała wartość komórki A3 w arkuszu do kolejnych wierszy w...
no to by było coś, ale nigdy nie słyszałem o tym żeby używać SQL-a w Excelu
Można wysłać dane za pomocą RS232 bezpośrednio do EXELA . Wystarczy napisać makro w exelu.
Cześć, napisałem 2 makra i nijak nie mogę ich połączyć. Makro 1 - tworzy nowy folder Makro 2 - zapisuje plik pod nową nazwą folder i plik pod aktualną datą, ta w komórce Q2. Oba makra działają, folder się tworzy, plik zapisuje się pod nową nazwą ale nie w nowym folderze Sub X() ' zaznacz1komorke Range("Q2").Select 'zrób nowy foler Dim Rng As Range Dim...
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:=...
Z czego wynika niespójność zapisu danych w ostatnim arkuszu? W wierszu drugim są te dane zapisane koło siebie, kolumna po kolumnie. W wierszu trzecim między każdą kolumną jest przerwa. Czemu tak jest? Jeśli makro ma sortować wyniki z lotto to można je uprościć, nie musi liczyć do 100 pozycji w wierszu, tylko do sześciu, do tego nie musi liczyć na liczbach...
Cześć, chcę stworzyć makro (przycisk w arkuszu), które będzie zapisywało plik jako wartość z komórki i dzisiejsza data. Lokalizacja pliku jest inna niż plik oryginalny. Napisałem następujący kod: Sub Zapis_Bizcase() Application.DisplayAlerts = False Dim Nazwa As String, Sciezka As String Nazwa = Range("T2").Value & " " & Date & ".xlsm" Sciezka = "C:\Users\was\Desktop\"...
Dziełasz na "zwykłym" adresowaniu czy na FormulaR1C1 Przy "zwykłym" kopiowanie: Cells(1,2)=Cells(1,1) Zaznaczenie cells(1,3).select Poza tym excel ma coś takiego jak "zarejestruj makro". więc włącz ten zapis, zrób co trzeba, zatrzymaj zapis i zobacz jaki kod powstał.
PS. LicznikGodzin = (__TIME__ __TIME__ to predefiniowane makro które zwraca godzinę kompilacji w postaci ciągu znaków ASCII (w formacie "hh:mm:ss = 23:00:00"). I jak byśmy zrobili tak: czyli pobrali pierwszy element naszej tablicy znaków-> int cyfra = __TIME__[0] to w wyniku otrzymamy kod ASCII = 50 (2 w dec). A my "musimy" zamienić te 50 na cyfrę...
proponuję zastosować zarówno przed każdym zapisem i odczytem jak i po zapisie/odczycie eepromu makro eeprom_busy_wait() które jest tym samym co while(eeprom_is_ready()==0)
Potrzebuję zrobić przycisk który będzie odejmował od czasu zapisanego w komórce 1 minutę. W komórce zapisany jest stempel czasowy czyli data z godziną wydarzenia. Format zapisu rrrr.mm.dd gg:mm:ss. Zrobiłem przycisk który wstawia datę i czas aktualny, ale czasem potrzebna mi korekta i potrzebne są przyciski odejmujące 1 minutę, 2 minuty, 3 minuty.
Witam Możesz tak zapisze tam skąd uruchomiono makro [syntax=vbnet]nazwa = ThisWorkbook.Path & "\" & "pre-alert" & b & "-" & c & "-" & D[/syntax] lub jak na każdym komputerze jest win7 to na pulpicie [syntax=vbnet]nazwa = "C:\Users\" & Environ("Username") & "\Desktop\" & "pre-alert" & b & "-" & c & "-" & D[/syntax]
's ' nie jest specjalny symwol jako np. F1, Tab, etc. Application.OnKey "^s", "Zapis" Private Sub Workbook_BeforeClose(Cancel As Boolean) Zapis End Sub
zapis makro excel makro zapis zapis pliku makro
aplikacja philips android software suzuki silnik krokowy
elektrolux pralko suszarka pralka rozbieralny bęben
Viking Battery Charger Schematic Availability for Models 63350, 56796, 59466, 57748, 58620 LNK304GN Ohmmeter Testing: Power-Integrations SMPS Controller Faults, Pinout, and Resistance Checks
