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]
[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()...
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/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...
[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]
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...
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
Witam np tak [syntax=vbscript] Range("B1") = Me.ComboBox1.Value If OptionButton1.Value = True Then Range("B2").Value = "tak" [/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ć...
[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
[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...
Ja w takich sytuacjach robię bazę danych w Accessie, plik .mdb umieszczam na sieci, a użytkownicy korzystają z arkuszy Excela do pobierania / modyfikowania / zapisywania danych za pomocą zapytań SQL w makrach. Sprawdza się przy kilku użytkownikach, choć nie testowałem tego rozwiązania jeżeli dwie osoby będą chciały naprawdę jednocześnie zmodyfikować...
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.
hmm dalej nic, A nie masz czasami w tym "e5" jakiegoś znaku typu (<>?/")?
[syntax=vbscript]Sub ZapiszPDF() Range("A1:CP54").ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Wynik\" & [J6] & ".pdf" End Sub [/syntax]
Ustawienia lokalne są poprawnie skonfigurowane To jeszcze sprawdź "obracając" zapis z No niestety nie pomogło :-(
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...
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.
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
Witaj =SUMA(PRZESUNIĘCIE($C$15;0;0;B1))
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.
Przeciez masz komunikat ze jest tam Project VB Nie mam 2013, zrob zrzut ekranu VBA edytora
Narzędzia -> Opcje -> [Zapisywanie] -|/|Zapisz informacje niezbędne do odcztania pliku co |_| min Pozdrawiam Lt.
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
Rozumiem, że makro ma być w pliku PRE-ALERT? Jeśli tak, to przetestuj poniższy kod: [syntax=vb]Sub NowyArkusz() Dim wbkPrealert As Excel.Workbook Dim oWSShell As Object Dim strPath$ Workbooks.Add a = Now() b = Year(a) c = Month(a) D = Day(a) Set wbkPrealert = ThisWorkbook Set oWSShell = CreateObject("Wscript.Shell") strPath = oWSShell.SpecialFolders("Desktop")...
zmodyfikowany tylko 4 cyfry nie po to, aby zmienić kolejność arkuszy, nowe dodajemy na końcu
Witam, Zielony z makro szukam pomocy :-) Uprościłem pytanie, poszukuję makra które uruchamiałoby się automatycznie po wprowadzeniu zmiany w arkuszu dane C3, makro powinno zapamiętać i zapisać poprzednią wartość C3 do arkusza zestawienie C5, przy kolejnym wpisie do C3 w danych, kolejny zapis w C6 w arkuszu zestawienie itd. Mógłby ktoś pomóc w stworzeniu...
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 Aby zapisać w wskazanym katalogu i nazwą to spróbuj tak: [syntax=vbscript] ActiveWorkbook.SaveAs Filename:= _ "C:\Users\twojaNazwaUzytkownika\Document... [/syntax]
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.
Zmiana dysku do lokalizacji co otwarty dokument ChDrive ThisWorkbook.Path Zmiana folderzu do lokalizacji co otwarty dokument ChDir ThisWorkbook.Path
$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:
Pewnie dlatego, że w matematyce zapis X =X +1 jest błędny.:)
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ć.
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 ;)
Jeśli podasz liczbę jako tekst, to nie zmieni jej na inny zapis. Przed liczbą wpisz apostrof.
Jaki komputer?
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?
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.
... 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.
Ok, ale na to trzeba wolnego czasu.
Jako ścieżkę i nazwę (z A1) podstaw[syntax=vb] Filename:= Environ("UserProfile") & "\Desktop\" & Range("A1") & ".pdf"[/syntax]
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
... 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...
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...
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)
... W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany ... Słuszna uwaga ... ale nie za każdym razem, czyli kod w innym miejscu. Czyścić powinno się komórki tak, by wykonała to ostatnia zmiana, która będzie tam coś wpisywać, tak aby przed swoim wpisem miała informację o tym, że poprzednicy w ogóle coś wpisywali (bo może...
Excel zapis 1/1 może zrozumieć jako: styczeń 2001. Wydaje mi się, że tu należy szukać problemu. Możliwe, że zaplątała się gdzieś spacja lub tym podobne. Najlepiej wrzuć załącznik na forum (wytnij tylko ten interesujący nas fragment, zapisz w nowym pliku i podaj jako załącznik bez prowizji).
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
Znalazłem niedozwolony znak w zapisie pliku - ukośniki :)
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 :)
Chodziło mi o wyświetlenie okna wyboru. Chciałbym tak samo tylko w stronę zapisu.
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:...
Przy pomocy przeniesienia do notatnika zapisu do txt, otwarcia w Excel i transpozycji
Czy w Wordzie, Excelu, ogólnie w Officie istnieje możliwość automatycznego zapisu dokumentu do osobnych plików, tak żeby nie stracić swojej pracy, ale by także móc wrócić do jakiegoś wcześniejszego etapu? W tej chwili jedynym znanym mi sposobem "awaryjnego" zapisu jest ustawienie automatycznego zapisu na krótki czas, jednakże zapis jest w postaci nadpisywania...
W pełni legalny
Zdarza się, że Excel nie trawi zapisu 'C:C' i trzeba podać zakresy precyzyjniej...
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.
Mam problem z makrem, które zapisuje dany zakres arkusza do pdf. Na początku zapisuje ono plik jako "ogólny plik", który jest wysyłany do klientów, a następnie zapisywany jest w celu archiwizacji pod daną nazwą z komórki. Mam problem z tym drugim zapisem. Przy kompilacji pokazuje mi błąd zapisu tego drugiego pliku. Problem pojawia się po określeniu...
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ć...
Po dodaniu w 2 linijce jak wyżej mam " invalid use of prioerty" U mnie działa
Witam. :arrow: Korek_123 Ponieważ Excel >=2007 zapisuje w formacie xml, następnie ukrytych wierszy i kolumn dla każdej linii ponad milion jest zapis "ukryte = 1 " i jest coś innego. Spróbuj zapisać w formacie binarnym. Ale różnica jest mała. P.S. Osobiście używam Excel97, maksymalno 2003. W każdym razie mój projekt, inny Excel otworzy. Edit: Ale spójrz...
Zastanawiam się, co da zablokowanie przycisku x? Przekonasz się. Albo jakiś inny patent na uniemożliwienie nadpisania pliku arkusza. Sprawdź. ps. poprawka niżej
W załączniku jest pokazany przykład. Zależy mi na takim zapisie adresu komórki, aby dla kolejnego parametru np. K=3,4,5,6,7 do zakresu komórek B2:B5 wkopiowywano by kolejno zawartość komórek C2:C5, D2:D5, … ,G2:G5. Prosiłbym o opis jak działa procedura (jak jest skonstruowany adres komórki), a nie tylko suchy zapis.
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"...
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...
Spróbuj zamiast przecinków użyć jako separatora dziesiętnego kropki ( zamiast 0,1 napisz 0.1) excel może Twój zapis analizować jako tekst a nie liczby
Spróbuj: ActiveWorkbook.SaveAs Filename:=ActiveCell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbookMacroEn... reszta (Pasword etc.) jest na wartościach domyślnych.
W jaki sposób przesyłać dane z czujnika podłączonego do Arduino do PC przez Bluetooth? Koniecznie musi być zapis do formatu odczytywanego przez Excel, czyli CSV, XLS lub XLSX.
Witam, Czy udało sie rozwiązać problem z zapisem? Od kilku dni u mnie wystepuja identyczne objawy.
No to na załączonym obrazku powinieneś mieć Arkusz3.Name Nie wiem, skąd wykombinowałeś to Arkusz3.cennik - tzn. domyślam się skąd, ale tak jest źle.
Ale jak wyjaśnić że działało tyle lat? I zawsze zapisywałem w formacie 97-2003 odkąd pamiętam, jak zapisze jako xlsx jest ten sam problem, może kolega który przesiadł się na WIN10 teraz podsyła pliki w których ten system coś miesza. Sam nie wiem, sprawdzałem na 3 kompach i wszędzie to samo, mam wrażenie jakby jedna komórka czy kilka jakiegoś "chorego"...
Poproszę linijkę bez komentarza, bo powyższy zapis jest błędny.
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.
win 7, program adobe, excel, word
gdy ilość znaków wynosi 14 Proponuje np. [syntax=vbscript]Private Sub TextBox1_Change() Lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If Len(TextBox1.Value) = 14 Then Cells(Lr, "A") = TextBox1.Value End If End Sub[/syntax] Jeśli chcesz 14 znaków lub więcej to oczywiście zmień zapis warunku na => 14 :D
Ta wersja powiększa czcionkę w aktywnym arkuszu czyli Czyli powiększ - zapisz - powróć do poprzedniej. [syntax=vbscript]Sub PDFy() Application.ScreenUpdating = False Dim DatExample As Date Worksheets("baza zamówień").Range("C2").Value = Worksheets("baza zamówień").Range("R2").Value DatExample = Date s = "C:\PlikiPDF\DPFy\" With ActiveSheet .PageSetup.CenterHeader...
Twój problem można uprościć do tego zapisu: Jeżeli A4>500 -> 0.95*A4, w przeciwnym wypadku 0.975*A4 W zapisie w excelu formuła będzie wyglądała tak: =JEŻELI(A4>500;0,95*A4;0,975*A4)
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,...
To szukaj kopii zapasowej w lokalizacji zapisu odzyskiwania.
Wyszło mi coś takiego sprawdż czy ci pasuje Musisz tylko zmienić sposób zapisu godziny czasu wymaganego kontaktu na taki jak w przykładzie bo inaczej nie będzie liczył
W złym miejscu miałeś to dopisane. Przecież to chodziło o metodę GetSaveAsFilename, a nie o SaveAs. [syntax=vbnet]Private Sub CommandButton1_Click() Dim plik plik = Application.GetSaveAsFilename(Sheets("il... & ".xls", "pliki excel (*.xls), *.xls") If plik <> False Then ActiveWorkbook.SaveAs plik End Sub[/syntax]
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ć ?
Kolego Piotrze, coś chcesz nas zaczarować, bo to co piszesz jest mocno nieprecyzyjne. Formuła, którą zacytowałeś może działać tylko jako formuła tablicowa. W Excelu 365 formuły tablicowe zostały zastąpione formułami dynamicznymi, które zatwierdza się samym Enter, ale nie zmienia to ich tablicowej natury. W nowym Excelu każda formuła jest domyślnie traktowana...
zapisz przez "zapisz jako"
Może kolumna pomocnicza z pobranymi znakami początkowymi i na jej podstawie sortowania? W tej chwili Excel traktuje zawartość jako tekst i dlatego masz taki wynik.
Witam, Podczas pracy na pliku Excel miałem możliwość edycji i zapisu. lecz po pewnym czasie nie mogłem edytować(nie mogłem ani nic wpisać do komórek, ani nic skasować) i zapisywać. Po upływie 10 min Excel tak jakby się odblokował(mogłem wszystko już robić). Co może być przyczyną i jak pozbyć się tego problemu na przyszłość. Z góry dzięki za odpowiedź.
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.
excel wyświetla mi okno do zapisu makra Zapisz skoroszyt jako plik z obsługą makr (xlsm).
[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...
Jeśli to polska wersja Excel'a, to przecinek, nie kropka. Nie liczysz warunkowo (LICZ.JEŻELI), tylko mnożysz jeśli warunek spełniony: =JEŻELI(A5<=3;A2*0,35;"") Warto czasem zerknąć do pomocy. Funkcje są dobrze opisane i zwykle poparte przykładami.
[syntax=vbscript] Public Sub pobierz() Dim lang As String Dim URLStr As String, DLPath As String, UName As String, PWD As String, DontOverWrite As Boolean Dim zakres As Range Dim Lastrow As Integer Lastrow = ActiveSheet.Range("A1").CurrentRegion.Ro... Set zakres = Range("A2:A" & Lastrow) kat = Dir(Environ("USERPROFILE") & "\Downloads\karty\", vbDirectory)...
Czy może wypisywać pracowników po kolei bez pustych komórek? :D Owszem można, ale każdy z Twoich warunków (po kolei, bez pustych) to poważna komplikacja formuły :please: Może wystarczy Ci zapis bez pustych :spoko: 1010494
Tak, tylko urządzenie które miało by czytać z takiego pliku niekoniecznie jest jak by to powiedzieć - komputerem. Chodziło mi tu bardziej o to by nawet takowe jak np. Atmega działająca pod kontrolą języka C mogła zczytać plik z USB i dokonać na nim operacji. Z plikami tekstowymi problemów nie ma. Z Excelem przyznam że chyba jeszcze nikt nie działał...
Jeśli nadzorowane zmiany mają być w Arkuszu2, to procedura Worksheet_Change powinna być umieszczona w module Arkusza2. W tej procedurze można odwoływać się do Arkusza1 bezpośrednio (przez nazwę kodową) albo pośrednio przez kolekcję Worksheets jako Worksheets(1) albo Worksheets("Arkusz1"). Przykładowy kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal...
zapisane w szeregu, w jednej kolumnie. Czyli w osobnych komórkach w dół w danej kolumnie?
zapis excel zapis pliku excel excel automatyczny zapis
lusterko schemat stojan przewód rysunek techniczny śruba
sinumerik 840de konfigurator nadajników
Fałszywy komunikat o zhakowaniu telefonu - co robić? Saeco Royal Professional - funkcje i konserwacja
