Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". a jak jest otwarty to wykonuje dalsze instrukcje: kopiowanie potrzebnych wierszy. Pomija cała instrukcje czyli nic nie robi. czemu przed for each muszę dać otwarty=false a potem odnosić się do otwarty jako true Generalnie nie musisz dać na początku 'otwarty=false' bo zmienna...
Formuła dla układu liczb z pliku marek003 [syntax=txt]=SUMA.ILOCZYNÓW(--(FRAGMENT....
Sprawdź, dostosuj. Zrezygnowałem z tablicy na rzecz prostego przypisania.
Raczej nie. taki bład się pojawi kiedy w pliku tekstowym pojawi sie znak z poza zakresu dopuszczalnych znakow. Makro reaguje prawidłowo, tylko na litery i cyfry, inne znaki traktuje jako bledy. Nawet spacja lub enter sa traktowane jako znak. Zwroc uwage ze znaki sa rozpoznawane na podstawie kodu ASCII, stad dzialania w obliczaniu indeksu tablicy. Pozdrowka
Z tego co widzę próbujesz sumować warunkowo dla wybranych klientów? Dlaczego nie używasz filtra? Można odfiltrować niepotrzebne, skopiować do nowego arkusza. W swoim przykładzie odwołujesz się do całych kolumn (Np A:A), co zdecydowanie spowalnia działania na tablicach. Dlatego zamieniłbym zakres na tabelę Excela. (zaznacz, Menu>Wstw>Tabela). Zamiast...
Jeśli znaki "<" oraz ">" występują tylko jako "nawiasy" znaczników i nigdzie więcej, to można w prosty sposób skorygować pętlę Do , umieszczając warunek i polecenie wyjścia z pętli wewnątrz niej. Rezygnujemy wtedy z tablicy i określamy początek i koniec fragmentu do pogrubienia wg wspomnianych znaków.
Podałem Ci tylko przykład na liczbach. Chodzi o to, że jeśli najpierw pogrupujesz wiersze a w następnej kolejności posortujesz, to grupowanie wierszy się nie zmieni bez względu na wynik sortowania. W trakcie wybierania nazwisk do grupy licz wiersze do pogrupowania i po umieszczeniu nazwisk grupy w arkuszu, uruchom grupowanie wg. licznika wierszy. Ad....
Ok teraz masz kryteria w tablicach w kodzie VBA w razie jakbyś chciał dodać kryterium, musisz zwiększyć tablicę o 1 i dopisać do tego dodatkowego elementu kryterium z gwiazdkami. Jak zobaczysz kod to chyba będziesz wiedział o co kaman. Dodałem też zabezpieczenie przed kliknięciem dwa razy na makro
Czy takie makro miałoby sens w tym przypadku? Kto wie... patrz niżej. Czy zadeklarowanie Tablicy jako Obiektu jest poprawne? Nie. A może jest lepszy sposób? Tak, nie wiemy tylko jaką to tajemniczą wartość kryje zmienna 'WymZloz' i czego dotyczy. Na początek porównaj z [syntax=vb]Sub() Dim XlApp As Object Dim Tablica() As Variant Dim WymZloz As Long...
scalić pomijając kody Och, nie chce mi się już przerabiać (czytaj: znacznie upraszczać kodu, bo tablica w takim przypadku jest zbędna). Dołożyłem scalanie, podkreślanie i takie tam... Resztę sobie dopracuj. Makro wystarczy uruchomić z poziomu arkusza źródłowego (dla ułatwienia dałem przycisk). Na "przywitanie" dostałeś (prawie) gotowca. Ale następnym...
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...
w trzeciej sama trasa wypisana w formacie: sklep_xxx-sklep_yyy-sklep_zzz Jeśli dobrze zrozumiałem, to myślnik jest znakiem rozdzielającym nazwy sklepów, których trzeba wyszukać? Jeśli tak, to najprościej rozbić ciąg funkcją Split i zapisać w tablicy. Następnie wyszukać kolejne wartości w pętli For, gdzie licznikiem będzie rozmiar tablicy. Wynik można...
Na przyszłość załączaj pliki tutaj pakując je zipem lub rarem. "Wariacje bez powtórzeń" i inne miałem ok 20 lat temu. Powiedz po polsku jaki ma być wynik - co ma robić makro na podstawie tego przykładu co przedstawiłeś.
Skoro ma być w VBA... Przykład z tablicą i... InputBox'em ;) [syntax=vb]Sub aver() tekst = InputBox("Wpisz liczby oddzielając średnikiem", "Obliczanie średniej") tekst = Replace(tekst, " ", "") 'wyrzucamy spacje tekst = Replace(tekst, ":", ";") 'mogło się komuś omsknąć tekst = Replace(tekst, ".", ",") 'to sie często zdarza tablica = Split(tekst, ";")...
Najprościej byłoby umieścić w tablicy/kolekcji i posortować (chociaż 'selecteditem' jest kolekcją, można więc spróbować sortowania "w locie").[syntax=vbscript]Dim fd As FileDialog Dim tablica As Collection Set tablica = New Collection Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH")...
Dlaczego SQL? W arkuszu "dane" nie ma tabeli w rozumieniu Bazy Danych (Dane>wstaw tabelę). Odwołuj się do prawidłowych nazw. Z drugiej strony, zdaje się, że można to zrobić prościej. Czy chodzi Ci tylko o przypisanie list do combobox'ów? Łatwiej byłoby posługiwać się tablicami. Co z powtórzeniami?
Hmm, wywołują mnie tu do tablicy :) Rozumiem, że już jakieś makro działa... Z tego wynika, o czym już kolega Tommy82 wspomniał, że należy do makra dopisać instrukcję warunkową. A właściwie umieścić Twoje makro w gałęzi Else. Schemat: If IsNumeric([A]) then [X]=[B].value Else tu Twoje makro End If Jesli makro jest w innym skoroszycie wywołujesz...
Tak prawie. Nie musi zliczać wierszy i podawać liczby porządkowej kolejno, a skopiowane tablice powinny być wklejone jako wartości.
Witam Co do TAblic A jak zapisać dane z kolumy KONE i KOM w tablicy a potem pobrać z niej je?
: ) ... szkoda, że "autorka" tematu jak na razie straciła zaintersowanie ... fakt, że wcześniej nikt się nie odzywał, ale ... święta ... święta ... trzeba to uwzględniać ... w każdym bądź razie jak się temu przyjrzeć, to nawet ciekawie to wygląda, jak odczyty z jakiegoś systemu nadzoru ... może warunków termicznych ? Można by to popróbować w różnych...
Czy mógłbyś wyjaśnić co ta Pani Paula oznaczyła w tym "generatorze" poprzez l, p, g, o, c :?: Wpisz sobie na początku makra ustawienie z deklaracjami "Option Explicit" to zobaczysz dlaczego makro tak długo działa :D
Już odpowiadam:) Zrobiłem makro w programie SolidWorks i dlatego jest XlApp, ponieważ odwołuję się do tabeli w arkuszu Excel. Możliwe, że makro, źle zdefiniowałem, bo program musi tam wejść, przeszukać tą tablicę, jak znajdzie wymiar, to jest True, uruchamia makro1, w przeciwnym razie jest False, musi wyjść z arkusza, wrócić do makra i uruchomić drugi...
Hmm. Trzeba by się zastanowić nad tym, co szybciej zadziała. Makro, czy przeliczanie... 800000! formuł tablicowych. Stawiam na makro. Załącz kawałek arkusza z układem i formułami jak w oryginale. Przećwiczymy ;)
Witaj, lepiej dołączyć makiety arkuszy. Względne powoływania( RC nie zawsze dają przedstawienie o tablicach. Albo wykorzystuj powoływanie w stylu А1 Dodano po 7 edit...
Przy tablicach nie używa się select. A co chcesz potem robić z tą tablicą? Zawsze możesz odwoływać się do komórek arkusza jak do tablicy: For i = 1 To 5 for j = 1 to 5 MsgBox i & ", " & j & " = " & Worksheets("Arkusz1").... j) next j Next i Ewentualnie możesz zapisać dane do zmiennej typu RANGE, do...
Wszystko ładnie, pięknie, tylko gdy w komórkach C i D, F i G itd. mam znowu 'Date' i 'Price' tylko dla innych akcji, i tak x20 (20 par 'Date' i 'Price' dla różnych akcji), i dla każdego C i D, F i G itd. napiszę osobne makro 'row_influx', to wszystko zaczyna cholernie wolno działać mimo braku odświeżania. Stąd pomysł tablicy...
Można zdefiniować tablicę z nazwami arkuszy w których mają być dokonywane zmiany i przejść pętlą po arkuszach wpisanych do tej tablicy: Dzięki wielkie za pomoc
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
Pozwoliłem sobie trochę przetestować :) Moje wnioski: Przeniesienie kolumny pomocniczej (rozwiązanie marek003) do ark "Baza danych" do kol D i korekta formuł w ark "ABC" =JEŻELI(CZY.BŁĄD(INDEKS('Baz... danych'!A:A;PODAJ.POZYCJĘ($B2;'B... danych'!$D:$D;0);1));&qu... danych'!A:A;PODAJ.POZYCJĘ($B2;'B...
Proszę bardzo. Zmieniać kody będzie we wszystkich arkuszach tam gdzie zaznaczysz cos do zmiany i uruchomisz makro. Sub Makro1() For x = 1 To 18 Selection.Replace What:=Worksheets("kody"... + 1, 1).Value, Replacement:=Worksheets("ko... + 1, 2).Value, LookAt:=xlPart,...
Jak widać nie każdy lubi łowić ryby ;P Zwiększasz tylko numer dla ostatniej pozycji - dla VBA to co masz w komórce nie jest liczbą,a tekstem. Musisz go najpierw rozdzielić funkcją Split() po myślniku, następnie w ostatnim elemencie tablicy zwiększyć liczbę o jeden i na koniec - "skleić" tablicę na powrót w wymaganym formacie. Jak przedmówca wspomniał...
W załączniku jest procedura "sub elka", która jeszcze wczoraj wysypywała się na 10 indeksie. Przed momentem dorobiłem "resetowanie" ustawień i miałem zamiar zademonstrować przypisanie tablicy do listy (TblToList)... Coś mnie tknęło, spróbowałem wpisać bezpośrednio do listy i... zaczęło działać. Wczorajsze "złe" makro również. Wygląda na to, że ustawienia...
Zastanów się nad wstępną normalizacją kodów, bo czeka Cię nie lada zadanie... http://obrazki.elektroda.net/75_12682516... W VBA można wykorzystać funkcję Split ale przy tym ostatnim zapisie założenie bierze w łeb i trzeba szukać pierwszej liczby w łańcuchu. Może byłoby i łatwiej. Jeśli tablica po rozbiciu łańcucha miałaby mniej niż 4 elementy,...
Taa, ci francuzy co tydzień zmieniają swoje poprawne znaki. Jedno z: 1. Zrób sobie kolekcje tychże tablic. 2. Zapisz sobie makro w którym otwierasz inny plik i robisz kopię komórki A1, będziesz mieć kod.
Cześć, Głowię się od pewnego czasu z napisaniem makra, które wyliczać mi będzie średnią sprzedaży z 28 ostatnich sprzedażowych, która bierze pod uwagę tylko dni, w których towar był na magazynie. Narazie napisałem kod ale niestety nie działa on. Powiedzcie mi proszę jakie błędy popełniłem oraz jak można to napisać aby działało. [syntax=vb] Function...
Gdzieś widziałem przykład wykorzystujący funkcję API SendMessage . Ale jak to z API na różnych maszynach może być różnie. Popatrz na taki przykład Dim temp1 As String Dim temp2 As String Sub Makro() temp1 = Cells(1, 1).Value ' zapamiętanie starej wartości dla Undo Cells(1, 1) = "coś" ' wpisanie nowej wartości do komórki...
Zadeklarowałaś tablice 7-elementową (od 0 do 6 - bynajmniej w kodzie nie ma deklaracji option base 1), pomijając to, że w wpisujesz dane do tablicy od elementu 2 to w kodzie w linijce: [syntax=vb]If c.Value = MyLocation(i + 1) Then[/syntax] dla i = 6 odwołujesz się do elementu tablicy o indeksie 7, który nie istnieje i dlatego makro zwraca błąd.
Wydziel dodatkowy arkusz (może być ukryty), zrób tabelkę znaków i ich odpowiedników łacińskich i zamiast w tablicy działaj w arkuszu. Na przykład tak: https://obrazki.elektroda.pl/4775489200_... https://obrazki.elektroda.pl/4498160400_... gdzie:[syntax=vbscript]Function FrPol(tekst As String) As String Dim i As Integer,...
Spróbuj takie coś: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2012-12-16, autor Darek ' Dim maxIndex, x, y As Integer Range("B1").Select Selection.End(xlDown).Select maxIndex = ActiveCell.Row Dim tablica() As Single ReDim tablica(maxIndex) For x = 1 To maxIndex tablica(x) = Cells(x, 2).Value Next x For x = 1 To maxIndex For y =...
Dlaczego zaraz makro? http://obrazki.elektroda.pl/4177368100_1... Drugi wiersz zawsze będzie pierwszą pozycją tablicy, czyli =A2. A dalej jak na rysunku. W D2 zmieniasz sobie krok (wartość >2)...
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
Jednak poradziłem sobie =) Prosiłbym o nie zamykanie tematu bo pewnie nie jedna rzecz mnie jeszcze zatrzyma w tworzeniu tej bazy, a Twoje podpowiedzi naprawdę ułatwiają wiele! Jeszcze raz dzięki Więc kolejny problem na który się natknąłem: To co stworzyłem to typowa tablica użytkowa. Teraz musiałbym stworzyć tablicę która będzie się wyświetlała na ekranie...
Sama się o to prosisz (.UsedRange = zakres, gdzie zakres=Empty). Dalej nie rozumiem: jak chcesz to realizować? UsedRange to zakres, w którym znajdują się dane. Albo określisz wspólny PrintArea dla wszystkich arkuszy, lub chociaż ostatni wiersz, albo tablica dla każdego arkusza z zapisanym adresem zakresu w postaci tekstowej. Całe to makro (załącznik),...
Jakby co, to do tego makr nie potrzeba - wystarczą nazwy zdefiniowane z przypisaną odpowiednio wartością. Tylko że potem trzeba stosować zapisy "ściśle matematyczne". Załóżmy, że utworzę nazwę "czarny", której przypiszę wartość "2" - w danej komórce trzeba będzie wtedy wpisać "formułę": "=2 * czarny" , aby otrzymać wynik "4". Podobnie z kombinacjami...
Np. tak: [syntax=vb]Private Sub CommandButton1_Click() Dim arkusze() As String Application.ScreenUpdating = False ReDim arkusze(1 To Worksheets.Count) For i = 1 To Worksheets.Count arkusze(i) = Worksheets(i).Name Next i For Each c In Worksheets("Masz.600+NEW S.").Range("G4:G23") If Not Zawiera(c.Value, arkusze) Then Worksheets.Add(After:=Worksheets(Workshe...
Mam problem z dokończeniem makra w vba, mianowicie chce wyszukać wyrazy (znaczniki html) wpisane do komórek w excel-u, w całym arkuszu. Arkusz posiada 5 kolumn i około 6000 wierszy. Po wyszukaniu wyborderować i zmienić kolor ich czcionki na czerwony. Zdaje się, że źle się do tego zabierasz. Na razie pętla mieli A1 i na oko będzie mielić bez końca (pętla...
Witam. Próbuje napisać makro, które będzie wyszukiwać w jednej kolumnie, np A kwot przeciwnych jeżeli istnieją (np kredyt noty i faktury) , dodatkowym warunkiem jest to aby wartość w kolumnie B (np nazwa przedsiębiorstwa) była dla obu kwot taka sama, jeżeli ten warunek jest spełniony to kwoty te są kopiowane do drugiego arkusza. Udało mi się napisać...
W załączeniu wg mnie trochę bardziej uporządkowany kod i parę zmian. Też myślałem o tym by dane otwierały się kiedy trzeba. Poprawiłem ale na razie jest jedno "ale" jeżeli zaczął byś wpisywać w liście coś od litery "w" przerzuciło by cie do danych - dlatego dodałem spację do pierwszej nazwy. Pomyślę o innym rozwiązaniu ale na razie nie mam czasu. Zobacz...
Wydzielono z Np. tak: To makro bardzo mi odpowiada do moich zastosowań, jednak nie umiem go zmodyfikować. Chodzi mi o to, że potrzebuje aby tworzyło mi arkusze z kolumny J - czasami będą to 2 arkusze, czasami 10. Jak zmodyfikować makro, aby wykonywało tworzenie arkuszy tylko dla pełnych komórek?
W przykładowym arkuszu: 1. Usuń "Przycisk 339" (jest wysoki na 1pkt.) Najprościej zaznacz widoczny przycisk i przesuwaj się tabulatorem. 2. Podmień makro, tu dobrze kombinujesz :) (porównaj sobie z tym co jest. Przyda się na przyszłość), ale trzeba szukać 4 elementów. [syntax=vb]Sub Usun2() Dim knyps As Boolean knyps = False For i = 1 To Shapes.Count...
Jeśli chodzi o to makro inicjujące, to można zrobić przycisk albo skrót klawiszowy. Można by zrobić automatycznie po wprowadzeniu miesiąca, ale to na Pana odpowiedzialność - ja bym tego sposobu nie polecał, bo jak ktoś przypadkowo wejdzie w edycję miesiąca i nawet nic tam nie zmieni tylko naciśnie Enter, to cała tablica się zresetuje. Trzeba jeszcze...
Tak jak już pisałem poprzednio funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze adresy, a Ty próbowałeś jej użyć tablicowo. Tu można jedynie próbować z funkcją LAMBDA, ale obawiam się, że to będzie wolniej działać niż VBA, a z resztą już i tak masz tę funkcję URL z VBA, więc po co mieszać różne technologie. Funkcja URL wymagała nazwy kwalifikowanej,...
Z tą aktualizacją to znowu jakieś nieporozumienie. Jeśli dane będą się często zmieniać, ale sposób ich obróbki będzie niezmienny, to należy stosować formuły i przeliczanie automatyczne. Wtedy sam Excel zadba o to, by wszystko było aktualne. Jeśli wpisujesz do komórek wartości, to w domyśle te dane nie powinny się zmieniać, albo na tyle rzadko, żeby...
Problem losowego pobierania próbek z jakiś populacji często występuje przy badaniach statystycznych czy metrologii technicznej. Pamiętam sprzed epoki komputerów :D , że były stosowane specjalne tablice liczb losowych (podobne do powszechniej znanych tablic logarytmicznych) do ustalenia numerów próbek do badania. Teraz w Excelu wartości funkcji losowej...
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ? Aby skopiować dane z jednego arkusza do drugiego w programie Excel w sposób automatyczny, możesz skorzystać z kilku różnych metod, w zależności od tego, jakiej funkcjonalności oczekujesz. Oto kilka przykładów: 1. Formuła odwołująca...
Dzięki za info. wcześniejsze Tbl = .Range("A1:A" & OstW) to chyba "tablica jednokolumnowa" czyli Tbl(x) a nie Tbl(x,y). Czy się mylę? dodałem: Myle się. Nie da się wywołać danej Tbl(x) musi być Tbl(x,1) dodane po chwili ------------------------------- Zaczynam rozumieć. Kluczem (indeksem) jest ten sam "string" (tu kolejność nie...
Cześć Próbuje od jakiegoś czasu rozgryźć mój problem. i jak na nowicjusza słabo to idzie - trochę poszukałem i próbuje dostosować do swoich potrzeb pomysły innych z podobnym do mojego problemu. A wiec: mam dwa pliki - jeden bazowy (u mnie nazwany "baza.xlsx" - znajduje się w innej lokalizacji) oraz drugi Main.xlsx Oba plik mają ten sam układ - 20 kolumn....
Dziękuję bardzo! Ad 1) Ten sposób zadziałał. Chodzi o to, żeby nie zapomnieć o: Array(tTbl()) czyli tablicy w tablicy w odpowiednim miejscu: [syntax=vb]Selection.Consolidate Sources:=Array(tTbl())[/syntax] Co do 2) to stworzyłem okienko dialogowe z CombBoxem i teraz kombinuję jak wrzucić do niego listę arkuszy z innego pliku.
To chyba nie będzie takie proste. Niestety Excel jest bardzo ubogi jeśli chodzi o "kolorowe funkcje". Wg mnie musiałbyś zrobić wzorcową tabelkę z indeksami kolorów i przepisać ją do tablicy. Następnie do drugiej tablicy przepisać indeksy z "kolorowego" zakresu do sortowania i dodatkowo umieścić je w kolumnie pomocniczej Wreszcie czymś na wzór sortowania...
Proszę uściślić - wartości z komórek AI1 i AJ1 mają występować parami, czy może makro ma liczyć wystąpienie którejkolwiek z tych wartości ? - zakładam że w AK1 maja się znaleźć wyniki z zakresu A1:AD10, nie tylko z pierwszego wiersza?
(at)adamas_nt rozwiązenie tablicą jest ciekawe i skuteczne na tym przykładzie, choć niestety nie uniwersalne. Kluczem może być takie rozwiązanie, które poradzi sobie równie dobrze do np 50-wierszową z tabelą, o nieznanej nam ilości mutacji (wpisanie tablicy byłoby nielada rzemiosłem :)). Taki mechanizm pozwoliłbym rozpoznać ich ilość oraz odróżnić je...
Nie analizowałem dokładnie, bo strasznie jakieś "nieprzyjazne" to makro. 1. Co ma znaleźć się w kolejnych ComboBox'ach? 2. Jakie zadanie ma ta linijka: 'Me.Controls(nazwa).ListIndex = .Cells(i, z).Value' 3. Raptem masz 3 ComboBox'y w jednej ramce. Dlaczego tak potwornie skomplikowałeś procedurę 'UserForm_Initialize'? Powiedz co i jak, to spróbujemy...
... Jak naciśniemy w arkuszu Kosztorys pole B7 czyli to białe puste szybko dwa razy to otwiera się Listbox z wyborem danej pracy ... Wszystko działa ok ... No niezupełnie ... ' ListBox1_Click ' usuwa z komórki ' AB7 ' wartość liczbową i po zamknięciu okna nie można go już ponownie otworzyć bez wstawienia tam liczby. ... Potrzebne są tylko trzy zmiany....
Witam, Ja znam i używam jednej z czterech metod wyszukiwania danych. 1. z wykorzystaniem funkcji FIND() 2. z wykorzystaniem pętli FOR 3. z wykorzystaniem pętli FOR EACH 4. (niezałączona) z wyszukiwaniem binarnym na posortowanych danych Trzy z nich załączam w pliku "testowym". Znajduje się w nim 10.000 losowych, nieposortowanych rekordów: firma, miasto,...
[syntax=vbscript]Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:=... Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xls... Title:="Choose Excel files to merge", MultiSelect:=True)...
Witam, Potrzebuję makra, które przeszukuje mi tablice/tabele i jeśli wystąpiła już dana dana to zwraca mi tą, która wystąpiła najpóźniej. Przykład dla objaśnienia. Posiadam ewidencję kontraktów i ilości pod dany kontrakt. Kontrakt 1 opiewa na 1000 sztuk. Sprzedałem 200 sztuk, więc ilość to 800. Sprzedałem kolejne 200, pozostało 600. Chcę, aby podczas...
Można napisać to makro na te sumy i adresy. Taki zamysł mam, żeby zwracało w zależności od parametru albo ilość albo tablicę adresów. Np =ciagi(C2:C267,dwudniowe,0) zwróci ilość a {=ciagi(C2:C267,dwudniowe,1)} tablicę tych adresów. Tylko jak ma liczyć ciągi przełomu miesięcy? Np. okres 30.I.-12.II.1961... jest to ciąg 14-dniowy. Czy takie coś traktować...
Dzień dobry, Funkcja TRANSPONUJ działa bezbłędnie, ale ma też swoje wady. Tablica jest duża i wyniki trzeba gdzieś umieścić. Potem będzie je Pan chciał dalej przetwarzać. Po użyciu TRANSPONUJ traci Pan kontrolę nad źródłem danych, bo w każdej komórce widzi Pan tylko TRANSPONUJ i adres, poza tym nie można zmieniać pojedynczych komórek. Pewnie wygodniej...
Witam Potrzebuję skrócić następujący kod w celu lepszego wyglądu. [syntax=vbscript] Sub OdczytajWpistest() Dim Zapis Dim Kiedy Dim NumerWiersza, NumerKolumny Dim tablica Dim wartosc As Variant NumerWiersza = 1 NumerKolumny = 30 Range("ad:ad").Clear Open "C:\wpisy.txt" For Input As #1 Do While Not EOF(1) Input #1, Kiedy Cells(NumerWiersza, NumerKolumny)...
W nich sa zapisane wartosciami 3 kolumny: A B C jak widac czescia wspolna jest: Kod: Workbooks.Open Filename:="D:\NIPY\STRONA\XLSX\a.xlsx" Selection.End(xlDown).Select ActiveCell.Offset(0, 1).Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlUp)).Select Selection.Copy Windows("Zeszyt1.xlsm").Activate...
To ze zadanie nie jest proste, to ja doskonale wiem. W przeciwnym razie nie zadalbym go:) Liczba wierszy i kolumn, moze byc zadeklarowana ale nie musi - wtedy makro przeszukuje kazdy wiersz (65536) i porownuje ze soba cale wiersze (256 kolumn). Tak jak mowisz mozna to uproscic, podajac pewien zakres wierszy i kolumn jednak nie jest to konieczne. Generlne...
O ile dobrze zrozumiałem to może to wyglądać jakoś tak, jak w załączniku. Do arkusza jest dodane makro (więc trzeba zezwolić na uruchamianie makr). zdefiniowana jest funkcja SP, która przyjmuje dwa parametry: cały zakres do sprawdzania oraz sprawdzany wiersz. Będzie to widać w załączonym przykładzie. W przykładzie tablica prawidłowych cen jest od A2...
Aha, dopiero teraz załapałem że te opisy nie mogą być całkowicie "losowe" tylko z określonych zakresów... :) W takim razie funkcją nie bardzo to się załatwi, proponuję makro takie jak w załączniku: tablica ). Każdym elementem tej tablicy jest kolejna, dwuwymiarowa tablica (zmienna tabl ), gdzie pierwszy wymiar odpowiada kolumnie z danymi A-D (1 - 4),...
Wstaw przycisk do arkusza "faktura" i podepnij makro, w którym można wykonać kilka czynności za jednym "klik". Np 1) Drukowanie /opcjonalnie 2) Inkrementacja numeru faktury /opcjonalnie 3) Aktualizacja stanów /konieczne 4) Czyszczenie druku /opcjonalnie Jest jeden problem. W arkuszu "chemia" nazwy nie są unikatowe. Zauważ, że funkcja WYSZUKAJ,PIONOWO...
Witam, chciałbym prosić o pomoc w modyfikacji jednej funkcji: [syntax=vbscript]Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:=... Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xls...
o JEŻELI jak byś mi napisał i też szczegółowo wyjaśnił będę bardzo wdzięczny Lenistwo... ... czy niewiedza? Po naciśnięciu F1 w Excelu zobaczysz: JEŻELI Zobacz też Podaje w wyniku jedną wartość, jeśli argument logiczna_test zostanie obliczony jako PRAWDA lub inną, jeśli wartością tą będzie FAŁSZ. Istnieją dwie postaci składni dla funkcji JEŻELI. Składni...
Witam, Mam pewien problem polegający na bieżącym opracowywaniu danych. Dwóm komórkom np. A1 i B1 przypisane są zmienne pochodzące z zewnętrznego programu, importowane jako dwie liczby (nie tablice, czy też arkusz). Dane te reprezentują czas (A1) i temperaturę (B1), z tym, że zmieniają się one w czasie rzeczywistym (średnio co 0,003s). Na ich podstawie...
Korzystam. Sam szukałem możliwości dostania się do tego co wyświetla Excel po zastosowaniu filtra. Wydawało mi się logiczne, że gdzieś to istnieje, bo choćby metoda Subtotal zlicza "to co widać" a nie wszystko, łącznie z tym co ukryte... Dzięki Twoim podpowiedziom prostsze okazało się stworzenie dodatkowej tablicy z parametrami do kolejnego filtrowania....
Wygląda to trochę inaczej niż założenia o jakich była mowa w pierwszym poście, tematy się powtarzają. Dla filtra potrzebna będzie lista unikatowych nazw tematów, realizowana w arkuszu przez wstaw>wklej specjalnie i dalej jak w moim przykładzie. Lub makro (uruchamiane np przy aktywacji arkusza "Menu") z wykorzystaniem tablicy, jeśli ma to działać automatycznie...
Witam, Uprzejmie proszę o pomoc. Jak zapisać numery wyszukanych kolumn do zdefiniowania zmiennej / obszaru Array ? Mam taki kod wyszukiwania (prościutki i działa): For Each Kolumna In Szukane_kolumny ' szukanie kolumny w zdefiniowanym zakresie Set Znaleziony_Kolumna = Zakres_kolumn_zrodlowy.Find(What:=Kolumn... LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns,...
Wiesz używałem tej funkcji już sporo razy, się po prostu machnąłem (w sumie dziwne że mi szło w odwrotną stronę przy samych literach to mnie zmyliło) - może zmęczenie. Rozwiązałem to drugie przez wyciągnięcie pozycji dla wektora (mam tam tabelkę ciut większą 4x4) zdefiniowałem 8 wektorów 4 poziome, 4 pionowe, powyciągałem pozycje i poskładałem & i w...
[syntax=vbscript] a = Split(OdczytanaLinia, ";") If a(0) = "1" then... ' pierwsza wartość wynosi '1'[/syntax] Tablica a() zawiera wyciągnięte 'kolumny' z odczytanej z pliku linijki. Indeksowanie, jak to przy tablicach, jest od zera. Tak więc pierwsza kolumna, to 0. Mam nadzieję, że jasno napisałem.:)
Mamy tu sytuację, gdzie wiele rekordów, pasuje do wielu. Rozpatrzmy wszystko od końca. Faza III: możemy po prostu zliczyć ilości po obu stronach (podobnie jak w fazie II) i oznaczać "do wprowadzenia" wiersze "jak leci". W obecnym kształcie, makro szuka najmniej dopasowanych w zbiorze (patrz kolejność przypisania zmiennej 'ar')* Być może trzeba dołożyć/zmienić...
Ano się używa. Spróbuj na początek z taką procedurką: [syntax=vbscript] Private Sub RunSELECT(S As String, R As Range, Optional Fn As String = "") Dim Rs As Object If Fn = "" Then Fn = ThisWorkbook.FullName With CreateObject("ADODB.Connection") .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & Fn & ";" & "Extended Properties=""Excel...
Jeżeli kilku pracowników wykonuje taki sam przedmiot to ilość przeniesiona z zamówienia będzie nieadekwatna do stanu rzeczywistego (trzeba sumować ich produkcję). Proponuję działanie w druga stronę. W pliku z zamówieniami dodać kolumny z pracownikami i tam przenieść ilości przez nich wyprodukowane. Wtedy łatwo operować danymi. popróbuj z takim makrem....
Makro do przetestowania. Uwagi: 1. Najlepiej wrzucić kod do modułu "normal.dotm". Najprościej: otworzyć Worda z menu 'Start', nagrać dowolne makro wybierając miejsce przechowywanie "szablon globalny". Następnie zastąpić je poniższym, włączyć referencje i zamknąć Worda z zapisem szablonu. Makro będzie dostępne w każdym dokumencie. Żeby nie rozsyłać makra...
Witam.Potrzebuję zmienić funkcje tego makro aby sprawdzało 6 pierwszych znaków numerów w kolumnie i nie usuwało podobnych(teraz nie kasuje tylko identycznych .Czy ma ktoś pomysł jak to zrobić? Sub wyszukaj_numery() ' ' wyszukaj_numery Makro ' ' Otworz plik z lista numerow Workbooks.Open Filename:="C:\Users\lista numerow.xls" ' Policz niepuste wiersze...
Witam. Potrzebuję pomocy z importem wielu plików txt do excela. Pliki txt mają podobne rozłożenie różnią się jedynie wartościami oraz liczbą wierszy. Potrafię stworzyć makro na kopiowanie z wybranego pliku txt określonych kolumn od np 20 wiersza. Dziś potrzebuję stworzyć makro do importowania wielu plików txt znajdujących się np: "c:/a/". Znalazłem...
Witam, Mam problem, z kodem w VB. Chce napisać makro które, będzie dzielić plik na poszczególne kolumny, po znaku ",". Komunikat o błędzie to "Run time error '9': Subscript out of range." Wydaje mi się ze jest to związane z zapisem do tablicy. Szukam już do godziny i nic nie mogę wykombinować. [syntax=vb] Sub Importowani() Dim Plik As String Plik =...
W przykładzie użyłem kolumny pomocniczej. Tu podpowiem: w komórkę E2 wklejasz formułę =LICZ.JEŻELI(A$2:A2;"Razem konto") i przeciągasz w dół do końca zakresu. Na wynikach w tej kolumnie opierasz całą resztę. Najpierw funkcja PODAJ.POZYCJĘ, gdzie argumentem "wartość szukana" jest funkcja WIERSZ(). Jeśli komórka wynikowa ma być w...
W makrze jest opis - tablica 6 elementowa - bo tyle kopiujesz pól - co to znaczy ?
Moim zdaniem trzeba każdą z komórek rozbić na dwie sekcje czyli nazwę i cenę. Można to zrobić tworząc tabelę np tabela (1 to 1000, 1 to 2) gdzie 1000 to jest liczba rekordów czy też komórek, w których znajdują się dane. Podział robimy w każdej komórce za pomocą pętli for począwszy od lewej strony szukamy w ciągu znaków znaku CHR(32) czyli spacji. No...
Garść informacji uzyskasz w okienku "Szacuj Formułę". W innym przypadku rozwiązanie widzę jedynie w stworzeniu nowego narzędzia. Można pobrać formułę z komórki, Np[syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True MsgBox Target.Formula End Sub[/syntax](makro w kodzie arkusza, uruchamiane przez...
Witam, Mam problem z długo wykonującym się kodem. Pisze krótki program wczytujący pliki txt do Excela za pomocą VBA. z zapisem danych do pliku nie ma problemu, jednak wczytanie pliku zajmuje trochę czasu. Struktura pliku txt to: 1;12;12;12;12;12;12;12;12;8;8;8;8;8;8;8;... 5;12;12;12;12;12;12;12;12;12;12;12;12;12...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
Faktycznie opowiedziałem w dużym skrócie. Inne makro podłączone do buttona mam na wypisywanie losowo liczb w zakresie. Po wypisaniu tych liczb włączam te które wkleiłem. Warunki wszystkie muszą być. Każda komórka ma 8 sąsiadów, dlatego na każdy warunek składa się 8 składowych tego warunku(nie wiem jak to sie nazywa fachowo). Ten pierwszy warunek jest...
Nie analizowałeś :) Masz 4 kolekcje (dla każdej kolumny osobno), jedna z nich wyświetlana jest w MsgBox. Trzeba to tylko dopracować i przypisać do komórek tabeli (od końca). Sortowanie jest konieczne, żeby dane "poukładały się" wg godzin. Zmyliło cię pewnie włączenie odświeżania dopiero przy końcu makra. Edit: Jeszcze jedno: W pierwszej kolejności godziny...
... jak powinien wyglądać kod? 1. Deklaracje planowanych zmiennych/stałych pracujących w procedurze 2. Przypisania wstępne/wyjściowe do powyższych 3. Pobranie danych o nagłówkach - do tablicy lub bezpośrednio, w locie ... np.: PRL , do wyszukiwania w pierwszym, nagłówkowym wierszu arkusza z tabelą ... np.: [syntax=vbscript] With .Range(.Cells(1, 1),...
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
excel tablica makro tablica danych excel tablica wynik
silnik briggs zawora urwany kabel cewki wymiennik ciepła oleju
moduł komfort termet jakie kolumny aktywne
Wieża Unitra SSL-032: Rok produkcji i wersja francuska Kompatybilność płyty ASRock ConRoe 1333 DvI z Windows 11