Źle definiujesz tablicę - tak nie można. Na początku tylko ją zadeklaruj: Dim tablica() As Double Następnie jak już makro przypisze wartość do zmiennej "wiersz" (wiersz musi mieć jakąś wartość) to dopiero wtedy ją przedefiniuj: ReDim tablica(1 To wiersz, 1 To 5) I dopiero wtedy z niej korzystaj - patrz przypisanie wartości do AA itd. I jeszcze jedna...
Wprowadzono małą literę w deklaracji zamiast wielkiej.
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...
witam mam takie pytanie mam nastepujacy kod 'Zmusza prekompilator do kontroli zmiennych Option Explicit 'Deklaracja zmiennych obiektowych Private ObiektExcelApp As Excel.Application Private WithEvents ObiektExcelArkusz As Excel.Worksheet 'To potrzebne, zeby dobrac sie do zdarzenia SelectionChange Private Sub Check1_Click() ObiektExcelApp.Visible...
Witam, Mam następujący kłopot. Pobrałem ze strony Urzędu Skarbowego deklarację (w załączniku). Wypełniłem odpowiednie pola i wyeksportowałem do pliku XML (w załączniku). Chcąc uprościć sobie pracę wypełniając deklarację raz w miesiącu pomyślałem, że zaimportuję plik do Excela wkopiuję nowe dane które generuje mi program księgowy w postaci tabelki w...
w Public nie moze byc zmienna sciezka(ActiveWorkbook.Path & ), tylko konstanty lub deklaracje funkcje Sprobuj tak[syntax=vb] Public Function sciezka() as String sciezka= ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & NazwiskoImie & "\" & NazwiskoImie End Function[/syntax] Lepiej umieścić kod funkcji do modułu, a nie w arkuszu kodu
duży problem z prawidłowym działaniem kodów napisanych przez poprzedniego użytkownika :?: ............... :| Rozpisałeś się tak "szczegółowo" o (nie)(działającym) "prawidłowo" kodzie, że "klękajcie narody" ... : ) [syntax=vbscript]a big Sub Question (problem As QuestionMark) If Something Not Work Then TakeTwoBeer Or Not TwoBeer And Do ItRight Loop...
Witam, posiłkując się przykładami znalezionymi w sieci stworzyłem makro wysyłające wiadomość e-mail z załącznikiem z poziomu Excela. Kod: [syntax=vb] Sub Mail() 'Deklaracje Dim oOutlook As Object Dim oEmail As Object sZalacznik = ThisWorkbook.Path & "\Test.xlsx" Set oOutlook = CreateObject("Outlook.Application") Set oEmail = oOutlook.CreateItem(0) With...
Czołem, Przyda mi się pomoc w przebudowaniu makra jakie posiadam. W chwili obecnej mam makro, które drukuje mi wszystkie dokumenty per filtr w raportu. Potrzebuje zamienić opcję drukowania na: 1)Otwarcie szablonu prezentacji 2)Aktualizację danych i wykresów per filtr tabeli przestawnej 3)Zapis jako prezentacji nazwš filtra z aktualnš datš (komórka z...
W momencie wyszukiwania w UserForm Daty w Listbox Pomijając kwestię wyszukiwania samej daty (odpowiedź już padła dwa razy), to: 1. Co to jest " myDate " ? Pojawia się w deklaracji, a potem od razu w funkcji "Format", nie ma żadnego przypisania, a więc tylko wartość "żadną" - "Me.ListBox1 = Format( myDate , "dd/mm/yyyy")" 2. Po co kasować pole listy...
W zasadzie wszystko miałeś dobrze (przynajmniej formalnie), z wyjątkiem liczby Pi, którą trzeba zapożyczyć z Excela. Dodałem tylko nagłówek i deklaracje (nie są konieczne, ale lepiej jak są, bo zabezpieczają przed niektórymi błędami). Algorytmu nie sprawdzałem, zresztą nie podałeś danych, a istotne są tu jednostki. Widać tylko, że zmienna Obr jest...
Variant, bo n jest zmienną. Long, gdyż p to kolumna wyczytałam, że tak powinna byc oznaczona. Sumy nie zadeklarowałam tylko określiłam ją jako =0, wylicza poprawnie, mimo wszystko trzeba ją zadeklarować? 'a', 'p', 'n', "Suma" - to wszystko są zmienne, różnią się tylko typem danych, które są w nich "przechowywane" - w dużym skrócie, 'Variant' to typ...
Jak macie zainstalowany MS konwerter z 2007 do 2003 to widać makro I tu jest mój problem. Na firmowym nie mam bo... konwerter jest do 2003 a używam 97 (firmowa oszczędność) :D Po powrocie do domu popatrzę jeszcze raz. Dodane: Unik jest kolekcją danych. W kodzie (mogę się mylić) jest tylko deklaracja. Zabrakło mi jej utworzenia. Add to metoda dodawania...
rozumiem że "As Single" to deklaracja typu zmiennej ... skoro u mnie bez tego działa to jaki jest domyślny typ zmiennej ?
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...
wyświetlanie określonego obszaru w formie Ja wiem, że na elektrodzie i ogólnie w sieci tak się właśnie pisze, ale językowo ten wpis pozbawiony jest sensu. "Form" nie jest słowem które powinno trafić do języka polskiego... Mówi się "forma czegoś" a w tym przypadku to przecież okno programu. No ale nic... czepiam się... Poniżej kod który robi coś w stylu...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
'zdefiniowanie ostatniego wiersza w arkuszu "Inne" OstatniWiersz = Sheets("Inne").Range("D65535").End(xlUp)... a właściwie Range D65535 definiuje mi maxymalny zasięg kolumny D ? , a 65535 jest to maxymalana ilość wierszy jaką potrafi "przetrawić" excel ? Range("A2:B5") - z tej podpowiedzi wnioskuję że można stosować zapis excela w makrach "excelowych"...
Witam Wszystkich; Za pomocą komendy Workbooks.Add tworzę nowy plik, chcę skopiować wszystkie arkusze z poprzedniego do nowo utworzonego. Próbuję zrobić to tak: [syntax=vb]Sub PRSONALZapisCustomerFile() ' Zapisuje plik estimate 'deklaracja zmiennych Dim wiersz As Long Dim z1 As Long Dim z2 As Long Dim myName As String Dim myPath As String Dim sh As Worksheet...
W edytorze vba (alt+f11 z poziomu arkusza) wejdź w "Tools\References" i zrób zrzutkę, "co tam jest właściwie zaznaczone ?" "As Excel.Range" to tzw. wczesne .... :) ... "snopowiązałkowanie" ... :) ... znaczy się ... "wiązanie", czyli na etapie deklaracji obiektu podajesz właściwe ID klasy danego obiektu, zostaje on wtedy "utworzony" na etapie kompilacji...
Cześć, mam makro, które generuje mi oddzielne pliki excel z numerem sklepu i teraz w tym samym folderze mam również plik " baza adresów mailowych"(gdzie mam kolumnę z nr sklepów i obok kolumnę z adresem mailowym sklepu i adresem mailowym kierownika). Chciałabym, żeby makro dopasowywało plik (po numerze sklepu) do odpowiedniego adresu mailowego i pod...
Zamiast & vbCr (jak w Ciebie) Treba & vbCrLf Ad 1) A treba ... treba :D ... z vbCrLf działa, jak należy ... ale ... wpisanie, na koniec makra, linijek z przypisaniem pustego tekstu do zmiennej ' bf ' i przesłanie do schowka ... 828024 Tak więc w schowku pozostają dla wścibskich 'nasze tajności' ... :D Ad 2) I pytanie jeszcze odnośnie deklaracji ' DataObject...
Mam skrypt ściągnięty z netu do konwersji w ekcelu słownie kwoty , niestety z błędem ( autor nie odpowiada). Błędnie konwertuje nst. liczby: 1000 - jeden tysięcy, 12000 - dwanaście tysiące, 13000 - trzynaście tysiące, 14000 - czternaście tysiące ( to samo z milionami, bilionami itp). Załączam skrypt i proszę szanowne forum o poprawienie i udostepnienie...
Po mojemu powinno być coś takiego. Sub ReadDataFromSheets() Dim colxls As New Collection Dim path As String, filtr As String, plik As String, i As Long Dim wynik As Long, SheetName As String Dim kom As Range, rg As Range Dim shAct As Worksheet, sh As Worksheet, wb As Workbook Dim p As Long path = ThisWorkbook.path & Application.PathSeparator...
dlaczego ta funkcja nie dziala?? Function norma(h As Integer)... Integer to liczba całkowita. Ty najwyraźniej operujesz na typie zmiennoprzecinkowym (Double). Czyli na wstępie: zmienna h musi być typu Double. Po drugie: deklaracja: [syntax=vb]Dim a, b, c, d As Integer[/syntax] nie robi tego czego się spodziewasz, bo deklaruje jako Integer tylko ostatnią...
Masz dwa sposoby 1. Zrób zmienną globalną (i ustaw jej wartośćw jakiejś procedurze startowej i już więcej jej nie zmieniaj. Powtórzę za jednym z portali: Zmienną globalną deklarujemy w nagłówku przed procedurami / funkcjami używając do tego jednego z dwu słów kluczowych: Private Public Dostęp do pamięci “Private” mają wszystkie makra w obrębie...
Witam, Proszę o pomoc w napisaniu makra, które będzie usuwało całe wiersze, w których data będzie starsza niż 2016-05-02 (kolumna z datą to kolumna B) we wszystkich arkuszach. Znalazłam na jakiejś stronie kod z pętlą, która przechodzi przez wszystkie arkusze, ale nie potrafię napisać kodu odpowiadającego za usuwanie wierszy. Proszę o pomoc :) Dodano...
Jeśli chodzi o "uformowanie" tabeli pod przyszły wykres, to tak bym to widział - przykładowy szkic algorytmu procedury formowania tabeli z danymi do wykresu: [syntax=edyc] Sub przygdantab() 'Deklaracje zmiennych wierszy, kolumn, indeksu tabeli 'Deklaracja zmiennych przechowujących nazwy arkuszy: "wejściowego", "wyjściowego", separatora daty 'Deklaracja...
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...
Szukając ... rozwiązań natknęłam się na ... Gdzie mam pytać, jeśli nie na forum? : ) ... można na przykład w przeglądarce forumowej się "popytać" ... : ) itd. Poza tym pojęcie pobrania danych "bez otwierania pliku" jest bardzo względne. Aby coś z danego zbioru dyskowego pobrać, zbiór ów musi zostać otwarty do odczytu, czyli musi zaistnieć cała procedura...
... Co do pytania czy odnajduje sie w kodzie, to w końcu sam go napisałem i dla mnie jest czytelny, choć wygląda na zagmatwany przez ilośc zmiennych i funkcji if, to spełnia swoja rolę idealnie ... ... Program działa bez zarzutu, tak jak pisałem wcześniej ... Wybacz mój "sceptycyzm", ale wątpię. W kodzie, który zamieściłeś (Sub KCKW): 1. Brak jest...
Zamieszczam jeszcze raz listing funkcji ze szczegółowym komentarzem [syntax=vbscript]Function Osobno(x As String) Dim ch As String 'znak w ciągu tekstowym Dim list 'formalna deklaracja zmiennej typu Variant 'która będzie pełnić funkcję tablicy wynikowej ReDim list(1 To Len(x) + 5) As String 'określenie rozmiaru i typu danych w tablicy 'tablica jest...
Cierpliwości kolego, wszystko wymaga czasu. Więc tak, doszedłem do wniosku ze caly problem nalezy rozwiazac od poczatku. Ruszyc baniakiem, wypic pare piw ( o papieroskach nie wspomne ), jak w kartach, dym piwo i przekleństwo:D. Efekt tej walki przedstawiam ponizej, a w zalaczniku przykladzik. Sposob edycji wynikow moze sie wydawac troche dziwny, ale...
"Jaki sens ma deklarowanie zmiennej obiektowej typu Workbook w obrębie jednego skoroszytu (jak wynika z Twojego kodu)?" Moja odpowiedź dla naszego początkującego kolegi ma mieć walory edukacyjne, dlatego zastosowałem taką konstrukcję. Może się wydawać trochę bez sensu w tak prostym przypadku, ale przy złożonych aplikacjach mających setki może tysiące...
Jak najbardziej należy się uczyć i VBA ale z kolei nie wszystko na raz. Piszesz że słabo znasz excela (funkcje) a chcesz się brać od razu za VBA. Można ... tylko boje się że się wcześniej zniechęcisz całkowicie do excela nie tylko do VBA (tym bardziej jak nie miałeś do czynienia z jakimkolwiek programowaniem). Poniżej kod i przykład który za przyciśnięciem...
:) Jak mogły Ci się nie sprawdzić INDEKS, SZUKAJ.PIONOWO ? (tablicowych nie potrzeba) Wykorzystaj np. poprawność danych z listą. I stwórz własną nazwę z wykorzystaniem PRZESUNIĘCIE() by wybierało ci odpowiednią listę pracowników. A reszta to właśnie indeks, wyszukaj.pionowo poziomo i podaj pozycję. Jeżeli chcesz namacalnego przykładu załącz plik excela...
Cześć, Przyda mi sie pomoc przy skrypcie vba. mam excela ktory ma się zapisywac pod nazwą pobieraną z komórek "b1" & " " & "b2" & "" & "b3" Plik pod ta nazwą potrzebuje wysłać jako załacznik. Plik się nie zapisuje i nie wysyła. Proszę o pomoc. Dodano po 1 doszedłem do wniosku że problemem moze być to, że w nazwie pliku nie dodaje rozszerzenia pliku...
wVBA w referencjach zaznacz OutLook biblioteki, to również jest programowany z VBA. Niestety nie ma wersji 2013. Google czy nie spróbować? Dodano po 4 [syntax=vb]'Deklaracje zmiennych Dim oOutlook As Object Dim oEmail As Object 'konstruktory Set oOutlook = CreateObject("Outlook.Application") Set oEmail = oOutlook.CreateItem(0) 'wylaczenie obslugi bledow...
Dziwny błąd importu z Excela do Access 2016? - Pole w tabeli MS Access ma typ tekst krótki (255). Gdy importuję dane z Excela, to okazuje się, że wszystko zależy jaki typ jest w pierwszym wierszu. Jak jest tekst to wszystko OK, ale jak jest to liczba to wywala błędy konwersji dla tekstu w innych wierszach! W Excelu wstawiam w pierwszym wierszu apostrofy...
Proszę o pomoc związana z ListBoxem i pobieraniem wybranej pozycji z listy do ustalonej komórki oraz wyświetlaniem tej pozycji również jako 4 kolumny, jak to jest w pierwszym. Mam stworzoną tabelę z 4 kolumnami, która jest wczytana do pierwszego ListBoxa. ListBox ustawiłem tak, aby wyświetlał 4 wczytane kolumny i wszystko gra. Problem pierwszy pojawia...
Cześć Ad 1. Czy dobrze rozumiem, że ten problem nie występuje na nowo zainstalowanym komputerze? (sam system operacyjny)? Ad 2. JAkiej używasz wersji językowej - ustawienia regionalne? co separuje Ci średnikami - kolumny czy dane w formułach 1. Win 98 + Office2000 + Zone Alarm + AVG to pierwsze instalowane programy czasem młodsi doinstalowywują jakieś...
Tak się jeszcze raz wtrącę :) Randomize włącza generator liczb losowych VB. Wszystko będzie OK dopóki to makro działa w Excelu (nawet deklaracja zmiennej i nie jest tu konieczna)
To ja poprosze o scan deklaracji zgodnosci wydany przez uke na unidena... jestem ciekaw czy takie istnieja. Powtarzam scan a nie ustne zapewnienia :) ... To się nie doczekasz. Widać nie miałeś czasu lub chęci by zapoznać się z podstawowymi przepisami i aktami prawnymi regulującymi te sprawy. Do wystawienia deklaracji zgodności uprawniony jest jedynie...
Trochę poprawiłem kod UserForm6 (załącznik). Przetestuj, daj znać. wpisuje mi do arkusza w/w liczbe zaokrągloną do 8 zł ? W deklaracjach t3 As Currency
Witam, jestem początkujący w VBA i mam problem, otóż potrzebuję w pracy zrobić makro do excela wykonujące określone czynności. W załączniku dołączam plik excela z dwoma arkuszami, z których pierwszy to arkusz na którym chce pracować i robić obliczenia, a drugi to tabela z punktami. Dołączam również początkowy kod który udało mi się jak do tej pory napisać,...
A czy istnieje coś takiego w open office jak nagrywanie makra? Jeżeli jest, to włącz nagrywanie, zaznacz cały arkusz naciśnij del i wyłącz nagrywanie a później spójrz na zapisany kod. Czy nie jest podobny do tego: Cells.Select Selection.ClearContents Skoryguj różnice. Na marginesie ten kawałek kodu ma za zadanie wyczyścić wcześniejszą zawartość arkusza....
Dzień wczorajszy - dla dnia jutrzejszego wstawiasz oczywiście " + " =DATA(ROK(DZIŚ());MIESIĄC(DZIŚ());DZIEŃ(... Czemu chcesz skomplikować tak prostą formułę? Przecież wystarczy: =DZIŚ()-1 Działanie to samo. Nie uważam aby taki zapis cokolwiek komplikował - jest ściśle określone jakie wykonać działanie na dacie. a = Now() b = Year(a)...
Dodaj deklarację arkuszy przed .Cells, np. ActiveChart.SetSourceData Source:=Sheets("Arkusz1&quo... 1), Sheets("Arkusz1").Cell... 2)), PlotBy:=xlColumns
1. Odświeżanie ekranu koniecznie włącz na końcu. 2. Skąd uruchamiasz makro? Prawidłowo: procedura w module, z formularza wywołanie (mowa o Excelu, czy arkuszu Excela w VB?) 3. Deklaracje: Dim i As Integer, j As Integer, tabl As Variant 4. Coś mi tu nie gra. Za dużo tych warunków (liczenia w związku z tym), albo czegoś nie dopowiedziałeś... 5. Dlaczego...
I nie zadziała. Zabrakło drobnego szczegółu. Sub procedurka(Target) ... ... call procedurka(Target) ... Po zmianach powinno hulać. W pierwszym wierszu możesz jeszcze zadeklarować czym ów Target ma być. Popatrz na wzór deklaracji: Private Sub Worksheet_Change(ByVal Target As Range)
Polecam zaprzyjaźnić się z debuugerem. Pomaga na zgryzoty :D Wstawiasz break ("czerwone kółko") na początku obu funkcji, ale nie przy deklaracji zmiennych (klikając na szarym polu po lewej stronie kodu). Potem robisz jakąś akcję w excelu, np. zmieniasz arkusze, i kiedy program zatrzyma wykonywanie w zaznaczonym miejscu, wciskając F8 przechodzisz kolejne...
Jeżeli dobrze rozumiem to koledze chodzi o wyszukiwanie frazy w plikach które są zamknięte i leżą gdzieś w katalogu. A to nie to samo, co szukanie w pliku już otwartym. Option Explicit 'Deklaracje 32-bit API Declare Function SHGetPathFromIDList Lib "shell32.dll" _ Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath...
Rozumiem i postaram się pomóc w miarę swoich umiejętności ;) Widzę, że wiesz już jak wygląda edytor VBA. Otwierasz go sobie i w okienku projekt wybierasz nazwę pliku na którym będziesz pracować. Niech to będzie Twój przykładowy plik "Moje.xls". Następnie klikasz na "Wstaw >> Moduł". W nim tworzysz swoje makro: [syntax=vb] Sub Przenies() ... End...
Wyrzuć deklarację tablicy i przypisanie rozmiaru (ostało się), linia: i = i + 1 też niepotrzebna...
Możesz też użyć takiego zapisu, chyba częściej spotykany, tylko należy pomiętać o dolarach w adresie komórki: Overflow . Możesz użyć typu Long, co znacznie rozszerzy ten zakres, lub nie deklarować ich w ogóle / zadeklarować je jak Variant, pozwalając kompilatorowi (?) samemu dobrać odpowiedni typ. Teoretycznie będzie to mniej wydajne niż bezpośrednia...
"Nie działa" bo okienko inputbox'a pomimo tego że wpiszesz cyfry/liczbę zwraca ją jako tekst . Wstaw za kodem: W takim rozwiązaniu jeżeli liczbowa nazwa asortymentu będzie równa starej cenie to nazwa takiego asortymentu też zostanie zamieniona na nową cenę. edit: ----------------------------------------... Dla zasady poprawności kodu zmień w deklaracji...
czy za tem panie "laik" tak to mialoby byc? No nie do końca. Pisałem o jednej a zostały po dwie linijki. :D Nie wyrzuciłeś deklaracji zmiennych, których i tak już nie używasz. Pozostawiasz po sobie zbędny bałagan. :cry: zastanawiam sie jakby wygladala JEDNA funkcja ktora zawierala by w sobie te trzy razem Czyżbyś nie czytał tego co Ci koledzy podpowiadają?...
Znaczy od początku. Gdybyś mógł zapisać plik w formacie starszego Excela to (przynajmniej mnie) będzie łatwiej. W OO makra nie do końca chcą działać a nowym Excelem nie dysponuję. :cry: A teraz do tematu. Co nie działa? Na pierwszy rzut oka bez uruchamiania to wystąpił drobny problem z tablicą (znaczy z jej deklaracją). W VBA zapis: [syntax=vb]element(6)[/syntax]...
U mnie w programie to wygląda tak Wiem jak masz zadeklarowane zmienne bo otwierałem plik. Stąd moja uwaga. Kiedyś mądrzy ludzie znający się na rzeczy napisali w uczonych dziełach na temat Excelowskiego VBA, że deklaruje się każdą zmienną osobno określając jej typ. W innych językach jest inaczej, a tu jest tak i nic na to nie poradzisz. Więc jeszcze...
Należałoby jeszcze zabezpieczyć kolumnę C przed wpisaniem liczby >59, ale to zostawiam już Tobie. Edit: Przyjrzałem się jeszcze raz. Zmienna 'wk' jest niepotrzebna (pozostałość po kombinacjach). Wyrzuć z deklaracji, a ostatnia linia powinna mieć postać: 'CzasMinus = dt + TimeSerial(godz, mn, 0)' (załącznik podmieniłem)
Najprościej będzie jak w załączniku. Wpisałem tam ze trzy przypadki, resztę dopisz wg wzoru. Pamiętaj o powtórzeniach po Or. Czyli if nazwisko="kowalski" And zawód="księgowy" Or nazwisko="kowalski" And " miasto="Warszawa" dla nazwisko: "Kowalski" >oraz> zawód: "księgowy" >lub> miasto: "Warszawa" Lub rozbij na dwa poziomy: if nazwisko=:kowalski" then...
mam makro ktore dzieli komorke na 2 po ktoryms znaku Zanim zaczniesz dzielić, zamień na String. Zadbaj, aby wyniki po podziale również były typu String (deklaracje) i nie będzie kłopotu.
Cześć, Piszę aplikację która łączy się z plikiem excel i dokonuje w nim zmiany. Jedną z funkcji jest update. Funkcja wygląda w następujący sposób: Problem polega na tym że do zapytania muszą przesłać wartość id. Próbowałem na wiele sposobów i za każdym razem na moje zapytanie dostawałem informacje że nie wszystkie parametry zostały podane. Myślałem...
Gdyby jednak chodziło o zmianę nazw zakładek na numery stron, które widnieją na danym akruszu to innego spospbu niż VBA nie znam. Poniżej taki "na kolanie" poglądowy kod do zmiany nazw wszystkich zakładek. Bez deklaracji i optymalizacji: [syntax=vb] Sub PrzemianujZakladki() pierwsza_strona_na_arkuszu = 1 For Each wrk In ThisWorkbook.Worksheets ilosc_stron_na_arkuszu...
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...
Masz racje, to była czysta złośliwość. :) ale bez epitetów. (jeżeli są jakieś to przepraszam to nie było celem). bo nie wszyscy po wrzuceniu do wody wypłyną pomimo deklaracji że mają kartę pływacką. Ale przyznaj że z pomocy excela nie skorzystałeś. Tu wchodzi "doświadczenie" z bycia na forach. Ktoś pisze że np. jest informatykiem, więc nastawiasz się...
Zdaje się, że próbujesz oprogramować nie to zdarzenie pola kombi. Interesuje nas zmiana wartości w polu, nie kliknięcie w nie. W Twoim przykładzie Nr indeksu pasuje do tabeli, z której pobierasz dane (RowSouce), więc nie ma problemu z przypisaniem i tak zrobiłem w załączonym przykładzie. Zwróć uwagę na deklarację zmiennej publicznej i przypisywanie...
Zapis:[syntax=vb]Private Sub Worksheet_Change(ByVal Target.Address(0,0)="A1" As Range)[/syntax] jest oczywiście błędem (jest zresztą w edytorze VB wyświetlany czerwoną czcionką). Target jest zadeklarowana jako zmienna typu Range, i jest odwołaniem do aktualnie zmienianej komórki. W deklaracji zmiennej nie ma miejsca na przypisywanie jej wartości. Właściwie...
Tak "na oko" 1. Usuń deklarację. Kontrolka formularza nie może być zmienną. 2. Czy "Sheet2" to nazwa kodowa arkusza? 3. Takie coś Debug.Print i oknie Immediate (Ctrl+G) nawet nie wspomnę ;)
Zmień deklaracje zmiennej iRw na long.
Witam Mam za zadanie napisać kod do automatycznego tworzenia tabeli przestawne w VBA. To udało się bardzo łatwo... Jednak problem pojawił się w momencie dodania opcji uzupełnienia tabeli źródłowej o dane z innego arkusza. W momencie tworzenia tabeli wyskakuje błąd VBA6.dll dla office'a 2007. bez tego kod kompiluje się normalnie PT.AddFields RowFields:=Array("Użytkownik"),...
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...
OK, ale zrobiłem drobny błąd. Powinno być ~12 minut. Nooo, to "tylko" 3 zwrotki "Szła dzieweczka" :)
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Zdecydowanie obstawiam przekazanie nazwy. W przeciwnym wypadku sprawdzane będą wszystkie kontrolki. Można ew. sprawdzić typ w instrukcji warunkowej (powinna być deklaracja 'Dim chb As Control') [syntax=vb]If TypeName(chb) = "Checkbox" And chb.Value Then[/syntax]
skąd znacie te komendy które się wpisuje Z elektroda.pl :) Jeśli nigdy tego nie robiłeś... OK, podpowiem Deklaracje (wklej na samej górze)[syntax=vb]Dim operat As String, Cyfra_Pierwsza As Boolean Dim walor1 As Variant, walor2 As Variant, cyfra As Variant[/syntax] Procedura wspólna (wklej pod spodem)[syntax=vb]Private Sub Test() If Cyfra_Pierwsza =...
Tak na pierwszy rzut oka - źle używasz tablicy dynamicznej. Deklaracja OK, ale przed użyciem musisz nadać jej jakąś wielkość (ReDim), wielkość tą możesz później zmieniać używając dodatkowo słowa kluczowego Preserve, aby przy zmianie wielkości zawartość tablicy nie została utracona - zobacz np. tu:
Potrzebuje programu na zmiane liczby na slowo w vba. Wiem zarowno w necie jak i u was na forum byly podobne watki z zamiana kwoty na slowo, ale chodzilo o to zeby nie bylo wlasnie tego zloty/grosz a dodatkowo ma byc to procedura a nie funkcja. Mam cos takiego jak ponizej. Kod dziala jednak jest tam pelno smieciowego kodu, ktorego nie umiem zmienic gdyz...
Alert nie ma znaczenia - błąd musi być gdzieś indziej. W jaki sposób masz "zorganizowaną" poprawność danych? (przydałby się przykład) Czy to jest lista wpisana z ręki w "samej deklaracji" poprawności? Czy to jest lista z odwołania do listy w arkuszu? Czy to jest lista ze zdefiniowanej nazwy która z kolei odwołuje się do jakiegoś zakresu? A jeżeli jest...
Rzeczywiście - nie tu deklaracja początkowych zmiennych a i b Tak powinno być [syntax=vb]Sub trzeci() Dim a As Double Dim b As Double Dim c As Double 'Worksheets("dane").Select 'Start przeszukiwanych kolumn c = 1 While Len(Cells(1, c).Value) > 0 'Jeżeli nagłówek kolumny jest "cena" to wykonaj If Cells(1, c).Value = "cena" Then 'Start tabeli a = 2...
Pewnie nie masz deklaracji w module funkcji z biblioteki 'user32'. Moja świetna myszka nie ma przycisku pod kółkiem. Sprawdzałem drugi przycisk i to działa, ale jest upierdliwe, bo gryzie się z menu kontekstowym. Dla testu podstaw ten kod w module arkusza (nie zapominając o zawartości 'Module1'): [syntax=vb]Private Const Przycisk = &H2 'PPM Private...
Pozwolę sobie odpowiedzieć: zmień deklaracje typu zmiennych i będzie ok. Dim Nazwa_1 As Integer Dim Nazwa_2 As Integer Na Dim Nazwa_1 As String Dim Nazwa_2 As String Integer to liczby całkowite a String to ciąg tekstowy do którego też można zaliczyć "wizualnie" liczby (czyli liczby i cyfry jako tekst). I jeszcze jedno jak zmienić aby nazwy arkuszy zmieniały...
Witam, temat będzie dotyczył mojej wyszukiwarki. Dzięki Waszym uwagom udało się zrobić to, co chciałem. Natomiast teraz próbuję napisać formularz, który będzie dopisywał nowe filmy do już istniejącego arkusza. Na ten moment proszę jedynie o nakierowanie mnie jak do tego podejść (jakich funkcji użyć i co po kolei). Formularz już mam, deklarację zmiennych...
Przyznam że nie wiem jak pomóc przy takiej deklaracji: "Jestem laikiem w excelu ale mam stworzyć listy rozwijalne i to druga warunkowana pierwszą" To coś w stylu: nie umiem jeździć samochodem ale muszę za ojca tramwaj na bazę odprowadzić :) - Jak tu pomóc. Wracając do tematu: Jaka to ma być lista rozwijalna? (czy zrealizowana poprzez sprawdzanie poprawności...
Na co mi przyszło. :not: :) Poniżej troszeczkę jeszcze zmieniony (uporządkowany) kod kolegi PRL (bez urazy - wiem że łatwiej korygować niż tworzyć). Wyeliminowałem skakanie po arkuszach (select) - może to trochę jeszcze przyśpieszy działanie. Dodałem (za autorem topika) okienko z informacją o klientach bez "Wykonania". Ponieważ jestem ze "starej" szkoły...
Deklarację zmiennej wrs umieść w nagłówku i dodaj usuwanie... Coś w ten deseń [syntax=vb]Dim wrs As Long Private Sub EMAILONE_Click() 'MsgBox "i tu przepisujesz odwrotnie niż wczytanie przy Initialize" & vbNewLine _ & "czyli najpierw Find w razie poprawki a jeśli Err>0 to do ostatniego wiersza" With Sheets("DANE_PRZETWORZONE") ostatniwiersz1 = .Range("A65536").End(xlUp).Row...
Czesc wszystkim, Czy ktos bedzie w stanie pomoc mi z optymalizacja kodu vba? Sprawić by byl on czytelniejszy. Oprócz tego potrzebna jest mi pomoc w dodaniu do kodu vba 2 rzeczy: - w zależności od wersji offica musza się dodac odpowiednie wersje biblioteki outlooka - plik musi sie zapisywać i szyfrować z hasłem Plik będzie udostępniany w formie szablonu,...
Witam Mam takie makro. W kolumnie A w arkuszu są wpisane nazwiska . 1-Zadaniem makra jest wyszukanie wszystkich takich samych nazwisk i wyświetlenie ich . 2-jeśli jest pusty wiersz w kolumnie ; to ma przejść do następnego z nazwiskiem 3- jeśli są trzy kolejne puste komórki to makro ma się zakończyć Teraz makro szuka, ale zatrzymuje się jak jest puste...
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
Witam, Mam problem - otóż próbuję stworzyć makro które wykonuje mi tabelę i wykres przestawny dla zmiennych danych źródłowych które znajdują się w innym arkuszu. W innym arkuszu mają być generowane wykresy przestawne - jeden po drugim. Jeden wykres przestawny mi się generuje ale teraz poszukuję kodu który automatycznie wynajdzie mi powiedzmy 5 wolną...
Po pierwsze. Jak poszerzasz dane to pamiętaj o poszerzeniu sortowania (do kolumny G): ">0" i zrezygnować z pętli. Chyba że: 1. "kod" może wystąpić dwa razy i wtedy też ma się pojawić dwa razy "zwrot..." 2. "Kod" może pojawić się po 10 znaku i wtedy jest "nieważny" Poniżej wersja 2 ale bez pętli (wycinam fragment tekstu - 11 znaków dlatego że kod jest...
Spróbuj z metodą GetObject, (v=vs.90).aspx tu jakieś przykłady użycia:
Chciałabym aby moja funkcja zwracała trzy wartości jako tablicę jednowymiarową. Czy jest to możliwe? Chodzi mi konkretnie czy mogę zadeklarować wartość zwracaną podobnie jak przy deklaracji zmiennej (dim i% (0 to 3)) Pozdrawiam.
... Czy moglibyście mi doradzić w czym najlepiej zrobić taki kosztorys co zrobiłem w Excelu? Pojawiły się tutaj propozycje aby baza była w Accesie a budowanie kosztorysu w Excelu?... Na razie część odpowiedzi w excelu właśnie ... :) ... : 838523 Zmiany: 1. Dodane zależne pola list, według załączonego obrazka 2. Dodane dodatkowe menu " KOSZTORYS " w...
... mam problem z funkcją wyszukaj pionowo (chociaż wydawało mi się, że ją znam). Funkcja powinna zwracać wartość z kolumny c jeżeli kolumna A i B są równe, czyli sprawdzam, czy w kolumnie B znajdę wartość z kolumny A jeżeli tak to wpisuję wartość z kolumny C. Ale niestety nie działa :( nie mam pojęcia dlaczego ... Funkcja ma ogólną postać: WYSZUKAJ.PIONOWO(szukana_wartość;...
Co zrobić, aby po po zmianie wartości w kolumnach 5,6,7,8; Data i godzina w kolumnach B i C pozostała niezmieniona. Odpowiadając tak na "sucho" ... trzeba do kodu dodać coś takiego: Wariant I If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Then " można skrócić do " If Target.Column >= 5 And Target.Column <=...
Wybierając np. w JB - GA zostają wiersze z GA, dodatkowo dokładając np. w Zakładzie - A, zostają z tych przefiltrowanych wierszy tylko A Czyli "proste" wybieranie, bez operatorów i przyrównań, tylko jedno kryterium na kolumnę całość jest zrobiona, tylko nie mogę znaleźć błędu :) ... jeśli jest zrobiona, to dlaczego nie działa ... :) ... Wg mnie ......
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. Odwróć sprawę - szukaj wartości z "Baza" w wartościach z "Raport" 2. Deklaracja zmiennych - masz może "Option Explicit" u siebie ? 3. Jeśli jakaś wartość nie zostaje znaleziona, to 'Match' daje ten błąd właśnie 4. W zakresie kolumn "B-O" mieści się 14 kolumn a nie 13 5. Wartość tekstowa "1 2 3 4 5" <> od wartości tekstowej "12345" <>...
Witam !!! Sorry ale Deklaracje, zmienne, 'Double', 'Long' to czarna magia, dla mnie Excel kończy się w okolicach =jeżeli i =wyszukaj.pionowo/poziomo :) zresztą sam do tego doszedłem a i tak uznawany jestem w pracy za SPECJALISTĘ od Excela. Ja wiem o nikłej mojej wiedzy w tym temacie a VBA to dla mnie czary mary, dlatego proszę o pomoc SPECJALISTÓW MAGIKÓW...