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]
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...
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.
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.
Cześć. Miło mi wszystkich poznać. Jestem tu nowy i dopiero zaczynam swoją zabawę z makrami VBA. Bardzo prosiłbym o pomoc, wskazówkę lub chociaż trop, jak podejść do napisania makra, które przestawi dane zebrane w tabeli A w formę tabeli B. Pozdrawiam serdecznie https://obrazki.elektroda.pl/2968692200_... AI: Daj proszę znać, czy obie...
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ć.
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?
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ć...
Tak jak napisałem powyżej.
Może [url=http://forums.devx.com/showthread.p... pomoże?
: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...
Czytałeś to co wcześniej napisałem? Sprawdź czy o to chodzi?(załącznik)
Kolego, napisałem, że wersja PL...
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ć.
Brawo. To teraz będziesz też wiedzieć, jak nagrać makro. [url=https://www.youtube.com/results?sea...
Jest progres :D tylko że makro otwiera nowy plik excela do którego ładuje zeszyt2.xlsx. jak napisać makro które aktywuje już otwarty zeszyt2.xlsx? [syntax=vb]Public exc2 As Excel.Application Sub monit2() Set exc2 = New Excel.Application ' New zamienić na zeszyt2.xlsx? exc2.Visible = True exc2.Sheets(1).Range("a1") = "2 monit" End Sub [/syntax]
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ć :)
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...
A tak jakoś napisałem UCase.
Tak i tylko 5 jak kod pocztowy ale dość zawile to napisałem
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...
=(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...
Nic nie rozumiem z tego, co napisałeś.
Ewentualnie napisanie makra.
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.
Do formatowania warunkowego nie potrzebne jest żadne makro ;-) Zamieść przykładowy plik to koledzy podpowiedzą Ci jakimi formułami można to formatowanie zrealizować.
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ć.
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?
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ś
Formatowanie warunkowe komórek może załatwić sprawę.
Trzeba napisać kod. Oczywiście Excel musi być cały czas uruchomiony, żeby kod się wykonał.
Napisałem na priv.
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...
W Google Docs są skrypty oparte nie o VBA tylko o JavaScript. więc makro trzeba napisać od początku.
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....
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
Chcesz znaleźć gotowca czy napisać wg podpowiedzi?
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ć.
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ć.
W Excelu to nie problem, ale jakoś nie mogę tego ułożyć sobie jak napisać w VBA
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".
Przykładowy plik w załączniku załącznik is VeryHidden, jak to .xlsx spakuj Rar lub Zip
Tu masz oficjalną pomoc Microsoftu http://office.microsoft.com/pl-pl/excel-... Masz tam ładnie wszystko napisane :)
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),...
Proponuję otworzyć nowy wątek i napisać co i jak. Trochę dokładniej niż powyżej. Łatwiej będzie napisać kod.
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.
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:]
napisać rezygnacje napisać artykuł napisać komunikacja
ursus podnośnik regulacja podnoszenia czujnik temperatura powietrza mondeo serwisowy almera
hoverboard żyroskop kosiarka elektryczna
Sterowniki i funkcje klawiatury Vakoss KS-2454 Schemat elektryczny Mitsubishi Pajero 3 3.2 DID
