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...
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 ? Cieszę się, że udało Ci się rozwiązać problem z funkcją...
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.
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...
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...
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
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ół.
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.
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...
Tu masz programy magazynowe. http://dobreprogramy.pl/index.php?dz=1&t... Spokojnie coś wybierzesz. Możesz także to zrobić w Excelu lub jeszcze lepiej w OpenOffice, ponieważ jest darmowy. Zrobienie takiego arkusza w Excelu czy OpenOffice to przysłowiowa "bułka z masłem". Dla przykładu robisz pionowe kolumny, które odpowidają poszczególnym materiałom....
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]
Jeśli indeks arkusza, czyli jego nr położenia w zeszycie, to np. tak: [syntax=vba]Option Explicit Sub wstaw_nr_arkusza_w1() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets ark.Range("a5").Value = ark.Index Next End Sub [/syntax] Można to powiązać np. z procedurą otwarcia zeszytu 'Workbook_Open': [syntax=vba]Private Sub Workbook_Open() Call...
[syntax=vbscript]ActiveSheet.Index[/synt...
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...
Spróbuj wpisać w Arkusz1 C2 coś takiego =INDEX(Arkusz2!B:B;(PODAJ.POZYCJĘ(B2;Ark... Nie wiem, czy o to chodziło.
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.
Proponuję: 1) Zamiast formuły z funkcją JEŻELI zastosować formułę z funkcją MAX. Uniknie się w ten sposób dwukrotnego odwołania do tych samych danych. 2) Jeżeli będziesz przestrzegał zasady, że nowe arkusze są dodawane zawsze na początku (a nie na końcu, jak robi się zazwyczaj), to będziesz potrzebować zawsze odwołań do następnego arkusza w kolejności....
Najprawdopodobniej zaznaczasz >1 komórkę. Dopisz warunek: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Index > 10 Then If Target.Cells.Count = 1 Then If Target.Address(0, 0) = "A1" And Target.Value <> "" Then Sh.Name = Target.Value End If End If End If End Sub[/syntax]
Nie trzeba makra wystarczy Power Query dodatek do Excela 2010 2013 od 2016 wbudowany https://www.youtube.com/watch?v=oAOXgHq0...
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)"
Może nie w temacie ale jaki jest cel kopiowania danych z Excela do Worda ? Jeżeli to częsta operacja to może prościej ustawić sobie wzorcowy arkusz Excela i za pomocą kilku funkcji wyszukaj.pionowo () czy index() oraz list rozwijalnych wybierać co nam jest potrzebne ?
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...
Spróbuj: 1. Otwórz nowy plik i w komórce A1 każdego arkusza wpisz Nr w formacie jaki podajesz. 2. Wstaw moduł i wklej do niego następujący Sub ZmienNr() Dim kom As Range For j = 1 To Sheets.Count Sheets(j).Select For Each kom In Range("A1:A1") If IsNumeric(kom) Then 'dwie pierwsze cyfry nowyNr = Mid(kom,...
napisałem: zależności od indexu np. 93-001 dlaczego w module jest 92001? Wartości 2, Warości 3, to zużycie foli w kolejnych kwartałach Dodano po 19 jak zapisać index 93-020-001
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Rano jednak widzi się świat VBA inaczej ;) Bo wystarczy przecież: Ark.name = replace(Ark.name, "scal" , "scalone_") Odn. posiadania wiedzy. Takie podstawy podstaw warto jednak opanować: [url=http://dzono4.w.interiowo.pl/index....
do tego celu lepiej jest wykorzystać jakaś baze danych stworzoną np w Akcesie w excelu będziesz musiał oddzielić ogladanie takie bazy od wpisywania danych Oglądanie za pomocą funkcji: wyszukaj.pionowo, wyszukaj poziomo lub index a do wprowadzania stworzysz albo jakiś formularz albo np w każdym arkuszu będziesz miał dane na dany miesiąc i tam bedziesz...
Ktoś kiedyś na tym forum polecał tą stronę: [url=http://www.e-kanban.pl/index.php?op... Spróbuj zastosować to rozwiązanie, wymaga jedynie drobnej przeróbki aby importować dane do jednego arkusza...
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ść...
Mógłbyś jeszcze mi podpowiedzieć jak zrobić makro na wszystkich plikach w folderze ? W poprzednim moim temacie napisałeś kod: [syntax=vbscript] Sub DzialajNaPlikach() With Application.FileDialog(msoFileDialogFold... .Title = "Wybierz folder" .InitialFileName = Environ("USERPROFILE") & "\Documents\" If .Show = -1 Then Sciezka = .SelectedItems(1)...
Cześć, Z góry mówię jestem totalnie początkujący. Potrzebuję napisać makro w Excel, które odpowiednie wartości z tabeli w arkuszu 1, wynikające z połączenia żółtej kolumny i zielonego wiersza przypisze do listy w arkuszu 2 w kolumnie obok. Zakładam, że w tabeli będzie można dokładać kolejne wiersze lub kolumny. W kolumnie C zapisałem wynik jak powinno...
Witam Ale tak jak pisałem index raczej nie obejmuje arkusza. Co do WBA to się na tym za bardzo nie znam całość wygląda tak Range("A1:F10").Select Selection.ClearContents Sheets("1").Select Range("A1:F10").Select Selection.ClearContents próbowałem zmienić "1" na select ale nie skutkuje.
Dzięki kradam. Dziwny ten bug znalazłem z tym dodawaniem daty. Ciekawe dlaczego u każdego jest inaczej :) Ale masz racje nie ma co wnikać. Co ciekawe znalazłem rozwiazanie problemu bez użycia skryptu. Oto one: Wersja Excel (formuła tablicowa): =INDEKS(A:A;MAX((A:A<>"")*WIERSZ(A... Wersja Google: =ARRAYFORMULA(INDEX(A:A;MAX((A:A<>...
Aby pominąć pierwszy arkusz trzeba go zidentyfikować i w razie wyboru tego arkusza zastosować Exit Sub. Arkusz można zidentyfikować na 3 sposoby: przez nazwę "zakładkową", przez numer (indeks) lub przez nazwę kodową. Wybierz 1 z tych sposobów - najdogodniejszy, tzn. wymagający najmniej zmian przy modyfikacji skoroszytu. [syntax=vbnet]If Sh.Name = "Koszty...
aby tak samo zapisywało tylko w formacie .xlsx? Jeśli chcesz archiwizować swoje oferty także w pliku Excela :?: To proponuję w tym samym katalogu co makro zrobić jeden plik xlsx - "archiwum" (w poniższym kodzie zastosowano nazwę - Kopie wysłanych.xlsx - pusty plik o takiej nazwie musi być uprzednio utworzony :!: ) gdzie przechowywać będziesz poszczególne...
Musisz umieścić wyszukiwanie w pętli. Trochę teorii: For Each sh in ThisWorkbook.Sheets , deklarując wcześniej sh As Worksheet .
Ja zaproponuje takie wskazówki: Proponuję dodać jeszcze jeden arkusz (później ukryty) np o nazwie słownik. W arkuszu tym stworzył bym za np pomocą funkcji jeżeli(), licz.jeżeli(), max() i wyszukaj.pionowo() "aktywny" słownik firm na podstawie danych z arkusza "lista...". Tak zrobioną listę/słownik powiązałbym z pierwszym okienkiem wyboru w arkuszu głównym....
Arkusz baza danych W tym arkuszu mam spis wyrobów dostępnych w firmie. Jeden wiersz, jeden produkt, posiadający nazwę i przypisane do niego dwa atrybuty, czyli ID i index. Arkusz jest zblokowany przed edycją. Chce zrobić narzędzie, dzięki któremu pracownik, po wyborze któregoś wiersza będzie mógł dodać do niego komentarz, np: Pracownik wybiera wiersz...
Brak odzewu może być spowodowany kiepskim uzasadnieniem sensu wykonywania takiej operacji. Zwykle kontrolki AciveX zaznacza się (w trybie projektowania) trzymając Ctrl, kopiuje (ctrl+c) i wkleja (ctrl+v) w wybrany arkusz, lub kopiuje cały arkusz (ppm). Dlaczego chcesz to zautomatyzować? Ile takich operacji wykonujesz? Czy oprócz przycisków w arkuszu...
Witajcie, mam do Was ogromną prośbę o pomoc w ogarnięciu, dla mnie rzeczy priorytetowej w organizacji moich codziennych zajęć, metoda na zeszyt zaczyna już mnie przerastać. Proszę o pomoc w garnięciu prostego arkusza kalkulacyjnego, gdzie główną "bazą" będzie zakładka z tabelą, w której znajdą się takie pola jak: nazwa, index, lokalizacja, ilość, cena,...
Myślę, że Autorowi chodzi o coś takiego: [syntax=vbscript]Sub Kopij() a = ActiveSheet.Index - 1 Set b = Sheets(a) ow = b.Cells(Rows.Count, "A").End(xlUp).Row b.Range("A4:A" & ow).Copy ActiveSheet.Range("A4") b.Range("AD4:AD" & ow).Copy ActiveSheet.Range("AD4") b.Range("AE4:AE" & ow).Copy ActiveSheet.Range("AE4") End Sub [/syntax]
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...
Samo przeskakiwanie do następnego arkusza można rozwiązać tak: [syntax=vbscript]If ActiveSheet.Index = Worksheets.Count Then Worksheets(1).Select Else ActiveSheet.Next.Select End If[/syntax] Jeżeli chodzi o uruchamianie makra w konkretnym arkuszu, to może lepiej je umieścić w Module i uruchamiać na ActiveSheet?
Poszukaj na stronie Chipa: Administracja http://download.chip.pl/index/download_i... Programy ewidencyjne http://download.chip.pl/index/download_i... Bazy danych http://download.chip.pl/index/download_i...
No tak ale jest Auto filtr tekstu w tabelach (jak raz ustawie wiersza nie pokaże na stałe) nie da się tego ustawić tak by w momencie pojawienia się np "0" w tabeli nie pokazywał tego wiersza a gdy wartość zmienię pojawi się? Następnie wracam do tematu grafiki (lub czegoś zastępczego) moim zamierzeniem jest wstawienie wzoru (z innego arkusza) lub pojawienie...
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...
Uczulenie na klawisz =INDEKS(październik!B:B;PODAJ.PO... Funkcja zwróci wartość z kolumny B, z wiersza z jedynką w kolumnie H.
Bierzesz się za poważniejsze funkcje a nie do końca znasz same podstawy excela funkcja indeks(tablica z danymi;nr wiersza;nr kolumny) ma za zadanie wyszukiwać dane w twojej tabeli. Czyli określasz całą tablicę; określasz numerycznie z którego wiersza twojej tabeli i z której kolumny twojej tabeli mają się pojawić dane. Ponieważ chcesz aby dane pojawiały...
Proponuję poświęcić odrobinę czasu na "zaliczenie" jakiegoś kursu. Np If A1="praca" Then D5=A1". Nie masz wrażenia, że skądś to znasz? To samo już po "Excel'owskiemu": '=JEŻELI(A1="praca";A1;"")' Jeśli chciałbyś skopiować komórkę również z formatowaniem, możemy rozejrzeć się za "sugerowanym" przez tłumacza 'copy'. Nagrać makro z Ctrl+C i Ctrl+V, następnie...
Przetestuj poniższy kod (zdarzenie dla arkusza w którym wypełniamy komórkę A1): [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing And IsNumeric(Range("A1").Value) = True And Range("A1").Value >= 0 And Range("A1").Value < Sheets.Count Then 'jeżeli wpiszemy do A1 0 to pojawią się wszystkie...
Hmm... Trochę więcej tych danych, niż się spodziewałem. Najprościej byłoby dodawać[syntax=text]WYSZUKAJ.PIONOWO(RAN... MIN w kolumnie C, to 2, MAX - 32, suma kolumny 80326 (losowań) w 5000 wierszach :( Nie mam tyle cierpliwości. No i będzie się działo gdy zmienią się dane w kolumnie C. LOS, MAX.K, INDEX(... w...
1. ... projekt (kilkanaście tyś. zdjęć) ... 2. ... miałoby wyglądać tak, że w katalogu w którym są zdjęcia (głównie *.JPG chodź mogą być inne formaty) wrzucam plik: prezentacja_tuJejNazwa.ppt . I otwieram go i prezentacja się uzupełnia np. po na ciśnięciu przycisku o zdjęcia z katalogu. 3a. ... Zdjęcia idą po dacie wykonania zdjęcia od najmłodszego...
Witam, Mam pytanie. Posiadam dwa arkusze, w których część danych jest wspólna dla obu. W moim arkuszu (cenniku) widnieją produkty wraz z cenami. Arkusz z nowymi cenami zawiera czasami zaktualizowane ceny, ale lista produktów jest większa (część z nich została usunięta). Jak mogę w prosty sposób dokonać aktualizacji (produktów jest około 500 więc ręcznie...
Kurcze, szukałem na prawde długo i nic nie mogę znaleźć. Jest dużo o imporcie .txt i .csv, ale o .xls i .xlsx nie mogę znaleźć :( Być moźe dlatego, że niepoprawnie zadaje pytanie do szukania. Będę wdzięczny za każdą wskazówkę Pozwól sobie pomóc i napisz jak ten import ma wyglądać? Gdzie znajdują się pliki do importu, jak się nazywają, jak mają się...
(at)clubs Masz rację, jak usuwam linijkę w kodzie z dodatkowym "findem" to pętla działa poprawnie. Poprawiłem trochę kod i praktycznie został mi tylko jeden "find" ale bez niego nie wiem jak to zrobić inaczej aby znaleźć w drugim arkuszu nazwisko wybranego pracownika. A bez tego cały projekt do piachu.... Miałem wstawić plik, ale niestety z braku czasu...
Powiem Ci, że funkcje przedstawione wcześniej przeze mnie w połączeniu z nazwanymi zakresami ewentualnie z adr.pośr() jeszcze lepiej się sprawdzą. Nie da się tego prościej, tym bardziej że arkuszy może być wiele, klientów może być wiele, wybory okresów mogą być różne. Słuchaj. Tak jak sam napisałeś. To nie jest proste zagadnienie. Wymaga znajomości...
Cześć wszystkim, Bardzo proszę o wsparcie w rozwiązaniu trapiącego mnie problemu związanego z napisaniem funkcji do Excela... Mój problem wygląda mniej więcej tak... Posiadam 2 arkusze: Arkusz 1 - Dane (zawiera on 3 kolumny tj. data, godzina i wartość), z którego to potrzebuję na podstawie pierwszych dwóch wartości uzyskać trzecią. Arkusz 2 - Wynik...
Stworzyłem małe Call Center z którego nawiązuje połączenia do różnych klientów w różnych sieciach. Mam darmowe połączenia do wszystkich oprócz PLAY-a. Niestety ta sieć powoduje znaczny wzrost kosztów telefonowania. Dlatego też bardzo cenna jest dla mnie wiedza z jakim operatorem się łącze. Operatora mogę sprawdzić na tej stronie: MOJE PYTANIE Czy można...
Witam. Bardzo proszę o pomoc. Czy może ktoś pomóc w połączeniu wzorców pomocniczych ze wzorcami głównymi tak aby całkowicie można uniezależnić wzorce główne od wzorców pomocniczych i aby wszystko liczyło tak jak w załączonym pliku? Dla wiadomości: górny INDEX to nadgodziny, dolny INDEX to dniówki, w przypadku obu INDEX-ów nadgodziny i dniówki mogą mieć...
No dobra chcesz się uczyć to proszę :) [syntax=vb]Sub dodaj() 'to deklaracje zmiennych czyli przypisanie do danej zmiennej typu np kod as String to znaczy że "kod" jest ciągiem tekstowym a np. wiersz as integer to znaczy że "wiersz" jest liczbą całkowitą z przedziału -32.768 do 32.767 . 'Przyczym VBA pozwala na to by nie deklarować zmiennych ale kultura...
A może kolega mi podpowiedzieć jak to zrobić w excel'u ? Wystarczy stworzyć odpowiedni skoroszyt z niezbędnymi danymi. W zależności od ilości komputerów można albo stworzyć jeden podstawowy/zbiorczy arkusz lub arkusze na poszczególne komputery. Kończące się terminy można sygnalizować np. zmianą koloru wyświetlanej komórki itp. Do odczytu danych z komputerów...
Bo chyba html nie zaciągnie w bezpośredni sposób tabeli xlsx Ramki to ramki - trzeba poczytać o html. Można użyć polecenia Object: http://webmaster.helion.pl/index.php/ply... Mimo tego, że ramki nie są zalecane, to i tak programy do budowania www, np. www.websitex5.com je stosują ;) Od biedy można całą tabelę zapisać z poziomu Excela jako...
Wszystko zależy jak skomplikowany ma to być program. W najprostszym rozwiązaniu wystarczyłby Excel (lub Open Office) z współdzielonym arkuszem (odpowiednio wcześniej przygotowanym) umieszczonym na serwerze. Do rozdzielania zadań można też wykorzystać Outlooka (z pakietu Office) lub komunikatory po LAN-ie (np. RivChat, LanChat). W innym przypadku poszukaj...
Witam Dzięki Maciej Gonet za pomoc :D . Dla zainteresowanych [syntax=vb]Sub tworzenie_formuły_tablicowej() ' ' tworzenie_formuły_tablicowej Makro Sheets("generator formuł").Select a = Sheets("generator formuł").Range("A5").Value b = Sheets("generator formuł").Range("A7").Value c = Sheets("generator formuł").Range("A11").Value d = Sheets("generator formuł").Range("A13").Value...
Cześć, mam do napisania Makro, które będzie tworzyło nowy plik Excel i wstawialo w nim tabele, której elementami będa konkretne wartości z pierwszwgo excela oraz spis jego arkuszy, powiem szczerze,że makro wywala mi się na odwołaniach do oryginalnego Excela (nazwa "Zadania"). nie jestem niestety ekspertem VBA i chyba moja wiedza sie wyczerpała. dzieki...
Mam makro, które kopiuje ze wskazanego pliku kolumny A:N i wkleja do odkrywanego arkusza w pliku z makrem. Takich plików, z których są kopiowane kolumny może być do 9 (może być mniej). Arkusze do których są kopiowane kolumny mają nazwy 'I L", "II L" itd do "IX L". Jak zrobić, żebym nie musiał każdorazowo uruchamiać makra do każdego pliku. Chodzi mi...
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,...
Może trochę więcej kodu pokażesz? Pokazuję. :-) [syntax=vbscript]Sub plikDoImportu() Application.ScreenUpdating = False On Error Resume Next Dim zakres As Range Dim kierowca As String, akronim As String, sciezka As String, nazwaPliku As String Dim arkImport As Worksheet, arkNowy As Worksheet Dim wiersz As Long, licznik As Long Set arkImport = Sheets("Import")...
Zrobiłem pętle ( w zasadzie dwie bo jednej nie potrafię, ale to nie ważne bo działa jak powinno ) [syntax=vb] Sub kopiuj2() Dim i As Double Dim z As Double z = 1 y = 1 ActiveWorkbook.Worksheets.Add After:=Sheets(ActiveWorkbook.Sheets.Coun... For Each Ark In ActiveWorkbook.Worksheets If Ark.Index <> ActiveWorkbook.Sheets.Count Then Ark.Activate...
Witam. Pobawię się trochę w archeologa i odgrzebię ten leciwy temat. Mam pytanie odnośnie możliwości automatycznego ściągania plików xml (8) z konkretnej strony: http://ec.europa.eu/sanco_pesticides/pub... (dokładnie przez adresy odnośników na tej stronie: od 1 to B do R to Z.). Czy taka operacja jest możliwa jakimś...
https://obrazki.elektroda.pl/9396852000_... Wstępna ocena dostępnych informacji Na załączonym ekranie widoczne są dane zapisane w arkuszu kalkulacyjnym Excel. Arkusz zawiera trzy główne tabele: 1. Tabela 1 (kolumny A-D): zawiera dane liczbowe pod nagłówkami „LO”, „CW”, „ZW”, „CO”. 2. Tabela 2 (kolumny E-H): na razie wypełniona jedynie w...
Witam, Mam dość prostą własną funkcję (w komórkach A1:A5000), która zastępuje mi albo 1 rozbudowaną funkcję w funkcji excela albo 3 funkcje (w komórkach A1:C5000). Problem jest taki, że teraz za każdym razem mi się przelicza. Jak puszczam makro, to chyba z 5-10 razy przelicza mi się ta funkcja ( co przedłuża pewnie działanie makra). Nawet jak w innym...
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...
Żeby jeszcze skarpetki cerowało, śmieci wynosiło :D Coby wiele nie zmieniać dołączyłem copy-paste Sub data() If ActiveCell <> "" Then cel = ActiveCell.Address tmpID = ActiveSheet.Index If IsDate(ActiveCell) Then For i = 2 To Sheets.Count Sheets(i).Range(cel) = DateSerial(Year(ActiveCell), Month(ActiveCell),...
Witam ponownie. Pracuję obecnie nad makrem, które miałoby kopiować dane ze stworzonej wcześniej tabeli przestawnej do poszczególnych zakładek/zeszytów (które noszą nazwy osób) na dany dzień. Uwagi i założenia: 1. Tabela przestawna z danymi - daty jako wiersze, imiona i nazwiska osób jako kolumny (a w tabeli dane liczbowe do przyporządkowania). 2. Poszczególne...
Witam porady kolegi za bardzo mi nic nie dały ponieważ chciałem to w jak najprostszy sposób wykonać eksport tabeli wyświetlanej w DBGridzie do nowo otwartego arkusza Excela Pobrałem komponent http://www.scip.be/index.php?Page=Compon... I niestety nie wiem jak to ugryźć Połączenie z bazą MySQL-ową tworzę za pomocą elementów SQLConnection1...
Dzięki, za zainteresowanie :) Udało mi się go postawić. Ściągnąłem soft RouterTech na Linuxie, i od tej pory wszystko działa. Jednak gdy znowu próbuję wgrać soft DLinkEU_DSL-G604T_V2.00B01T01.EU.2005093... (tym razem da się wgrać bez problemu) po wpisaniu ip urządzenia wyskakuje prośba o login i hasło, a gdy je wpiszę pojawia się strona logowania...
Kreator importu to trudno uruchomić ... ale da się napisać po prostu skrypt, który będzie czytał plik tekstowy, analizował go, a potem wpisywał dane do arkusza. Zobacz sobie tutaj: http://support.microsoft.com/kb/q198703/ albo tutaj: http://cwashington.netreach.net/depo/vie... jakie kombinacje można robić skryptami.
Bez makra się nie obejdzie. Wprowadź do arkusza objekt rysunkowy (Image1) tam gdzie ma być to zdjęcie. I wprowadź kod przyporządkowując w każdej liście wyboru każdą z wybranych opcji do jakiegoś rysunku. np tak: Select Case ComboBox1.ListIndex Case 0 Image1.Picture = LoadPicture("c:\rys1_1.jpg&... Case 1 Image1.Picture = LoadPicture("c:\rys1_2.jpg&...
Witam wszystkich forumowiczow, z gory przepraszam za brak poslkich znakow (zycie zmusilo do emigracji). Widzialem ze skutecznie pomogliscie juz wielu osobom w stworzeniu praktycznych i przede wszystkim poprawnie dzialajacych makr. Ja, jak kazda z tych osob rowniez z powodu swoich ogranicen w tej dziedzinie nie potrafie poradzic sobie z ulepszeniem mojego...
Coś takiego tylko żeby szukało wiersze z kolumny A wiersze z kolumny B, a nie z A i B. Sub Makro1() 'cała procedura liczy się hoho i jescze trochę (ale tak to jest z VBA) 'dane na Arkusz1, wyniki na Arkusz2 maxrow = 20 'przeszukiwany zakres maxcol = 20 Sheets("Arkusz2").Acti... Sheets("Arkusz2").Cell...
czy ta petala wpisuje w postaci listy "wynik" wiecej nizeli z jednego CheckBox'u Nie, bo napisałeś: aby sprawdzila czy jest zaznaczonay TYLKO jeden CheckBox Ta pętla jest rozbudową tej z początku wątku, tyle że na końcu doszedł potrójny warunek if. Po przeleceniu wszystkich checkboxów w zmiennej i masz ilość zaznaczonych przez użytkownika checkboxów,...
makro które będzie pobierać z pliku Excel. xls : ( ... swobodna kombinacja przedalpejska ... nawet nazw tych kolumn nie znamy ... może z wyjątkiej jednej "Index" ... makro też nie od początku zapodane, tylko jakieś takie jak po spotkaniu z samurajem .. : ( ... ogólnie to na niewiedzę informacji cierpimy, ale spróbuj ... moooże będzie działać (?): [syntax=vbscript]Option...
W komponencie ListBox chyba nie ma możliwości zrobienia siatki. Do tego musiałbyś wykorzystać inny komponent: jak w projekcie UserForm4 klikniesz prawym na toolboxie / Additional Controls, to jest tam komponent Microsoft ListView Control. Wygląda podobnie jak ListBox, tylko trzeba go skonfigurować. Jest o tyle fajny że działa na nim scroll myszy :)...
Pomogło ale tylko przy wyborze z Combobox 1 i 2, jeśli natomiast szukamy nie po nazwie elementu ale po indexie to w pierwszym momencie po wybraniu pierwszych znaków z Combobox 3 jest dobrze ale wystarczy cofnąć się np. Esc lub Backspace i wtedy klawiszami "Góra", "Dół" uzyskujemy błąd (Zdjęcie 1) a polem przycisku Comboboxa 3 - listę z Comboboxa 1 (Zdjęcie...
Witam. Mam prośbę o pomoc w stworzeniu odpowiedniej formuły lub kodu VBA który doda mi (w moim pliku do kolumny G) odpowiednią dniówkę na podstawie przepracowanego czasu pracy. Zasady dodawania dniówek napisałem w pliku który jest w załączniku. W moim macierzystym pliku w arkuszu w który chcę dodawać te dniówki pracuje poniższy kod. Kod dział jak najbardziej...
Problem jest taki że makro w Excelu nie zaciąga danych z komórek odnoszących się do innego arkusza. Przypominam, że na prośbę autora postu kod został dostosowany do ściągania danych tylko z pierwszego arkusza wszystkich plików ze wskazanego folderu :D Kod jak widać działa tak, że ściąga wpierw wszystkie dane ze wszystkich pierwszych arkuszy , a dopiero...
Witam Jestem jeszcze zielony w makrach excel, dlatego potrzebuję Waszej pomocy. Chciałbym stworzyć makro kopiujące dane z wielu plików excel do jednego pliku zbiorczego. Założenia: 1. Wiele plików dawców *.xls o różnych nazwach znajdujących się w tym samym folderze 2. Kopiowanie z pliku dawcy z zakresu arkusza "Tabela wyników" z komórek A2 do D51 3....
Tego Indexa mi brakowało ;-) Dzięki wielkie po raz kolejny przyjacielu.
Pomoc nadeszła z innego forum :-) http://forum.idg.pl/index.php?showtopic=... Kod zmodyfikowany do moich potrzeb Option Explicit Sub Import() ' ' Importu Makro ' Makro zarejestrowane 2008-06-13, ' ' 'zapobiega "migotaniu" ekranu podczas wykonywania makra: Application.ScreenUpdating = False Dim strFullName As String strFullName...
Jeśli chodzi o program do przelewów to najlepiej go sobie przygotować w Excelu lub innym arkuszu kalkulacyjnym lub w prostej bazie danych pod Accessem. A jeśli chodzi o bezpłatne programy to zobacz np. http://www.pcworld.pl/ftp/pc/programy/25... i poszukaj tutaj http://download.chip.pl/index/download_i...
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,...
:arrow: Poprawiłem ! Oryginalnie ta funkcja odwoływała się do komórek arkusza (przez odwołanie .Cells(Row,Col)) i jak robiłem jej wersję z tablicą, to zjadłem jedną liczbę (to przez te cholerne przeniesienia do nowej linii, jakby Excell nie mógł tego sam zrobić ;) Dzięki za uważne czytanie :) Dobrze by jeszcze było mieć wiedzę na temat opóźnienia pomiaru....
Witam. Pracuję nad nową wersją mojego markownika. Mam 2 problemy które nie wiem jak rozwiązać. Pierwszy problem to wzorzec który pokazuje typ grafiku. Graf1 do Graf31 ) odpowiednich dla każdego dnia.Czy można jakoś inaczej opracować ten wzorzec aby nie trzeba było odnosić się zą do 31 zakresów? Ogólnie to wzorzec musi pokazać odpowiedni grafik na podstawie...
Jeszcze jeden problem mi się tutaj pojawił. Mianowicie, na starcie otwierany jest plik z danymi, które są wypełniane przez kolejno otwierane pliki. W tej chwili wszystko mi się zapętla tzn. kolejno otwierany plik modyfikuje poprzednio zamknięty i tak w kółko. Chodzi o to żeby na początku procedury zawsze był modyfikowany taki sam zestaw rekordów w pliku...
Przetestuj poniższe makro mając otwarty arkusz z tabelą wejściową [syntax=vb]Sub Sum_By_Account() Dim shSrc As Worksheet 'arkusz źródłowy Dim shDest As Worksheet 'arkusz docelowy Dim lOstRw As Long 'ostatnia zajęta komórka tabeli źródłowej Dim lOstRw2 As Long 'ostatnia zajęta komórka tabeli z wyfiltrowanymi unikatami numerów kont With Application .ScreenUpdating...
W pierwszym podejściu może być jakoś tak: Sub Makro1() 'cała procedura liczy się hoho i jescze trochę (ale tak to jest z VBA) 'dane na Arkusz1, wyniki na Arkusz2 maxrow = 120 'przeszukiwany zakres maxcol = 60 Sheets("Arkusz2").Acti... Sheets("Arkusz2").Cell... 1) = "Wiersz" Sheets("Arkusz2").Cell...
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...
zablokować możliwość wpisywania duplikatów w jednej kolumnie "B" od "b2:b94" we wszystkich arkuszach :!: Żeby warunek ten został zrealizowany rzeczywiście "we wszystkich arkuszach" :D potrzebna jest zmiana w linii If ActiveSheet.Index <> x Then np na If ActiveSheet.Index <= Sheets.Count Then :spoko:
W "Arkusz1" w kolumnie A i B wstawiłem przykładowe dane. Kolumna C służy jako pomocnicza. Główna funkcja to ZNAJDŹ, opis w pomocy, użycie b.proste. Funkcja MAX zwraca najwyższą wartość zakresu. Dodając jeden dla wartości spełniających warunek (ZNAJDŹ) tworzę Nr kolejny dla funkcji INDEKS znajdującej się w "Arkusz2". Osobiście wolę gdy generowany jest...
index excel excel index index arkusz excel
komputer wirtualizacja wyświetlacz biegów samochodu lampy zamienniki
naprawa modułu komfortu canton subwoofer
Uszkodzony alternator a blokada wału VW LT 35 2.5 D Jak odłączyć alarm w Toyocie Avensis 1998?
