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]
Jaka wersje Excel ? Jaky komunikat?
[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...
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
[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]
[syntax=vbscript]Workbooks.Open ("C:\Users\Fransf\Desktop\TESTY\Klienci\... & nazwaklienta & ".xlsx")[/syntax]
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?
Dobra, więc tak. Do Excela nie zapiszesz, skoro nie wiesz jak wykonać taką operację. Potrzeba zewnętrznych płatnych bibliotek, żeby zapisać plik w formacie Excela, ewentualnie jest wymóg, żeby na komputerze z tym programem był zainstalowany Excel - to się da. Ale... Możesz zapisać po prostu plik tekstowy w formacie CSV. A w jaki sposób? var lines =...
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...
Przeciez masz komunikat ze jest tam Project VB Nie mam 2013, zrob zrzut ekranu VBA edytora
Replace, psze Pani, Replace...
Narzędzia -> Opcje -> [Zapisywanie] -|/|Zapisz informacje niezbędne do odcztania pliku co |_| min Pozdrawiam Lt.
Witam np tak [syntax=vbscript] Range("B1") = Me.ComboBox1.Value If OptionButton1.Value = True Then Range("B2").Value = "tak" [/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...
Jaki komputer?
[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]
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ć...
... 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.
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.
Ustawienia lokalne są poprawnie skonfigurowane To jeszcze sprawdź "obracając" zapis z No niestety nie pomogło :-(
[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
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.
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.
Pewnie dlatego, że w matematyce zapis X =X +1 jest błędny.:)
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
Jeśli podasz liczbę jako tekst, to nie zmieni jej na inny zapis. Przed liczbą wpisz apostrof.
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.
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.
Chodziło mi o wyświetlenie okna wyboru. Chciałbym tak samo tylko w stronę zapisu.
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...
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...
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")...
Witaj =SUMA(PRZESUNIĘCIE($C$15;0;0;B1))
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.
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
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
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
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...
zmodyfikowany tylko 4 cyfry nie po to, aby zmienić kolejność arkuszy, nowe dodajemy na końcu
Znalazłem niedozwolony znak w zapisie pliku - ukośniki :)
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)
$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:
ActiveCell.FormulaR1C1 = _ "=VLOOKUP( RC ,' tu masz błędny zapis
Przy pomocy przeniesienia do notatnika zapisu do txt, otwarcia w Excel i transpozycji
Nie wiem w czym masz problem. Wydziel minuty i podziel przez 60 (sformatuj komórkę wynikową jako zwykłą liczbę). Docelowo do wydzielonych godzin dodaj wydzielone minuty podzielone przez 60 i masz "swój" zapis.
Poproszę linijkę bez komentarza, bo powyższy zapis jest błędny.
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 ;)
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ć.
:arrow: Maciej - naprawdę sprytne :) , nie pomyślałem o tym wcale choć niedawno to "odkryłem". A wiesz może jak po wykonaniu kolejnych operacji i powrocie do komórki w której "zrobiło się" wcześniej F9 wrócić do funkcji źródłowej (by pokazało się A1:A11 - oczywiście gdy nie zmienia się zapisu) ?
To szukaj kopii zapasowej w lokalizacji zapisu odzyskiwania.
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,...
... 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...
Wspominałem już o EPPlus? 1. Pobierz [url=http://epplus.codeplex.com/]stąd bibliotekę. 2. Upewnij się, że projektu w VS nie kompilujesz do wersji Client. 3. Bibliotekę EPPlus.dll dołącz przez referencję do projektu. 4. Stwórz w Excelu szablon z makrem, formatowaniem etc. 5. Kod zapisujący dane z tabeli będącej źródłem dgv do szablonu to (uwaga...) [syntax=csharp]using...
plik podzielony miałem z 5 zeszytów po ok 830 wierszy. testowo zaznaczyłem całość po zarejestrowaniu makra i w połowie zawiesił pamięć chciał kończyć lub debugować. Kolejno puściłem po około 100 wierszy rekordów excela i poszło ok. Niestety nie znam się VBA, nie znam w ogóle zapisów.
Właśnie wpadłem na takie rozwiązanie, miałem właśnie prosić o opoinię czy jest to poprawne rozwiązanie: ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, Notify:=False If ArkRoboczy.ReadOnly = True Then Set ArkRoboczy = ThisWorkbook ArkRoboczy.Activate End If Dzięki za zainteresowanie, proszę jeszcze tylko o odpowiedz czy konieczne jest : Application.DisplayAlerts...
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...
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
[syntax=vbscript]Sub ZapiszPDF() Range("A1:CP54").ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Wynik\" & [J6] & ".pdf" End Sub [/syntax]
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ć...
sprawdź . . .
Witam Aby zapisać w wskazanym katalogu i nazwą to spróbuj tak: [syntax=vbscript] ActiveWorkbook.SaveAs Filename:= _ "C:\Users\twojaNazwaUzytkownika\Document... [/syntax]
Witam mam taki nietypowy problem. Chciał bym aby excel sprawdzał mi czy wpisana fraza występuje w danej tabeli. A dokładniej: Mam listę składników leków. Kopiuje z netu skład rozdzielony kropkami. Robię z tego wiersz pojedynczych wpisów i chciał bym by excel sprawdził czy każda z tych pozycji występuje w mojej głównej liście składników na innej zakładce....
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
=JEŻELI(C6<>"";MAX(ADR.POŚR("a1:a"... Tylko przetransponuj sobie adresy odpowiednio. To sprawdzony zapis.
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.
... 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...
Zmiana dysku do lokalizacji co otwarty dokument ChDrive ThisWorkbook.Path Zmiana folderzu do lokalizacji co otwarty dokument ChDir ThisWorkbook.Path
Mogę jeszcze poprosić o pomoc A co mam zrobić :)
Witam! Wpisując formułę w arkuszu popełniasz gdzieś błąd, którego z oczywistych względów Tobie nikt nie wskaże nie widząc fizycznego wpisu formuły w arkuszu Excela. Równanie podstawowe funkcji zostało już napisane wyżej przez Kolegę Quarz , więc nie będę się powtarzał. Uzupełnię je jednak o przypadek przesunięcia fazowego: u = Um*sin((2*pi*f*t)±φ)....
Ok, ale na to trzeba wolnego czasu.
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.
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"...
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,...
Chodzi to, że nie możesz stosować zapisu Ai(n) wiem o co ci chodziło bo to jest zapis matematyczny ale Excel go nie rozumie...
Przy okacji trochę mi sie koncepcja zmieniła - gdybym musiał wykluczyć więcej niż jeden arkusz - to dałoby się? Można wykluczać arkusze, można też uwzględnić tylko te z listy... Wykluczanie generalnie można zrobić tak: - wykluczasz Arkusz1, Arkusz2 i Arkusz3, drukujesz pozostałe[syntax=vbscript]If ws.Name <> Arkusz1.Name And ws.Name <>...
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)
Witam, Czy udało sie rozwiązać problem z zapisem? Od kilku dni u mnie wystepuja identyczne objawy.
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ł
Dzieje się tak, bo w kodzie prawdopodobnie jest polecenie SaveAs.
trochę wywrotowo, ale czy nie warto byłoby zainstalowac np. OpenOffice T7?? słownik, nowa wersja, dobra pomoc... no i zapis jako XLS :-)
Zdarza się, że Excel nie trawi zapisu 'C:C' i trzeba podać zakresy precyzyjniej...
[syntax=vb]Sub zapisz1() numer = InputBox("Podaj numer kolejny") NewFilename = numer & "-2015 " & ".xls" ActiveWorkbook.SaveAs Filename:=NewFilename End Sub[/syntax] lub [syntax=vb]Sub zapisz2() ActiveWorkbook.SaveAs Filename:="FORMULARZE" & ".xls" End Sub[/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...
W pełni legalny
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 :)
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...
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...
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...
Jako ścieżkę i nazwę (z A1) podstaw[syntax=vb] Filename:= Environ("UserProfile") & "\Desktop\" & Range("A1") & ".pdf"[/syntax]
Otwórz plik na komputerze na którym działa. Jak się otworzy wciśnij Alt+F11 Jeżeli po prawej stronie nie widzisz okienka eksplorera projektów wciśnij Ctrl+R Odszukaj tam VBAproject(personal.xlsb) Naciśnij obok niego plusik (rozwinie się projekt) Otwórz "folder" modules "złap myszką" moduł w którym są twoje makra i przeciągnij na projekt twojego pliku...
Musi być wpisana wartość komórki nawet jeśli to ma być 0 wtedy excel sortuje. Dla Ciebie, rozwiązaniem będzie nadanie nagłówków nad każdą kolumną, klasycznie 1,2,3... przeciagnij, bez zbędnego zastanawiania się nad tym, wtedy funkcja sortowania "pomyśli" że pusta kolumna pod nagłówkiem jest wypełniona "0" i zadziała. Po sortowaniu przed zapisem pliku...
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
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"...
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
Powinieneś użyć funkcji ADR.POŚR: [syntax=text]=ŚREDNIA(ADR.POŚR("'Tabela z zapisami'!"&E1&":"&E2))[/syntax]
O ile z zablokowaniem "Zapisz jako" nie ma większych problemów (argument SaveAsUI w procedurze zdarzeniowej Workbook_BeforeSave) jeżeli możesz odpowiedzieć to jaki kod wpisać "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) End Sub" aby faktycznie zablokować możliwość zapisu jako?
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...
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]
excel zapis zapis pliku excel excel automatyczny zapis
kabel naczepy spadki klatek składowa zmienna
wybór telewizora wybór telewizora
Parametry serwisowe pieca Termet Silver: pełna lista Dysk non-RAID: Charakterystyka i Zastosowanie
