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...
[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...
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...
a może znasz inną metodę zapisu arkusza do pliku TXT tak by przy zapisie nie było "" "ciapek" Nie wiem, o której wersji mówisz, ale 2007, [syntax=vb]ActiveWorkbook.SaveAs Filename:="D:\Moje dokumenty\Desktop\Zeszyt1.csv", FileFormat:=xlCSV, CreateBackup:=False[/syntax] zapisuje bez cudzysłowów.
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
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...
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")...
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
A może trzeba zamienić: ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\rw\Pulpit\Jan Kowalski.xls", FileFormat:= _ na: ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\rw\Pulpit\"&AQ3, FileFormat:= _ ? Przy odrobinie chęci można znaleźć rozwiązanie tego problemu na Elektrodzie. :D
Ale autor ma unywalkę 1m od wanny, więc nie ma mowy o strefie 2! I doktor wyjaśnia zapisy arkusza 7-701. I sorry kolego, ale gdy posługujesz się cytatem to wskazane jest byś podał link do niego.
O! Widzę, że zmieniłeś #1. teraz nieco jaśniej. Jeśli kolejno, to przypisz najpierw wartość zmiennej "i" Gdzieś będzie skrajny/górny wiersz, Np drugi. Wtedy: i = Range("B2").end(xldown).row +1 (albo od dołu, jeśli nie ma nagłówka) Poskładać do kupki (konkatenacja) wartości TextBox'ów też nie powinno stanowić problemu, Np cells(i,2) = textBox1.text &...
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...
Jako ścieżkę i nazwę (z A1) podstaw[syntax=vb] Filename:= Environ("UserProfile") & "\Desktop\" & Range("A1") & ".pdf"[/syntax]
Witam np tak [syntax=vbscript] Range("B1") = Me.ComboBox1.Value If OptionButton1.Value = True Then Range("B2").Value = "tak" [/syntax]
Dobry wieczór, Miał być przykład, ale się nie doczekałem. Można zdefiniować funkcję użytkownika np. taką: [syntax=vb]Function Tło(adr As Range) As Integer Application.Volatile Tło = -CInt(adr.Interior.ColorIndex <> xlColorIndexNone) End Function[/syntax] Funkcja pobiera adres komórki jako argument i zwraca 0 jeśli komórka nie ma zdefiniowanego...
zmodyfikowany tylko 4 cyfry nie po to, aby zmienić kolejność arkuszy, nowe dodajemy na końcu
[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]
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...
Ok, ale na to trzeba wolnego czasu.
Dodano po 2 P.S. edytowano
Wielkie dzięki. Mam jeszcze szybkie pytanie: jaki zapis arkusz-komórka przyjąć, by po po skopiowaniu formuły, te wartości były zmienne dla każdego wiersza? Lub inaczej, czym różni się zapis arkusz!$A$1 od arkusz!$A1/arkusz!A1? Nie wiem, czy są jeszcze inne możliwości.
Przydałby się przykładowy plik, żeby chcący Tobie pomóc, nie musieli robić tego za Ciebie.
Funkcje w Excelu mogą pobierać dane z bieżącego, bądź dowolnego innego arkusza. W moim przykładzie utworzyłem arkusz Wyniki, pobiera on dane z wcześniejszego arkusza (Arkusz1). Zobacz, jak zmienił się zapis funkcji. Jeśli funkcja ma pobierać dane z innego arkusza to przed komórką (lub zakresem) wpisujesz nazwę arkusza z wykrzyknikiem.
Musisz napisać swój kod w JS w edytorze Apps Script (menu Extensions -> Apps scripts). Nazwę, którą nadasz funkcji wpisujesz bezpośrednio w komórkach arkusza, np. =kwota_slownie(123) https://obrazki.elektroda.pl/5530570000_... natomiast w Apps Script editorze piszesz: [syntax=javascript] function kwota_slownie(value) { var result =...
Dołączam plik z makrem :?: :D No na elektroda.pl konieczne jest skompresowanie wszelkich niebezpiecznych plików (np takich zawierających makra :please: ) przed umieszczeniem ich jako załącznika :idea: Jeśli Twój plik w Arkuszach Google ma taką strukturę jak w załączonym pliku xlsx :!: i jeśli logika przetwarzania danych jest następująca: zapisy awarii...
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 <> ...
Musisz to odwrócić. Najpierw zapamiętanie nazwy pliku: zapisz w ukrytym arkuszu wartość '.SelectedItems(1)' (path+filename) i użyj jako argument 'Open' (Append lub Output) przy zapisywaniu. Jeśli wszystko odbywa się w jednej sesji, możesz przypisać do zmiennej globalnej. String do zapisu (wiersz arkusza) poskładaj w wewnętrznej pętli For. Żeby było...
Witaj. Zgodnie z tym co napisałeś problem zapisu arkusza pojawia się pod Word'em, niewiele z tego rozumiem ale czy chcesz edytować arkusz w edytorze tekstów czy tylko go dołączyć, bo jeśli jednocześnie będziesz miał go otwartego w Word'zie i Excel'u to będzie się właśnie tak buntował. Pzdr.
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...
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")...
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.
No to merytorycznie. Gdyby Bronku ZE gwarantowało ciągłość PEN to to zapisy arkusza 5-54 dotyczące uziemiania szyny PE byłyby zbędne. A odgromnik (na rysunku) należy połączyć z szyną PE a nie prowadzić drugi przewód do GSW.
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
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")...
Hej, A mam jeszcze jedno pytanie. Jak zrobić, żeby data się automatycznie wpisywała z zapisów w arkuszu plan?
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...
Za pomocą makra wprowadzaj w daną komórkę datę. Wszystkie funkcje w excelu są automatycznie aktualizowane/przeliczane przy otwieraniu pliku - no chyba że wyłączysz automatyczne przeliczanie dla arkusza (przestawisz na ręczne i wyłączysz przelicz przed zapisem) . Arkusz będzie wtedy przeliczany/aktualizowany tylko po naciśnięciu F9 http://obrazki.elektroda.net/57_12783428...
Witam ! W mojej ocenie radzisz sobie Kolego całkiem dobrze z tworzeniem prostych formuł i formatowaniem warunkowym :D Po korekcie drobnych błędów i uproszczeniu zapisu dat i czasu (nie widzę potrzeby zapisu w dwóch kolumnach) Twój arkusz może wyglądać jak w załączniku. 786955
Napisz jakie dane ma wyświetlać kolumna E, tak będzie prościej. Czyli ma różnicować w zależności od ilości przedmiotów między ceną pojedynczej sztuki a ceną za 1000 sztuk? Potrzebna jest zależność proporcji, której tabela nie przedstawia. Są tylko liczby sztuk sprzedaży. Jeśli ma wyświetlać jak na zielono to tak =(B2*D2)/1000 Jeśli chcesz powiązać proporcje...
Kolega mrst otrzymuje obiecane 50pkt. Kolega Jacek otrzymuje dodatkowe 50pkt za logiczną interpretację zapisu arkusza 4-41. Czy autor wątku zrozumiał, że zastosowanie wyłącznika RCD w mieszkaniówce nie jest zależne od zasobności portfela i widzimisię inwestora? Jeśli tak to proszę o zamkniecie wątku.
sprawdź . . .
Moim zdaniem to można znacznie uprościć, nie dzielić na raty, tylko od razu filtrować i drukować arkuszami, bez kolorowania. Mam tylko dwie wątpliwości. 1) W jakim stanie mają być arkusze po zakończeniu operacji? W pliku, który załączyłeś były włączone autofiltry w arkuszach, a Twój kod je usuwa. 2) Po co jest ustawiona opcja wyświetlenia (publikacji)...
Ten zapis sprawia, że arkusz pojawia się przed innymi arkuszami na początku.
[syntax=vb]Worksheets("Arkusz2")[/syntax... albo [syntax=vb]Worksheets(2)[/syntax] albo [syntax=vb]Sheets("Arkusz2")[/syntax] albo [syntax=vb]Sheets(2)[/syntax] Każde z powyższych można poprzedzić klasą ThisWorkbook. Jeżeli odwołujesz się do jakiegoś arkusza wielokrotnie, a chcesz skrócić zapis: [syntax=vb]Set ark2 = ThisWorkbook.Worksheets("Arkusz2")...
... było pieknie, ładnie dopóki był "Maj", a teraz jesrt "Czerwiec" a mi sie log uzupełnia znowu na maj... Ale jest pięknie ... dość ładna pogoda przecież ... :) ... przynajmniej w Polsce Wschodnio-Środkowej-Północnej ... :) ... no i na Karaibach oczywiście ... : Form ' - i wtedy sprawdzanie byłoby podwójne: i po miesiącu wpisanym w arkuszu ' log '...
Zależy jak zrealizowałeś listę. Najprościej (w Excelu, ale w OO będzie podobnie) wstawić formularzowe pole kombi, w arkuszu pomocniczym wpisać kolejno wszystkie funkcje z odwołaniem do arkusza roboczego, i wykorzystać funkcję INDEKS po łączu komórki pola. Funkcja INDEKS pobiera sobie wynik z arkusza pomocniczego, a jej zapis będzie może ciut dłuższy...
Worksheets("nazwa arkusza") Taki zapis będzie stosowany do istniejącego arkusza o nazwie 'nazwa arkusza', którego zapewne nie ma w skoroszycie.
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.
Trochę po czasie ale: - za wcześnie dodajesz wpis, - nie dodajesz zapisu !important, żeby nadpisać natywny zapis z innego arkusza - arkusz css jest zapisany w pamięci podręcznej
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ź...
Tylko częściowo sobie poradziłem. Nie daję rady co do cmbSiec z listą arkuszy i zapis do BAZA i do arkusza wskazanego w cmbSiec Proszę o pomoc, chociaż kawałek kodu.
[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]
Witam. Chciałbym zastosować do zapisu danych arkusz kalkulacyjny. Chciałbym to zrobić z wykorzystaniem arkusza kalkulacyjnego open office jednak nie mogę znaleźć w Internecie materiałów w jaki sposób to zrobić (pod Microsoft Office jest bez problemu). Prosiłbym o pomoc w tej sprawie. Czy może lepiej skorzystać z excellibrary? [url=http://code.google.com/p/excellibra...
CommandButton z napisem GRAJ!, Poszedłbym raczej w kierunku formatki użytkownika (UserForm), niż bawiłbym się w z przyciskami w arkuszu. Łatwiej zapanować nad aspektem wizualnym "zabawki", no i miejsca więcej w arkuszu na inne rzeczy. czy „CommandButton_SPRWDZ1” może weryfikować wszystkie 39 odpowiedzi Prosto odpowiadając - można - np....
Istnieje kilka sposobów zapisu odwołań do zakresów komórek w różnych arkuszach. Odwołanie bezpośrednie w stylu Excela: [syntax=vbscript]Range("'Samochód części automatic (2)'!B2#")[/syntax]Nazwa arkusza jest fragmentem adresu zakresu. Nazwę arkusza umieszczamy w apostrofach jeśli zawiera spacje, znaki specjalne lub jest liczbą; oddzielamy od adresu...
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
Musisz zrozumieć podstawy VBA, najlepiej coś na ten temat przeczytaj. Każdy zapis w VBA musi albo coś deklarować albo coś wykonywać. Twoja pierwsza linijka kodu ani nic nie deklaruje, ani nie wykonuje. Od drugiej powinno być dobrze pod warunkiem, że arkusz SPR jest aktywny. Nie możesz tak chaotycznie używać Range poprzedzonego nazwą arkusza i bez tej...
Zapisywanie w jednym pliku Excel ale w osobnych "Arkuszach 1" później "Arkusz 2" można coś takiego zrobić ? np Zapis tylko styczen lub marzec jako osobny plik. lub Jeden skoroszyt z arkuszy miesięcy. chodzi mi żeby był jeden główny plik Excel z którego będzie robiona Baza archiwalna
nie tak dawno twierdziłeś iż RCD ogranicza prąd zwarcia, co świadczy o tym iż budowy i zasady działania tego aparatu też tak do końca nie znasz. Widzisz co chcesz zobaczyć. Sposób ograniczenia tego prądu opisałem, gdyby było inaczej stosowanie 30mA nie miałoby sensu. Zapisów arkusza 4-41 również nie znasz bo w żadnym fragmencie nie nakazuje on stosowania...
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
Cześć, dzięki za podesłane rozwiązanie niestety dla mnie nie jest do końca przydatne ze względu na to że, chodziło mi o "ZAPIS NOWEGO PLIKU POD NAZWĄ Z ARKUSZA" jak zostało to opisane poniżej. Potrzebuję dla generatora pytań napisać makro które pozwoli mi na zapisanie nowego Zeszytu(pliku) pod nazwą z Arkusza(Dane). Tak abym mógł wprowadzić kilkadziesiąt...
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...
Witam! Elektryk który proponuje bądź układa od złącza do budynku kabel 4x4 mm2 powinien dobrowolnie poddać się lobotomii mózgu by po zabiegu zająć się np: wypiekiem bułeczek. Takie rozwiązanie po pierwsze skutecznie blokuje zwiększenie mocy w przyszłości, a po drugie jest sprzeczne z zapisem w arkuszu 5-54 wiadomej (naszej) normy mówiącym o minimalnym...
A płyta indukcyjna i inne urządzenia przyłączane bez udziału gniazda i wtyczki dalej z RCD? A arkusz dalej 4-41 czeka. Norma nie zabrania stosowania RCB również na obwodach stałych. Ona jedynie dopuszcza takie uproszczenie ponieważ uznaje ryzyko porażenia dotykiem bezpośrednim i pośrednim za znikomy. Bo wszystko w zabezpieczeniach zaczyna się od analizy...
Do tego nie jest Ci potrzebna żadna pętla. Najpierw musisz sobie określić pierwszy wolny wiersz w arkuszu [syntax=vb]a = Sheets("Arkusz1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row[/syntax] Później po wpisaniu do arkusza danych z pól tekstowych zostaje Ci jedynie zwiększyć wartość a o 1
W uzupełnieniu propozycji "cbrman-a" proponuję ogólnie stosować do zapisu daty format liczbowy, a nie tekstowy (jak w przykładzie) :!: Jeśli będziesz chciał zrobić jakąkolwiek operację na wartościach dat np określić czas oczekiwania na realizację wniosku o dofinansowanie wypoczynku :D - wystarczy odjąć jedną datę od drugiej. Przy formacie tekstowym...
Po zmianie początkowej części kodu z function onEdit(e) { // Nazwa arkusza, w którym skrypt ma działać var nazwaArkuszaDocelowego = "Nazwa_Arkusza"; // Proszę wpisać rzeczywistą nazwę arkusza na function onEdit(e) { // Nazwa arkusza, w którym skrypt ma działać var nazwaArkuszaDocelowego = "Arkusz1"; // Proszę wpisać rzeczywistą nazwę arkusza podczas...
przekopiowałem kod do vba w moim pliku przestało to wszystko działać Zaproponowałem kod prywatny do obsługi skoroszytu - zatem musisz go wkleić dla obiektu ThisWorkbook :!: Po skopiowaniu kodu i dostosowaniu nazwy roboczego arkusza - plik musi być zapisany jako xlsm :!: Ze względu na zastosowane uproszczenia zapisu kodu - każdorazowo trzeba "wychodzić"...
Hej. Dzięki za odpowiedz. Co do kopiowania to nie pamiętam skąd kopiowałem, chyba excelforum czy jakoś tak. Tam też o problemie blokowania komórek i VBA nie było mowy bo ten ktoś tego nie potrzebował. Wracając do mojego problemu. Czyli nie da rady zablokować stałych komórek tj. nr i data i te górne z tytułami i tak samo nie da rady zablokować wypełnionych...
Cześć, Mam problem z poniższym makrem, które: po otwarciu pliku tworzy jego kopię, a następnie tę kopię zapisuje z odpowiednią nazwą we wskazanej lokalizacji, po czy, zamyka tę kopię, a plik "macierzysty" (początkowo otwierany) wciąż zostaje otwarty i w nim pracujemy. Służy mi to do tworzenia kopii zapasowej przy każdym otwarciu pliku. Mój problem polega...
W zakresie kilku Hz to raczej tak. Powyżej, teoretycznie tak, praktycznie nie wiem, język VBA jest językiem interpretowanym, co oznacza każdorazowe przetwarzanie linijka po linijce kodu na język maszynowy i wtedy jego wykonanie. Takie wykonanie spowalnia znacznie program, ale dopóki nie mamy kompilatorów w Excelu, musimy się tym zadowolić. Jak zapisać?...
Witam, chciałbym napisać makro które gdy klikniemy button zapisze arkusz pod nazwą podaną w komórce a2 i przed zapisem w komórce a3 doda datę a w komórce a4 godzinę zapisu oraz dodatkowo ustawi brak możliwości edycji komórki a3 i a4 - chronione hasłem. Jest taka możliwość??? Proszę o pomoc
$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:
Zastanawiam się, co da zablokowanie przycisku x? Przekonasz się. Albo jakiś inny patent na uniemożliwienie nadpisania pliku arkusza. Sprawdź. ps. poprawka niżej
Tu jest szczęście[syntax=vb] Sub KopiaRobocza() Dim nazwa As String Dim path As String nazwa = Range("H19").Value path = "C:\" fileSaveName = path & nazwa & ".xlsx" ThisWorkbook.Worksheets("Kopia robocza").Range("A1:D45").Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues ActiveWorkbook.SaveAs fileSaveName Application.OnKey "~", "SomeActions"...
Musisz sprawdzać n znaków w nazwie arkusza (zależy od formatu zapisu daty w nazwie). Nazwa arkusza jest typu String , więc nie ma z tym problemu. Najprościej nazwy sprawdzać w pętli For , wybierając właściwy instrukcją [syntax=vb]If Right(nazwa_arkusza, n) = komórka_ z_datą_we_właściwym formacie Then[/syntax]
Ja testowałam na przykładzie bez scalonych komórek, choć w zasadzie nie powinno to mieć wpływu. Nie widząc pliku źródłowego - trudno ocenić. Może jest tam jakaś poprawność danych z innego arkusza?
Witam, czy pomoże ktoś przerobić to makro Visual Basic na Apps Script w Arkuszach Google, to jest automatyczny zapis daty. Np. po wpisaniu tekstu w komórce A1 automatycznie przypisze się na stałe data w komórce B1 i godz. w C1: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:B1000"))...
Daj to w kodzie danego arkusza ("adres twojej komórki" musisz podać adres tej komórki co odbiera co min. te dane) [syntax=vbscript]Private Sub Worksheet_Calculate() Application.EnableEvents = False Cells(Rows.Count, 5).End(xlUp).Offset(1) = "adres twojej komórki" Application.EnableEvents = True End Sub[/syntax] lub pod [syntax=vbscript]Private Sub Worksheet_Change(ByVal...
co robię źle ... Np.: brak deklaracji zmiennych "ostw" i "ostw2", jak również deklaracje innych nie wiedzieć czemu "variant", Np.: ... ostw = Worksheets("DANE").Cells(Rows.Count, "B").End(xlUp).Row ostw2 = Worksheets("LOG").Cells(Rows.Count, "B").End(xlUp).Row Zapis " Rows.Count " odnosi się do bieżąco aktywnego arkusza, a nie do arkusza "DANE", czy...
Hey mam do was pytanie czy można w jakiś sposób skonwertować fragment arkusza xls do doc ? Tak jak mamy makro zapisujące do formatu pdf tak zapis do formatu doc ?
Sprawdziłam Twoją modyfikację, niestety nie do końca działa to tak jak bym chciała, tzn. dane są dzielone po 1 zmiennej i zapisywane w nowym pliku, ale w nowym pliku już po zapisaniu nie zostały podzielone po 2 zmiennej na arkusze. Zapis po zmianie podanej przez Ciebie działa ale dla danych lato, zima (dla miejscowości nie).
Czyli wstawianie arkusza opanowane. Teraz mamy wpisywać *jakieś* dane w jakiś sposób. Można założyć, że linia po linii (ale to założenie wynikające tylko z kontekstu wcześniejszych postów). W jaki sposób działa teraz wpisywanie do jednej linii? Makro, które już Kolega posiada zaczyna wpisywać od komórki, która jest aktualnie zaznaczona i wypełnia ileś...
Ad 1. Tu należy zwrócić uwagę, że każdy arkusz ma w VBA dwie nazwy, tzw. nazwę "zakładkową" - widoczną na zakładce arkusza i nazwę kodową - dostępną tylko w VBA. Te nazwy są początkowo identyczne, ale użytkownik może je zmieniać niezależnie, więc mogą później się różnić. Jeśli piszemy odwołanie: Jaka jest różnica pomiędzy: ActiveCell.FormulaR1C1 / ActiveCell.Formula...
Witam mam taki problem. Otwieram arkusz kalkulacyjny excel, wprowadzam w nim jakieś zmiany i gdy próbuje zapisać zmiany za pomocą ikonki dyskietki czy to za pomocą plik-> zapisz zapisuje mi ten dokument jako nowy plik bez rozszerzenia xls. Ale próba otwarcia tego pliku otwiera go jako arkusz kalkulacyjny. Podczas próby ponownej edycji arkusza przy zapisie...
Witam! Mam złą wiadomość dla kolegi: 1) w plikach xlsx istnieje możliwość odtworzenia pierwotnej kolejności wprowadzania danych - w pliku ("wewnętrznym" :idea: ) sharedStrings.xml - wpisywane są kolejne wartości komórek tabeli arkusza :D Sortowanie tabeli (i zapis zmienionego układu) nie zmienia pliku sharedStrings.xml :spoko: Treść przykładowego pliku...
sprawa wygląda tak,że dane są wprowadzane do arkusz czasem kopiowane z innego arkusz excel po czy arkusz jest zamykany z zapisem i podczas próby ponownego otwarcia występuje ten bład. ale nie za każdym razem arkusz jest uszkodzony i nie mogę odnaleźć zawartości która spowodowała błąd bo może gdybym znalazła co powoduje błąd spróbowałabym go naprawić
Ale że jak? Jak masz n (ciągła numeracja?) arkuszy to dla każdego 1..n-1 to wykonać? Jedną komórkę czy wiele? Z R2 do R1, czyli wiersz do góry? Samo kopiowanie komórki jest proste z wykorzystaniem zapisu proponowanego przez JVR: Sheets("DATA ENTRY " & s+1).Cells(y,x).value=Sheets("DATA ENTRY " & s).Cells(y,x).value Dołóż do tego odpowiednie pętle i...
Witam, Mam problem z zapisem danych w Arkuszu Excela. Przy wykorzystaniu polecenia: objSheet.Range(A1).Value=dgvDane... dane zapisują się w komórce, natomiast polecenie objSheet.Cells(1,1)=dgvDane.Rows... generuje błąd. Z uwagi na zapis większej liczby...
Przy przenoszeniu między Microsoft Office a Open Office często są problemy z formatowaniem tekstu itp. Ale w twoim przypadku krzaki wychodzą za pewne dlatego, że Open Office zapisuje w formacie odt a Microsoft Office nie wspiera tego formatu. Przy zapisie musisz wybrać Zapisz jako i tam zmienić format na xls jeśli to arkusz kalkulacyjny.
Tak na szybko Jeżeli możesz zmień "-" (minus) w nazwie arkusza na np "_" kreska dolna Oczywiście w komórce C4 też. "Agregaty-inne" na "Agregaty_inne" Jeżeli koniecznie ma być minus zaraz sprawdzę jak w tym przypadku zareaguje funkcja adres() tylko że tam jest inny rodzaj adresowania komórki.
* ISO 8859 – standard kodowania znaków * ISO 10646 – uniwersalny zestaw znaków UCS (zaimplementowany jako Unicode) * ISO 3166-1 – standard kodowania państw i terytoriów * ISO 3166-2 – standard kodowania jednostek administracyjnych państw * ISO 639 – standard kodowania języków * ISO 4217 – standard kodowania walut...
Pozwoliłem sobie wtrącić bo mam chwilę czasu. Dodaj jeszcze jedno jeżeli() które sprawdza czy jest zapis w komórce przylegającej do danych. http://obrazki.elektroda.pl/3459288200_1...
Jest coś takiego, jak ochrona przed zapisem/ edycją komórek lub całego arkusz. Ale nie włącza i nie wyłącza się samoczynnie. Pewnie arkusz po prostu się zawiesił. Proponuję na wszelki wypadek zrobić kopię pliku i wrócić, jeśli problem się powtórzy.
Kolego daruj sobie te uwagi o szerszej perspektywie, gdyż noszą one znamiona sankcjonowania partactwa, niechlujstwa i wszystkiego co najgorsze. Jest norma 60364 i do jej arkuszy należy się stosować. Wymyślanie "nowych technologii" się niestety w jej zapisach nie mieści.
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
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 mam taki problem z wczytywanie plików txt do Excela. Chce zrobić makro, które wczytuje wszystkie pliki txt do jednego arkusza. Mam katalog z pomiarami. Każda seria pomiarów zapisuje się w innym katalogu. Teraz chce, żeby makro tworzyło arkusz z nazwą katalogu, a potem do tego arkusza wrzucało wszystkie wyniki pomiarów jeden pod drugim. Poniżej...
poniewaz "With ThisWorkbook.Sheets("xxx").... .Copy..." kopjuje sie i mozliwe makra w zdarzeniach arkusza Nie ma tam nic?
czujnik arkusza dowolne arkusza wybieranie arkusza
monter elektronik żarówka canbus stabilny generator kwarcowy
kodowanie wtryskiwaczy babcia komputer
BZP650C12 – zamienniki diody Zenera 12V 5W: 1N5349B, BZT03-C12, BZD27C12 Seat Ibiza 6L 2006 – reset centralnego zamka, kodowanie pilota, typowe usterki