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...
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...
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)...
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ć...
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...
Dzień dobry, proszę o wsparcie w rozwiązaniu poniższego problemu. Makro działa następująco: 1. Do istniejącej tabeli dodaje kolumnę z lewej strony. 2. W nowo dodanej kolumnie wykorzystuje funkcję np. Jeżeli. 3. Następnie całą tabelę do nowego arkusza jako wartości i tworze tabelę. 4. Usuwam kolumnę, która z której były pobierane wartości dla funkcji....
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...
Cześć, potrzebuje makra które będzie sumować zakres. w linku zobrazowane o co mi chodzi. Czy mógłby mi ktoś w tym pomóc? https://obrazki.elektroda.pl/6553279700_...
Cześć, bardzo ładnie proszę o stworzenie makra, które pozwoli mi: 1) pobrać dane z jednego arkusza do drugiego sumując przy tym dane dla powtarzających się ID klientów. W tabeli mam m.in : id klienta, nazwę klienta, typ dokumentu, wartość. ID, Nazwa i typ dokumentu mogą powtarzać się wielokrotnie, przy czym lista Id klientów nie jest stała. Chcę w drugim...
Witam Potrzebowałbym bym pomocy do tego co chciałbym zrobić, niestety nie posiadam jeszcze wystarczających umiejętności by zrobić to samemu. Zapewne potrzebuję funkcję połączoną z makrem, które zapętli ją, tak by wszystkie dane w całej kolumnie były przeszukane i wypełnione. Niestety zwykły VLOOKUP tutaj mi nie pomoże, a nie jestem w stanie sam dojść,...
Witam Przerabiam makro które ktoś mi kiedyś zrobił ale nie wychodzi to do końca tak jak trzeba.Chciałbym po naciśnieciu przycisku wstawić tabelkę z arkusza B2 lu F, w zależności który przycisk nacisnę. tabelki wstawiałyby sie jedna pod drugą i najlepiej jakby wyskakiwało okienko z polami zaznaczonymi na żólto żeby można było je wpisać ale to dla mnie...
Witam Mam pewien problem zacząłem coraz bardziej zgłębiać wiedzę w tworzeniu tabel w excelu i pojawił się jeden problem. A mianowicie potrzebował bym takiego makra które automatycznie wydrukuje mi część arkuszu na koniec dnia który zawiera dzisiejszą datę. Mówiąc dokładniej mam tabelę w której wpisuje dostawy przywożonego towaru i teraz chciałbym aby...
Witam. Potrzebuję makra które pomoże mi w odświeżaniu plików. Mam następujące pliki: SUMA Tabela 1, Tabela 2, Tabela 3, i tak do Tabela 100 Zmienne 1, Zmienne 2, Zmienne 3, i tak do Zmienne 100 Potrzebuję makra które otworzy na stałe plik SUMA (w nim są dane wyjściowe i zbiera wyniki po obliczeniu w plikach Tabele i Zmienne) i następnie zestawy plików:...
Witam, zagwozdka następująca. Mam tabele składającej się z dwóch kolumn - daty i kwoty. Zależy mi aby makro wykonywało następujące czynności: 1) Zaznaczało 30 dni wstecz tzn. od ostatniej daty wraz z kwotami - w tym wypadku 30.11.2017 ( liczba dnia liczona od końca - ponieważ z założenia musi to być 30 dni od ostatniego dnia miesiąca ) 2) kopiowanie...
Jestem słaby w pisaniu makr dlatego zwracam się z prośbą o pomoc w napisaniu jednego. Otóż rozchodzi się o makro które daną (stałą) tabelkę, kopiowałoby w wybrane, zaznaczone miejsce określoną ilość razy (najlepiej w wyskakującym oknie). https://obrazki.elektroda.pl/4674649200_... Zaznaczona tabelka jest stała i to ją bym chciał...
Dzień dobry, Nie znalazłem podobnego tematu więc otworzyłem nowy post: Mam plik Excela (coś w rodzaju magazynu) w w nim ok 100 arkuszy, w każdym arkuszu mam wstawioną tabelę. Wszystkie tabele mają ten sam układ nagłówków. Stworzyłem (nagrałem) makro dla pierwszej tabeli (Tabela1), które będzie formatowało poszczególne kolumny. Chciałbym uruchomić to...
Witam! Mam problem z stworzeniem makra który pobierze dane z tabelki a następnie wklei w odpowiednie miejsce. Po prawej stronie jest tabelka z wartościami i chciałbym żeby makro sprawdzało wartość komórki czy jest rożna od zera. Jeżeli tak to w nowym arkuszu(lub pliku) Tworzy wpis ID Gniazda | ID | ID siedliska| Wartość komórki, jeżeli wartość komórki...
Cześć, potrzebuję szybkiej porady jak stworzyć makro w VBA, rozzrysowałam sobie schemat 2 torowy z pętli, ale nie mam pojęcia jak przkesształcić go na ten język.... Dodano po 5 mam tabelę gdzie dane są wielkości 7x100 w przedziale i20:o119 i tam będę wpisywać różne rzeczy, chciałabym, żeby puste komórki, które pominę, same się uzupełniły wpisując np....
Cześć, Chciałbym stworzyć automat do tworzenia wykresów. Moje pytanie jest następuj: w jaki sposób mogę zapętlić makro, aby pierwsza komórka była bez zmian (czyli mój nagłówek) a każdy kolejny wiersz to nowy wykres? Dla zobrazowania wklejam screena, oczywiście to tylko przykład bo takich wykresów musze stworzyć ok. 300 :/ https://obrazki.elektroda.pl/8896759700_...
Chcę stworzyć makro, które będzie odświeżało tabele przestawne w całym skoroszycie excela. Czy, to które napisalam jest ok? Czy są widoczne jakieś błędy? Niestety nie jestem jeszcze na tyle dobra, żebym mogła ocenić prawidłowość swoich makr... Sub aktualizacja_tabeli_przestawnych() For Each sh In ThisWorkbook.Sheets Sheets("Pivot").PivotTables("PivotTable1...
Witam. Zrobiłem nagrałem makro które automatycznie odświeża 3 tabele (co 5 minut). Chciałem dodać możliwość włączenia i wyłączenia na podstawie wartości komórki. Wynik: Sub start() If (Range("AC11") = "TAK") Then Application.OnTime Now + TimeValue("00:05:00&quo... "button3"...
Witam Proszę o pomoc w stworzeniu makra które kopiuje wiersze z jednego arkusza i wkleja w inny ale uwzględnmia 2 argumenty: Po kolei mam 2 arkusze 1. OPERACJE 2. MAGAZYN Operacje - wydania i przyjęcia magazynowe liczba rekordów zwiększa się co dzień, przewiduje max 8 tys rekordow (kolumna A - indeks matriałowy, kolumna B - wydanie/ przyjęcie załużmy...
Witam szanownych forumowiczów. Proszę o pomoc w utworzeniu makro w Excelu. Chcę zautomatyzować sobie troszkę pracę a właściwie tworzenie raportów. Chodzi o to że mam bazę klientów i ją uzupełniam co tydzień - aktualizują. Na koniec muszę po posortowaniu od najmniejszej do największej w prawej kolumnie przed każdą grupą wygenerować jak gdyby nagłówek....
Witam, Mam pewien problem, ponieważ chcialem stworzyć makro a nawet nie wiem jak to ugryźć. Generalnie chodzi o to aby: po uruchomieniu makra wyswietlało sie pole do wpisania od... i do... w którym będę mógł okresic daty. Format daty to dd-mm-rrrr. Daty są w każdym arkuszu w jednej kolumnie, powiedzmy D. Wyświetlone komórki powinien kopiować do nowego...
Witam, pracuje na excelu (Office 2010) jednak o makrach niestety nie mam zielonego pojęcia. Potrzebuję aby arkusz (baza danych) który ma wiele kolumn (A-AF) i "masę" wierszy (ok 20 tys.) dało się podzielić szybko makrem na oddzielne pliki wg. jednej wskazanej kolumny. Oczywiście podzielone pliki mają mieć nagłówek z pliku bazowego i nazwę wg. wartości...
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...
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...
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...
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...
Sprawdź, dostosuj. Zrezygnowałem z tablicy na rzecz prostego przypisania.
Formuła dla układu liczb z pliku marek003 [syntax=txt]=SUMA.ILOCZYNÓW(--(FRAGMENT....
Przeczytaj jeszcze raz (deklaracja zmiennej i odwołanie się do wektora): 3. Nie przypiszesz zakresu do zmiennej tablicowej w ten sposób. Można Np tak Teraz, jeśli[syntax=vb] Set XlApp = GetObject(, "Excel.Application") Tablica = XlApp.Worksheets(1).Range("O4:O36")[/syn... owszem, zadeklarowałeś obiekt, ale co ze skoroszytem Excela? Musisz się do...
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 to jest wszystko w jednym pliku, to można zamiast Makro1 zdefiniować funkcję Funkcja1 i tę funkcję wykorzystywać zamiast makra. Poprzednio zmyliło mnie użycie metody Run w taki sposób, jaki zwykle stosuje się do wywoływania makr z innych skoroszytów. Mogłoby to wyglądać np. tak: [syntax=vbscript]Function Funkcja1() Dim i As Long Worksheets("Tablica...
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
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....
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...
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.
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")...
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, ";")...
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, 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...
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...
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),...
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ś.
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...
Będzie szybciej, bo przy makrze, które stosowaliśmy Excel przy każdej luce w datach dodaje wartości i przesuwa zakresy danych i ma co najmniej dwa kontakty z arkuszem. Dla całej kolumny (nie wspominając już o 20) tych kontaktów będzie całkiem pokaźna ilość, a z tego co wiem, to właśnie podczas pobierania danych z arkusza i powtórnego wrzucania ich (to...
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...
A może /bez makra/ tak przez tablicę w tablicy zdefiniować ze dwa wiersze w pierwszym imiona w drugim wartości zaś tu wyszukaj.pionow i pobieranie danych z tamtej tablicy. Przykład: =WYSZUKAJ.PIONOWO(A1;imiona;2;FAŁSZ) gdzie: a1 - wpisane imię ewentualnie wybierane z listy, imiona - tablica z dwóch wierszy pierwszy imię, drugi przypisane wartosci do...
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,...
Może wystarczy przestawienie cyfr w tablicy[syntax=vb] For i = 1 To UBound(tbl) tblTemp(i, 1) = tbl(i, 1) vVar = CDbl(objRegExp.Execute(tbl(i, 1))(1)) 'tblTemp(i, 2) = CDbl(objRegExp.Execute(tbl(i, 1))(0)) * 10 ^ 3 + vVar tblTemp(i, 2) = CDbl(vVar * 10 ^ 3 + objRegExp.Execute(tbl(i, 1))(0)) Next[/syntax]
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?
Można zdefiniować tablicę z nazwami arkuszy w których mają być dokonywane zmiany i przejść pętlą po arkuszach wpisanych do tej tablicy: [syntax=vb]Sub zz() Dim tblArkusze() Dim i& Dim rngTmp As Excel.Range tblArkusze() = Array("I L", "II L", "III L") 'nazwy arkuszy w których mają być wykonane zmiany For i = LBound(tblArkusze()) To UBound(tblArkusze())...
Równie dobrze to zadanie można wykonać bez użycia tablic [syntax=vb]Sub x2() Dim dblCnt As Double Dim iPosHyph As Integer Dim lLstRw As Long lLstRw = Cells(Rows.Count, 1).End(xlUp).Row iPosHyph = InStrRev(Cells(lLstRw, 1).Value, "-") dblCnt = Val(Mid(Cells(lLstRw, 1).Value, iPosHyph + 1)) + 1 Cells(lLstRw, 1).Offset(1, 0).Value = Left(Cells(lLstRw,...
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...
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 =...
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
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?
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...
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...
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
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....
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...
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 ;)
Włącz makra, wciśnij ctrl + Q Sprawdź czy o to chodziło
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,...
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...
excel tablica makro tablica danych excel tablica wynik
woofery 165mm pisać atmega klient poczet email
Skoda Fabia III – prawy kierunkowskaz cały czas miga, manetka działa poprawnie Ticon NEMUS-02 T-CON Board Voltage Points for TCL, Vestel, LCD/LED TV Faults
