Dzień dobry, Chciałem się włączyć do dyskusji, chociaż trudno zaproponować szybkie rozwiązanie przy tak dużej liczbie danych. Nie chcę proponować VBA, są pewnie lepsi od tego specjaliści, natomiast formuły Excela można na pewno zoptymalizować. Ale najpierw pytanie, czy w przykładzie kolumna I w arkuszu "wynik" zawiera spodziewany wynik? Warunek jest...
Coś takiego: [syntax=vb] Sub szukajDanejWartosci() Dim danaWartosc As Variant Dim liczbaWierszy As Integer Dim liczbaKolumn As Integer Dim i As Integer Dim j As Integer liczbaWierszy = 20 liczbaKolumn = 4 danaWartosc = 0 '<-- TEJ wartości szukasz w arkuszu For i = 1 To liczbaWierszy For j = 1 To liczbaKolumn If (Cells(i, j) = danaWartosc) Then 'MsgBox...
Posiadam wymieniony tuner z E2 i OpenATV. Nie wiem, czy to sprawa systemu, czy OpenATV. W innym wątku zostało mi doradzone, żeby wymienić OpenATV na BlackHole (było napisane na jaki, ale póki co, odstąpiłem). Chodzi o to, że jest pewna frustrująca sprawa, która powoduje, że na strojenie satelity trzeba poświęcić kilka godzin. Chodzi o to, że ten tuner...
Witam Mam nadzieję, że wynika z obrazu
Witam, Mam problem z dostosowaniem kodu i proszę o pomoc. Chcę, żeby makro oprócz warunku sprawdzenia hasła sprawdziło dodatkowo użytkownika czy się pokrywa z użytkownikiem z pierwszego logowania do pliku. Makro, które przy logowaniu się po raz pierwszy pobiera od użytkownika i zapisuje w arkuszu (tabeli) w 2 kolumnie login w postaci numeru indeksu,...
Przepraszam że na chwilkę wrócę do postu wyżej Z tym że wracając do tematu poprę kolegę marcina z tym wyszukiwaniem "/" i znakami przed i po. Jest to w miarę logiczne . A opis nie może być za długi więc i tych faktur nie będzie za dużo w jednym opisie. Banki z reguły przy wprowadzaniu opisu ograniczają to pole ( z reguły poniżej 200 znaków) Ładnie i...
Cześć. Stworzyłem pętlę która sprawdza czy w danym wierszu jest liczba czy nie. Udało mi się to zrobić pętlą for each dla konkretnego zakresu ale mam problem ze zrobieniem tego do ostatniego wypełnionego wiersza. Obecnie stworzyłem kod który jest błędny ponieważ wyświetla mi się zawsze prawda mimo tego że w jednym wierszu jest tekst. Gdzie zrobiłem...
Wtedy byłoby tak jak podają wszystkie podręczniki i fora, to znaczy: = WYSZUKAJ.PONOWO(num; nr_i_opis; 2; FAŁSZ) num oznacza komórkę z szukanym numerem, nr_i_opis stanowi teraz jedną tablicę złożoną z dwóch kolumn (adres lub nazwa tej tablicy), 2 oznacza, że wynik będzie z drugiej kolumny, a FAŁSZ (lub 0) oznacza, że funkcja ma znaleźć dokładnie to...
Spróbuj wstawić asm("nop") albo jakieś opóźnienie 10us pomiędzy PORTx a PINx. I zobacz czy coś to poprawiło. [syntax=c] uint8_t getR() // funkcja zwracająca numer wiersza { DDRB = 0xFF; //ustw kolumn na wyjście DDRD = 0x00; // ustw wierszy na wejście PORTB = 0x00; // ustw masy na wyj PORTD = 0xFF; // ustw podciągających _delay_us(10); val1 = PIND; val1...
Zaznacz kolumnę A, menu: dane> filtr zaawansowany> filtruj na miejscu, tylko unikatowe
Tamten program z linku może wyświetlać dowolny tekst, musisz tylko wpisać własne tablice z napisami. Przykładowo: Napis1: Data 0 , 126 , 129 , 129 , 129 , 126 , 0 , 0 , 126 , 129 , 129 , 129 , 126 , 0 , 36 , 0 , 126 , 129 , 129 , 129 , 126 , 0 , 0 , 126 , 129 , 129 , 129 , 126 , 0 Ta tablica zapisana binarnie: 000000000 <<--0 - kolumna nr...
Filtr działa, wg Twoich danych i ustawień tylko 1 data jest większa niż dzień dzisiejszy. Może przyjęłaś błędne założenia ? Oczywiście trzeba zmienić nazwę arkusza i numer kolumny wg której makro ma filtrować dane ...
Jak masz już zapamiętany w zmiennej numer kolumny, to możesz odwołać się do komórki w trzecim wierszu przez [syntax=text]Cells(3, numer_kolumny)[/syntax] Jeśli potrzebujesz się odwoływać za każdym razem do innej kolumny, to: [syntax=text]Cells(3, ActiveCell.Column)[/syntax]
A nie można było zmieścić w jednym wierszu? :) Poważnie: wpisz w G3 i skopiuj w dół =JEŻELI(B3="";INDEKS(A...
Najprościej zastosować Inputbox. x = InputBox("Podaj Nr wiersza", "Inputbox1") y = InputBox("Podaj Nr kolumny", "Inputbox2")
Da się, oczywiście. W pole imię (C6) wpisujesz =WYSZUKAJ.PIONOWO($C$5;$A$11:$E$... analogicznie w kolejne zmieniając nr kolumny. Można także pominąć znak $ - służy on "wygodzie" bo można po prostu formułę przeciągnąć w dół i poza numerem kolumny, który sam się będzie zwiększał o 1 pozostałe parametry zostaną zablokowane. Trzeba tylko...
Chodzi o sumę zakresu. Wartość pierwszego argumentu funkcji SUMA określana jest przez funkcję ADR.POŚR gdzie zmienia się Nr kolumny (dane w poziomie) i dlatego użyłem funkcji ADRES. Pierwszym argumentem funkcji ADRES jest Nr wiersza, drugim Nr kolumny. Pomniejszyłem go o 7 sugerując się adresem z Twojego rysunku. Dopasuj go do arkusza. Jeśli 13 dzień...
Czasami wystawiam dodatkowe rachunki na wzorach, które nie są w excelu Jeśli te dodatkowe rachunki są również numerowane (jednolita numeracja :?: ) to proponuję zrobić pomocniczą ewidencję w Excelu i w formule MAX() ująć zakres rachunków "arkuszowych" i tej ewidencji :idea: :D
(at)T.O.M.M.Y nie brnij w ten pomysł od (at)rufek90 ponieważ nawet jak doprowadzisz to do ładu to i tak nie osiągniesz to o czym pisałeś tylko dostaniesz kopię bez duplikatów. Weź użyj tego co podęłam wyżej: http://www.elektroda.pl/rtvforum/viewtop... Wydaje mi się że zwyczajnie przeoczyłeś.
Spróbuj w ogóle tak: [syntax=vba] Private Sub OK_Click() 'Worksheets("NOWOŚCI").Range("A4").End(x... 0).Value = TextBox1.Value 'Worksheets("NOWOŚCI").Range("B4").End(x... 0).Value = TextBox2.Value Worksheets("NOWOŚCI").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = TextBox1.Value Worksheets("NOWOŚCI").Range("B" & Cells(Rows.Count,...
Jeszcze linia z wyszukiwaniem: If InStr(1, .Cells(i, 1 ), rng.Value, vbTextCompare) > 0 Then wytłuściłem Nr kolumny. Jeśli H, to 8...
Sądząc z tych kawałków kodu to k oznacza numer kolumny, a zmienna display_temp_2[k] trzyma wartości bitów od góry do dołu. Więc co, nagle przybyło Ci kolumn? Albert
To masz podane w linku zdjęcie i element nr 9 - nakładka kolumny kierownicy
Makro zadziała przy otwarciu pliku. Zrobiłem kopię arkusza dla porównania. Możesz przed zamknięciem skopiować do "Arkusz1", zamknąć i otworzyć ponownie. Zmienna "kol" to Nr kolumny z datami. Przeanalizuj, dostosuj do własnych potrzeb
Dokładnie tak: [syntax=vb]=ADR.POŚR(ADRES(KOMÓRKA("zawa... w D8 numer wiersza w D7 numer kolumny W komórce gdzie to wstawiłeś będziesz miał zawartość wskazanego (d8 wiersz, d7 kolumna) pola. Oczywiście możesz się "pobawić" parametrami tych funkcji. Pewnie można to uprościć ... ale to zostawiam innym :)
Potrzebujesz jeszcze podstawić Nr kolumn. Zapis: Range(Cells(wiersz,kolumna),Cells(wiersz... Oczywiście tak: p = "A" & 1 k = "B" & 15 Range(p, k).Select lub: p = 1 k = 15 Range("A" & p, "B" & k).Select też działa.
Taka formuła to: wyszukaj.pionowo(szukana;przeszukiwana tablica, numer kolumny z której ma być zwracana dana; 0 ) Szukane dane mają być w pierwszej kolumnie tablicy (nie muszą być posortowane gdy jest 0 jako ostatni parametr formuły
Zapisujesz szerokość kolumn w dodatkowym arkuszu, przypisując każdej położenie kontrolek. Po zmianie sprawdzasz. Nr kolumny ze zmienioną szerokością będzie odpowiadać checkBox' om do zmiany. Trzeba tylko przeliczyć pkt. szerokości na Left CheckBoxa. Przykład? OK, ale trochę później. Mamy 10-go, ZUS na deklarację czeka :)
Wykorzystaj WYSZUKAJ.PIONOWO(szukana_wartość;tablica... Szukana wartość to kod, tablica to kod i druga kolumna, nr kolumny to kolumna z której mają być informację i teraz najważniejsze: 0 wtedy dokładnie będzie szukał kodu i dane nie muszą być posortowane, jeżeli nie znajdzie kodu funkcja zwraca błąd. Więc wykorzystaj tu funkcję jeżeli (jeżeli...
Jeśli dobrze zrozumiałem chodzi o coś takiego: [syntax=vb]Sub FirstAndLast(ByVal c As Integer, ByVal cellRow As Integer, ByVal cellCol As Integer) Dim i As Integer Dim first As Integer Dim last As Integer lastindex = Cells(ActiveSheet.Rows.Count, c).End(xlUp).Row For i = 1 To lastindex If first = 0 And Cells(i, c).Value <> "" Then first = i End...
-wartosc w kolumnie "O" sie zmieni na "X" i od ktorej jest uzalezniony kolor - wiersz w ktorym to wystapi jest w zakresie od "A - U" Analogicznie, zmień [syntax=vb]ost_col = Range("IV1").End(xlToLeft).Column[/synta... na sztywno ustalony numer kolumny:[syntax=vb]ost_col = 21[/syntax]
Zobacz załącznik. Dla prawidłowego działania formuł, każdą fakturę w Arkusz1 należy kończyć nowym numerem. Kolumnę F oraz zakres E1:E2 ustaw z białą czcionką i nie będzie widoczne na wydruku. Edit 21:29: Zmieniłem załącznik, poprzedni był niedokończony.
Podstaw zmienną z Nr kolumny wyniku wyszukiwania: kol =Cells.Find(..). column ActiveSheet.Range("$A$2:$P$697").AutoFil... Field:= kol , Criteria1:=RGB(255, _ 199, 206), Operator:=xlFilterCellColor
Załącz plik przykładowy. Czy te kolumny "nr projektu" tylko tak samo się nazywają w różnych arkuszach, czy są też w tych samych kolumnach (te same oznaczenia literowe kolumn)?
Najprościej będzie te kolumny wyliczyć: [syntax=vbscript] Sub FormatujKolumny() Dim tab_Cols As Variant, c% 'poniższą tablicę uzupełnisz resztą numerów kolumn tab_Cols = Array(12, 24, 70, 71, 72, 73) For c = 0 To UBound(tab_Cols) ark.Cells(ostWrs + 1, tab_Cols(c)).NumberFormat = "General" Next c End Sub [/syntax]
Po obejżeniu twojej bazy nie za bardzo rozumiem o co ci chodzi. W arkuszu1 masz zestawienie produktów a w arkuszu2 masz całkiem inne dane. W co chcesz wrzucić (w jaka kolumnę) dane z pierwszego arkusza do arkusza2? Co chcesz porównywac ze sobą?? Czy wyniki maja być w arkuszu3? W przesłanym skoroszycie zrób na razie "ręcznie" jak chcesz żeby to wyglądało...
Wrzuć jakiś przykład, bo w Excelu to co mówisz można zapisać na 5 sposobów. Jeśli dodajesz godziny do wartości sformatowanej jako Np "dd-mm-rr g:mm;(at)" to wystarczy dodać godziny podzielone przez 24 =A1+B1/24 Jeśli to ma być w tabelce, to można porównać daty wykorzystując Nr kolumny. Tylko co z tą niedzielą?
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Przeanalizuj następujące makro: Sub problem_z_sortowaniem() 'żródło A5:A11 pierwszy_wiersz = 5 ostatni_wiersz = 11 kolumna = 1 'wynik kol.B od 5 wiersza nowa_kolumna = 2 'nr kolumny wynikowej licznik = 5 'nr pierwszego wiersza For wiersz = pierwszy_wiersz To ostatni_wiersz If Cells(wiersz, kolumna) > 0 Then Cells(wiersz, kolumna).Select...
Toż Ci piszę, że tablice wielowymiarowe to abstrakcja - i tak są mapowane do tablic 1W (wektorów). Wektor o długości 16 elementów, możesz równie dobrze traktować jako tablicę 2W o wymiarach 4 x 4 - wzór na przeliczenie indeksów 2W na 1W podałem w poprzednim poście. Dim Tablica(16) As Byte Dim X As Byte Dim Y As Byte Dim N As Byte Dim I As Integer...
Znajdź sobie jakiś kurs... Bardzo uniwersalna odpowiedź. Pasuje do każdego tematu we wszystkich działach. :arrow:tang0 przeanalizuj następujący Sub wstawianie_iksow() ile = 3 'liczba iksów, pobierana z komórki lub pola tekstowego formularza kolumna = 1 'Nr kolumny 1 dla A, 2 dla B itd wiersz = 1 'Nr wiersza For wstaw = 1 To ile Step 1 wynik...
Dla mnie bomba. :) Możesz jeszcze drobne kosmetyczne poprawki zrobić. Żeby się nie wyświetlało #N/D! - formatowanie warunkowe. Dla 'NUMERY KONT BANKOWYCH'!$A$5:$J$104 zadeklarować tablicę, dla takiego właśnie obszaru, wtedy dopisując kolejny wiersz automatycznie obszar będzie się powiększał, ale w regułach będziesz musiał zmienić z 'NUMERY KONT BANKOWYCH'!$A$5:$J$104...
Szukam funkcji która by pobierała wartość z komórki i szukała numeru wiersza wyświetlając jego zawartość Funkcja [syntax=vb]=INDEKS(A:A;H8;1)[/syntax]?
Teraz to wróciliśmy do początku. (najszybcej to wstawiamy kolumnę nr. numerujemy i w.g tego szukamy)
Chciałbym odświeżyć temat. Tworze teraz arkusz normowy i zastanawiam się jak podzielić go na kolumny i wiersze tzw. ściezki, tak żeby po wstawieniu tekstu specjalnego numeru wiersza/kolumny, były numerowane według tego podziału.
Przepisałem tylko, bez sprawdzenia. Zmiennej "kol" przypisz Nr kolumny, w której wyliczasz dni miesiąca. [syntax=vb]kol = 2 'kolumna, odpowiadająca wierszowi Nr.2 w "Szychtownicy" 'zawierająca dni miesiąca 'Jeśli "Kalendarz" ma indeks 1 to licznik od 2 i wtedy zbędny drugi argument If'a For sht = 1 To Sheets.Count If Sheets(sht).Name <> "Podsumowanie"...
Co do Vloocup to nie da się tak. W każdej komórce danego wiersza musisz mieć funkcję która poda ci daną z konkretnej komórki. (w sumie tak jak index) =VLOOKUP(szukany nr klienta,Cała tabeka w arkuszu żródłowym,nr kolumny komórki ze znalezionego wiersza który ma być zwrócony,0) proponuje napisać tak =VLOOKUP(szukany nr klienta A potem skopiował przeciągając...
No i bardzo dobrze. Zostaw w spokoju literki. Mają być C:E. Zainteresuj się natomiast cyferką. W pierwszej kolumnie ma byś 2, w drugiej 3. A tak na marginesie to kłania się help dla wyszukaj.pionowo. :cry: noc długa trzeba będzie pokombinować A wystarczyło przeczytać. WYSZUKAJ.PIONOWO(odniesienie, tablica , nr_kolumny, kolumna )... Nr_kolumny jest to...
Pozostaje Ci polubić SUMA.JEŻELI albo kombinować z arkuszem pomocniczym. Np wykorzystać parzystość numeru kolumny i przetransponować równolegle do pionu, gdzie można już operować funkcją tablicową. http://obrazki.elektroda.pl/2394115700_1...
Jeżeli w następnym numerze nie ma wpisu to zapisuje czyste PDF z nagłoówkiem poprzedniego numeru Trzeba dodać instrukcje 'if" pewnie są w bazie daty niespełniające kryteria i niektóre mniejsze niż 2022-01-01.
Dzień dobry wszystkim Moje pytanie jest takie Zakupiłem używane kolumny Monitor Audio Bronze bx2 producent podaje że mają opornosc 8ohm Po mierzeniu miernikiem pokazuje mi opornosc 3,4 ohm a druga 3,6ohm Nr kolumn są takie same nie rozkręcenie membrany jak nowe Co jest nie tak z nimi. Nie jestem elektronikiem , zastanawiam się czy mogę je podłączyć...
sprawdzenie numeru konta lokalizacja numeru identyfikacja numeru
kropki samsung ariston mrugać schemat podłączyć przewód panel
sterowniki video grabber sterowniki video grabber
Olejowanie gąbki filtra powietrza w skuterze – jak i czym spryskać, preparaty Motorex, TwinAir, Malossi BK7231N Wi-Fi Dropouts: Power, Antenna, Firmware & Router Settings Troubleshooting