Czy mógłby się ktoś podzielić jak powinien wyglądać kod abym mógł mieć w swoich mailach "użycie przycisku głosowania"? Coś ala: [syntax=vbscript]Sub glosowanie() Set myOlApp = CreateObject("Outlook.Application") Set myitem = myOlApp.CreateItem(olMailItem) myitem.VotingOptions = "Tak;Nie" myitem.Display End Sub[/syntax]
W załączniku trochę poprawiona wersja. A co z tym przyciskiem?
Nie zadziała A u mnie działa (no chyba że o to nie chodzi)
Zależy, jak chcesz żeby się makro wykonywało. Albo zarejestruj makro i kod wklej tam, albo wstaw przycisk i w zdarzeniu przycisku.
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.
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.
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...
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...
Witam możesz np. tak [syntax=vbscript]ActiveCell.Value = Environ("username") & ", " & Now()[/syntax] nie doczytałem do końca
Czy wiesz, że w "Arkusz2" prawdopodobnie w wyniku kopiowania, wklejania a następnie usuwania wierszy jest ponad 500 przycisków o nazwie "CommandButton1"? Kiedyś był już podobny temat poruszający ten problem. Kopiowanie i wstawianie wiersza z przyciskiem działa OK, ale usunięcie wierszy powoduje układanie się obiektów w stosik, z których widoczny jest...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
Moja propozycja z makrem zdarzeniowym (w module Arkusza1). Chroni kolumnę A w Arkuszu1 przed ręcznym wpisaniem duplikatów i przed skopiowaniem. Nie chroni przed modyfikacją makrem. Formuły zamienia na wartości. Chroni też przed wprowadzeniem wartości błędów. Do działania muszą być włączone makra i obsługa zdarzeń. Obsługa zdarzeń jest domyślnie włączona,...
Umieść przyciski w polach grupy
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.
Witam Jeśli w R2 formatu czasu: If Time > ThisWorkbook.Sheets("Admin").Range("R2") Then
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...
Zablokować pierwszy wiersz, zmienić wysokość, wstawić tam wszystkie przyciski i używać jako "paska menu"...
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]
Do dwóch przycisków możesz przypisać ten sam moduł
Nie wiem, co Ci nie działało, moim zdaniem wszystko działa. Trzeba oczywiście dopasować adresy do układu danych w nowym pliku. Nie napisałeś też jak ma być uruchamiana ta procedura. Zrobiłem uruchamianie przyciskiem "Analiza".
Twojego filmiku nie widać. Edit: Już się pokazał. Spróbuj jednak dokładniej opisać swoje obserwacje. Czy problem z tym plikiem "okrojonym" na potrzeby forum występuje u Ciebie na każdym komputerze i w każdej wersji Excela? Masz w pliku kilka ukrytych arkuszy, ale eksperymentujesz tylko z "B". Czy każdy arkusz po ukryciu zachowuje się tak samo? Ponieważ...
Sprawdź czy o takie coś chodziło, bo nie dałeś załącznika.
Przykład na przyciskach pod "A9"
Zdaje się, że dla każdego powiatu musisz mieć osobne procedury dla przycisków. W przykładzie makro "orientuje się" po nazwie miasta wpisanej w komórce zakrytej przyciskiem.
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":...
Przypisz do każdego z przycisków odpowiednie makro [code][syntax=vbscript] Private Sub CommandButton1_Click() n1 = Range("N1").Value 'napisz formule if '=JEŻELI(N1>8;"STR. 1/5"; (JEŻELI(N1>6;"STR. 1/4";(JEŻELI(N1>4;"STR. 1/3";(JEŻELI(N1>2; "STR. 1/2"; "STR. 1/1"))))))) Dim text As String text = "str.2" & "/" & n1 Range("G3").Select ActiveCell.FormulaR1C1...
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?
Tu lepiej powinny się sprawdzić przyciski radiowe, bo opcje wzajemnie się wykluczają, poza tym od razu otrzymujemy w wybranej komórce numer przycisku.
Excel 2003: (Nie mam zainstalowanego, mogę się mylić, proszę kolegów o ew. poprawkę. Chodzi o wstawienie przycisku ActiveX) W menu: 'widok' wybierz: 'paski narzędzi' i 'przybornik formantów'. Z przybornika wybierz: 'przycisk'. W okienku 'makra' wybierz makro o nazwie 'actualize' lub W edytorze VB, przy zdarzeniu 'NazwaPrzycisku_Click()' wpisz nazwę...
Skoro nagrało Ci się coś w rodzaju 'ActiveCell.FormulaR1C1 = "=TODAY()' to dopisz pod spodem 'ActiveCell = ActiveCell.Value' i po sprawie. To samo "bardziej po Bożemu": ActiveCell = Date Zamiast ActiveCell może być oczywiście dowolny Range(adres) lub Cells(wiersz, kolumna).
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...
Tam, gdzie chcesz dokonać walidacji, np. przy kliknięciu przycisku na formie.
Witaj Przytrzymanie klawisza Ctrl, można zauważyć kursor po komórce w wierszach, dla którego konieczne Etykiety. Następnie kliknij przycisk OK.
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...
visual basic sie klania :P mam gdzies ebooki i przykladowe formy, jak znajde to wrzuce
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ć...
Sformatowałeś "miesięczne wynagrodzenie" tak aby wynik był pokazywany z dokładnością do 0 miejsc po przecinku więc powstaje różnica. Potem dalsze obliczenia idą z błędem. Tworząc formuły bazuj zawsze na komórkach z oryginalnymi wartościami to na końcu nie będzie błędu.
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
Nie do końca wiem o co ci chodzi, niby hiperlink ale nie do końca. Może wystarczy po prostu Sub przejdz() Range("A100").Select End Sub Można też tak (tylko szybko się zmienia możesz nie zauważyć :) ) dla wytłumaczenia: Down to w dół Down z minusem to w górę w prawo to ToRight a w prawo z minusem to w lewo Sub przejdz()...
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...
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...
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...
Witam! kolego podmień mikrofon.Pozdro!
szukałem, kombinowałem i zawsze coś nie wychodziło :/ =JEŻELI(LUB(G34<238;G34>407);"..."... to działa dokładnie tak jak chciałem, dzięki za pomoc :) Co tu jest do kombinowania? Suma logiczna 2 warunków? A co do podziękowania to w dobrym zwyczaju jest wciśniecie przycisku pomógł.. ;)
Witaj Dołożyłem przycisk uruchamiający makro. Pozdrawiam
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ż
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]
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".
Witam Chciałem dodać przycisk typu ON/OFF ukrywa i odkrywa obszar Mam stworzone dwa makra makro1 ukrywa obszar makro2 odkrywa obszar W sieci znalazłem sposób który pozwala na taką sztuczkę ale nie wiem gdzie to podstawić do obecnych wartości aby to działało. znaleziony kod Private Sub ToggleButton1_Click() With ToggleButton1 If .Value Then Call...
Oops. Nie w tej pętli :) Sorry, roztrzepaństwo... [syntax=vb] For wrs = 0 To lstSala.ListCount - 1 For kol = 0 To 9 .Cells(wrs + 2, kol + 1) = lstSala.List(wrs, kol) Next suma = suma + .Cells(wrs + 2, 8) Next[/syntax]
[syntax=vb] Sub Wyslij() Dim bs As Range Dim r& Set bs = Sheets("zbiorczy").Range("A:L") r = bs(Rows.Count, 1).End(xlUp).Row + 1 bs.Rows(r) = bs.Rows(1).Value Range("b6:c10").ClearContents End Sub [/syntax]
Zamień Sheets("Obliczenia").Select na Sheets("Obliczenia").Activate A najlepiej jeszcze uprość te makro [syntax=vb]Sub kopiuj() Sheets("Obliczenia").Range("A3:A506").Co... Sheets("Wynik").Activate End Sub [/syntax]
Dopisz przed tą linią: debug.print .Shapes(.Cells(w, 1).Text).name naciśnij Ctrl+g uruchom makro. I co tam wypisało?
Załącznik był podmieniony po 5min. Zaciągnij jeszcze raz. Lub popraw: if not intersect ... is nothing then
1. chronić arkusz [syntax=vb]Sub Button4_Click() activesheet.Unprotect 'ew. haslo Rows ("7:19") .Hidden = Not Rows ("7: 19") .Hidden Activesheet.Protect 'haslo End Sub [/syntax]
A z czym masz problem? To proste przypisanie w pętli przecież. Nawet (skromny co prawda) opis jest w podanym linku...
Sądząc po nazwie ("Polewyboru") to nie ActiveX tylko formularzowe. Wykorzystaj wartość komórki wpisanej jako "łącze komórki"... P.S. Na końcu procedury włącz odświeżanie ekranu.
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.
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 ......
1. Należy utworzyć makro, które wykona wszystkie potrzebne czynności 2. PLIK->Opcje->Dostosowanie Wstążki->Wybierz polecenia z->Makra itd.
W kodzie przycisku CmbAktualizujdane zmień/dodaj linie: 1 zmień) If POB <> "" Then kwadrat = POB * POB + Sqr(POB) 2 dodaj za linią pobrania = ) dodania = Val(UsfTowary.TxtDodan.Value) 3 zmień) If pobrania > dostepnosc + dodania Then 4 zmień) ifno = MsgBox("Stan Towaru po aktualizacji: " & dostepnosc - pobrania + dodania , vbInformation,...
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...
A jak kopiujesz nie używając skrótu klawiaturowego, a prawego przycisku myszy?
Masz ten błąd po kliknięciu w przycisk?
Prawym przyciskiem myszy na przycisk- i w polu nazwy (w lewym górnym rogu) zamiast "Przycisk1" napisać nazwę(b_test), albo w makre zamiast b_test napisać Przycisk1, czy który to będzie widoczny do tego przycisku.
Witam Możesz np w właściwościach pola ustawić Multiline i EnterKeyBehaviour na True
Załącznik mi nie odpowie bo sam go zrobiłem przycisk nie ma podpisanego kodu Nie pisałem o załączniku z Twojego tematu, tylko o tym do którego prowadzi link: http://www.elektroda.pl/rtvforum/topic17... Ściągnij, ALT+F11 i podejrzyj kod pod przyciskiem.
kolejność komórek w obiekcie Range nie jest wprost zdefiniowana... No tak, ale można sprawdzić tabulatorem ;) Dla pewności [syntax=vb]Dim i As Integer For i = 10 To 90 If Rows(i).Hidden = True Then Rows(i).Hidden = False Exit Sub End If Next[/syntax]
W poście niżej masz to opisane Ale tu zrobiłbym ciut inaczej, Np [syntax=vb]Sub otworz() 'otwieranie pliku z okna dialogowego z filtrem Dim fd As FileDialog Dim wkb As Workbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = "H:\CCC\ccc\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect...
Czy na pewno potrzebujesz makra? W załączniku formuła i przykład makra (pod przyciskiem). "Współrzędne" pobierane z L1, L2.
Jeśli jednocześnie to For ark = 1 To 2 With Sheets(ark) For i = .Cells(65536, "a").End(xlUp).Row To 2 Step -1 If .Cells(i, "a").Value = "" Then .Rows(i).Delete shift:=xlUp End If Next End With Next Jeśli uruchamiasz w pierwszym a usuwać ma w drugim to With Sheets(2) For...
Excel - automatyczne przepisywanie danych z jednego arkusza do drugiego. Witam, potrzebuję pomocy w programie Excel. Posiadam dane w Arkuszu 1 i potrzebuję, aby po kliknięciu danego klienta, z automatu skopiowały się do drugiego arkusza wybrane dane, jak nr zlecenia, umowy, adres, transport. AI: Jaka wersja programu Excel jest używana? Excel Office...
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...
Dziękuję za chęć pomocy, tabela jest utworzona w excelu poprzez "wstaw tabele" w załączniku plik z przykładem w docelowej wersji są jeszcze inne tabele niżej dla których też chce zrobić taki przycisk
Albo jest włączona ochrona makr, należy ją wyłączyć (obniżyć poziom zabezpieczeń) - lub brakuje modułu VB obsługującego ten przycisk.
Najlepsze przycisk. Nie należy wypełniać LP. Podczas skopiowania danych makro będzie wypełnić sam. Oznacza to jednocześnie może być kilka rekordów po kliknięciu na przycisk.
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...
Prosty wydawałoby się problem... jak zrobić tak, żeby makro w excelu można było uruchomić nie ze skrótu klawiszowego, ale poprzez kliknięcie danego pola czy obrazka? Jeśli to w czym pomoże to podpunkt 5. z tego zadania: http://www.hga.yoyo.pl/pipu/lab05zad.pdf PS. Makra mam już zrobione, tylko ten przycisk...
Jeśli pod przyciskiem, to je połącz, a nie wpisuj formułę...[syntax=vb][d1] = [a1] & " " & [b1] & " " & [c1][/syntax]A dokładniej[syntax=vb]For i = 1 To zasieg Cells(i, 4) = Trim(Cells(i, 1) & " " & Cells(i, 2) & " " & Cells(i, 3)) Next[/syntax] Edit: Odwrotnie :) poprawiłem...
Okej dziękuję bardzo:) A zapytam: Da się zrobić taki przycisk, który zapisuje plik Excel'a?
Jeżeli dużo tych kontrolek, te które otrzymują fokus (wyłączając Label'e itp) można oprogramować "hurtem" wykorzystując klasę oraz kolekcję dla każdego typu. Ale nie wiem czy warto... Może po prostu wstaw kilka przycisków nazywając je Np [F4] czy jakoś inaczej. Wtedy zamiast naciskać klawisz, naciśniesz przycisk...
Jeżeli autofiltr to nawet zwykłe kopiuj wystarczy. A jak się ktoś uprze to może nagrać to zdarzenie w makro i podpiąć pod przycisk.
Witam.Aby wejść w tryb serwisowy potrzebny jest oryginalny pilot Schneidera ( tzn. musi generować odpowiednią sekwencje przy naduszeniu naraz dwóch przycisków-czerwonego i niebieskiego).Sposób wejścia w tr. serwisowy podał już Kolega w poprzednim poście.Zawsze po inicjalizacji wymagana jest drobna korekta geometrii.Pozdrawiam.SKORBI.
To napisz makro, które tworzy plik CSV po nacisnieciu przycisku - prosciej chyba nie można? Przynajmniej ja tak robię. Zamiast tłumaczyć dziesiątkom użytkowników co i jak, wolę zrobić makro i podłączyć pod jeden przycisk.
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...
Podmień na [syntax=vbscript]Sheets("TEST_2").ListOb... colStart), Cells(row, colEnd)).Value = Sheets("DoPowołania").Range("L1").Value[... lub [syntax=vbscript]Sheets("TEST_2").ListOb... colStart).Resize(, colEnd).Value = Sheets("DoPowołania").Range("L1").Value[...
:arrow: bubul222 Chcesz pomocy? Załóż swój wątek. Nie odkopuj archiwum. :cry: Ma to jeszcze tą zaletę, że będziesz mógł podziękować pomagającym odpowiednim przyciskiem.
Pewnie by się dało, ale na fragmentach kodu wyrwanych z całości... Najprościej będzie napisać osobną procedurę, nie wiem, kopiowania arkusza z listą, przepisywania widocznych komórek i dopisać jej wywołanie w kodzie przycisku...
Nie dokładnie o to mi chodziło kod blokuje mi tylko wiersz tej jeden w którym jest coś aktualnie wpisanie (zaznaczenie). Chciałbym aby blokował wszystkie wiersze powyżej, które w jednej z kolumn w danym wierszu mają wartość (dla mnie zapis "m" lub "p" lub "c") takie blokowanie warunkowe. Np. warunkową kolumną jest kolumna E. Jeżeli w danym wersie jest...
mam w pliku (Excel 2010) użyte przyciski (4) "CommandButton" po naciśnięciu na przycisk wykonywana jest pewna operacja zapisana w VB na moim kompie wszystko śmiga elegancko. Problem polega na tym że ja ten plik uruchomię na innym kompie (Excel 2010) to tych przycisków nie da się nacisnąć i nie wykonuje się żaden kod. Ustawienia włącz wszystkie makra...
ale jest to zbyt proste do obejścia przez użytkowników Wszystko idzie obejść. :) Co do tematu to podpowiem Ci, że trzeba zablokować jeszcze X (chodzi o przycisk x).
Nie da się tak jak chcesz. Jeżeli chcesz skrócić klikanie wyciągnij przycisk autofiltru na pasek menu. (poprzez dostosuj - wyrobekj tylko że grupa Dane i Autofiltr]) Wtedy po skopiowaniu i wklejeniu danych masz je od razu zaznaczone więc wystarczy kliknąć tylko w przycisk i już masz autoflitr.
dla przycisku tak daj takie samo makro tylko zamień True na False
Osobiście pracuje na ,97, Xp i 2003 natomiast w pracy na innych nowszych maszynach jest już 2007 i można podejrzeć. Spróbuje cię słownie dokładniej pokierować. Lewy górny róg (to okrągłe kółko offica) klikasz w to kółko i tam na dole okienka wybierasz przycisk opcje programu excel. Pojawi ci się nowe okienko po lewej zaznacz "popularne" i w okienku...
Dokładnie o to mi chodziło. To jeszcze przy okazji jakbym mógł prosić o pomoc z makro do drukowania konkretnego obszaru oraz z przypisaniem makro do konkretnej komórki (np A1). Do tej pory makro przypisywałem do przycisków.
To już jest prawie program ;) Dołożyłem arkusz z pracownikami, ponumerowałem od 1 (Jadwiga ma 4) Bez czytnika operujesz klawiszem [Enter] (fokus na przycisku 'zwrot' oraz przy Exit textBox'a) Przetestuj
Witam zobacz [syntax=vb]ActiveWorkbook.RefreshAll[/sy...
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
Oczywiście tą operację będziesz realizował 5 razy dziennie i dlatego myślisz o przygotowaniu odpowiedniego makra Będzie wykorzystywany na kilkuset kolumnach od czasu do czasu ;) Wykorzystanie funkcji "Tekst jako kolumny" dalej nie rozwiązuje problemu, gdyż wpadłem już na pomysł jak rozdzielić tekst oraz jak dodać co drugą kolumnę. A mimo to dalej nie...
excel przycisk excel makro przycisk excel przycisk zapisywania
sąsiad kradnie chrysler skrzynia biegów wymiana indukcyjna samsung zasilacz
klimatyzator haier klimatyzator haier
Oporność między klemą a masą silnika - normy i pomiary Jak sprawdzić stan techniczny kolumn głośnikowych?