Witam [syntax=vb]Dim tb As Control Dim wiz As Boolean wiz = Not (Index = "") For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Visible = wiz Next [/syntax] Jeśli jest to widoczne, ale zablokowany [syntax=vb]wiz = Index = "" For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Locked = wiz Next [/syntax] nie zaleca się używania...
(at)Autor Trochę pokombinowałem z tą Twoją stroną i nie jest to takie proste jak tylko pobranie danych ze strony. Dane na stronie są pobierane z zewnętrznego serwera, przez trochę zakręcony skrypt JS i podmieniane na bieżąco na stronie, tak, że nie są zapisywane w HTML-u. Co za tym idzie, parsowanie strony, jako statycznego źródła danych nic nie da....
W takim razie może coś takiego: Pomysł bazuje na tym iż index ostatnio dodanego wykresu jest najwyższy Na początku deklarujemy : [syntax=vb]Dim wykres As Shape[/syntax] a zamiast tego [syntax=vb]ActiveSheet.Shapes("Chart 217").IncrementLeft -84# ActiveSheet.Shapes("Chart 217").IncrementTop -4.5 ActiveSheet.Shapes("Chart 217").ScaleWidth 1.07, msoFalse,...
W całości popieram zdanie kolegi jankolo (i żeby nie było, że ceruję się u moderatora) :D Toteż nie podeślę gotowca. Odpowiem tylko na zadane pytania. Czy muszę dla każdego z tych produktów tworzyć osobny warunek If Nie. czy mogę zastąpić to jakąś petlą Nie trzeba. w jaki sposób? Tworzysz formularz. Umieszczasz na nim Combobox -a i Label -a. Właściwość...
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...
Witam, w moim pliku Excel mam spis dostawców wraz z tkaninami, które dostarczają (jak w załączonym obrazku), czyli dostawca jest w nagłówku, a poniżej są tkaniny. Potrzebuję formuły, która po wpisaniu tkaniny zwracałaby dostawcę. Próbowałem WYSZUKAJ, X.WYSZUKAJ, INDEX wraz z PODAJ.POZYCJĘ, ale nie umiem tego ogarnąć przy wielu wierszach przeszukiwania....
(at)ElektrodaBot udało się rozwiązać problem, ale mam jeszcze jedno pytanie. Co zrobić żeby dane pobrane z formuły INDEX i MATCH po zapisaniu w folderze były stałe ?. To znaczy jak na przykład osoba której prześlę ten plik, a nie ma dostępu do pliku źródłowego widziała wygenerowane wcześniej dane w komórkach ?
Witam Excel funkcja wyszukaj pionowo dla fragmentu tekstu działa tylko w komórkach które maja maksymalnie 255 znaków. Próbowałem użyć innej funkcji INDEX oraz PODAJ.POZYCJĘ ale sytuacja jest ta sama działa jak znaków w komórce jest maksymalnie 255 powyżej zwraca błąd. =WYSZUKAJ.PIONOWO("*"&C1&"*";A1:A6;1;FAŁ... Czy są inne funkcje lub jaką użyć żeby...
Super, właśnie o to mi chodziło!. Próbowałem jakoś to ubrać w wyszukaj pionowo i Jeżeli ale nie potrafiłem sobie poradzić. Tak czułem, że może chodzić o coś z funkcją index i podaj pozycję ale nigdy ich nie używałem więc mam okazję się podszkolić. Dziękuje bardzo.
Powyższy kod drukuje do pdf arkusz 'Menu'. A co gdy w A6:A156 będą puste komórki? Dla [syntax=vbscript]Sheets(Application.Tran... ark = 1, to index arkusza, a nie nazwa...
Witam Zrobiłem wzory 3 arkuszy. Docelowy to docelowy - chodzi o 2 makra: 1. Wrzuci dane z export zrodlo.csv - do kolumny Q-U (na czerwono) według kolumny B (Index) Kolumny opisane tak samo. 2. Wrzuci dane z price export - kolumny H i J do X i Y według kolumny index - kolumna A w źródłowym. Problemem może być, że dane w CSV są kodowane UTF-8 i takie...
Witajcie, mam taki mały problem który opisze w skrócie. Przypuśćmy arkusz i w A1 grudzień roku poprzedzającego A2 styczeń, A3 luty .... tak do grudnia kolejne komórki. Teraz w ustawiam się np w komórce A20 i w niej potrzebuję uzyskać wartość niższą od kolejnej wprowadzanej wartości. Czyli w A1 mam np. wartość 1 w A2 mam wartość 5 w A3 mam wartość 7,...
Chodzi o wyświetlenie jakiegoś komunikatu który będzie informował, o nieuzupełnieniu jakiegoś pola textbox, a w przypadku comboboxa jeżeli zostanie wybrany index 0. Nie pozwoli na utworzenie formularza jeżeli nie zostana wpisane wszystkie pola.
Witam, mam tablicę, do której potrzebuje dopasować wartości z innej tablicy. Jest to teoretycznie proste dopasowanie więc zdecydowałem się na skorzystanie z funkcji wyszukaj. pionowo (mam klucz wyjątkowy, który pojawia się w drugiej tablicy tylko raz a szukana wartość jest w kolumnie po prawej stronie od niego). Problem polega na tym, że wartości (klucze),...
Dzieki Marku :-) Dam znac jak poszlo. Dodano po 11 Okay. Przyznam, ze Vlookup i Hlookup nie sa mi absolutnie obce, aczkolwiek zawieszam sie na posrednim efekcie. Nie podobnym do tego czego potrzebuje :) Jak zrobic zeby VLOOKUP lub HLOOKUP zwrocil jako efekt caly wiesz? Da sie tak? Dodano po 3 Ok. Chyba mam - Funkcja INDEX dziala prawie tak jak chce!...
To rozwiązania takiego problemu należy wykorzystać Index Array Przykład: - Zrób nowy projekt VB - Narysuj jedną kontrolkę - Zaznacz ją a następnie skopiuj ( CTRL +C) - Wklej ją żądaną ilość razy ( CTRL + V) Podczas pierwszego wklejenia otrzymasz info iż kontrolka o danej nazwie jest wklejenie spowoduje stworzenie tablicy kontrolek odpowiedz yes kliknij...
Dim Czas As Long Dim hh,mm,ss As Long Dim ZmienCzas As String Dim index As Int16 = 1 While True Czas = Cells(index,2) if Czas = 0 or czas = Nothing then Exit While End If hh = Czas \ 3600000 mm = ((Czas Mod 3600000) \ 60000) ss = ((Czas Mod 60000) \ 1000) ZmienCzas = hh & ":" & mm & ":"...
Dalej nie do końca rozumiem o co ci docelowo chodzi. Po twojej ostatniej wypowiedzi wnioskuje że chcesz mieć jedynie jakieś zabezpieczenie przed dublem gdy będziesz nadawał numery wewnętrzne dla danej "grupy" KOD EAN/INDEX/ NAZWA. Więc sortowanie nie będzie konieczne, tym bardziej jak kody będą wprowadzane "czysto" ręcznie. Poniżej (na razie bez makr)...
Po problemie poradziłem sobie poniżej kod VBA [syntax=vb]Private Const SheetTargetIndex = 1 ' index of target sheet (1..N) Private Const SourceRow = 13 ' row number where source content start Private Const SourceCol = 2 ' column number where source content start Private Const TargetCol = 20 ' column number for target copy Public Sub RunCopyProcess()...
Witam, potrzebuję funkcję która umożliwi mi zliczenie komórek o określonej wartości ze wszystkich arkuszy w pliku. każdy z arkuszy odpowiada za określony dzień miesiąca. tam wypełniane są dane dot. pewnych prób określone poprzez index towaru i inne jego parametry. na koniec muszę sprawdzić liczbę kontrolną ile razy w danym miesiącu wystąpił określony...
Spróbuj wpisać w Arkusz1 C2 coś takiego =INDEX(Arkusz2!B:B;(PODAJ.POZYCJĘ(B2;Ark... Coś jest nie tak w tej formule... A co jest nie tak? Wkelp INDEKS zamiast INDEX Jeżeli nazwa w Arkuszu1 ma byc nie zmieniana a tylko D i E to po wklepaniu w D2 formuły =INDEKS(Arkusz2!C:C;(PODAJ.POZYCJĘ(B2;Ar... w Kolumnie C dostaniesz Model...
nie rozumię tych funkcji podaj pozycje i index ! konkretnie =PODAJ.POZYCJĘ(N1;{dane!B:B;0)} wiadomo tyczy się n1 dalej dotyczy arkusza dane no i tu B:B;0 ! =PODAJ.POZYCJĘ(B4;dane!B:B;0) to samo =INDEKS(dane!C:AG;$B$3;WIERSZ()-5) tu zrozumiale do momentu WIERSZ()-5) problem jest w tym ze tam gdzie zmieniasz system zmianowy N1 chcę aby jednocześnie zaznaczało...
Witam potrzebuje koniecznie pomocy, gdyż sam już próbowałem kombinować ale widocznie jeszcze za słabo znam excela. Na osi x mam normalne wartości ale na oś ''y'' muszę wstawić wartości wyrażone w 10 do minus siódmej potęgi, jak to zrobić, próbowałem index górny tam w excelu ale coś jeszcze do tego nie doszedłem chyba.Próbowałem też apostrof czyli: '5,15*10-7...
Uczulenie na klawisz =INDEKS(październik!B:B;PODAJ.PO... Funkcja zwróci wartość z kolumny B, z wiersza z jedynką w kolumnie H.
Cóż, zamysł jest dobry. Projekt do najłatwiejszych nie należy i z pewnością jest czasochłonny. Uparcie brniesz dalej, gdzie większość woli gotowce i dawno rzuciłaby to w diabły nie narażając szarych komórek na przepracowanie. Tu tylko podziwiać, gratuluję. Dzieki:) ja robie bo jest mi to potrzebne a i chce sie nauczyć vb. od czegoś trzeba zacząć. No...
Sam kod w VBA, w najprostszej postaci, nie jest skomplikowany. Z pewnych wzgledów jest to bardzo uproszczony sposób na uzyskanie zamierzonego zadania. Na poczatek należy jasno okreslic pewne warunki jak ma dzialac taka procedura. Po pierwsze to w zadnym przypadku nie powinno sie do tego celu korzystac z dodatkowego arkusza. Po drugie procedura powinna...
Dzięki kolego, formuła działa wyśmienicie :) Ale poproszę Cię abyś zerknął na poniższy kod VBA. Kod działa poprawnie ale jak widać jest potężny ponieważ nie mogę zadać zbyt długich zakresów dlatego procedurę musiałem podzielić na jedenaście części. Prozę podpowiedz mi jak zadać zakres aby kod składał się tylko z jednej części a nie z jedenasty? [syntax=vb]...
Witam wszystkich. Mam pytanie związane z zakresami. W pliku mam zawarty poniższy kod: Dodano po 4 Rozwiązałem problem w ten sposób że cały zakres który chciałem, podzieliłem na parę części tak żeby poprawnie działało, jednak kod zrobił się potężny. W sumie to liczy się efekt i to że poprawnie działa, ale może jednak ktoś ma pomysł na to jak ten kod...
Najczęściej wystarczy nacisnąć [F1] ;) Warto zapoznać się z: [url=http://office.microsoft.com/pl-pl/e... funkcji [url=http://dzono4.w.interia.pl/index.ht... w Excelu - kurs dla początkujących
To super. Który dokładnie model Bramstera? Czy ten http://www.amt-alarmy.pl/index.php?t=158... ? Miałbym też pytanie jakie krańcówki zostały użyte? Pzdr Dariusz
Jest w Excelu dodatek darmowy Power Query do wersji 2010 i 2013 a od wersji 2016 jest wbydowany który potrafi to zrobić bez VBA Tu masz link jak to zrobić Pozdrawiam. https://www.youtube.com/watch?v=oAOXgHq0...
Na Twoim przykładzie dla przycisków '< ' a '> ' na arkuszach nie powinna oddzielne makra. Wystarczy dla dwóch. Dla '<' [syntax=vb] If ActiveSheet.Index >1 Then Activesheet.Previous.Activate [/syntax] Dla '>' [syntax=vb] If ActiveSheet.Index <9 Then Activesheet.Next.Activate [/syntax]
Wystarczy się trochę "rozejrzeć"... [url=https://www.excelanytime.com/excel/... Interesują cię: IsDate Day Month Year
Poniżej rozwiązanie z wykorzystaniem VBA Kliknij prawym przyciskiem na nazwie arkusza, z menu kontekstowego wybierz "wyświetl kod". W edytorze VBA wpisz: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value = "x" Then Range("C1") = Range("B1") Else Range("C1") = "" End If End If End Sub Zapisz plik w formacie...
funkcje: "podaj pozycję" i "index" powinny Ci pomóc.
W tym konkretnym przypadku powinno zadziałać: =LEFT(INDEX(Sheet2!B:B;MATCH("? - " & Sheet1!B1;Sheet2!B:B;0));1) Wklej w komórkę B1 w arkuszu Sheet3 i przeciągnij w dół.
Polecam też Excel - arkusz dla każdego , excel.blox.pl wiele przetestowanych przykładów. Co do opisu samych funkcji i formuł bardzo przydaje się pomoc Excela.
[syntax=vb]For i = 1 To 1000 r = i * 4 ark.Range("B" & r).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),1))" ark.Range("B" & r + 1).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),8)&"" | ""&INDEX('Lista...
A przy pomocy [url=http://www.bardzki.pl/index.php?mid... kolega próbował?
Wszystko zależy jakich ktoś formuł użył. Jeżeli w formułach sa odwołania do adresu to nie ma sprawy. Tworzysz pustą kolumnę gdzie chcesz żeby były dane. Zaznaczasz cała kolumnę z danymi. Chwyć myszą za krawędź i przesuń na nowe miejsce. Usuń pustą kolumnę. Jeżeli jednak wykorzystywane są formuły gdzie kolejność kolumn jest ważna [np. Wyszukaj.pionowo()]...
Witam Ponownie! Muszę powiedzieć że bardzo zaciekawił mnie temat wysyłania powiadomień przez excel (wysoko posrawiona poprzeczka) i dlatefo znalazłem coś takiego! http://www.bardzki.pl/index.php?mid=exce... może ktoś znajdzie rozwiązanie problemu!! Zyczę powodzenia!
Zmień ostatni argument funkcji MATCH. No i z tym And też coś się nie klei: 1 )
Użyj INDEX i PODAJ.POZYCJĘ
Witam. Dysponuje programatorem TOP MAX (http://www.eetools.com/index.cfm?fuseac... Lsta obsługiwanych układów: http://www.eetools.com/index.cfm?fuseact... Ile sztuk i jakie obudowy?
[url=http://www.bardzki.pl/index.php?mid... kwot liczbowych słownie
Witaj [syntax=vb] Dim ark As Worksheet, r As Long Set ark = ActiveSheet Application.ScreenUpdating = False For r = 1 To 110 ark.Range("B" & r * 4).Formula = "=IF(B" & r * 4 - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r * 4 - 1 & ",'Lista pracownikow'!$D:$D,0),1))" ark.Range("B" & r * 4 + 1).Formula = "=IF(B" & r * 4 - 1 & "="""","""",INDEX('Lista...
Poprawić bez łączenia pliku - po prostu nie logiczne zadanie MATCH(' dd.mm.yyyy '! Być może arkusz ma nieco inną nazwę. Dodano po 4 ActiveCell.FormulaR1C1 = "=INDEX(Vendors!C[-6]:C[-5],MATCH('" & Format(Date, "dd.mm.yyyy") & "'!C[-6],Vendors!C[-6],0),2)"
lub ma materiały o tym traktujące to proszę o pomoc. http://www.fonar.com.pl/audio/projekty/i... Transformatory głośnikowe (wyjściowe) ten link powinien nieco pomóc.
Wykres: http://www.litgrid.eu/index.php/dashboar... Excel: http://www.litgrid.eu/index.php/generate...
Nie do końca jest to prawidłowe. (Już przez to przechodziłem :) ) Trochę niepotrzebnie zagmatwałeś funkcje niemniej zobacz, że ci nie będzie działać przy niepełnej dniówce która kończy się w kolejnym dniu rano. Poniżej kod który to "załatwia" ( ja mam inne kolumny - przesuniecie ? ) [syntax=vb] ark.Range("G" & r).Formula = "=IF(F" & r &...
excel index index arkusza excel index arkusz excel
zmywarka uszkodzić pomiary przekładników prądowych pomiar oporność
ekspres krups ea897 bosch suszarka
Hitachi ZX210 EX210 lokalizacja głównego zaworu przelewowego hydraulika schemat Massey Ferguson VT 7460 – błąd E 653 wtryskiwacz 3, diagnostyka i naprawa
