Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...
Jak wrócę, to Ci napiszę.
Jeżeli wychodzą same zera, to chyba coś nie tak z zapisem kryteriów. Spróbuj tak: =SUMA.WARUNKÓW(plan!H:H;plan!E:E;"="&$F$... albo tak: =SUMA.WARUNKÓW(plan!H:H;plan!E:E;$F$1;pl...
Nagraj makro rejestratorem, otrzymasz kod gotowy do podpięcia, niemal bez przeróbek. Pamiętaj także o[syntax=vb] Do While ActiveWorkbook.Connections.Count > 0 ActiveWorkbook.Connections.Item(1).Delet... Loop [/syntax]bo po jakimś czasie nazbiera Ci się ich mnóstwo... P.S. Obrazek usuń z postu (jest zbędny), albo zastosuj się do instrukcji...
zawartość komórki B1 do AH17 Dopisz [syntax=vbscript]Cells(17, 34) = .Cells(x, 2)[/syntax]
[syntax=txt]=JEŻELI(ORAZ(A2=1;B2=0);1;0)... Ewentualnie jeszcze krótsza wersja: [syntax=txt]=(A2=1)*(B2=0)[/syntax]
[quote="Andrzej59"]Zrobione w PQ[/quote Po dopisaniu do listy jednej lub dowolnej liczby pozycji trzeba arkusz zapisać i odświeżyć a tabele same się uaktualnią
Przetestuj: [syntax=txt]=O2&JEŻELI(LUB(Q2={"A2";"A4"... lub: [syntax=txt]=O2&WYBIERZ(PODAJ.POZYCJĘ(Q2...
Może coś takiego: =JEŻELI(H2="TAK";D2*E2-E2;... Zamiast ostatnich pustych "" możesz umieścić formułę wykonywaną jeśli nie jest wpisane ani TAK, ani NIE. Ewentualnie w cudzysłowiu tekst, który wystąpi zamiast formuły w takim przypadku.
początku dla $A$1 B2 z obrazka ELEKTRODA.jpg wynika, ze dla $A$1 C2 Poniewaz nie ma zalacznika, patrz przyklad(karta i baza w jednom skoroszycie) Wiersz dla druku - wartosc w C1(za ramami PrintArea) B1:B19 - funkcja tablicowa Ctrl+Shift+Enter
to wtedy mozesz pokombinowac w ten sposób: If Range("A1").Value = 1 Then Columns("C:G").Sel... Selection.EntireColumn.Hidden = False End If i tak dla 2 inne wartości itd, możesz też pokombinować że 1 odsłania DEF i jednocześnie zasłania GHI, 2 na odwrót, wszystko zależy od tego co ci jest potrzebne, pozdro:)
Dzień dobry, Do rozwiązania Pana problemu nie wystarczy sam Excel, trzeba wspomóc się funkcjami użytkownika zdefiniowanymi w VBA. Poza tym w Pana arkuszu były nieścisłości, które starałem się poprawić, o ile dobrze zrozumiałem ideę. Szczegóły podałem w załączonym arkuszu. Jeśli coś jeszcze będzie niejasne, proszę napisać.
W VBA to może być np. taka funkcja użytkownika wstawiona do modułu: [syntax=vb]Public Function MinBezZera(ByVal zakres As Range) As Variant minVal = zakres.Cells(1).Value For Each c In zakres If c.Value < minVal And c.Value <> 0 Then minVal = c.Value End If Next c If minVal <> Empty Then MinBezZera = minVal Else MinBezZera = CVErr(xlErrNA)...
Formuła tablicowa dla zakresu A1:A3 (zatwierdzasz Ctrl+Shift+Enter): =ILE.LICZB(JEŻELI(MOD(A1:A3;2)=0;1;"")) Oblicza ilość parzystych, <>0 da ilość nieparzystych.
Jeśli urządza Cię wynik w dodatkowym arkuszu, można formułami. W przeciwnym wypadku Np takie coś: [syntax=vbscript]Dim w As Long w = 2 With Sheets("RaportPaczek") Do While .Cells(w, 1) <> "" If IsNumeric(.Cells(w, 3)) Then .Cells(w, 4) = .Cells(w, 3) .Cells(w, 3) = .Cells(w, 2) End If w = w + 1 Loop End With[/syntax]
Umieść ten kod w zdarzeniu arkusza. Dodaj na początek jakieś sprawdzanie, żeby cały kod nie wykonywał się, jak nie musi i to wszystko. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) [/syntax] P.S. Kod nie jest dobrze napisany. Zmienna 'k' powinna być przed pętlą, a nie w niej. Pętlę: [syntax=vbscript]For l = 1 To 20 For k = 2 To...
podaj jaki bład wywala bo nie kompilowałem tego tylko z glowy, oraz powiedz co zwraca Cell w przypadku gdy jest pusta komorka
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, ";")...
Tu masz poprawki :)
Oooo już widze... XD rozpędziłem się. Ale dzięki... działa :)
Zadaniem jest napisać makro... Wystarczy "zwykła" formuła, jeśli satysfakcjonuje Cię takie rozwiązanie. Coś na wzór: JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(...));0... W VBA należałoby zagnieździć dwie pętle dla porównania każdej komórki z każdą...
Excel "jest tylko jeden" - Mircosoft-u. Pytanie dotyczyło Excel'a. Poza tym - twoje rozwiązanie wstawia "TAK" i "NIE" zamiast robić to, co napisał autor wątku.
[syntax=vb]Sub Powiel() x = 1 Z = 1 While Cells(x, 10) <> "" For y = 1 To Cells(x, 11) Cells(Z, 13) = Cells(x, 10) Z = Z + 1 Next y x = x + 1 Wend End Sub [/syntax]
Najprościej na przykład tak: Sub Kopiowanie() Set fs = CreateObject("Scripting.FileSystemObject... fs.CopyFile [A1], [B1] End Sub [A1] zastępuje Range("A1") Dokładny opis metody CopyFile jest w Helpie do VBA. W nazwach plików można używać symboli wieloznacznych do kopiowania wielu plików naraz.
Przepraszam, że z takim opóźnieniem odpisuję, ale wcześniej nie było możliwości. Poniższy kod na sztywno porównuje 2 kolumny (pierwszą i drugą), ale równie dobrze zamiast procedurki (Sub), można zrobić funkcję (Function), która będzie miała dwa argumenty określające numery kolumn (albo literki kolumn). Przy większej ilości wierszy, wykonanie porównania...
To był ten plik z błędem. Napisałem, że podmieniłem załącznik.
W VBA dużo jest możliwe. Deklarując funkcję możesz podać argumenty, którym później nadasz wartości przy wywołaniu, na przykład: [syntax=text]Function sumakolumna(litera As String) As Long Dim i As Long sumakolumna = 0 For i = 1 To 10 Step 4 sumakolumna = sumakolumna + cells(i, litera) Next i End Function [/syntax]W ten sposób podając literę kolumny...
u mnie działa...... A próbowałeś tak, jak napisał Kuba i=activecell.value ?
Z wypracowań na języku polskim miałeś pewnie piątkę.;) Możesz powyższe napisać w 3 zdaniach?
Próbuje napisać makro, ale z uwagi na brak wiedzy odnośnie najprostszych poleceń nie umiem sobie poradzić. Wydaje się, że makro jest dosyć proste. Mianowicie: 1.Istnieje ciąg wyrazów w arkuszu A (CEL) 2.Po tych wyrazach przeszukuje arkusz B (BAZA) 3.Gdy znajduje to kopiuje wartość stojącą przy wyrazie w arkuszu B. 4.Wstawia ten skopiowany wyraz w kolumnie...
Możesz napisać makro w excelu do lpta. Excel od razu wykresy narysuje, nie trzeba innego języka.
Gdyby to było takie proste to już bym to zrobił. Kod z nagrania jest zupełnie inny i jeszcze ciężej go modyfikować. I nie bierz tego do siebie ale Twoja wypowiedź nic nie wnosi bo każdy nie znający się na temacie może tak napisać.
Niezrozumiale napisałem?
Myślę, że najlepszym rozwiązaniem jest makro. Po zaimportowaniu pliku można go przenieść do innego folderu, jak napisałaś.
A o tworze zwanym FileCopy(source, destination) Kolega słyszał? Jeżeli nie to proszę postudiować Google lub użyć tak jak napisałem. Ścieżki w całości.
Zamieść arkusz z tym co napisałeś...
Tak jak napisałem wcześniej wystarczy wszystko przeciągnąć/skopiować ...
Witaj Raczej sam napisał by funkcji niż szukać w Excel. 99% pewny źe nie jest.
Jeśli jest to nowy Excel (365 lub Online), to tam są nowe kontrolki pól wyboru, które dają się łatwo kopiować. Są to co prawda niepowiązane pola wyboru, ale stosując formuły można zasymulować ich zachowanie zależne, przypominające przyciski opcji. Jeśli masz te kontrolki u siebie, to napiszę więcej, jak je powiązać.
Brawo. To teraz będziesz też wiedzieć, jak nagrać makro. [url=https://www.youtube.com/results?sea...
Dzień dobry, Jest kilka sposobów rozwiązania, w pliku podałem 3 warianty do wyboru z wykorzystaniem funkcji INDEKS, PRZESUNIĘCIE i ADR.POŚR. Składnia jest następująca: =PRZESUNIĘCIE(początek_zakresu;skok*(WIE... =INDEKS(zakres;skok*(WIERSZ()-nr_pierwsz... =ADR.POŚR(litera_kolumny&skok*(WIERSZ()-...
Oczywiście, że się uda, ale skoro zadajesz takie pytanie tzn ze oczekujesz, że ktoś Ci je napisze, a nie pomoże w napisaniu.
Ciężko powiedzieć bez pliku z danymi, nie widząc danych na których działa... A kiedy kończy działanie? Możesz wrzucić przykładowy plik i napisać kiedy był błąd?
Tak jak napisałem powyżej.
Załóż swój własny topik, ale wcześniej wejdź w pomoc funkcji jeżeli bo nie do końca ją rozumiesz. Jeżeli( warunek ; co się ma robić jak warunek spełniony ; co ma się robić gdy warunek niespełniony ) Gdy zagnieździsz jeżeli w jeżeli zasada jest ta sama, np: Jeżeli( warunek "główny" ; gdy "główny" warunek spełniony to Jeżeli( warunek ; co się ma robić...
Kolego, napisałem, że wersja PL...
Może [url=http://forums.devx.com/showthread.p... pomoże?
Czytałeś to co wcześniej napisałem? Sprawdź czy o to chodzi?(załącznik)
:arrow: tadkli9743 Zaglądałeś w ogóle do arkusza? A u mnie bez kolumn pomocniczych (lub VBA) ani rusz :( dane z postu #1 http://obrazki.elektroda.pl/9886155100_1... W G1: =LICZ.JEŻELI(B1:E5;PRAWDA) Edit: Aj! Miały być tylko 6-cio cyfrowe http://obrazki.elektroda.pl/6354320300_1... Teraz warunek mam ">99999". Ale, jeśli...
Pisać makr nie potrafię i ich nie rozumiem dlatego. Nie wiem jak tworzy się tabele przestawną z kilku arkuszy. Myślałem że można to za pomocą funkcji napisać.
Application.Undo O! A dlaczego w moim Excel 2007 tego nie ma? W Internecie (nawet u Walkenbach'a) napisano "Excel 2007 and later" :( Może dlatego, że wersja "for school and student"? Biegnę szukać jakiś aktualizacji... No coś takiego!
Dzięki, za zainteresowanie. Mas rację, lepsze będzie zwykle pole, ale mi głownie chodzi i te drukowanie w pętli. Jak je dobrze napisać.
Jeżeli oczekujesz gotowca, to podałeś zbyt mało danych. Jeżeli oczekujesz jakichś podpowiedzi, to pokaż proszę, co Ci się udało już napisać.
Połączyłem oba skrypty i wszystko działa tak jak chciałem. Dziękuję za zaangażowanie. W takim razie wieczorem zamykam temat, chyba że ktoś chce jeszcze coś napisać :)
A tak jakoś napisałem UCase.
Tak i tylko 5 jak kod pocztowy ale dość zawile to napisałem
W pierwszym poście chciałeś aby makro, po wyczyszczeniu zawartości komórki "X25" czyściło listę z zakresu H20:J20. Analogicznie wyczyszczenie X22, X18, X13 czyściło H18:J18, H14:J16, H12:J12, nie zapętlając się w trakcie. Tak to teraz dokładnie działa. To co się dzieje w innych komórkach zależy od algorytmu który realizują Twoje formuły. Niestety nie...
Witam serdecznie, Czy ktos moglby mi pomoc w napisaniu makra dla excel 2007. Potrzebuje stworzyc chyba prosta baze danych, ale niestety przekracza to moje umiejetnosci znacznie. W zalaczniku przesylam plik - jak chcialabym zeby to dzilalo Algorytm Artusz 1 (WPIS) 1. wpisuje dane w zoltym polu (kolumna B2:B6) 2. Dopiero po wciśnięciu przycisku dane są...
Tylko chodzi o to, żeby makro automatycznie otwierało plik , w którego nazwie zawiera się dzisiejsza data w formacie jaki wcześniej podałem. Niespecjalnie wiem jak to napisać.
no wkleilem do macro, i jest to teraz macro1 i co teraz w a2 mam wpisac lokalizacje?? a to co wpisze w c2 to sie w niej pojawi?? no i jak to wpisacnp: 5;6 a;2 a2 ?? Nie do makro, tylko jak kolega napisał - do kodu arkusza.
Po pierwsze. Napisz to jako normalny tekst a nie kod. Po drugi. Napisz to bardziej zrozumiale dla wszystkich. Po trzecie. Zrób przykład w Excelu, co chcesz osiągnąć i załącz do postu.
1) Dostaje plik z raportem 2) cały arkusz kopiuje do arkusza TEMP w pliku (WYSYŁKI_NOWE) 3) dokładnie tak jak napisałeś :)
Jeśli numeracja ma się zmieniać, to formuła może być np. =WIERSZ(A1)&"|"&A1 gdzie A1 jest adresem pierwszej komórki. Ale Pan nie napisał, że numer ma się zmieniać.
No i teraz mi głupio... napisałem Excel, a mam Calc z OpenOffice-a, a tam VB nie pójdzie :/ . Przepraszam Clubs. Czyli tylko za pomocą VB, jest nadzieja żeby to zrobić? Niedobrze...
Nic nie rozumiem z tego, co napisałeś.
=(A1*B1)-C1
W Excel'u (MOffice) jak klikniesz na komórkę z funkcją "=JEŻELI(CZY.LICZBA(D3);D3-C3;0)" to zaznaczy się ta komórka i w dolnym prawym rogu tej zaznaczonej komórki jest "mały kwadracik". Złap za ten kwadracik (lewym przyciskiem myszy) i przeciągnij na dolne komórki. Po puszczeniu lewego przycisku dolne komórki wypełnią się same tą samą formułą i automatycznie...
Ewentualnie napisanie makra.
Do formatowania warunkowego nie potrzebne jest żadne makro ;-) Zamieść przykładowy plik to koledzy podpowiedzą Ci jakimi formułami można to formatowanie zrealizować.
Może ktoś ma pomysł, jak do tego napisać makro ?
Chcę napisać funkcję aby jeżeli w komórce S3 będzie cyfra 1 lub 2 lub 3 lub 4 lub 5 lub 6 to aby w komórce S4 cyfra została napisana słownie a jeżeli w s3 będzie każda inna cyfra/liczba inna niż tamte to aby powstał napis "nie ma takiej". Moja błędna funkcja: =Jeżeli(S3=1; "NDST", JEŻELI(S3=2; "DOP", JEŻELI(S3=3; "DST", JEŻELI(S3=4; "DB", JEŻELI(S3=5;...
Na pierwszym arkuszu mam kod nazwe ISBN, potrzebuje do tego dopisać lokalizację z arkusza nr 2 tak żebym miał jeden arkusz ze wszystkimi danymi. Ewentualnie pozycję które nie mają lokalizacji mogą być usunięte. Przepraszam że tak nie jasno napisałem.
A czy byłoby niepoprawne wyciągnięcia dnia z daty jako liczby i skonwertowanie tej liczby na tekst? I analogicznie rok i miesiąc?
Bardzo Ci dziękuję za te materiały, ale to wszystko wiem i mam już zrobione.. Tu chodzi konkretnie o tą funkcję, którą mam stworzyć w VBA Deweloper i z tym mam problem, bo oprócz tego, że wiem, że ma się to opierać o komendy IF & THEN to nie mam pojęcia jak to napisać..
Zdjęcie nie przedstawia nic na czym można by pracować. Napisz o co konkretnie chodzi. Co funkcja ma robić.
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...
trafiłeś idealnie dzięki a ja jeszcze gafę strzeliłem bo na samym początku żeby usuwało duplikaty z kolumny A, ale żeby i usunęło również te dane z kolumny B (usuwamy duplikaty np. A2 zostanie usunięte i B2) a potem dopiero to co napisałeś
w excell google sheet A co to takiego ? Nie ma czegoś takiego jak Google Excel - Excel to Excel, a Google Sheets to Google Sheets. Równie dobrze można by napisać "w excel open office". W excelu jest vb, a w google sheets jest apps script.
Trzeba napisać kod. Oczywiście Excel musi być cały czas uruchomiony, żeby kod się wykonał.
W Google Docs są skrypty oparte nie o VBA tylko o JavaScript. więc makro trzeba napisać od początku.
Napisałem na priv.
Formatowanie warunkowe komórek może załatwić sprawę.
Zobacz mój plik. Wprawdzie drukuje on zaznaczone adresy na kopercie ale możesz to sobie przerobić. Aby drukowało ilość dni odpowiednich dla miesiąca zrób standardowe IF i przypisz że 31 ma miesiąc taki i tak a 28 i 29 Luty , Aby zmodyfikować obramowanie daj formatowanie warunkowe że jeśli komórka z dniem jest pusta to brak obramowania a jeśli jest to...
Chcesz znaleźć gotowca czy napisać wg podpowiedzi?
Zauważ właśnie na tym screenie który mi wysłałeś że "View Code" jest nieaktywne, czyli nie da się w tym momencie do kontrolki napisać kodu
Coby ułatwić Ci życie, a chętnym do sortowania je umożliwić wprowadź w swoim pliku kilka zmian. Główna to nazwanie zakresów, rezygnacja z formuł w nazwiskach i wydziałach i formuła licząca ilość szkoleń dla poszczególnego ludka. Na arkuszach zakresy zaznaczone są kolorami. Możesz je sobie dowolnie definiować pamiętając tylko, żeby były jednakowych rozmiarów....
Przeginasz troszkę kolego ,,, my tu nie odrabiamy prac domowych. Mu pomagamy i naprowadzamy. Ale...niech tam Sub Makro1() kolumna = 1 ostatni = ActiveSheet.UsedRange.Rows.Count For i = 1 To ostatni Cells(i, kolumna).Select If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then Range(ActiveCell.Offset(1, 0),...
W Openoffice Calc wystarczy napisać coś w postaci np: =LICZ.JEŻELI(C8:C26;"k.*") Niestety Excel Microsoftu nie obsługuje tak wyrażeń regularnych trzeba bardziej pokombinować.
W Excelu to nie problem, ale jakoś nie mogę tego ułożyć sobie jak napisać w VBA
Dzień dobry, Do obliczania dni roboczych pomiędzy datami służy funkcja DNI.ROBOCZE (ta nazwa obowiązuje w Excelu 2010, we wcześniejszych wersjach używać trzeba nazwy angielskiej NETWORKDAYS). Tę funkcję można tu wykorzystać pamiętając o tym, że liczy ona dzień początkowy i końcowy, więc w tym przypadku od wyniku trzeba odjąć 24 godziny. Użyte formuły...
Witam, Otóż mam problem z excelem. Robiłem coś w VBA i wyskoczył błąd (pewnie gdzieś popełniłem błąd w skrypcie) i niestety zapisałem dokument i z niego wyszedłem. Teraz, gdy próbuję do niego wejść dokument ciągle się ładuje i ładuje. Czy ma ktoś na to jakąś radę ? Mam w środku cenne skrypty, których od nowa nie jestem w stanie napisać.
Przykładowy plik w załączniku załącznik is VeryHidden, jak to .xlsx spakuj Rar lub Zip
Nie jestem pewien czy dokładnie o to chodziło: =JEŻELI(D5>1/3;1,5*(D5-1/3)+1/3;D5) i formatowanie komórki "gg:mm".
Tak, jak koledzy wyżej napisali, Excel nie służy do takich zadań. Jeśli się jednak upierasz przy Excelu, to: - wyłącz automatyczną kalkulację - po każdej większej operacji wciśnij Ctrl+s - sumy wyliczasz formułą SUM() - sumy warunkowe (dla zakresu dat) formułą =SUMIFS(zakres danych do zsumowania, kolumna z datą, ">="&A1, kolumna z datą, "<="&B1),...
Najlepiej jak utworzysz zmienną obiektową typu Workbook. Do niej otworzysz drugi plik z tego pierwszego. I w tedy z poziomu VBA masz dostęp do wszystkich właściwości, metod i obiektów należących do drugiego pliku. Napisz co chcesz konkretnie zrobić bo makra w Excel'u to temat rzeka. I koniecznie napisz jaka wersja Excel'a jaki system itp. Jak chcesz...
Tu masz oficjalną pomoc Microsoftu http://office.microsoft.com/pl-pl/excel-... Masz tam ładnie wszystko napisane :)
Proponuję otworzyć nowy wątek i napisać co i jak. Trochę dokładniej niż powyżej. Łatwiej będzie napisać kod.
Dzięki, ale... chodzi mi o coś takiego, że w tym formularzu nie będzie tylko jednego rekordu, ale przewiduje ich kilkadziesiąt, więc raczej niezbyt eleganckim rozwiązaniem jest tworzenie w każdym wierszu pola wyboru, prawda? ...szukam czegoś co pozwoli mi wybrać wartość z listy przypisanej do kolumny w każdym wierszu - mam nadzieje, że jasno to napisałem:)
Siema Formuła będzie wyglądała następujaco : =JEŻELI(C2>=600;"wysokie";JEŻELI(C2>=500... Daje link do zrobionego pliku jak byś miał jakiś problem:]
Możesz coś więcej napisać, nie rozumiem
napisać rezygnacje napisać artykuł napisać komunikacja
klimatyzacja zasilanie z18xe wymiana silnika zawieszenie corsa
żarówka szeregowo początkujący elektronicy
Depollution system faulty w Peugeot 207 1.6 16V Hulajnoga Motus Pro 10 - silnik wyłącza się po kilku metrach, błąd na wyświetlaczu