Jeśli będziesz miała otwarte oba pliki (tylko :!: ) to w świeżym pliku możesz wykorzystać makro typu :spoko: : [syntax=vbscript]Option Explicit Sub duplikatclear() Dim ws As Worksheet Dim ww As Worksheet Dim i, lrs, lrw As Integer Dim db As Range Set ws = ThisWorkbook.Sheets(1) Set ww = Workbooks(2).Sheets(1) lrs = ws.Cells(Rows.Count, 6).End(xlUp).Row...
Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.
Liczenie linii w pliku txt i porównywanie do sumy wierszy wszystkich tabel chyba pozbawione jest sensu. Jak myślicie? Może prościej wyjść przy błędzie... Przykład w załączniku. Edit: Och Exit Sub oczywiście, nie Exit For (załącznik podmieniłem)
Cześć, może spróbuj napisać taką pętlę: [syntax=vbscript]Sub test() Dim a As Short Dim i As Short Dim y As Short Worksheets("Sheet1").Activate a = InputBox("wpisz liczbę", "szukana pozycja", 1) For i = 1 To 3000 If Cells(i, 1).Value = a Then If Not Cells(i,2).Value = "" Then Cells(y, 3).Value = Cells(i, 2).Value y += 1 End If End If Next i End Sub [/syntax]...
Zmień na tak jak kolega NAXIN ci podal z tym że na and [syntax=vb]If WorksheetFunction.CountIf(Sheets("Rejest... txt1.Text) > 0 And _ [/syntax]
Sprobuj na początku makra Application.ScreenUpdating = False na koniec Application.ScreenUpdating = True Ale to jest OK, ponieważ w tabeli 1 indeksy zapewniają wszędzie, musimy przejść przez całą listę dla każdego indeksu tabel 2. w tabeli 1 w kolumnie B poszukiwana wartość może być ukryta w tekście Jeśli nie to, można spróbować innej metody. Dodano...
https://obrazki.elektroda.pl/3570276400_... Pokażę tutaj jak przyśpieszyłem programową komunikację SPI służącą do obsługi pamięci Flash. Sprawdzę jak dużo kodu może kryć się za warstwą abstrakcji GPIO BK7231 a potem spróbuję operacje na pinach zredukować tak, by działały bezpośrednio na rejestrach. Ile cykli procesora tracone jest...
[syntax=vbnet]Sub Bazy() On Error Resume Next Dim a As Worksheet, b As Worksheet Set a = Sheets("Baza danych A") Set b = Sheets("Baza danych B") a.Select owa = Cells(Rows.Count, "B").End(xlUp).Row owb = b.Cells(Rows.Count, "C").End(xlUp).Row For x = 5 To owa w = "" w = Application.Match(Cells(x, 2), b.Range("C5:C" & owb), 0) + 4 If w > 0 Then Cells(x,...
Błąd polega na tym że w kolumie A wszystkie dane masz jako tekst (mimo że wyglądają na liczbę) natomiast w kolumnie C masz większość danych jako liczbowe. Zaznacz wszystko i odznacz wyrównanie do prawej. Jeżeli żadna z opcji formatowania nie zostanie włączona to tekst jest wyrównywany do lewej krawędzi a liczba do prawej. Mimo że wyglądają tak samo...
Witam, piszę tutaj ponieważ od dłuższego czasu powraca do mnie problem wykonania makra, które sprawdzałoby formuły (nie wartości jakie wynikają z formuł, ale "tekst" samych formuł) w 2 plikach. Często mam do czynienia z 2 plikami, które są do siebie podobne (takie same zakładki, takie same lub podobne wartości) i chcę sprawdzić czy formuły w nich występujące...
Jak rozumiesz "dużych"? Nie zmieszczą się w arkuszu Excela? Czy spodziewasz się braku wierszy w jednym z plików? Co wtedy robić bo proste porównywanie dalej nie ma sensu? Można poszukać pasującego wiersza (jeżeli to możliwe) i dopiero wtedy kontynuować, albo przerwać szukanie (szukanie do pierwszego błędu, słabe - tak się robi tylko z braku czasu na...
Zakładając że w arkuszu 1 w kolumnie A kody nie są powtarzane oraz w arkuszu 2 i 3 tylko kody jak w arkuszu 1 [syntax=vb]Sub porownaj() Dim bd As Range Set bd = Worksheets("4").Cells Worksheets("1").Activate r = 1 While Cells(r, 1) <> "" rd = Application.CountA(bd.Columns(1)) + 1 Cells(r, 1).Resize(, 2).Copy bd(rd, 1) Cells(r, 3).Copy bd(rd, 5)...
czy może mi ktoś w temacie pomóc. Dostałem podpowiedż że można tutaj uzyć funkcji wyszukaj.pionowo ale nie wiem jak ja w tym wypadku zastosowac, gdyż ona fajnie działa dla dwóch kolumn a nie czterech. Obawiam sie ze tu trzeba jakieś makro napisać.
Masz kolego schemat makra uzupełniającego tabele 1 w zależności od zawartości tabeli 2 :D W zależności od potrzeb możesz go dowolnie rozbudowywać np przy zgodności loginów o porównywanie następnych kolumn :!: Ważne jednak jest jak widać zachowanie żelaznej logiki poszczególnych pętli porównujących :idea: tzn. musisz sobie na podstawie rzeczywistych...
Może przez porównywanie dat? Zerknij do załącznika.
Czy ktoś z Was wie jak powinno wyglądać makro porównujące ze sobą tabele Sądzę, że wielu wie ... ale pewnie są na urlopach ... :) Nie załączyłeś żadnego przykładu, więc i reklamacji nie ma ... jest jak jest, inaczej nie będzie ... 895194
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
Zakładam, że w kolumnie A może być ta sama wartość, a różna w kolumnie B. Np 123 ms524 123 ms524 123 ms599 Wpadłem na pomysł, żeby składać obie wartości do stringa. Porównywanie będzie wtedy znacznie szybsze. W związku z tym pytanie Nr 326/2014: Potrzebny jakiś znak rozdzielający. Np "(at)" lub coś, co nie jest używane w "material no". W czym rzecz....
Temat dotyczy free energy, a w chwili obecnej doszedł do jego końca, czyli free energy została uznana całkiem słusznie za SF. Porównywanie elektronu z gwiazdą, świadczy o bogatej wyobraźni kolegi, ale niestety nie o znajomości fizyki. Kolega "_jta_" napisał już o różnicach pomiędzy światem mikro a makro i nie ma sensu tego powtarzać. I chyba na tym...
Jeżeli maksimum funkcji szukamy poprzez sprawdzanie kolejnych wartości h i porównywanie objętości to przykładowe makro jest następujące:[syntax=vb]'****************... Sub Szukaj_maximum() '************************* a = 150 b = 315 h = 0 'Przyjmuję skok zmian wysokości h równy (a+b)/50 skok = (a + b) / 50 powrot: V = 0 V_pop = 0 Do While h <...
Zasadniczym błędem jaki robisz to porównywanie wyniku działania makra bit_is_clear albo bit_is_set do wartości stałej (skąd wpadłeś na taki pomysł?). if(i==1 && bit_is_clear(klawiszI ,sw1)==0) W tym momencie warunek będzie spełniony (ten drugi), gdy przycisk będzie puszczony, a nie wciśnięty. A tutaj to już wogóle nie wiadomo kiedy warunek...
Makro wykonujące obydwie czynności może wyglądać np. tak: Private Sub CommandButton1_Click() poprz_wartosc = Empty For Each c In ActiveSheet.Range("C1:C6553... 'tu można zawęzić przeszukiwany zakres If c = "dolek" Then ActiveSheet.Cells(c.Row, 4) = poprz_wartosc If Not IsEmpty(poprz_wartosc) And...
Witam znalzłem to w Magazynie Hi-Fi 3-4/97. Mam nadziejs ze sie komus przyda :| Tonsil Tango 200 Wymiary: 1000,260,370 mm Efektywność: 83 dB Impedancja: 8 omów Moc: 200 W Cena (08/1997): 3.800 zł Zestaw testowy 1: Audiomeca Mephisto, Meridian 566, YBA Integre DT Zestaw testowy 2: Audiomeca Mephisto, Meridian 566, LFD LS0/PA2M ----------------------------------------...
Witam, moim zadaniem jest napisanie makra, które będzie porównywać dwie kolumny. Jeżeli dana wartość występuje w pierwszej kolumnie oraz w drugiej, to komórka, w której ta wartość występuje, zostanie oznaczona kolorem żółtym. Niestety moje makro działa w ten sposób, że przykładowo: w kolumnie A wartość "2910624111005 5000" występuje 1 raz, a w kolumnie...
U mnie działa z 3 plikami. Wprawdzie nie sprawdziłem, co robi, bo brak danych, ale przy zaznaczeniu 3 plików wszystkie 3 otwiera i zamyka.
Witam, Jak by tu odpowiedzieć ... Nie będę pisał tutoriala z VBA - ani czas ani miejsce. Jeżeli chcesz się nauczyć VBA to sporo materiałów jest w necie. Jak ma działać makro ? Punkt 1) "Czy produkt ...." Dwie pętle (for /while). Pierwsza (produkt po produkcie) pobiera informacje na temat szukanych danych. Druga szuka danych z pierwszej pętli w drugim...
Witam, Czy chodzi Ci o coś takiego jak w załączniku? Makro napisane na szybko, "na kolanie", z bezczelnie zagnieżdżonymi 5 pętlami FOR (gdzie aż się prosi aby użyć jakiejś rekurencji...), dodatkowo operacje wykonywane na liczbach całkowitych, żeby uniknąć problemów z sumowaniem i porównywaniem liczb zmiennoprzecinkowych (czyli 1 = 0.1, 2 = 0.2 etc).
Witam, chciałabym stworzyć makro porównujace dwa wskazane przeze mnie pliki. Układ obu plików jest taki sam. Na kilkaset wierszy czasami zostanie zmieniony tekst/kwota lub całkiem usunięty/dodany nowy wiersz. Widziałabym to tak że wskazuje konkretne dwa pliki, a makro porównując je usuwa powtarzające się wiersze (sprawdzając zarówno tekst jak i kwoty)....
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
makro które będzie na podstawie porównania wiersza i kolumny wstawiało znak " "X" Makro VBA można wykorzystać do automatyzacji wielokrotnie powtarzanych czynności w aplikacjach Office :idea: Nie przedstawiłeś kolego żadnych plików, ani żadnych informacji, które wskazywały by, że w Twoim przypadku istnieje jakakolwiek możliwość zastosowania kodu VBA...
Mam jednak pytanie jak to się dzieje że wkleja to w odpowiednie miejsce? Cały mechanizm makra polega na przechodzeniu krokowym (założyłem wstępnie od wiersza 1 do 10 - ale to można odpowiednio dostosować do potrzeb) wzdłuż kolumn arkusza 1 i porównywaniu wartości z odpowiednimi komórkami arkusza 2 :D Jeśli makro napotka w którymś wierszu inne wartości...
Cześć, Bardzo proszę o pomoc, muszę zdobyć makro, które było by w stanie PORÓWNYWAĆ dwa arkusze na podstawie ich wierszy. Arkusz "NEW" oznacza nowy raport , natomiast arkusz "Old" oznacza stary raport. Chciałbym aby makro porównywało oba arkusze i wypisywało kropka w kropkę powtarzające się wiersze w następnym arkuszu , lub wypełniało powtarzające się...
Cześć, Chciałbym aby makro porównywało mi kolumne a z kolumną b i w kolumnie d wpisywało komentarz większe lub mniejsze Makro niech nie porównuje gdy niepuste wiersze bądź wartość 0. Udało mi się napisać coś takiego : [syntax=vbscript]Sub porównaj() Dim ostw As Long ostw = ThisWorkbook.Sheets("Arkusz1").Cells(Row... "c").End(xlUp).Rows For x =...
Dzięki Marku - właśnie zabrałem się do testowania - będę podglądał makro i porównywał z tym przed Twoją przeróbką co od czego zależy.Kupiłem książkę : "EXCEL w biurze i nie tylko" niestety w dziale Tworzenie Makra jest bardzo nie wiele ... Pozdro
ok rozumiem nie mam excela (nie uzywam) ale w openoffice jest bardzo podobnie wiec zakladam ze znajdziesz te same funkcje - glownie tekstowe obrawiam sie ze ni posortujesz tekstu jedna funkcja - ani w OpenOffice ani w MSExcel, pozostaje napisac jakąs funkcje/makro porównywanie znaków działa czyli =jeżeli (A1>A2;1;0) gdzie a1 i a2 to tekst MAŁE.LITERY(a1)...
Przeprowadziłem kilka prób. Przy tej porcji danych i na moim sprzęcie:: 1. Przeliczenie formuł przy zmianie w Arkusz5 ~50sek. 2. Makro porównujące każdy z każdym - hmm, bociany zdążą się rozmnożyć i odfrunąć 3. Makro z wykorzystaniem nie najszybciej bądź co bądź metody Find <38sek http://obrazki.elektroda.pl/4301367300_1... No ale...
Jeśli makro, to prosta pętla porównująca każdą parkę z każdą. Można też bez makra. Oba (E2k0) rozwiązania w załączniku.
Widzę że porównujesz daty podmień na to i zobacz (chodzi o to czy masz taki sam format daty na tych komputerach) [syntax=vbscript]If Cells(x, 2) = CDate(DataCzas) Then[/syntax]
Ok, problem rozwiązany metodą bruteforce - zestaw makr i chamskie porównywanie bitów + dodatkowe nopy dla brancha.
Cześć Wszystkim, Czy ktoś wie jak napisać makro które porównywało Numery zamówień z arkusza 1( kolumny A ) z numerami zamówień z arkusza 2 ? Jeżeli w kolumnie B nie ma danego zamówienia to by kopiowało się one z wartością dajmy na to w kolumnie E arkusza 2 ? Z góry dziękuje za pomoc Pozdrawiam, Feliks
Sprawdź takie rozwiązanie. W momencie dowolnej zmiany w arkuszu uruchamiane jest makro updateOne z adresem komórki, która jest do pokolorowania. Jeśli masz czysty arkusz i chcesz wszystkie istniejące komórki pokolorować, uruchamiasz makro updateAll, które przespaceruje się po całym arkuszu. W momencie, gdy usuwasz zawartość komórki albo wprowadzisz...
Witam, chciałbym napisać makro, które preszuka kolumne 3 i jak znatrafi na "+", to zapamięta cenę przy danej dacie. (załączyłem obrazek żeby było latwiej zrozumieć o czym mówię). Następnie porówna ceną z dnia następnego i jeżeli cena będzie poniżej wartości początkowej to zacznie porównywać każdy kolejny dzień i jeżeli w końcu cena spadnie do -20% to...
Cells(2, 3) Wiesz że porównujesz z C2?
Niech makro poprosi o wskazanie użytkownika. Dalej porównujesz z listą i po strawie. ;) A tak na serio: - jakie makro? - jaki system operacyjny? - co znaczy "wskazanych użytkowników"? (czyli kiedy wskazanych i przez kogo)
Dzień dobry. Za pomocą Logo AcessToll pobieram wartość licznika do Excela. Udało mi się stworzyć arkusz, który generuje trend z ostatnich 100 próbek pobieranych co 60sec, czyli mam informację z ostatnich 100 minut. Aby mieć dane z całego dnia, potrzebuje makra lub formuły, która będzie przepisywała wartość komórki A3 w arkuszu do kolejnych wierszy w...
Witaj. Można napisać makro, które będzie porównywać zawartość wprowadzoną w komórce ze wszystkimi innymi komórkami w danej kolumnie. W przypadku wykrycia duplikatu może wyświetlić komunikat, wyczyścić komórkę, albo zrobić obie akcje na raz (lub cokolwiek innego się zaprogramuje).
Dziękuje to właśnie to czego szukałem
Jeśli mogę coś doradzić, to na początek nie staraj się porównywać asm do C, porównując krótkie fragmenty kodu możesz poczuć się sfrustrowany. Zacznij pisać w C, a optymalizacje zostaw na później, wtedy kiedy będą naprawdę potrzebne. Jak rozwiązać problem przy pomocy makr możesz podglądnąć w Atmel Studio klikając prawym przyciskiem myszy na GPIOR i patrząc...
Witam Nie mogę sobie poradzić z pewnym problem. Do arkusza importuję dwie listy z danymi zawartymi w trzech kolumnach. Ilość wierszy jest zmienna. Wygląda to mniej więcej tak: https://obrazki.elektroda.pl/4157421300_... Chciałbym, aby makro porównywało te dwie listy i brakujące dane (z kolumny z nazwiskiem i zerowymi danymi o ilości...
porównywanie komórek porównywanie zmiennych porównywanie liczb
wzmacniacz wysoka impedancja wielkość napisów panasonic przepalony uklad scalony
płyta indukcyjna płyta indukcyjna
Steyr 4065S – brak świateł roboczych, bezpiecznik F18, przekaźnik R7, masa M04, wiązka dachowa Salus sterownik bezprzewodowy nie włącza pieca - przyczyny i rozwiązania