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")...
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...
Mogę jeszcze poprosić o pomoc A co mam zrobić :)
[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)...
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...
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.
Zainteresuj się SQLem w VBA. Do takich zadań nadaje się znakomicie.
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"...
AAAA... tablicówka. ok. Czyli dodaj tylko adr.pośr() i "zamknij" w tablicy.
Można spróbować taki plik PDF wczytać lub zaimportować do programu Corel Draw lub Adobe Ilustrator, jeśli nie będzie on jako "bitmapa" tylko rysunek wektorowy można spróbować go edytować w jednym z tych programów po czym zapisać w formacie DXF - AutoCAD. Taki plik powinno się dać zaimportować w programach CAM przeznaczonych do przygotowywania dokumentacji...
Być może masz przestawione przeliczanie z trybu automatycznego na ręczny. Kiedyś to się chyba klawiszem [F9] przełączało. W każdym razie od tego bym zaczął diagnozowanie. Pozdrawiam.
Nie znam książek, ale masz do dyspozycji internet.;) [url=https://www.google.pl/#q=excel+vba+... Niestety sam musisz przefiltrować śmieci...
Dziękuję za wsparcie ale mój stary excel nie rozpoznaje tego pliku Możesz zapisać go dla excela2003 ?
można to zrobić w 3 etapach 1. Przejdź do lokalizacji (ChDrive, ChDir) 2. przy pomocy funkcji Dir i FileDateTime zrobić listę plików 3. Sortuj listę malejąco po Data-godzina pierwszy na liście będzie plik, którego szukasz
[syntax=vbscript]Range("A1") = Val(TextBox1)[/syntax]
No, to prawie wszystko masz gotowe, tylko o funkcji CDate() zapomniałeś - "w polskich warunkach systemowych" FileDateTime() zwraca tekst, a nie podtyp daty z "Variant", jak napisane jest w pomocy podręcznej - łatwo to sprawdzić, np. przez "?TypeName(test2)" w oknie Immediate. Czyli porównujesz np.: tak: "If CDate(test) > CDate(test2) Then", chociaż...
Strzelam :) Czyli przeszukujemy zakres (tu zapisany w tablicy) [syntax=vb]Dim XlApp As Object Dim Tablica() As Variant Dim WymZloz As Long On Error Resume Next Set XlApp = GetObject(, "Excel.Application") Tablica = XlApp.Worksheets(1).Range("C5:C30") For i = 0 To UBound(Tablica) If WymZloz = Tablica(i) Then knyps = True Exit For Next If knyps And WymZloz...
Dzień dobry, Specyficzną cechą Excela, która na ogół jest uważana za zaletę jest to, że formuły w arkuszu są automatycznie przeliczane po każdej zmianie. Na poziomie arkusza można wyłączyć przeliczanie (tryb ręczny), ale w odniesieniu do całego arkusza, a nie poszczególnych komórek. Więcej można osiągnąć posługując się Visual Basiciem, ale Pan go nie...
Cześć, Potrzebowałbym jakieś rozwiązanie do pliku Excel, a mianowicie czy jest możliwość utworzenia takiego makra lub może jest jakaś opcja, gdzie będąc w pliku wpisuje dane, po zapisaniu i wyjściu z pliku, komórki z danymi blokują się, a po ponownym wejściu mogę kontynuować wpisywanie w wolnych komórkach, a te z danymi będą zablokowane do zmiany. Poniżej...
Niezbyt jasno sformułowałeś to pytanie. Co to jest wskazana kolumna? Jeśli chodzi o adres komórki, z którego chcesz odczytać literę kolumny jako String, to np. tak: [syntax=vbnet]Function LitKolumny(rng As Range) As String LitKolumny = Split(rng.Address, "$")(1) End Function [/syntax]Wywołanie w arkuszu byłoby np. [syntax=text]=LitKolumny(B4)[/syntax]wyn...
gdyż mam makro które tworzy mi CSV Napisałem na szybko takie coś: [syntax=vb] ''' <summary> ''' Zapisuje bierzący arkusz do pliku CSV ''' </summary> Sub SaveCSV() Dim R As Range Dim cmax As Integer Dim rmax As Integer Dim srow As String Dim fname As String cmax = Excel.ActiveSheet.UsedRange.Columns.Coun... rmax = Excel.ActiveSheet.UsedRange.Rows.Count.....
To w tym przypadku jak zapisać rn, czyli obszar poza zakresem?
Zlecę zaprogramowanie mikrokontrolera do obsługi czujnika piroelektrycznego Excelitas PYD 1798. Oprogramowanie może być wykonane dla Arduino lub STM32. Potrzebuję wyciągnąć dane z czujnika za pomocą mikro kontrolera i przesłać je do komputera za pomocą UART aby ostateczne zapisać je w arkuszu kalkulacyjnym (bazie danych) i zaprezentować na wykresie....
ścieżkę aktualnie otwartego skoroszytu zczytujesz tak: [syntax=vb]ActiveWorkbook.path[/syntax] Myślę, że dalej już dasz radę;) Jakby nie to pisz.
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...
Dzień dobry. Posiadam tabelkę z danymi, gdzie znajdują się także daty. Chciałem utworzyć formatowanie warunkowe, aby: 1. Jeżeli data jest większa od daty aktualnej (dzisiejszej) - komórki podświetlana jest na zielono. 2. Jeśli data jest z miesiącem i rokiem tym samym co obecnie (np. dziś jest 22.10.2018, komórki mają daty 31.10.2018) - komórki podświetlane...
Najprostszy sposób - zapisuj to w jakieś komórce excela. Przy starcie - odtwarzaj.
Spróbuj tak: [syntax=vbnet] Uzytkownik=Environ("UserName") ChDir "C:\Users\" & Uzytkownik & "\Desktop" ActiveWorkbook.SaveAs Filename:= _ ""C:\Users\" & Uzytkownik & "\Desktop\!Metalmex plik importu danych.csv", FileFormat:= _ xlCSVUTF8, CreateBackup:=False [/syntax]
[syntax=vbscript]q = Formularz.ComboBox_jako a = Val(Mid(q, InStr(1, q, "=") + 1)) Range("I" & Cells(Rows.Count, "I").End(xlUp).Row + 1) = a [/syntax]
activecell.Offset(0,1)
Hmm... Trochu w VBA już utworzone. Nadzieję, że wiesz, jak nacisnąć F1. Wieczorem będzie więcej, teraz trochę czasu. Na przyszłość - Ja przemianowany arkuszy: 1 -> Form1, 2 -> Form2, 3 - Dictr Dict ionary - Slownik PS Jeśli będą oceniane kilka dostawcy,co ma zrobić kiedy przycisk "Wydrukuj"? OCENA2 - Muszą być wypełnione wszystkie pola?
Makro najlepiej jest zarejestrować. W tej chwili na kompie nie mam excela więc nie mogę Ci go podesłać. najlepiej w załączniku zamieść to co masz zrobione to popatrzę na to. Ps Zamiast przesyłania punktów lepiej kliknij "pomógł" :D
Dobrze że chciałeś użyć funkcji tablicowej, tylko czego tak od razu się poddałeś. Poniższa funkcja powinna dać ci prawidłowy wynik {=SUMA(B1:J1*B2:J10*A2:A10)} Poniżej plik z przykładem, obliczeniami i sprawdzeniem.
Witaj, Nie korzystam z O2007 - jest dodatek dla Office 2007 pozwalający zapisywać jako PDF, ale go nie testowałem: http://www.microsoft.com/pl-pl/download/... lub bardziej uniwersalny, instalujący się jako wirtualna drukarka (umożliwia drukowanie z każdego programu do formatu PDF) - jest takich programów sporo, ja korzystam z dopdf...
Patrz post http://www.elektroda.pl/rtvforum/viewtop...
[syntax=vb] Sub Generuj() Dim i As Integer Sheets("Liczby").Select Randomize For i = 1 To 4 Cells(2, i + 1) = Int(Rnd() * 30) + 15 'B2:E2 Next End Sub Sub CommandButton2_Click() Call Generuj Range("F20").FormulaLocal = "=SUMA(B2:E2)" Call Mnozenie MsgBox "Oto suma: " & Range("F20") End Sub Sub Mnozenie() Dim Mnoznik As Single, i As Integer Mnoznik =...
Czy w sterowniku jest jakaś zmienna odpowiedzialna za zanik zasilania ? A co za problem stworzyć samemu marker typu BOOL w deklaracji VAR (będzie to zmienna ulotna). Po zaniku zasilania tego typu zmienne zawsze są zerowane. Na początku programu wykonujemy operację: IF bAfterReboot = 0 THEN (*tutaj zamykamy pliki*); bAfterReboot := 1; END_IF;...
zwróci datę jeżeli suma w kolumnie D przekroczy zadaną wartość. Jest niemozliwe wpisac date przy pomocy funlcji np.Dzis(), poniewaz jutro formula zwraca juz inna date. Dodano po 2 Nie może być użyte VB ani macro Już może ? Nie mogę mieć pliku z makrem. (Zabezpieczenia serwera pocztowego :) ). Makro które przesłałem służy do zobrazowania jaki cel chciał...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
dlaczego ograniczenie listy następuje dopiero po wpisaniu spacji Należy zmienić warunek porównujący stringi. Funkcja InStr szuka także wewnątrz. Np pamiętasz, że sala ma w nazwie "020" a nie pamiętasz początku. W przypadku długich ciągów metoda nie sprawdza się. Spróbuj [syntax=vb]If UCase(Left(lista(i, 2), Len(txtOpisSali.Text))) = UCase(txtOpisSali.Text)...
Albo dodaj sprawdzanie przed, by nie lecial przez wszystko. ;) [syntax=vb] Dim MyCell As Range Dim MyRange As Range Dim DuplicateFound As Boolean DuplicateFound = False Set MyRange = Intersect(ThisWorkbook.Worksheets("4").R... ThisWorkbook.Worksheets("4").UsedRange) With TextBox1 If Not .Text = "" Then For Each MyCell In MyRange If CStr(MyCell.Value)...
Dzięki, sprawdzę jutro i dam znać[/s]
Napisałem w Delphi program, który zapisuje zawartość tabelki do pliku XML, który jto format jest obslugiwany przez MS Excel. Jest tylk jeden drobny wałek: zamiast polskich liter w Excelu pojawiają się jakieś chińskopodobne krzaczki. Kiedy otworzę plik w notatniku, wszystko jest z polskimi znakami. Poprawiłem w Excelu te krzaki i zapisałem jako drugi...
dane masz w excelu tak? przed zapisanie do csv musisz zdefiniować obszar danych
Witaj, Powinieneś zapytać autora, co miał na myśli. Jako że treść nie jest jednoznaczna (a właściwie jest kompletnie niejasna) nikt Cię chyba nie rozstrzela, jeśli zinterpretujesz to w dowolny sposób :) Zakładając, że zarówno B30 jak i C30 są wypełnione można jedynie założyć, że wynik musi być jeden w A30. Czytając nasunęły mi się trzy warianty rozwiązania...
Witam, Mam dziwny problem z kodem w VBA. Próbuję przy pomocy kodu w VBA otworzyć inny plik(skoroszyt) aby pobrać dane do wyświetlenia w Combobox, niestety gdy dochodzi do próby otwarcia pliku wyświetlany jest komunikat błędu 1004 - pliku nie znaleziono lub ma inną nazwę. Jeśli napiszę tak: Workbooks.Open ("D:\Users\...\Documents\Nowy folder\xxx.xlsm")...
Dzień dobry, Można zdefiniować funkcję użytkownika działającą analogicznie do funkcji FORMUŁA.TEKST. Przykładowo treść funkcji można zdefiniować tak: [syntax=vb]Function TekstFormuły(kom As Range) As String TekstFormuły = kom.FormulaLocal End Function[/syntax] Argumentem funkcji jest adres lub nazwa komórki z formułą, wynikiem jest tekst formuły w wersji...
Witajcie, Szukam odpowiedzi od kilku godzin w necie i nie mogę rozwiązać pewnego problemu. Z VBA u mnie kiepsko. Czy jest możliwość stworzenia makra które automatycznie będzie tworzyło kwerendę z sieci WEB? Chcę by makro korzystało z linku zapisanego np. w komórce J1 tworzyło kwerendę sieci WEB. (link jest stworzony z danych kilku innych komórek i ulega...
Cześć, Potrzebuję wskazówek do utworzenia makra, które: - utworzy pdf o nazwie wskazanej w kom. Z1 - utworzy nowy folder o nazwie wynik (lokalizacja nowego folderu w tym samym miejscu co excel, lokalizacja excela zmienna) i tam zapisze w/w pdf. Z góry dziękuję za pomoc
Cześć, mam windowsa 11 i na nim apliakcję word. Zawsze otwierałam plik "ania" edytowałam go np. 1 min i robiłam zapisz jako "asia" automatyczne zapisywanie mam ustawione co 20min od jakiegoś czasu coś się popsuło i podczas krótkiej edycji po zapisaniu w obu plikach mam tą samą treść czyli np. edytuję "ania" zapisuję jako "asia" i w obu plikach jest...
zapisa prezentacji zapisa stacje radiowe zapisa numer telefon
seagate commands master schemat instalacji elementarz elektroniki
wkrętarka milwaukee wkrętarka milwaukee
Sharp LC-43CFE5100D – nie włącza się, czerwona dioda, uszkodzona pamięć Flash lub zasilacz Klasyczny telefon z klawiaturą – CAT B40, Hammer 5 Smart, Nokia 8210 4G – wysoka głośność i zasięg
