Żeby skorzystać z opcji FileDialog musisz dołączyć referencję do biblioteki: w edytorze VBA Tools->References i dać ptaszka przy Microsoft Office 11 Library albo jakoś w tym stylu
Witam mam problem z parametrami funkcji MID Jak podaję stałe parametry tzn: nazwa = Mid(Data, 2, 94) to jest OK Natomiast jak zaczynam majstrować przy drugiej zmiennej (a muszę) to wywala mi błąd "runtime error 5 or invalid procedure": wartosc = Mid(Data, Len(Data)-4, 12) Kombinowałem z deklaracją zmiennych na różne sposoby, nie mam innej procedury...
Witam serdecznie, Jestem nowym czlonkiem forum, natomiast posty sledze juz od dluszczego czasu. Sa mi niezmiernie pomocne przy programowaniu w ww. jezyku. Niestety dopadl mnie jeden problem, co prawda nie jestem swietnym ani zawodowym programista, lecz totalnym amatorem, wiec problem moze wydac sie banalny dlatego prosze o przebaczenie. Problem mam...
Witam. Zachwyciłem się programowaniem VBA i ulepszam swój arkusz kalkulacyjny. Bardzo przydała by mi się funkcja prezentowana w tym filmiku: Posty scaliłem, zamykam temat. RADU23
Aby wysłać żądanie na podany serwer użyłbym tego co tu piszą: Niestety nie mam możliwości sprawdzić czy to działa (nie posiadam aktualnie MS Office). Przy ruchu gracza w żądaniu przesłałbym potrzebne zmienne np. współrzędne pola na które gracz zrobił ruch. Skrypt PHP musiałbyś napisać tak aby odbierał przysłane zmienne i je gdzieś zapisywał np. do bazy...
Witaj marek003 ! No chyba aż tak źle nie opisałem zagadnienia bo zrozumiałeś w 100% :D. To co zaproponowałeś, przerobiłem już wcześniej, spadek wydajności był kolosalny. Dlatego chciałem wszystko zrobić w kodzie VBA, bez operowania na komórkach arkusza. Osiągnąłem już swój cel inna metodą. Zrezygnowałem z tablicy na rzecz zmiennej. Przekazywana ona...
Odwrotnie. Tak szczerze mówiąc to nie wiem jak się za to zabrać, a dokładnie żeby była zwracana zmienna o danym numerze z każdego wiersza następnie żeby został wybrany właściwy katalog o tej zmiennej. Jestem bardzo początkujący jeśli chodzi o VBA. Z góry dziękuję za pomoc.
widzisz gdzie albo jak mogę znaleźć zasady kiedy i jak używamy ' lub " Znakami " ograniczamy ciągi znakowe w programie. W ten sposób pre-procesor VBA (czy jak go nazwać) rozróżnia ciągi. Tak dla ścisłości - dla niego znak ' to początek komentarza :) trwającego do końca bieżącego wiersza programu. Znaki ' używane wewnątrz zdefiniowanych zmiennych typu...
Nie wiem w czym to pisane ale widzę brak logiki. przepisujesz po kolei wartości do usfOPE.txtjobcode.Value a co za tym idzie zawsze wpisujesz wartość z ostatniej instrukcji operującej na tej zmiennej czyli zawsze wpisujesz tam TextBox1.Value a chyba nie o to chodzi. Nie wiem też co te polecenie CASE mają robić. jakieś to dziwne. Powinieneś sprawdzać...
Nie sprawdzałem działania, ale: Błąd 1: nieprawidłowa instrukcja Rows.Count (x 1 Up, powinno być XLUP). Lepiej: FinalRow = Cells(Rows.Count, 1).End(xlUp) Lub FinalRow = ActiveSheet.UsedRange.Rows.Count Błąd 2: Pętla For. Jeżeli przypisujesz wartości zmiennej i , to: Next i lub (również prawidłowo) samo Next bez jawnego nazwania zmiennej....
Jeśli tego samego zakresu używasz w wielu arkuszach, zadeklaruj zmienną globalną i przypisz zakres. W arkuszach możesz używać tylko nazwy zmiennej. Przypisanie w pętli (wg. marek003) możesz zrealizować przy Workbook_Open.
Było już coś na ten temat, ale nie mogę znaleźć. Z tego co pamiętam deklarowało się zmienną globalną, przypisywało numer rekordu (Np przyciskiem na formie), a w kodzie formularza (instrukcja If) porównywało numer bieżącego [url=]CurrentRecord z wartością zmiennej.
Tak i to na kilka sposobów. Najprostsze, byłoby zadeklarowanie zmiennej globalnej typu Boolean, warunkowe uruchomianie procedury i makro z inputbox'em zmieniające stan zmiennej.
Zarejestruj jeszcze wyszukiwanie tekstu (Ctrl+f), zamiast 'Activate/Select' wpisz 'Column' i przypisz do zmiennej. Powinno wyjść coś takiego p.kaczmarek2 . Do tego obsługa błędu, w razie nieznalezienia, oraz różne takie mniej istotne...
Jeśli w tych plikach ".csv" jest dużo danych, dużo linijek, to nie będzie to najlepsza metoda (ten załączony kod z odczytem linijka po linijce) odczytu tych plików - zbyt długo będą one otwarte. Lepiej by było to odczytywać przy pomocy LOF, np.: [syntax=vba] Open sciezka & plik For Input As #1 zaw_pliku = Input$(LOF(1), #1) Close #1 [/syntax] lub [syntax=vba]...
With Arkusz1 jest dobrze, to jest nazwa kodowa arkusza. Na pierwszy rzut oka błędu nie widać. Ale nie widać też w którym wierszu ten błąd się pojawia. Wykonaj program krokowo i po ustaleniu miejsca błędu wykonaj jeszcze raz, zatrzymując się przed błędem i sprawdź wtedy co zawierają poszczególne zmienne. Np. Jaką wartość ma zmienna SelRow?
Witam. Jak wykonać pętle ( Do While ) albo jakąś inną do sprawdzenia poprawności podawanej zmiennej. Chodzi mi o to by sprawdzało czy podano liczbę jeśli nie to zwracało MsgBox " Podaj liczbę/cyfrę nie litery"
Witam. Czuć, że jesteś nie jasne powiedział. Najprawdopodobniej idziesz wzdłuż wierszy, ich numeracja w zmiennej. Sheet1.Cells(irow,10)=Sheet3.Cel... <niektóre_column>)
Oj, źle podpowiedziałem. Najlepiej przypisać do jeszcze jednej zmiennej. [syntax=vb]Option Explicit Sub KopiujAle() Dim fd As FileDialog, wkb As Workbook, test As String Dim shSrc As Worksheet, wrs As Long, kol As Integer, wrsDst As Long, wrsI As Long Set fd = Application.FileDialog(msoFileDialogOpen... Set shSrc = ThisWorkbook.Sheets(1) wrsDst = 2 'pierwszy...
Do komórek kazdego arkusza (ArkuszX) możesz się odwołać poprzez Sheets("ArkuszX").Cells(yy,xx). Dopóki identyfikacja po nazwie lub numerze arkusza ci wystarcza nie musisz go zapamiętywać w zmiennej.
Potrzebuję makro, które usunie mi cały wiersz Co stoi na przeszkodzie, aby kolega napisał sobie takie makro? Przykładów różnych pętli jest na naszym forum pod dostatkiem, usuwanie wiersza można nagrać rejestratorem, kod wstawić do pętli i podstawić zmienne. Metoda do wyboru: porównywanie każdej z każdą, lub wyszukiwanie (Find) W razie problemów z działaniem,...
Mam kod: [syntax=vb]Selection.AutoFill Destination:=Range("A2:A" & Range("E" & Rows.Count).End(xlUp).Row)[/syntax] Niestety gdy komórka E2 jest pusta formułę przeciąga mi w górę likwidując nagłówek To jeszcze pół biedy, ale gdy komórka E2 jest pełna, a E3 pusta to kod wyrzuca błąd i dalej nie jedzie. Można to jakoś naprawić ? Używam tego dla wielu arkuszy...
Cześć, Mam problem z tabelą przestawną, ponieważ dane jakie jej pokazuje są zmienne. Czy jest możliwość ustawienia takiego warunku żeby w filtrze zaznaczał tylko dwie wartości a resztę oznaczała jak False. Chodzi mi o tą cześć kodu poniżej: [syntax=vbscript]With PT2.PivotFields("status") .Orientation = xlPageField .PivotItems("CC_Należność uregulowana").Visible...
Twój kod, jak sugeruje nazwa, zwraca fragment tekstu. Potrzebujesz czegoś innego. Jeśli już znasz funkcję Mid , to nie powinno być problemów. Pętla, ilość kroków = długość stringu (Len), podstawienie zmiennej-licznika do funkcji Mid , porównanie do wzorca, dodanie do sumy jeśli zgodne... Coś na wzór: For MojStart = 1 to Len(MojTekst) If Mid(MojTekst,...
Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...
Witam, napisałem bardzo długie funkcje które następnie postanowiłem wpisać do makra. W vba nie można gnieździć funkcji wiecej niz 7 razy jak i długosc zmiennej moze wynosic tylko 255 znakow wiec dziele je na kawałki by później zlepić w jedno. Funkcja robi bardzo prostą rzecz: dodaje odpowiednie komórki z tablic w arkuszach jeśli w rzedzie 2 i kolumnie...
Pytanie na samym wstępie do kolegów z większym doświadczeniem i umiejętnościami - Jak najprościej, przy pomocy VBA, pozyskać z EXIF ".jpg-ów" 'niezaśmieconą' 'Datę wykonania zdjęcia' ? Wyniki wyszukiwania w sieci są niejednoznaczne, nie znalazłem tam tego, z czym się spotkałem - poniżej: I. Żaba ===== (Żaba z przykładu wyszukana w sieci frazą 'darmowe...
Przy odwołaniach, po kropce, powinna wyświetlić się lista właściwości i metod. Nie bardzo... Jeśli masz dodane referencje to obiektu to dla niektórych obiektów wyświetlane są właściwości i metody, ale nie dla "createobject(COS.Appliaction)" (pod warunkiem, że przekazujemy obiekt do zmiennej typu "Object" o czym później) gdzie COS to nazwa programu....
Witam, Zapętliłem się do tego stopnia, że mając prostą pętlę czytającą wiersze między skoroszytami, ni w ząb nie potrafię jeszcze ugryźć jak sądzę funkcji IF - dla podanego na wstępie warunku sprawdzenia (tutaj w przykładzie "cyfry miesiąca") i przepisania wiersza jeśli ten warunek został spełniony - jeżeli nie, kod ma czytać dalej aż znajdzie i kolejny...
To jest porównanie zmiennych, gdzie zmienna "kom" ma domyślną wartość "Value" i jest porównywana ze zmienną "MergeArea", która jest na tyle nieszczęśliwie dobrana nazewniczo, że ma tę samą nazwę co zastrzeżona w vba właściwość "MergeArea" ... :-) ... Skorzystaj nie tylko z właściwości "MergeArea", ale również z "MergeCells", która zwraca info o tym,...
Może być odpowiedź zamiast pomocy? Trochę mi ręce opadły przy tym kodzie. [syntax=vb]Sub Hyperlink(ByVal nr As String, Optional ByVal path As String = "C:\Users\XX\Desktop\test\") Dim name As String name = Dir(path & "*" & nr & "*") ActiveCell.Formula = "=HYPERLINK(""" & path & """,""" & name & """)" End Sub[/syntax] 1. Przypisywanie wartości do zmiennej...
... wartosc2 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N") '14 wpisów Te wartości trzeba wprowadzać ręcznie ? Mam ich w bazie ponad 30 - numerów oraz nazw ... Przecież miał to być tylko przykład :D ... pewnie że nie trzeba ... :D Do przejrzenia zmiany w " ini ", " dopisz_do_bazy " oraz " usun_z_bazy " 828986 :D Dla wielu...
Problem jest kiedy zamiast kiedy chce zwiększyć ilość danych do pobrania z 3 do 4 lub 5 Zmienna "r" to zmienna "pośrednio" wskazująca ilość "pobieranych danych". Jest to numer wiersza, od którego zaczyna się pobieranie danych z zeszytu "Dane.xlsx". Naturalnym jest to, że jeśli przy 20 wierszach, zaczniemy pobierać je od ... np.: r = 10 ... to pobierzemy...
Witam wszystkich odwiedzających forum, Proszę o pomoc w Excel a konkretniej w kodowaniu VBA Ikonka "MAIL" w załączonym pliczku Excel już mi działa, tzn. VBA wybiera i wysyła mi konkretnych adresatów maila, natomiast nie mam pomysłu jak sobie poradzić z tym moim podwójnym kopiowaniem Tabelki z podziałem na kolory o którym mowa w załączniku. Czy na forum...
treść ... również zmieniała się tak jak adresaci ... ... by jedna część tabeli (nagłówki) zawsze była stała a jedynie druga (dane) się zmieniały I. Brak przykładu obrazującego układ danych w arkuszu II. ' Mail_TG ' do poprawki: 1. Nazewnictwo pewnych zmiennych - tutaj ' rng '. ' Rng ' to właściwość obiektu ' Sort ' - nie stosuj jako nazwy zmiennej...
Używam od kilku lat skryptu z postu: Autora lanzul. Do tej pory było Ok. Wszystko. Ale od zeszłego roku Windows widzi problemy wszędzie gdzie ich nie ma. Wyskakuje błąd, że okno nie jest aktywne i skrypt nie chce tworzyć kolejnej części prezentacji. Ktoś ma pomysł jak się przed tym zabezpieczyć, poprawić? Mogę wysłać na priv, większą paczkę fotek (10...
Sprawa wygląda tak, że mam bibliotekę DLL, która sczytuje dane po porcie RS-232 z oscyloskopu i zapisuje je do excela. Nie mam żadnej dokumentacji do tej biblioteki za wyjątkiem programu w VBA pod excel. Chcę zaimportować tą bibliotekę pod Borlanda i używać jej normalnie w programie i tu pojawiają się schody. Niby biblioteka się importuje, ale nie sczytuje...
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
Co do zasad pisania kodu Jak już deklarujesz zmienne to powinieneś deklarować wszystkie. Zapomniałeś o zmiennej "mnoznik" i chyba błąd w nazwie zmiennej lastcell x Jeżeli potrzebujesz liczby całkowitej skorzystaj z operatora "\" a nie "/" lub z Fix(liczba) Czyli mnoznik = lastcell \ 10 + 1 lub mnoznik=Fix(lastcell / 10 + 1) Co do pętli niby założyłeś...
Przeczytałem. For Each v In Sheets(1).Range("K1:K20").Value to do zmiennej v będą przypisywane wartości komórek z danego obszaru i tym samym odwołanie v.Value zwróci błąd. Ale: [syntax=vb]For Each v In Sheets(1).Range("K1:K20") x = v [/syntax] Ma poprawną konstrukcję i w zmiennej x będziemy mieć wartość zmiennej v. Moja uwaga dotyczyła tego, że autor...
Witam! Mam problem z poprawnym działaniem mojego makra. Zadaniem makra jest skopiowanie zakresu danych z arkusza "faktura" do innego skoroszytu o nazwie rejestr2 arkusz "Rejestr". Kopiowane dane mają być wklejane do pierwszego wolnego wiersza. Poza tym trzeba sprawdzić czy faktura o danym numerze już istnieje w rejestrze. jeżeli istnieje to ma się wyświetlić...
Witam, potrzebuję makro, które będzie tworzyło nowe pliki Excela na podstawie kolumn z pliku pierwotnego. Jeśli w Zmienna 3 mamy X i w Zmienna 1 tak samo, to by makro nie próbowało już tworzyć pliku dla X po Zmienna 1, tylko według Zmienna 3 gdzie zakres jest szerszy. Specyfika jest taka że w Zmienna 1 może być wszystko natomiast jeśli Zmienna 2 jest...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Z mojego doświadczenia: Jeżeli kod jest króciutki, to rzeczywiście, można kichać deklarowanie. Kilka Variant'ów zamiast Integer'ów nie robi różnicy Ale, uwierzcie mi, szukałem kiedyś błędu w kodzie przez kilka godzin, gdzie winną była prosta, za to trudna do zauważenia literówka w nazwie zmiennej. Dopiero "Option Explicit" i mozolne dopisywanie deklaracji...
Mam taki problem. Chcę porównać dwie wartości - jedna wartość to czas obliczany z liczby za pomocą formuły w komórce Komórka A1 = wpisana wartość np. 6 - formatowanie komórki "liczbowe" komórka B1 - wpisana formuła "=A1/24" - formatowanie "Czas" - efekt 06:00:00 Teraz VBA wpisuje do komórki C1 wartość obliczaną wg kodu: zmienna_czas_komorka_A1= Cells(1,...
Witam, mam do napisania makro vba które przenosi wartość komórek z wybranego zaznaczeniem wiersza arkuszu PIR lub podanego wiersza (okno dialogowe podaj wiersz do exportu) z arkusza PIR do arkusza zaladunek (wybieramy zamówienie i exportukemy do druku załadunku). Wartości komórek do data (zamowienia, dostawy), nazwy (nazwa klienta, opakowania, produktu)...
Ja nie mam żadnego problemu wszystko jasne zanim napisałem na forum to widziałem te rozwiązania tylko nijak maja się do tego co potrzebuje ponieważ każde odnosi się do nazwy zapisanej sygnatury Nie obraź się, ale dalej nie jestem pewien czy rozumiesz przykłady które Ci podałem, a na dodatek tak zamotałeś problem, że właściwie nie wiem o co Ci chodzi....
witam, na początku chciałam zaznaczyć, że jestem nowa na forum i początkująca jeśli chodzi o pisanie w VBA, wiec z góry przepraszam, jeśli wybrałam jednak zły wątek lub kod się posypie czy cus;) Makro, które wykorzystuje musi odwoływać się do strony stooq.plz której pobiera dane dotyczące ostatnich 5 notowań spółek czyli adres www powinien się zmieniać...
chciałabym wstawić formułę z poziomu VBA, używając zmiennych już zdefiniowanych np Range(...).Formula="=MAX(R[3]C[-2]:R[16]... i chcę, żeby to zamienić na coś takiego: Range(...).Formula="=MAX(RaCb:RcCd)" gdzie a,b,c,d to zmienne, których wartości są liczbami. Czy da radę w ten sposób?
hmm... a nie było by łatwiej i przyjemniej (a napewno szybciej) gdyby użyć filtrów? [syntax=vb]Sub wyszukiwarka() Dim wartosc As String Dim zakres As Range wartosc = InputBox("Wpisz tytuł filmu, który chcesz wyszukać", "Wyszukiwarka filmów", "", 500, 500) Set zakres = Worksheets("filmy").Range("F4:F327") zakres.AutoFilter Field:=1, Criteria1:="=" &...
Witam Chciałbym Was bardzo prosić o pomoc w napisaniu algorytm/sposobu, który wydaję się w miarę logiczny i prosty do wykonania…Szukałem rozwiązania jednak nie mogę znaleźć nic podobnego. Poza tym moją wiedza z zakresu VBA jest chyba zbyt skromna. Dane, którymi muszę się zając to kilkaset wierszy wpisów w tabeli. Dane źródłowe wyglądają jak w...
Super :) wielkie dzięki! Moje pytanie - czy mógłbyś mi wytłumaczyć jak działa ta funkcja? chodzi mi o kolejne linie. Function Oraj(zakres As Range) 'wprowadzenie nowej funkcji nazwanej Oraj oraz zdefiniowanie zmiennej 'zakres' jako Range (czyli przedział wartości? więcej niż jedna wartość?) Dim kom As Range ' wprowadzenie kom jako Range For Each kom...
Jeszcze jeden drobiazg: wartość maksymalną masz w zmiennej. Zastanów sie czy musisz ją wogóle gdzieś zapisywać? Wtedy nikt jej nie zauważy, bo jej nie będzie. Może da się połączyć te dwa makra w jedno i wtedy powinno to być możliwe?
Dzień dobry! Nie znam się ni w ząb na programowaniu, a potrzebuję wykonać w Excelu szereg powtarzalnych czynności. Otóż: w kolumnie B, w każdym jej kolejnym wierszu, chciałabym zamienić wartość "x" na wartość "y". Wartość "y" będzie zmienna w zależności od od zawartości sąsiadującej komórki w kolumnie A, wartość x jest stała Np. w komórce B4 --> ciąg...
Cześć, W VBA jestem naprawdę początkującym, wiem, że jest, wiem, że są pętle, zmienne itd. Jednak za nic jeszcze nie potrafię tego przełożyć na praktykę. Chciałbym porównać dwa pliku. Stary oraz Nowy. W plikach Mam informację przykładowo Magazyn, Zamówienie, Ilośc, Komentarz: Chciałbym, aby Makro porównało po zamówieniu dwa pliki i te zamówienia, których...
No niestety, zrobiłam tak jak napisałeś, dodałam 'val' i nie uaktualnia się to tak, jak powinno :-(. Wczoraj znalazłam jeszcze świetny kod, jeśli obserwujemy tylko jedną zmienną czyli np moje PZ, niestety po dodaniu warunku dla drugiej zmiennej NZ kod już nie chodzi. Poddaje się, nie wiem, co nie gra. Przydałyby mi się porządne korki z VBA... [syntax=vbscript]Sub...
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....
Napisałem krótki kod w VBA, który tworzy mi historię edytowania każdej komórki z danego zakresu w komentarzu. Pokazuje też, kto wprowadził zmiany wraz z datą. Wszystko ładnie działa, tylko musi to być bardziej - że tak powiem - idiotoodporne :) ...i z tym mam problem, tzn.: 1. Jak już komentarz automatycznie się stworzy, to nie może być możliwości usunięcia...
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
W czasie korzystania z makra doszedłem do wniosku iż jeszcze jedna rzecz źle działa. Mianowicie po tych operacjach tekstowych - jak nic nie jest zaznaczone - miejsce zaznaczenia się zmienia i zakładka wstawia się nie w tym miejscu w którym miała być. (przede wszystkim jak nic nie było zaznaczone to przemieszcza się na początek i obejmuje te 4 słowa,...
Witam. Mam problem z makrem, które w Excelu ma za zadanie przenosić arkusze do nowego skoroszytu (każdy arkusz do odrębnego) i zapisać plik w podanej lokalizacji z nazwą tego przeniesionego arkusza. Na potrzeby tego zadania zarejestrowałem, a następnie zmodyfikowałem makro, które wygląda następująco: Sub Rozdziel() ' Rozdziel Makro Dim arkusz As Worksheet...
Nawiązując do tematu: Chciałbym, aby kod pobierał zadaną przeze mnie nazwę pliku lub folderu, szukał jej w folderach i podfolderach ze źródła. Na podstawie powyższego tematu wiem w jaki sposób się czytać nazwy folderów/podfolderów/plików. Poniżej przedstawiam kod do tego: Dodano po 4 Bardzo przepraszam za temat : ) Wystarczyło jeszcze chwilę pomyśleć...
W tym przykładzie ścieżkę do pliku określasz w zmiennej file_mrf. Tutaj wyświetlane jest okienko ze wskazaniem pliku, ale możesz też tej zmiennej przypisać konkretną wartość i nie pokazywać okna wyboru pliku. Odpowiada za to parametr "Connection" W linku poniżej masz opisane co i jak podać w parametrach.
Aby kopiować dane z kolejnych arkuszy trzeba je policzyć i wskazać w kodzie, o który nam chodzi (odwołanie). Najprościej realizować to w pętli For, gdzie zmienna-licznik to indeks arkusza. Tu mała uwaga: po zakończeniu działania procedury CommandButton1_Click identyczna wartość przechowywana jest w zmiennej globalnej plik i polu TextBox1 , w przykładzie...
Witam Mam makro która wstawia obrazek w określone miejsce w arkuszu i skaluje go. Problem polega na tym że jest na sztywno zdefiniowane z jakiej komórki ma pobrać adres pliku "Inf!A29" = C:\Documents\SNC00056.jpg i w jakie komórce jest zakres gdzie wstawić "Inf!H23" = A1:D10. Dal 5 obrazków musiał bym zdefiniować 5 takich procedur jak przekazać adres...
Witam, Czy można na formie dynamicznie tworzyć etykiety (Label), ListBox, ComboBox w zależności od zadanej liczby? Ta liczba zawsze będzie zmienna. Poniżej kod programu, który dla 5-ciu etykiet nazwanych Label1....Label5, wstawionych do UserForm, w pole Caption wpisuje odpowiednie wartości z Excel'a. [syntax=vb] Dim i As Integer ' zmienna pomocnicza...
Dzięki za odzew Moja wina bo trochę źle się zapytałem o to chronienie udostępniania. (jak człowiek trochę posiedzi z jakimś problemem to myśli że inni momentalnie odczytają jego zamierzenia) Docelowo chcę sprawdzać wszystkie "ochrony" skoroszytu excela. To udostępnianie o którym piszecie nie jest w moim rozumieniu ochroną bo poprzez zwykłe "odhaczenie"...
Założenie było takie, żeby kopiował wszystkie wiersze w których w kolumnie F była wartość "tak" ale w takiej formie kopiuje wszystko niezależnie od "<>". Założenie było w miarę dobre. Z realizacją trochę gorzej. Makro działa tak jak je napisałeś tj. porównuje wartość komórki F1 z wartością zmiennej nazwanej przez Ciebie nie . Jeżeli chcesz aby...
Właśnie w Access'ie jestem już całkiem zielony, miałem z nim do czynienia chyba w liceum ostatnio, a później nie był mi potrzebny więc poszedł w odstawkę, wszystko starałem się ogarnąć w excel'u. A co do 'informatyki' to przy rejestracji wpisałem, bo studiowałem informatykę tyle że raczej w kierunku grafiki. Ale wracając do sedna sprawy. Przeszukiwałem,...
Czyli jak rozumiem, w VBA nie za bardzo daje się upublicznić tablicę Ależ można tylko trzeba uważać gdzie się wstawia deklarację globalną bo to ma znaczenie. [syntax=vb] ' (powyżej Tablica) ' Deklaracja zmiennych i stałych ' Public Tablica() As Double ' (poniżej Tablica) ' Deklaracja funkcji itp. ' Sub Czytaj() ReDim Tablica(1 To 10, 1 To 10) For i...
Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...
Stostując taki sposób deklaracji zmiennych zmienną wiersz masz zadeklarowaną jako Variant, a zmienną i jako Integer. Do operacji na nieciągłym zakresie możesz użyć [url=(v=office.11).aspx]metody Union Twój kod można skrócić do poniższej postaci, nie trzeba zaznaczać komórek i przeskakiwać pomiędzy arkuszami, tylko od razu je kopiować. [syntax=vb]Sub...
Witam chciałbym określić zakres drukowania oraz miejsca gdzie zaczyna i kończy się strona przy w zależności od zmiennej. Po nagraniu makra pokazuje mi się następująca formuła [syntax=text]ActiveSheet.PageSetup.Print... = "$A$1:$G$65" Set ActiveSheet.HPageBreaks(1).Location = Range("A13") [/syntax] czym zastąpić "$A$1:$G$65" oraz Range("A13") żeby można...
Piszę na "ślepo". Nie ingeruję za mocno w twój kod, a w szczególności poprawność zastosowanego warunku w funkcji IF (nie mam po takim wyrywku wiedzy by to z sensem analizować) Zamieniłem zmienną "k" na zmienną "lp". (bo lepiej się kojarzy i przy okazji zastąpi zadanie dane zmiennej "k". Chyba o to chodziło? SDMduplikatZnalezione.AddItem lp linią: SDMduplikatZnalezione.AddItem...
Gdy chce aby oprócz EmplID pokazał mi imie i nazwisko to wyskakuje mi błąd? Pytasz się, czy stwierdzasz? Jaki błąd? Piszesz bardzo chaotycznie - dlatego nie za bardzo mogę stwierdzić o co ci chodzi. Podaj jakie masz pola w tej tabeli. Podaj co chcesz osiągnąć (na razie bez kodu). Wg mnie w kwerendzie drugiej masz błąd składniowy w samym SQL. Nie wiem...
W momencie wystąpienia błędu sprawdź wartość zmiennej 'i' i potem sprawdź komórkę o wartości wiersza zmiennej 'i' w kolumnie 'L'. Chodzi o zmienną 'dan4' - tutaj tkwi problem.
Cześć wszystkim, Coraz częściej przesyłam pliki, które musza być zaszyfrowane przy Użyciu hasła. Proces nie jest rudny lecz monotonny i chciałbym sobie ułatwić codzienną pracę. Może ktoś potrafi dokończyć następującą procedurę. Chodzi o to by przygotowany dokument 1) zabezpieczyć hasłem przy otwarciu na podstawie tego co zostanie wpisane w inputbox...
W razie gdyby komuś było potrzebne. Sub Nazwa_przycisku() Dim Nazwa_przycisku As Variant 'Deklaracja zmiennej, która będzie przechowywać ścieżkę pliku Dim FileFilter As String 'Deklaracja zmiennej, która będzie argumentem FileFilter FileFilter = "Pliki Excel XLSX (*.xlsx),*.xlsx," 'Tutaj podajemy łańcuch określający kryterium filtrowania plików Nazwa_przycisku...
Pod przyciskiem "Wybierz Zdjęcie" mam teraz kod : [syntax=vb] Sub CommandButton4_Click() Dim CommandButton4 As Variant 'Deklaracja zmiennej, która będzie przechowywać ścieżkę pliku Dim FileFilter As String 'Deklaracja zmiennej, która będzie argumentem FileFilter Dim FilterIndex As Integer Dim Title As String CommandButton4 = Application.GetOpenFilename(FileFilter)....
Czas nie gra roli ... Może się robić kilka dni nawet, jak trzeba ... Ważne, aby na końcu w Power Poincie było wszystko Gra, gra ... Wyniki: 1. Zrobione w bardzo prosty i schematyczny sposób 2. Zrobione w PPT ... ale w starym PPT 2k ... i w związku z tym mogą tu pojawić się błędy przy uruchamianiu w nowych Office'ach 3. Nie mam możliwości by sprawdzić...
czy można te dwa kody złączyć w jeden? Można, poprzez warunek If ... Else ... End If 42:305 ' ma działać kod nr 1 oraz część kodu nr 2 z wpisu nr 1, to trzebo go tam wsadzić, inna sprawa, że nie wiadomo skąd zmienna ' w ' bierze tam swoją wartość, skoro jest napisane, że: w = Target.Row ', to zawsze będzie to większe od " 0 ", nie ma bowiem wiersza...
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
Na wstępie: Mam błąd na linijce "lCnt = Mid(sTemp, i, Len(sTemp))" - "type mismatch" Możliwe przyczyny to: a) brak deklaracji zmiennej " i ", typu np.: " Dim i% " b) wartość w danej komórce ma "skomplikowaną" strukturę, typu np. " AU01_CDF125 " - po znalezieniu pierwszego znaku, który może być zamieniony na liczbę nie można na tęże liczbę zamienić reszty...
1. ... Chciałbym aby pętla opierała się na "numerze dostawcy" i po zmianie numeru na inny - początek nowej pętli. Pusta kolumna = koniec pętli. 2. ... działa, ale potrzebuję, aby obejmowało tylko dany "numer dostawcy". Po zmianie numeru na inny - start nowego macra. 3. ... Obecnie macro nagrywa mi całą zawartość tabeli ( tabela 1) Pkt 1 i 2 - Pętla...
Jeżeli wszystkie tabele masz w tych 100 arkuszach i masz je numerowane po kolei to wystarczy dodać nad tym formatowaniem pętle z dodaniem zmiennej dla nazwy tabeli: [syntax=vbscript] Dim NazwaTabeli as String Dim NumerTabeli as Integer For NumerTabeli = 2 to 100 ' Czy inny zakres jaki Ci potrzebny NazwaTabeli = "Tabela" & NumerTabeli '... Tutaj Twoje...
Zacznijmy od tego, żebyś nie traktował modułu vba jako nieodłącznego składnika excela powiązanego z nim zasadą "dopóki obrączka nam nie odpuści" - vba to tylko "doszywka" lepiej lub gorzej pracująca, zależnie od sytuacji i danych. To co dzieje się w kodzie modułu niekoniecznie musi odpowiadać temu co dzieje się bezpośrednio w arkuszu. Następnie, w pkt...
Witajcie Mam plik xlsm (załączam spakowany), w którym w arkuszu1 mam dużo danych – liczba kolumn jest zawsze ta sama (A do AD) ale liczba wierszy jest zmienna. Potrzebuję utworzyć nowy arkusz: „Arkusz2” gdzie będą dane (w identycznej formie jak w arkuszu1) zawierające w kolumnie X (gdzie są nipy) tylko te nipy które wypisane mam w...
Posiadam taki kod - z wyfiltrowanych danych tworzy mi się nowy skoroszyt, jednak bez zachowania formatowania tj. szerokości kolumn itp. Co należy zmienić, aby w nowo tworzonym skoroszycie formatowania były zachowane? [syntax=vbscript]Sub Podziel_na_skoroszyty() Dim wkNew As Workbook Dim shUnique As Worksheet Dim shData As Worksheet Dim intColumns As...
Tam i w moim kodzie, i w kodzie kolegi cały czas operuje się na komórkach adresowanych liczbowo. Po prostu powiel zmieniając odpowiednio wartości indeksów (zmienna, zmienna + 1, zmienna + 2 itd.). Mój masz o tyle czytelniejszy, że w zasadzie na tacy wyłożone, wystarczy skopiować. Kolegi kod za to jest szybszy, bo operuje na całym zakresie od razu i...
Hej Mam lekko zmodyfikowane makro, które pozwala mi specjalnie nazwać pliki w pierwszej kolumnie „xyz” która się potem kasuje z plików podzielonych więc może mieć plik inną nazwę niż zawartość docelowej 1-wszej kolumny, ale kurczę potem mam wąskie kolumny i muszę w każdy plik wchodzić i je poszerzać ręcznie do szerokości „zawartości” mimo, że w pliku...
1. Zmienne te muszą być liczbami, np. musi być: kol_pocz = 1 wiersz_pocz = 1 kol_fine = 27 ' (27 jest nr kolumny "AA") wiersz_fine = 100 2. "ZZ" - nie ma takiej kolumny (excel 97). 3. Makro to dla dużych zakresów będzie liczyło bardzo długo (musi przejść wszystkie komórki) 4. Należy usunąć wywołanie okien INPUTBOX i zmiennych z nim związanych (lub poprzedzić...
no dobra :) sprawdź ten kod 'Option Base 1 Sub sprawdz() Dim jest As Boolean Dim TabData() As Date Dim TabSp() As String Dim w_pierwszy As Integer Dim k As Integer Dim kD As Integer Dim kSp As Integer Set ark1 = Sheets("arkusz1") Set ark2 = Sheets("arkusz2") Set ark3 = Sheets("arkusz3")...
Witam, Z programowaniem w VBA miałem jak do tej pory bardzo mało styczności i dzisiaj takie coś mnie dopadło. Znalazłem skrypt, który czyta dane TCP/IP (urządzenie podpięte do routera, router do mojego komputera, na komputerze makro). Jako że nie znam składni VBA i nie mogę znaleźć tematu pokrewnego pisze na forum. Problem: - przy próbie uruchomienia...
Witam. Poradźcie Koledzy, w jaki sposób nr CommandButton'a zamienić na zmienną. Tzn. w procedurze wywołanej przyciskiem "CommandButton10" zmienna powinna mieć wartość 10 Z góry dzięki za pomoc
Do While Worksheets(1).Cells(Wiersz, kolumna).Value <> "" 'Tu rób co do ciebie należy lub nie rób nic Wiersz = Wiersz + 1 Loop W zmiennej "Wiersz" będziesz ostatnią sprawdzaną pustą komórkę. Zmienna "kolumna" <- tu podaj którą kolumnę będziesz sprawdzał
Co to znaczy że funkcja ma "ciągle zmniejszać wartość komórki"? Nie wystarczy zwykła funkcja typu: A1=B1-C1 ? Poza tym, w swojej funkcji nie definiujesz nigdzie zmiennej myRange przez co domyślnie jest ona równa 0.
Witam. Mam taki oto problem. Wszystko było by ok ale w excel-u nie da sie zrobić pętli warunkowej i trzeba skorzystać z VBA. Niestety już drugą noc ślęczę nad tym i nic... Chodzi o stworzenie pętli "Do Until ...Lopp" i bloku instrukcji w tej pętli. Analizując w excel-u zajmiemy sie kolumną B. Uzyskany wynik ma sie zawierać w przedziale B20 i B21 B20...
Witam. Jest taki problem. Robię odczyt z enkodera w mikroprocesorze używając przerwania do zliczania impulsów. Ilość zliczonych impulsów jest zapisywana w zmiennej alfa. Zmienna alfa jest przesyłana do PC przez port COM3 z prędkością 115200 bps. Dane na 100% dochodzą do portu i mogę je odczytać np. w LabVIEW. Jednakże, odczyt tych danych musi być w...
Dzięki za odpowiedź. Przeglądałem strony, na stronę do której podałeś link też trafiłem. Problem w tym, że dla mnie to zbyt skomplikowane. Tak jak pisałem nie jestem biegły, po prostu taki "samouczek" coś tam sobie od czasu do czasu prostego utworzę, coś w necie znajduję i próbuję przerobić na swoje potrzeby itp. Już czegoś o moim problemie (w tzw....
Rzucasz się od razu na głęboką wodę, mam nadzieję że już programowałeś wcześniej :) Są dwa sposoby rozwiązania Twojego problemu: 1. Przed wykonaniem UPDATE zrobić SELECT, i jeżeli nie zwróci on pożądanych wyników -> oznaczyć rekord jako nieistniejący w bazie. Sam czasami robię to w ten sposób: a. wykonać (z wykorzystaniem ADODB.Recordset) [syntax=vb]SELECT...