jeżeli po wybraniu innej komórki przycisk listy znika, to jest to lista wartości. Usuwa się ją z menu Poprawność danych poprzez ustawienie poprawności danych w komórce na "Dowolna wartość" Chyba, że arkusz ma makra i formatka pole listy jest wywoływana z kodu.
W [syntax=vbscript]w = Cells(Rows.Count, "A").End(xlUp).Row + 1[/syntax] masz numer wiersza kolejnej wolnej komórki w kolumnie A, użyj go np. [syntax=vbscript]Cells(w, "A").Value = Date[/syntax]
makro musisz napisać ;) http://www.exceltip.com/st/Save_a_workbo... http://www.ozgrid.com/forum/showthread.p... http://www.lqnet.com/Excel/SaveAs.asp http://www.excel-vba.com/vba-12-code-wor...
Nie wiem, czy dobrze zrozumiałem. Po otwarciu pliku ma być napis "DDDD", a potem już cały czas, pomimo klikania "wprowadzono dane" (tak zrobiłem), czy po każdym kliknięciu ma się zmieniać z "DDDD" na "wprowadzono dane" i z powrotem?
Jest tam kilka funkcji. Między innymi Calculate, change, Dectivate ale nie widać ich w tych kilku skopiowanych od Ciebie linijkach. Musisz Kolego pocztrać sobie trochę o VBA w Excelu. Proponuję wygooglać kurs VBA - jest tego mnóstwo. Te 'kilka funkcji', to zdarzenia arkusza. Działa to tak, że jak np. w kodzie którym napisałem, jeżeli nastąpi podwójne...
Do dwóch przycisków możesz przypisać ten sam moduł
Nagraj sobie makro zapisywania. Poniżej zarejestrowane (bez korekty) dwa: "Zapisz jako" oraz Ctrl+s (zwykłe zapisz) http://obrazki.elektroda.pl/3841968300_1... i wybierasz z listy. Aby oprogramować komórkę/zakres potrzebujesz procedury zdarzeniowej [url=http://dzono4.w.interiowo.pl/kurs/d... Tu należy warunkowo wywołać...
Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?
Można ręcznie wpisywać datę, ale można też wcisnąć jednocześnie Ctrl i ; (klawisz Ctrl i znak średnika). A makrem Sub dzisiejsza_data() ActiveSheet.Range("A65536"... 0) = Date End Sub
W tym wypadku zwykłe [syntax=vb]UserForm3.Show[/syntax] wystarczy. PS. Słowo "stworzyłem kalendarz" jest nieco na wyrost - po prostu użyłeś gotowej kontrolki, która w dodatku potrafi być problematyczna przy innych wersjach Excela. Jeżeli chciałbyś naprawdę stworzyć kalendarz od podstaw, proponuję zapoznać się z [url=http://www.elektroda.pl/rtvforum/to...
Jak masz kłopot ze wstawieniem to spakuj to zipem A na temat zrób tak jak radzi paweliw wstaw hiperłącza odwołujace się do tego samego dokumentu i już
Mam wrażenie, że problem polega na tym, że chcesz wskazywać myszą komórkę, która ma się zwiększać, ale jak to zrobisz i klikniesz klawisz to już jej nie wskazujesz. Jeżeli tak to zastosuj mały formularz i na nim klawisz.
1. Należy utworzyć makro, które wykona wszystkie potrzebne czynności 2. PLIK->Opcje->Dostosowanie Wstążki->Wybierz polecenia z->Makra itd.
Najpierw popraw pętelki, jak kolega JRV zauważył, bo po wielokroć ukrywasz już raz ukryte pola tekstowe. Czy kod można skrócić ? Pewnie odrobinę tak, ale po co, zyskasz raptem parę linijek. Może tylko odrobinę zyska na czytelnnści, np.: 1. Utwórz jedną dodatkową procedurę, w której utworzysz dwie pętle 'For...Next', jeden warunek 'If' i jeden 'Select...
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...
Dobrze, że dałeś sobie radę. To się ceni ale to samo co na pięciu przyciskach możesz mieć na jednym po zastosowaniu mojego kodu. Nie chcę Ci udowadniać wyższości Świąt Bożego Narodzenia nad Wielkanocą. Mam jednak drobne podejrzenie, że mój kod przekleiłeś w całości bez sprawdzenia. A tam był drobny błąd na który nie zwróciłeś uwagi. A1 . Zmień sobie...
W ostateczności jest Tłumacz Google ... eee ... a może zbysiomysio pamięta jeszcze ze szkoły ? ... do końca lat 80-tych rosyjski był uczony nawet w ogólniakach ... no ale może rzeczywiście nie jest "taki stary" ... :-]] ? .... :-) ... żeby pamiętać czasy, w których nie było jeszcze nawet komórek ... :D :D :D :D ... a nawet internetu ... :D :D :D ......
Oops, a było sobie nagrać makro ;) 1. Kod umieść w module standardowym i podepnij pod przycisk 2. Najpierw wybierz arkusz, następnie komórkę. Np [syntax=vb]Sub Odwolanie() Arkusz2.Select [C4].Select End Sub[/syntax]
Przykład korzystania z okna zapisywania z filtrem ZapiszJako = Application.GetSaveAsFilename(fileFi... Excel (*.xls), *.xls") I jeśli domyślna ścieżka i nazwa z komórki to sciezka = Application.DefaultFilePath & "\" nazwa = Range("A1").Value ZapiszJako = Application.GetSaveAsFilename(Initia...
Zaznacz komórki w kolumnie D, naciśnij przycisk Malarza formatów (karta narzędzia główne) i klinij na kolumnę G. https://obrazki.elektroda.pl/6323678100_...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Ustaw format liczb dla pola tabeli przestawnej, a nie z poziomu formatowania komórek. Dwukrotne kliknięcie w tabeli na nazwę pola powinno wyświetlić okno "Ustawienie wartości pola" tam też wybiera się funkcje podsumowującą. W tym oknie jest przycisk "Format liczby".
Zależy, jak chcesz żeby się makro wykonywało. Albo zarejestruj makro i kod wklej tam, albo wstaw przycisk i w zdarzeniu przycisku.
Witaj Dołożyłem przycisk uruchamiający makro. Pozdrawiam
Witam w tym samym skoroszycie ale pod nazwa wzięta z komórki. Wartość w komórce będzie zmieniać codziennie? Dodano po 6 poprzez kliknięcie przycisku excel skopiowały arkusz Przycisk w tym samym arkuszu? Dodano po 34 [syntax=vb] Sub Kolejny_dzen() dzen = Range("b1").Text For Each sh In ThisWorkbook.Sheets If sh.Name = dzen Then MsgBox "Juz zapisane":...
Witam zobacz [syntax=vb]ActiveWorkbook.RefreshAll[/sy...
Niestety też nie widzę opcji by nie było makra. Ale nie makro ukrywające tylko zwykłe wprowadzenie informacji do wydruku do ilu stron ma drukować. Czyli pod przycisk "wrzucić" [syntax=vb] Sub Druk() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("POŚW").Range("E22") End Sub [/syntax] I "drukować" przyciskiem.
Witaj Przytrzymanie klawisza Ctrl, można zauważyć kursor po komórce w wierszach, dla którego konieczne Etykiety. Następnie kliknij przycisk OK.
Niby spoko ale czasochłonne dla mnie :cunning: Widać, że masz niewiele doświadczenia z Excelem i nie potrafisz nawet wykorzystać natywnych możliwości programu :cry: Pierwsze 6 wierszy (te z kryteriami filtrowania) możesz zawsze ukryć przed użyszkodnikami :D tego arkusza. Warunki filtrowania zapisane są w postaci samo aktualizujących się formuł więc...
Trochę ruchu kombinowanego, i u mnia to działa. Musiałem zmodyfikować plik comp.mod, zamiast 'Pusty arkusz. xlsx ' poprawiono na 'Pusty arkusz. xlsm ' Przycisk 'Wklej do Excel' należy nacisnąć co najmniej 0,5 s.
będzie wyrzucać mi kolejno wszystkie numery z kolumny A w której znajduję się 7500 rekordów Co to znaczy wyrzucać? 7500 razy wyświetlać i klikać w okienko?;)
Przesiedziałam już mnóstwo godzin, przejrzałam kilka tutoriali, ale dalej jest to dla mnie czarna magia... Czy ktoś mógłby mi pomóc? Ok. przedstawiłeś logicznie jak ma to wyglądać. Ale w czym ci pomóc? Przecież to proste więc nie wiem gdzie szukałeś. Dwie pętle "for". Najpierw dla tabeli A z warunkowym "if" jak w G jest X i zapis do tabeli C. Potem...
Okej dziękuję bardzo:) A zapytam: Da się zrobić taki przycisk, który zapisuje plik Excel'a?
Dane do wykresu są w tej samej zakładce co wykres (nad wykresem). Kliknij prawy przycisk na wykresie i obejrzyj sobie jaki typ wykresu użyłem, potem zobacz tak samo dane wykresu (składają się z trzech serii, każda seria to jedna krzywa). Skale wykresu są w kolorze tła dlatego ich nie widzisz, nie są nam potrzebne do wizualizacji.
ale nie reaguje na przyciśnięcia To po prostu wygląda tak. Jeśli nie zareagował, to nie byłoby rekord. ten przycisk typ Form, CommandButton - ActiveX bardziej widocznie.
Procedura Sub Command1_Click() generuje się automatycznie, kiedy wstawisz przycisk na akrusz Excela i klikniesz go dwukrotnie myszą - oczywiście w trybie projektowania.
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
No tak to jest, gdy poprawka dotyczy fragmentu wyrwanego "ze środka" ;) W załączniku uproszczony przykład kopiowania w ukrytym arkuszu ("Arkusz1"). -odkryj -popatrz -ukryj -naciśnij przycisk -odkryj i zobacz co się narobiło
Nie posiadam wersji 2010, ale jak czegoś nie wiesz zawsze możesz poszperać w pomocy Microsoftu (jest również dostępna dla starszych wersji. Wstawianie wykresu przez osadzenie go w dokumencie W przypadku osadzenia wykresu programu Excel informacje znajdujące się w pliku programu Word nie zmieniają się po zmodyfikowaniu źródłowego pliku programu Excel....
Hmm... Trochu w VBA już utworzone. Nadzieję, że wiesz, jak nacisnąć F1. Wieczorem będzie więcej, teraz trochę czasu. Na przyszłość - Ja przemianowany arkuszy: 1 -> Form1, 2 -> Form2, 3 - Dictr Dict ionary - Slownik PS Jeśli będą oceniane kilka dostawcy,co ma zrobić kiedy przycisk "Wydrukuj"? OCENA2 - Muszą być wypełnione wszystkie pola?
Znaj moje dobre serce :) Stany magazynowe tworzą się na podstawie wpisanych dokumentów więc "ręczna" ingerencja w arkusze DokumentyPZ i DokumentyWZ "rozwali" stany. Stany magazynowe robią się na bieżąco ale gdyby się coś zacięło Przycisk odtwórz stany na podstawie dokumentów od początku stworzy zestawienie Są pewne instrumenty zabezpieczające ale nie...
Czyli ustawiasz kursor w którymś z wierszy, naciskasz przycisk i ma się dodać wg wartości w tym wierszu? Oj, żebyś żonie nie uprzykrzył ;) Nie rozsądniej byłoby zrobić to za pośrednictwem formularza? Wybierasz z pól kombi (stan w podglądzie) i dodajesz pod przyciskiem. Update 7:50 Coś jak w załączniku. W ostateczności wykorzystaj makra...
Jak automatycznie - podczas wpisywania również? Załóżmy, że masz liczby 1, 4,5 i 50. Wpisujesz 20 - wciskasz "2" i w tym momencie jest wywoływane (automatycznie jak chciałeś) sortowanie i "hans klops". Chyba nie przemyślałeś trochę koncepcji. Nie lepiej umieścić gdzieś przycisk którym będziesz sobie sortował na żądanie?
Poprosze o przyklad jesli: - sciezki, w ktorych sa excele to: "\\ctsdmoia.ctti.local\Pet.res 201404" i "\\ctsdmoia.ctti.local\Pet.res 201403" - plik docelowy excel,do ktorego bede importowal ma nazwie "ekstrakt" i jest w "\\ctsdmoia.ctti.local\" - komorki, ktore potrzebuje importowac to "D4" i "B3" Sciezki wpisz, jak w załączonym pliku, w arkuszu 'Sciezki'....
Jeżeli to jednorazowa akcja - to skopiuj całość do schowka i wklej do: http://textmechanic.com/text-tools/basic... Tam jest przycisk "Remove all line breaks" i pole "and replace the line break with this text:"
A gdzie wstawiłeś ten kod? W załączniku widzę jakiś przycisk na formie, ale już samej formy w kodzie nie widzę... Nie prościej zamieścić plik Excela? Po pierwsze primo: żeby makra działały, plik musi być zapisany w formacie .xlsm lub xls Po drugie primo: w opcjach programu Excel -> Centrum zaufania musi być włączona obsługa makr w Excelu, masz ją włączoną?
Funkcji nie ma ale proste makro może to załatwić. Powiedzmy, że w A1 wpiszesz datę (zgodnie z formatem daty excela) 2010-05-05 Pod przycisk (z formularzy) podepnij poniższy kod i już. Drukuj tylko za pomocą tego przycisku, inaczej data się nie zmieni. Ewentualnie w kodzie dostosuj do swoich potrzeb nazwę komórki z datą (A1) i nazwę arkusza (Arkusz1)....
Można za pomocą wyszukaj.pionowo lub indeks. W przedstawionym przykładzie prostsza wersja z wykorzystaniem wyszukaj.pionowo. Skopiuj funkcje w dół i będzie działać (nie kopiowałem by zaoszczędzić na wielkości pliku). Oczywiście zagnieździłem tą funkcję w "Jeżeli" bo nie wszystkie indeksy są w danych kolumnach. Na przyszłość przed podaniem tak dużego...
Witam serdecznie, Tworzę właśnie arkusz kalkulacyjny, na którym będę opierał działalność wraz z moim kolegą. Potrzebuję utworzyć komendę, która po wpisaniu hasła i naciśnięciu przycisku wyszuka mi wszystkie linijki, które zawierają szukane hasło. W pracy mam taki "system", pokazuję to na poniższych screenach, żeby zobrazować o co mi dokładnie chodzi....
Tablica, pętla i jazda. Podepnij pod przycisk taki [syntax=vb]Sub rejestracja1() Dim zakres As Variant, i As Integer, ostW As Long zakres = Array("D2", "C4", "C13", "A21", "D48") With Sheets("Spis umów") ostW = .Range("A65536").End(xlUp).Row + 1 For i = 0 To 4 .Cells(ostW, i + 1) = Range(zakres(i)) Next End With End Sub[/syntax]
:) Jeżeli już się zwracasz do mnie w trzeciej osobie Dziękuję wam bardzo ... ... na was liczyć ... to jednak powinieneś to wyrazić z wielkiej litery lub do słowa was dodawać słowo obywatelu lub kolego, bo tak to jakoś niepewnie się czuje komu dziękujesz :) A dodatkowo (nie żebym się upominał ale na przyszłość może ktoś inny będzie ci pomagał) jak jesteś...
Zliczanie komórek o innym kolorze tła jest możliwe wyłącznie makrem. Jednak nawet makro nie obliczy kolorów jeżeli są one zmienione formatowaniem warunkowym. W makro, w twoim przypadku, trzeba by było zliczać tak samo jak w warunku formatów. Proponuje ci, w przypadku rozwiązania zastosowanego przez kolegę adamas_nt , w jakiejkolwiek komórce wpisać =LICZ.JEŻELI(G1:I3;"<="&C5)...
A nie lepiej zamiast trzech przycisków w każdym arkuszu byłoby zrobić jeden przycisk w arkuszu "lista" uruchamiający mechanizm pobierania danych ze wszystkich pozostałych arkuszy? Druga kwestia, że do takiej operacji to nawet nie trzeba makra, wystarczy MSQuery i następująca kwerenda: [syntax=sql]SELECT * FROM [1$] UNION ALL SELECT * FROM [2$] UNION...
po co podpowiadać "hakierowi" ilość znaków w haśle? Cały ten pomysł z ilością znaków był wyłącznie po to, żeby zaintrygować Autora i wciągnąć w zabawę z VBA. Niemniej jednak informacja "minimum 5" raczej zniechęca "hakera", niż mu w czymkolwiek pomaga, bo już wie że hasło nie jest aż tak krótkie. To, że przycisk uaktywnia sie przy 5 znakach nie mówi...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie Worksheet_Change zawężone do kolumny gdzie jest nazwisko....
Jak umieścić w konkretnym arkuszu Przycisk polecenia (formant ActiveX) tak aby odpalał makro z Modułu Z toolboxa (v.2007^ ;) menu 'Wstaw' na karcie developer (dolna grupa kontrolek), następnie "wyświetl kod" i wpisujesz: Call NazwaMakra
Jak widzę występujące w tabeli "liczby" właściwie nie są liczbami bo są przechowywane jako text, wystarczy je przekonwertować na liczbę i wszystko liczy tak jak powinno. opis jak się tego pozbyc: Poszczególne komórki 1. W menu Narzędzia kliknij polecenie Opcje, a następnie kliknij kartę Sprawdzanie błędów. 2. Upewnij się, że pola Włącz sprawdzanie błędów...
Witam! wszystko ładnie pięknie tylko nie wiem jak dojsc do tego arctg? nie mam jak to obliczyć, może exell lub coś pomoże?? Do tego się nie "dochodzi"! Można to odczytać z tablic, czyli obliczyć wyrażenie (19-2,7)/1,24= 13,15 i znajdujesz w tablicach wartość kąta dla tej wartości tg, lub na kalkulatorze naciskasz przycisk tan^-1 (tangens do minus pierwszej)....
Jeżeli tak to proponuje nagrać makro i podpiąć je pod przycisk (będzie najprościej). Włącz na wstążce zakładkę deweloper Plik-opcje-Dostosowanie wstążki-i w oknie po prawej stronie zaznaczyć Deweloper i OK Na wstążce pojawi się karta deweloper.Otwórz ją. Przejdź na twój pierwszy arkusz. Wciśnij "Zarejestruj makro" Teraz postępuj tak jak zawsze robisz...
Sorry że tak wyszło ale wyszedł zbieg okoliczności i wynik był dobry. dzięki Bobo za zwrócenie uwagi. Jednak znalazłem coś innego co chyba będzie działało przynajmniej ja sprawdziłem na tym prostym przykładzie zapoczątkowanym przez Ciebie Apstynent. Oto Info z pomocy excela Zliczanie wystąpień unikatowych wpisów 1. Zaznacz kolumnę zawierającą listę....
Podepnij pod przycisk coś takiego: Sub Makro1() x = 1 While Worksheets("Arkusz2").... 1).Value <> "" If Worksheets("Arkusz2").... 1).Value = Worksheets("Arkusz1").... Then Worksheets("Arkusz2")....
Dobry wieczór, Nie wiem, ile jest tych wzorów i czy będą w nich w danej chwili identyczne ścieżki czy różne. Ale można spróbować tak. W edytorze Visual Basica wpisać sobie proste makro wstawiające do aktywnej komórki albo do komórki o określonym adresie formułę z funkcją WYSZUKAJ.PIONOWO. [syntax=vb]Sub WstawWzor() ActiveCell.FormulaLocal = _ "=WYSZUKAJ.PIONOWO(J6;'C:\Users\user\Des...
No i jak zrobić żeby wyszukał z kilku arkuszy??? Zrobiłbym tak: Wyszukiwanie i składanie stringu dla etykiety umieściłbym w osobnej funkcji, do której z głównej procedury zdarzeniowej przekazywało by się argumenty: tekst wyszukiwania i nazwa arkusza, a która zwracałaby string dla etykiety. W zależności od tego ile masz magazynów (arkuszy) zastosowałbym...
Proszę bardzo prosty kod w makro. Zmodyfikowałem troszkę nagrane makro - Zamień (Ctrl+H) z uwzględnieniem wielkości liter. Sub Makro1() For x = 1 To 18 Selection.Replace What:=Cells(x + 1, 1).Value, Replacement:=Cells(x + 1, 2).Value, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False,...
to o czym piszesz to dla mnie czarna magia Jaka tam czarna. Sprawa jest dość prosta i spokojnie obędzie się bez różdżki, szklanej kuli, czy czapki Merlina :) Makro najpierw sortuje, następnie zmienia wartości na tekst w kolumnie D. Przycisk po prawej służy tylko testom. Pozostaje sformatowanie gotowej tabelki (można dopisać stosowną procedurę). Pewnie...
Sorki, że milczałem do teraz, ale byłem "trochę" zajęty ;) W przykładzie wstawianie ramki poniżej tej, w której naciśnięto przycisk. Uwagi wymaga sposób wyliczania wartości zmiennych. W arkuszu ramka ma wysokość 4 wierszy, jest 1 wiersz nagłówkowy. Nr wierszy, gdzie nastąpi wstawianie nowych dla następnej ramki to: 6, 10, 14, itd Kluczowe jest wyliczenie...
Kłopot polega na tym że nadal nie do końca wiem co chcesz. Jeżeli to w pełni zautomatyzujemy i ty będziesz to obsługiwał bezpośrednio na pliku excela to praca kolegi z tym związana nie będzie już potrzebna. (zanudzi się na śmierć :) ) Jeżeli dopuszczasz makra w swoim docelowym pliku "magazynie" to widzę to tak: otwierasz plik wciskasz przycisk np. nowa...
Chodzi mi o to aby w tabelce w pierwszej kolumnie maja byc wypisane kontynenty.W drygiej-tereny leśne-to ma się dzielic na dwie koumny-nie wiem jak to się robi:mln ha,%zasobów światowych,następnie wtrzeciej kolumnie-zwarte tereny leśne i też ma się dzielic na dwie:mln ha,%terenów leśnych.W czwartej-lesistość poszczegolnych kontynentów.Dane te oczywiście...
Co do przycisku wywołujacego makro. Jeżeli masz więcej arkuszy i będzie to w nich wykorzystywane to kod umieść w module. Menu - Widok - paski narzędzi - Visual Basic. Na tym pasku wciśnij Edytor Visual Basic. Otworzy ci się edytor makr. Po lewej stronie będzie okienko "project -VBA project" . Znajdź pogrubioną nazwę twojego skoroszytu i prawokliknij...
... Kiedy nie miałem filtrowania poprzez przycisk z makrem vba ukrywanie oraz chronienie komórki pomagało, lecz kiedy ma m filtrowanie z przycisku, to VBA wyrzuca błąd iż arkusz jest chroniony A czy w kodzie vba jest gdzieś taka linia (?): True , to po zablokowaniu arkusza dana czynność jest dozwolona. Tam gdzie jest False , jest ona zabroniona. ......
Podepnij sobie następujący kod pod przycisk i przetestuj [syntax=vb]Dim lLstRw& Dim sLiczba$ lLstRw = Cells(Rows.Count, 7).End(xlUp).Row Select Case lLstRw Case Is = 1 Cells(lLstRw, 7).Offset(1, 0).Value = Cells(2, 3).Value & "_xyz_1" Case Is = 2 Cells(lLstRw, 7).Offset(1, 0).Value = Cells(2, 3).Value & "_xyz_10" Case Is > 2 sLiczba = Mid(Cells(lLstRw,...
Nie da się tego na wprost poprawić. Kłopot polega na zastosowanej przez ciebie metodzie sprawdzania czy wprowadzone dane są prawidłowe. Metoda exit textbox'a jest wykonywana wcześniej niż następuje przyciśnięcie (w tym przypadku Visual najpierw odczyta zdarzenie exit a dopiero później resztę) a to odbiera jakikolwiek manewr "wyłączenia" z pod obsługi...
Witam, Stworzyłem przycisk w Excelu w celu wklejania danych z użyciem transpozycji, w VBA wpisałem odpowiedni kod, który działa. Problem jest z utrzymaniem pozycji i rozmiaru przycisku. W miarę korzystania z niego zmniejsza się aż do małej kropeczki i zmierza w kierunku lewego górnego narożnika arkusza. Plik jest chroniony i udostępniony ze śledzeniem...
Przepraszam że się wtrącam koledze adamas_nt'owi :) Przyznam że na podstawie makra podanego przez kolegę adamas_nt autor mógłby się pokusić o samodzielne stworzenie drugiego makra ale... dobry będę i dam w załączniku gotowca (Rozwiązań jest dużo ale jak zaznaczyłem makro jest podobne do wcześniejszego żeby było łatwiej zrozumieć - jeżeli oczywiście...
Jedyną różnicę jaką zauważyłem 1:1 (1) oryginał u Ciebie 7:7 ale to i tak daje 1 Wiem i wspomniałem o tym. Jeżeli chcesz aby było tak samo trzeba by było do excela dodać własną funkcję (makro) obliczające największy wspólny dzielnik (excel tego nie posiada) i za pomocą tej funkcji można by było zrobić identyczny stosunek (ratio). Jeżeli jest to ci...
Witam możesz np. tak [syntax=vbscript]ActiveCell.Value = Environ("username") & ", " & Now()[/syntax] nie doczytałem do końca
Nie precyzujesz co ma być zapisane w nowym pliku. Zakładam, że arkusz "dane". Wklej kod do modułu standardowego, zdefiniuj ścieżkę zapisu i podepnij pod przycisk [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie z ukośnikiem na końcu nazwa = Range("B1") If Cells(1, 2) & Cells(2, 2) <> Empty Then With Sheets("dane2") ostWrs...
Ja pracuję na excelu XP i 2003 wszystko działa jak trzeba. Po włączeniu autofiltru i ustaleniu jakiś kryteriów zaznaczam dane (całą tabelę) http://obrazki.elektroda.net/1_127307734... przykładowe dane: http://obrazki.elektroda.net/94_12730764... ustawienie kryterium http://obrazki.elektroda.net/50_12730764... wynik: http://obrazki.elektroda.net/54_12730764...
można zrobić i funkcie któras będzie działała jak inne funkcje excela (np suma() z tym że za każdym razem przy wejściu do takiego pliku excela będzie monit o makro. Przyznam że nie jestem za dobry w makrach ale poprzez logiczne myślenie :) coś takiego stworzyłem Function KOMENTARZ(a As Integer, b As Integer) As String KOMENTARZ = Cells(a, b).Comment.Text...
Wiesz co, za daleko to poszło tu pojawiają się jeszcze inne błędy. Musze to przemyśleć od początku. edit ----------------------------------------... Trzeba było tak zrobić od początku - nie było by tylu problemów. Skróciłem formułę ale dodałem "zamianę" danych co jest logiczne: Jeżeli godzina końca jest mniejsza od godziny początku to znaczy, że godzina...
Dzięki za tak szybką reakcję. Właściwie powinienem skakać z radości, bo to jest rozwiązanie o które prosiłem, ale ... jak to czasem w życiu bywa nie do końca za pierwszym razem jest dokładnie to o co chodzi (a przynajmniej przydałaby się jakaś mała korekta). Wina leży całkowicie po mojej stronie, bo nie wyłuszczyłem sprawy do końca, bo myślałem, że...
W Twoim pliku XLS dodałem poniższy kod i przycisk w arkuszu "form2", który uruchamia ten kod. Pozdrawiam - McVik
:) 8-) Bez przesady. 8-) to ułamek mojej wiedzy 8-) :) Nie no ... oszukuje :) Na poważnie: Miło że Ci się podoba ale kod makra nie jest zbyt ambitny. Może ktoś zrealizuje to prościej ale niestety mam kocioł w pracy i muszę się "wyłączyć". (ostatecznie pomagać wieczorami) W załączeniu poprawki. Zapomniałem wspomnieć Arkusz "Zlecenia" ma się tak nazywać...
oto co wielki Mikroszit o tym mówi: Konwertowanie liczb przechowywanych jako tekst na liczby Cały zakres jednocześnie W pustej komórce wprowadź liczbę 1. Zaznacz komórkę i w menu Edycja kliknij polecenie Kopiuj. Zaznacz zakres liczb przechowywanych jako tekst, które mają być konwertowane. W menu Edycja kliknij polecenie Wklej specjalnie. W obszarze...
Po Bożemu powinniśmy zastosować pętlę, ale w przykładzie trzymam się pierwotnych założeń. Jeśli nagłówki są stałe, to można zastosować wyszukiwanie i przypisać zmiennym Nr kolumny odszukanego stringu. Cała sprawa bierze w łeb, jeśli nagłówki nie będą unikatowe. Zwróć uwagę na różnicę w sposobie wpisywania formuły do komórki. Składnia: "FormulaR1C1"...
Sprawdź, jak to działa (załącznik). Nie wiem, jakbyś chciał liczyć ceny. Ja założyłem, że: - mamy na przykład 3 dostawy po 10 sztuk towarów, pierwsza dostawa ma towar za 1pln, druga ten sam towar za 2pln, trzecia ten sam towar za 3pln, to wtedy: - w przypadku, gdy ktoś kupuje po jednej sztuce, pierwsze elementy będą miały liczoną cenę zakupu 1pln, po...
cześć, mam do Was pytanie odnośnie stworzenia przycisku z pewną funkcją. Mam plik bez makr który jak się otworzy to zaciąga dane z innych arkuszy. Jednak, gdy plik ten jest otwarty a ktoś na dysku sieciowym podmieni plik źródłowy to aby zobaczyć jego aktualizację to trzeba ponownie główny plik zamykać i otwierać. W związku z tym powstaje moje pytanie...
Zrobiłem to tak że program wybiera z tabelki po prawej inicjały (4 pierwsze znaki) czyli jak w tabelce jest J.K. to wybiera te inicjały. I przeszukuje kolumnę K w poszukiwaniu zgodnych inicjałów, (też 4 pierwsze znaki) czyli jak jest( J.K. data) to wybierze tylko "J.K." i dodaje do licznika pozycji zleconych. Dodatkowo jak kolor czcionki jest czerwony...
Podmień całe makro Sub wyszukaj() wrk = "Arkusz2" 'TU WPISZ NAZWE ARKUSZA w cudzysłowiu Application.ScreenUpdating = False 'wyczysc zakres Sheets(wrk).Select zakrOd = Range("F6").End(xl... zakrDo = Range("G5").End(xl... Range(Cells(5, "F"),...
W wierszy drugim (2 na tym arkuszu) numery kolumn z jakich ma pobierać dane. Jeżeli zmienisz ten numer (w wierszu drugim) zmienią sie dane - będą pobierane z kolumny o numerze jaki podałeś. Jeżeli to ci przeszkadza wpisz na stałe zamiast B$2 C$2 itd numer kolumny z arkusza pierwszego. To było dodane tak dla zautomatyzowania. Zauważ że jest on w dwóch...
Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...
Można do przycisku przypisać Np takie makro Option Explicit Sub cmdWstaw() Dim pozycja As Integer, numer As Integer Dim kom As Range pozycja = Sheets("Arkusz1").Rang... + 1 If pozycja = 77 Then MsgBox "Osiągnięto koniec zakresu w zestawieniu..." Exit Sub End If For Each...
A może inne "oszustwo".
Dobry wieczór, Nie wiem, której wersji Excela używasz. W wersji 2003: Narzędzia/Opcje/Przeliczanie/zaznaczyć pole Iteracja. W wersji 2007: Przycisk pakietu Office (w lewym górnym rogu ekranu)/Opcje programu Excel (na dole)/Formuły/Opcje obliczania/zaznaczyć pole Włącz obliczenia iteracyjne. W wersji 2010 podobnie tylko zaczynamy od pozycji menu Plik....
Plik w formacie CSV importuję do iPKO. Innymi słowy w iPKO klikam przycisk "Import" po czym mam wskazać plik CSV dla jego wczytania (zaimportowania).
Nagraj to makro i przypisz do przycisku. Przycisk wiesz jak zrobić? Wiesz jak przypisać makro do przycisku? Makro powinno wyglądać mniej więcej tak: [syntax=vb]Sub aktualizuj() ' aktualizacja danych z zakresu A1 Range("A1").Select Selection.QueryTable.Refresh BackgroundQuery:=False End Sub [/syntax] .. ewentualnie we właściwościach danych zewnętrznych...
Czy posiada ktoś logiczne wytłumaczenie, w jaki sposób działa sortowanie tabelek w Excelu? Mam taką tabelkę - chciałbym ją posortować po róznych kolumnach zachowując oczywiście powiązania wierszy między sobą: //tab.png https://obrazki.elektroda.pl/1341637700_... Zaznaczam którąś z kolumn, klikam przycisk "sortuj", inteligentny excel zauważa,...
Witam, chyba raczej chodzi ci o excel'a - prawy przycisk myszki, select co cie interesuje (np.kolumne) i wybieramy Hide. Pozdrawiam
Witam Jeśli w R2 formatu czasu: If Time > ThisWorkbook.Sheets("Admin").Range("R2") Then
Temperaturę zasilania podejrzysz naciskając i przytrzymując przycisk "klucza" na panelu. Temperaturę powrotu sprawdzisz jedynie poprzez dołożenie termometru dodatkowego (przylgowego) lub po prostu organoleptycznie czyli łapiesz za rurę zasilania i powrotu i różnica w odczuciu ciepła powinna być znaczna. Do ustawień krzywej grzewczej musisz sam dojść...
przycisk excel excel makro przycisk excel przycisk zapisywania
volvo silnika lampy sufit podwieszany wkładka menuet
agregat prądotworczy multimedialne urządzenie autors
Sterowanie 3 źródłami światła z 5 miejsc – przekaźniki bistabilne, Hager, Finder, F&F, KNX, DALI Growatt 6000 hybrydowy – błąd 300, wyłączanie przy napięciu poniżej 253 V, histereza załączania
