Tak na pierwszy rzut oka. 1. Nie ma typu zmiennej "Float". Tablice deklarujesz zwykle jako "Variant" lub nie wpisujesz typu i VB przyjmie typ domyślny, czyli "Variant" wlaśnie. 2. Liczby ułamkowe w VB zapisujemy stosując kropkę (0.2 a nie 0,2) 3. Przypisanie wartości zmiennej "ostatniWiersz", Range("a1") brak cudzysłowu i wszędzie gdzie składasz stringi:...
Sprawdź, dostosuj. Zrezygnowałem z tablicy na rzecz prostego przypisania.
ze tak czy siak potrzebne są dwa klawisze Można z jednym np. "end" wrzuć to do modułu [syntax=vbscript]Sub test() MsgBox "ok" End Sub[/syntax] a to do thisworkbook [syntax=vbscript]Private Sub Workbook_Open() Application.OnKey "{end}", "test" End Sub[/syntax] Zapisz zamknij i uruchom skoroszyt naciśnij "end"
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]
[syntax=vb]Sub Porownaj() Dim s2 As Worksheet Set s2 = Sheets("Arkusz2") Sheets("Arkusz1").Select owx = Cells(Rows.Count, "A").End(xlUp).Row owy = s2.Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To owx For y = 1 To owy If InStr(1, Cells(x, 1), s2.Cells(y, 1)) > 0 Then Cells(x, 2) = s2.Cells(y, 2) Exit For End If Next Next End Sub [/syntax]
:arrow: Hefal Zaglądałeś [url=http://www.google.pl/#hl=pl&source=... Już w pierwszym linku masz odpowiedź...
Da się. Przypisałem do zmiennych, dla łatwiejszej analizy.
To dlatego, ze Pan przemianol skorozsyt z gelda na gelda-1. Trzeba skopiować makro do wlasnej książki i przypisać je do przyciskow.
Witaj Zmienic: tekst = tekst & ListBox1.list(w, 1) na tekst = tekst & ListBox1.list(w, 0) nazwa = ListBox1.list(w, 1) na nazwa = ListBox1.list(w, 0) Dla przycisku - nowe makro w Modulu da się przypisać Sub pokaz() Magazyn.Show End Sub
Może ktoś ma pomysł, jak do tego napisać makro ?
Popieram kolegę adamasa. Można tez po podziale ale przed przypisaniem do konkretnych komórek arkusza do drugiego członu (tego z zerami) na początku dodawać apostrof - ale nie wiem jak jest zrobione makro dzielące główną daną więc ciężko doradzać.
Tak, potrzebny drugi uForm i przypisanie. Wystarczy kliknąć w Image1...
Dzień dobry, Excel nie jest dobry na wszystko, ale w tym przypadku powinien sobie poradzić. Nie znam Accessa, więc nie potrafię ocenić, czy byłby lepszy. Co do podręczników do Excela i VBA jest ich całe mnóstwo, wszystko zależy co kto lubi i jak szczegółowa wiedza jest mu potrzebna. Cenione są prace Walkenbacha, ale to są dość grube tomy i potrzeba...
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.
Chyba najlepiej będzie skorzystać z VBA i napisać jakieś makro do tego.
Działa fajnie. Problem polega na tym, że mamy w innym pliku wpisane już te wartości G1, G2... Chcielibyśmy je przeklejać i uzyskiwać to, co pokazałeś... Dodano po 4 Btw. Jak to zrobiłeś? Napisałeś jakieś makro?
ad. 1: [syntax=vb]Range("B2").ClearComments Range("B2").AddComment ("Przypisano: " & Range("A2"))[/syntax] ad. 2: [syntax=vb]=JEŻELI(DZIEŃ.TYG(DZIŚ();2) = 5; LICZ.JEŻELI(A:A;DZIŚ()+3); LICZ.JEŻELI(A:A;DZIŚ()+1))[/syntax]
Niestety, wyszukuje mi tylko dokładnie taką samą nazwę, czyli jak mam nazwę skrótową to nie chce jej przypisać to nazwy pełnej.
Sukcesywnie w miarę wpisywania danych w tym samym wierszu w zakresie kolumn 5 do 8 "a" co to jest to "a" w "If Target <> a" ? Tutaj też trzeba by chyba coś zmienić, bo wychodzi na to, że dwa razy jest sprawdzane, czy jakaś ".Value = "" ", czy też czemuś się równa jednak. W załączonym do tematu kodzie "a" zawsze jest 'puste', gdyż nigdzie nie...
Bardzo dziękuję za poświęcony czas. Jeżeli mogę się odwdzięczyć to prosze o info. Pozdrawiam, K.
:) ... pytanie tylko, czy zbysiomysio poradzi sobie z cyrylicą ... :) ... Формы (formy) - Formularze Кнопкk... (Knopka) - Przycisk Назнаm... макроl... (Naznaczit' makros) - Przypisz makro :)
bozio891 W twoim arkuszu wystarczy zmienić zakres obowiązywania nazwy AktywnyWiersz z arkusza na cały skoroszyt (najprościej usunąć nazwę, przypisać ją ponownie ale zakres dać skoroszyt i odwołanie "=0") Zaznaczanie będzie działać w każdym arkuszu gdzie masz ustawione formatowanie warunkowe (październik i grudzień nie mają) :)
wpisanie, na koniec makra, linijek z przypisaniem pustego tekstu Wstaw przed (bf.SetText "") w celu nieco opóźnić makro, aby mieć czas dla ^V (wklej) tt=Timer While timer - tt < 0.5: Doevents: Wend Dodano po 14 bf As MSForms.DataObject' właściwe podejście powinno być tak. Z innej strony DataObject jest tylko w włączonej referencji do Microsoft Forms...
Makro sobie z tym poradzi. Najważniejsze jest przypisanie Nr pierwszego wiersza. Zastanawiam się nad LP, może powinna być skorygowana? Wystarczy w tym przypadku (wiersze od 3 w dół) za każdym Next wstawić nową linię (Enter) i wkleić [syntax=vb]Cells(i, 1) = i / 2 - 0.5[/syntax]
Spróbuj wyłączyć odświeżanie: Application.ScreenUpdating=False za linią z Windows(rap).Activate. Włącz na końcu =True Jeśli nie zadziała można przerobić kod tak, żeby nie było potrzeby "biegania" po arkuszach (bez activate, select, etc)... Np fragment z sortowaniem (nie odwołuj się do okna instancji, tylko do konkretów). W przykładzie przypisanie i...
OK dam znać jutro. O tyle to dziwne, że to samo makro w którym zamiast kopiowania jest przypisanie działa poprawnie. To każe nam wnioskować, że zarówno plik jak i arkusz istnieją.
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...
Zmiennej 'lastRow' oraz 'lastColumn' przypisujesz wartość z ActiveSheet i wykorzystujesz jako liczniki pętli przeszukującej sht... Przypisanie powinno być wewnątrz pętli 'For Each sht In ThisWorkbook.Worksheets'.
Witam, proszę o pomoc w kodzie VBA ponieważ nie za bardzo się znam. Potrzebuję coś takiego, w kilku komórkach B2, B3, B4, B5, B6, mam wartości, które zmieniają się w zależności od pewnych wyliczeń, pojawia się "OK." lub "Za mały" lub "Za duży" i w przypadku gdy w żadnej z powyższych komórek nie pojawi się "OK." chciałbym aby wyświetliło się okno z informacją...
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...
Pewnie. Wynik jest w okienku debugera (wejdziesz tam alt+f11 a nastepnie uruchom makro). Popatrz, potestuj na różnych danych. PS. Co ma wspólnego język Office-a z makrem :) ?
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
To makro 4.0 jest niezbędne w celu pobrania plików do excela. Niestety użytkownicy zgłaszają niebezpieczne makro. Można chyba zrobić na przykładowych danych bez makro skanującego czyjeś pliki na dysku? Przy okazji, przykładowa formuła: =IFERROR(HYPERLINK(VLOOKUP(E4, D4:D26, 1, FALSE), "Link"), "") ?
Do makra można przypisać skrót klawiaturowy, ale nie może to być ani "'" ani F9 tylko konstrukcja typu Ctrl+Shift+A Można też uruchamiać makro za pomocą przycisku lub przypisać je do kliknięcia w obraz lub kształt.
Dzięki za podpowiedź Mam pytanie jak przypisać wartość LinaMax dla (komórka.Value =) Tak żeby można było skończyć pętle
A z czym masz problem? To proste przypisanie w pętli przecież. Nawet (skromny co prawda) opis jest w podanym linku...
Cześć mam taki problem zrobiłem listę ( pole listy) wypełniłem tą lite mam tam 84 pozycje i teraz chciałbym przypisać makro do każdej z pozycji inne, ale nie wiem jak to zrobić. Sub Polelisty1_Zmienianie() End Sub co tu mam wpisać żeby po wybraniu z listy jakiejś pozycji uruchamiało mi się makro
ok Dodano po 5 ad. 1 do końca nie rozumię, to zanaczy jestem ciemny z VBA ! ad 2. Mam W kolumnie A 1600 wierszy np. z nawziskami i muszę w kolumnie B wstawić odpowiedni komentarz ( teskstowy ) będzie on zmienny więc chciałbym z prawej strony arkusza uzyskać 20 przycisków z tekstem najlepiem aby klawisze były stałe czyli nie przesuwały się jak będe wybierał...
Ja myślę że kolega k4stor zrozumiał, że ma 1000x kopiować numer ewidencyjny do funkcji WYSZUKAJ.PIONOWO, gdy chodzi o to, żeby było to odwołanie do komórki (obok). Ze swojej strony dodam, że oprócz przeciągania istnieje "mały czarny kwadracik" w prawym dolnym rogu zaznaczonej komórki, którego kliknięcie wypełnia formułą wszystkie komórki poniżej. Ba,...
Nie rozumiem czemu ma to służyć. Masz 5 komórek do wypełnienia zarówno po lewej, jak i po prawej stronie rysunku, Zablokuj pierwszy wiersz arkusza "BAZA" i wpisuj bezpośrednio w nim. Prosto i bez problemów. Jeśli jednak wolisz coś ambitniejszego, to poszukaj na forum. Potrzebujesz znaleźć Nr ostatniego wiersza w arkuszu "BAZA", dalej proste przypisanie....
Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok
a czy ten sam kod będzie działać pod openoffice? bo wchodzę w openoffice w narzędzia->makra->zarządzaj makrami->makro i dodaje tam ten kod i nie bardzo to chodzi ;/
Dlaczego SQL? W arkuszu "dane" nie ma tabeli w rozumieniu Bazy Danych (Dane>wstaw tabelę). Odwołuj się do prawidłowych nazw. Z drugiej strony, zdaje się, że można to zrobić prościej. Czy chodzi Ci tylko o przypisanie list do combobox'ów? Łatwiej byłoby posługiwać się tablicami. Co z powtórzeniami?
Tak, kod 2 jest przypisany do kodu 1 który powinien być unikatowy dla każdej opcji kolorystycznej, oraz tak aby te wartości były takie same
W nowszych wersjach jest zapewne "Ten skoroszyt". W załączniku jest już wklejone. Jeśli tylko 1-szy arkusz i tylko jeden warunek, to może filtrem go (w załączniku)? Jak już pisałem, przypisać dane z (jak wynika z opisu, ostatniego) wiersza, to żaden problem. Za to wzorów druków PZ jest w Internecie mnóstwo. A znając życie i tak będziesz musiał zrobić/dostosować...
3/4 zrobiłem. Działa prawie, jak chciałeś. Jedynie nie sortuje wyniku alfabetycznie, a kodów do sortowania w sieci multum, to sobie możesz dodać. Obecnie kod działa dla wpisów w kolumnie 'K'. dzieki wielkie, tylko jeszcze jeden maly problem, jesli chce zmienic rodzaj egzaminu z cyfr na litery to makro przestaje działac, co powineinem zmienic w makro...
Zdecydowanie najlepsze do tego byłoby makro. Nie trzeba do tego specjalnie znać się na programowaniu. Excel posiada funkcję nagrywania makr. Można nagrać taką procedurę wyszukiwania a później przypisać ją do aktywnego pola formularza. Inna opcja to założyć filtr na tabeli i dla kolumny kod kreskowy skanować wartość filtra co spowoduje, że ukryją się...
1. Umieść makro w module standardowym (jeśli jest w kodzie arkusza). 2. Odszukaj i podmień wszystkie odwołania do arkusza Np Worksheets("Arkusz1") na ActiveSheet . Można dla ułatwienia przypisać skrót klawiszowy i teraz wystarczy uruchomić makro w dowolnym, aktywnym arkuszu.
Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...
Klasyczne pola wyboru czy opcji przy dużej liczbie kontrolek są trudne do obsługi. Sugerowałbym raczej rozwiązanie zastępcze z użyciem VBA. Coś takiego wstawiłem do przykładowego arkusza. W kolumnach B i C są tam wstawione do komórek znaki Unicode przypominające znak akceptacji i pusty prostokąt. Do obsługi tego jest makro zdarzeniowe, które reaguje...
Rozumiem, że koledze (at) marcinj12 chodziło o tak zrobiony spis, jaki zrobiłem w "spis_wzor". Czy o to coś takiego chodziło koledze? W jaki sposób można przypisać funkcje aby wszystko się zgadzało? Czy można przypisać tak funkcje do lp. nr1 w spisie a potem przeciągnać i wszystko sie uzupełnia?
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
Dzień dobry, Jeśli rozwiązanie ma być w Excelu to należy użyć funkcji JEŻELI np. =JEŻELI(A1>151;150;A1). Formułę można potem skopiować, aby objąć wynikami cały zakres. Można też najpierw zaznaczyć zakres, wprowadzić formułę i nacisnąć Ctrl+Enter, nie trzeba już będzie kopiować. Wyniki można zamienić na stałe, jesli to konieczne. Skopiować Ctrl+C, potem...
Witam. Czy istnieje możliwość aby do przycisku dodać makro, które w zależności od godziny np. 6:00-14:00 lub 14:00-22:00 będzie zmieniało po zaznaczeniu fragmentu czcionki lub całej komórki na kolor przypisany danemu zakresowi godzin? (rano na czerwono, popołudniu na zielono..). Dziękuje serdecznie za pomoc.
Dokładnie tak jest że takie rozpisanie nie pomogło. Wracając do makra - faktycznie proste się wydaje i skuteczne. Czy możesz mi jeszcze podpowiedzieć co w przypadku, gdyby powstała sytuacja że takich kolumn do przypisania jest więcej niż jedna i na dodatek są nie koniecznie koło siebie ? przykład w załączniku
Cyklicznie otrzymuję pliki, w których część polskich liter jest zastąpiona znakami graficznymi Tu już błąd w koncepcji. To nie są "znaki graficzne", tylko rezultat niewłaściwego wykrycia zastosowanego codepage w pliku źródłowym. Całe to tańcowanie z takim makrem to gruba przesada. Daj źródłowy plik tekstowy, to zobaczymy jaki to encoding. Z głowy nie...
Proszę o pomoc. Mam taki problem: Jakie przypisać makro do CommandButton1, CommandButton2, .... znajdujących się w UserForm, aby po przyciśnięciu każdego przejść odpowiednio do "Arkusza2", "Arkusza3", .... . Z góry dziękuję za pomoc Pozdrawiam
No właśnie. To może być to. U mnie (po zmianie na październik) działa. Ale, uwaga, format daty systemowej mam zgodny z tym w CSV (Vista 32bit, Office 2007). Bo przy konwersji daty w "odwrotnym" formacie, Np z listopada może zrobić się marzec: https://obrazki.elektroda.pl/1929850600_... Tak się jeszcze zastanawiam. Zamiast porównywać...
Witam, jak w większość w dziale stawiam swoje pierwsze kroki z tworzeniem makr (a w sumie to z ich nagrywaniem). Mam plik z dwoma arkuszami, w pierwszym arkuszu wybieram z listy rozwijanej jeden z trzech rodzajów zapalników (komórka E3) a następnie wpisuje ich liczbę do komórki H3. Chciałbym aby makro kopiowało wartość z komórki H3 do odpowiedniej kolumny...
w komórce np. D1 wpisać ręcznie W komórce D1 po wpisaniu tej jednynki chciałabym żeby pojawiło się zamiast tej jedynki? To tylko makro Dodano po 2 Jeżeli obok to WYSZUKAJ.PIONOWO
Myślę, że powinniśmy utworzyć oddzielny przycisk a przypiszemy do niego makro w personal.xls: [syntax=vb]Sub N_osobno() For Each ssh In ActiveWindow.SelectedSheets ssh.PrintOut Next End Sub [/syntax]
Staram się... OK, nagrałem sobie makro, usunąłem co niepotrzebne, dodałem co niezbędne i wyszło coś takiego Znalazłem taki kod ale nie wiem jak go pod siebie przerobić Nie mam pojęcia czy zakres dla procedury zdarzeniowej (określony argumentem: "Me.ListObjects("Lista1").Range.Columns(... ma u Ciebie zastosowanie, czy nie. Może bierzemy się za przerabianie...
Odnośnie punktu pierwszego to najłatwiej jest skorzystać z rejestratora, stworzyć przycisk i przypisać do niego uprzednio wyprodukowane makro. Punkt dwa był już niejednokrotnie na elektrodzie przerabiany. Np [url=http://www.elektroda.pl/rtvforum/to...
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...
Nie wiem czy to zadziała na Excelu 2002, ale możesz sprawdzić przykład z załącznika. Oparty na "zwykłych" formantach formularza - checkboxach. Jak klikniesz prawym -> Formatuj formant to we właściwościach masz Łącze Komórki, gdzie możesz ustawić powiązanie formantu z komórką - to ta pierwsza część. Druga - do checkboxa można przypisać makro, które zaznaczy...
1. Klikam przycisk "Dodaj wiersz" 2. Makro dodaje jeden wiersz nad wierszem sumy zostawiając formatowania komórek. W tym przypadku numeruje z automatu kolejny wiersz w pierwszej kolumnie a drugi pozostawia pusty Uruchom sobie makro które jest w pliku to zobaczysz. Problem mam że przy wstawieniu tego makro i przypisaniu w nim zakresu "Tabela2" i tak...
1. Najprościej wyłączyć obsługę błędów For Each element in kolekcja . Np [syntax=vb]zakres = Array([a2], [c3], [d5]) For Each kom In zakres If kom = "" Then kom.Value = "-" Next[/syntax]
Gdzieś widziałem przykład wykorzystujący funkcję API SendMessage . Ale jak to z API na różnych maszynach może być różnie. Popatrz na taki przykład Dim temp1 As String Dim temp2 As String Sub Makro() temp1 = Cells(1, 1).Value ' zapamiętanie starej wartości dla Undo Cells(1, 1) = "coś" ' wpisanie nowej wartości do komórki...
Oczywiście, że można. Wszystko co jest możliwe do zrobienia ręcznie, z menu, jest także do zrobienia przy pomocy makra. Trzeba się pobawić. Możesz wstawić do arkusza lub menu programu przycisk/przełacznik odblokuj/zablokuj, do którego przypiszesz makro, które będzie przed rozpoczęciem wpisywania danych odblokowywało zadanych przez Ciebie obszar arkusza,...
Dla pewności: Wróć do komputera na którym to działa, skopiuj i zapisz do pliku tekstowego kod od "sub..." do "end sub" makra powiązanego z przyciskiem, przenieś plik do komputera, na którym nie działa, wklej kod w edytorze VB, powiąż makro z przyciskiem opcji. Możesz też wyeksportować do pliku *.bas i zaimportować na drugim komputerze Z drugiej strony...
czy da się za pomocą jakiegoś makra pobierając dane tak jak teraz kopiować pliki o takich nazwach jak wartości z tabeli? Raczej tak. Chodzi o skopiowanie arkusza do pliku o nazwie wpisywanej do komórki na samej górze (Np "P3.xls")? Nagraj rejestratorem. Ale jeśli już makro, to "przy okazji" zamiast formuł w komórkach (łącz w nowym pliku), lepiej przypisać...
Och, akurat w tych wersjach powinno być w miarę prosto. U mnie na 2007 działa takie coś, zakładając że 2010 ma taką samą składnię, też powinno: [syntax=vbscript]For Each ws In Worksheets If ws.Name <> Arkusz1.Name Then katalog = "D:\PDFy\" & ws.Name 'tworzenie katalogu jeśli nie istnieje If Dir(katalog, vbDirectory) = "" Then MkDir Path:=katalog...
Przy takim układzie danych sugerowałbym wykorzystać zdarzenie arkusza: Worksheet_SelectionChange . Po umieszczeniu kursora w nagłówku (rok) i pobierając dzień i miesiąc z kolumny A w pierwszej pętli otrzymamy datę oraz Nr wiersza wynikowego. DateSerial(Target.Value, Month(Cells(i, 1)), Day(Cells(i, 1))) Wystarczy...
Potrzebna byłaby formuła oparta o ADR.POŚR, ale tu znowu zbyt wiele niewiadomych. Jeśli makro, mogłoby być coś podobnego do[syntax=vb]Sub Wkb_From_SubDirs() Dim path1 As String, path2 As String Dim plik As String, tekst As String Dim i As Long, folder As Object, pfolder As Object 'jeśli ktoś wpisze byle co Err = 1 Do While Err <> 0 On Error Resume...
Dzień dobry, chciałbym utworzyć makro, może być pod kliknięcie w specjalny przycisk.. A teraz co miałoby ono robić.. Posiadam generalny plik zbiorczy projektów przedstawiony za pomocą tabeli w excelu. Jeden wiersz w tabeli to z założenia jeden projekt, a kolumny opisują jego postępy. Dane podstawowe projektu jak nazwa itd., które wprowadza użytkownik...
Niech zgadnę - ten kod z dodatkowym kopiowaniem 7 komórek w każdym wierszu działa strasznie wolno i chcesz zrobić to na raty? Tak czy inaczej: na końcu makra trzeba przechować numer ostatniego wiersza z pliku źródłowego, a skoro i tak coś jest przechowywane, to można też zapamietać numer ostatnio wpisywanego wiersza w pliku docelowym. Wartości te można...
Jednak ciekaw jestem rozwiązania. Zwykle mysz ma pod kółkiem przycisk 'Middle Button'. Może trzeba poszukać czegoś na ten temat. Pewnie, jak pisał kolega JRV , z wykorzystaniem API... Z mojego doświadczenia: W pewnym biurze Pani koniecznie chciała wstawiać bieżącą datę i godzinę w bardzo prosty sposób. Kombinacje klawiszy były "zbyt skomplikowane",...
Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...
W dość nieskomplikowany sposób można osiągnąć taki wynik: http://obrazki.elektroda.pl/6726167700_1... Trzy etapowe makro -wyszukiwanie unikatów w kolumnie B i zapisanie ich jako nagłówki kolumn w arkuszu wynikowym -wyszukiwanie unikatów w kolumnie A i zapisanie w kolumnie A -przypisanie Nr seryjnych do kontrahenta wg typu
Witam, Czy ktos mi pomoze wpisywac w excelu liczby np. 1 1 1 1 1 i tak samo z 2 zeby sie po piec razy powtarzały ? I jeszcze jedno pytanko czy istnieje jakies makro albo funkcja w excelu na szukanie i dopasowanie przypisanie wartosci np. Mam dane w poziomej tabelce, a musze odnaleźć dana wartosc i przypisac do kokretnego wiersza w wersji pionowej, zalozmy...
Witam! Nowy, czysty skoroszyt. Komórki mają formatowanie domyślne. Do komórki D3 wpisuję z ręki formułę ="0987", excel zgodnie z przewidywaniem traktuje tekst jako tekst, mamy wyrównanie do lewej, 0 zachowane. Do komórki D4 wpisuję formułę =D3, i tym razem excel zgodnie z przewidywaniem traktuje tekst jako tekst, mamy wyrównanie do lewej, 0 zachowane....
Świadomej złośliwości i wyłączenia opcji nie zakładam jeśli działanie po zmianach nie wpłynie bardzo na utrudnienie użytkowania pliku. Dlatego najlepszym w moim mniemaniu rozwiązaniem było by stałe przypisanie zamiast opcji wklej funki wklej jako wartości, a opcji wytnij jako kopiuj... - tylko nie wiem czy jest to realne i żeby wszystkie elementy miały...
W załączniku przykład reguł formatowania warunkowego dla dwóch wartości (1z, 2z), dla kolumny C. Wg wzoru możesz ustawić formaty dla reszty zakresów i pozostałych wartości. Moim zdaniem będzie tego trochę dużo, albo czegoś nie zrozumiałem do końca. Jeśli tabelki w arkuszu mają stałe położenie, można wziąć pod uwagę zastosowanie makra na Offset'ach...
Chodzi o to (ostatni post)? http://www.elektroda.pl/rtvforum/topic11... W miejsce komentarza Twoje makro wystarczy wpisać np: Worksheets("Arkusz1").Range("A2:A5").Fin... 21*").Select Lub przypisać do zmiennej wartość komórki A1. strSzukana = "*" & CStr(Cells(1, 1)) & "*" i wprowadzić poprawkę: (...).Find(strSzukana).Select p.s. Excel...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij przypisanie oraz 'FileDialog' w instrukcji warunkowej...
Dzień dobry. Dziękuję za odpowiedź. Chodzi o to żeby komórki, które zaznaczyłam na pomarańczowo kopiowały się do następnej kolumny (po naciśnięciu guzika "+" z przypisanym makrem). Czyli żeby H60:H80 wklejało się do I60:I80, potem do J60:J80 itd. (po każdym naciśnięciu guzika). A mnie się wkleja ten zakres komórek w kolumnie A w odległych wierszach....
Przekreślenie jest efektem formatowania tekstu w komórce. Wyniku formuły nie można w ten sposób formatować. Pozostaje makro - nagraj przekreślenie i będzie prawie gotowe. Glównie chodzi o przypisanie tekstu i sformatowanie: Characters(Start:=1 lub 6, Length:=5).Font.Strikethrough = True lub False. Po mojemu, oprogramować należy arkusz z M/K przy Worksheet_Change.
Cześć. Czy ktoś z Was wie jak powinno wyglądać makro porównujące ze sobą tabele w następujący sposób: -Załóżmy, że mamy dwa arkusze z danymi pracowników. W jednym jest formatka do raportu, w drugim przygotowana baza z ilością pracowników przypisanych do danych grup (dział/sekcja/skrót jedn org/MPK/rodzaj pracownika/fabryka) - formatka ma ten sam układ....
Cześć, Mam tabele z listą pracowników i przypisanymi do nich wydajnościami za poszczególny dzień. A3 imię i nazwisko B3 średnia C3 - DI3 - dni po kolei Chciałbym napisać makro, żeby w kolumnie był do wybrania zakres A1 - początek zakresu np. 01.03.2023 A2 - koniec zakresu 31.09.2023 Tak żeby zostały widoczne kolumny A3 i B3, a ukrywały się te kolumny,...
Dla liczby wierszy wpisanych ręcznie = 2 dane co trzeci wiersz? Liczba wierszy wpisanych ręcznie bedzie sie zmieniac?
dzięki śliczne za odpale jeszcze pytanko: gdzie to wstawić? do macro?i jak przypisać to odpowiedniej komórce( w moim przypadku w A1 rozdziela na 3 (dwa myślniki)a w D1 rozdziela następnie na 7 części(6 częci) i kopiuje do pierwszego wolnego wiersza ostatnie -można przypisać do tego jakąś wiadomość? np jeżeli nie a 2 myślników to wyskakuje okno alarm...
Cześć wszystkim. Nie wiem czy dobrze trafiłem, ale spróbuje. Mam taki zrobić arkusz excela jak na obrazku i nie wiem jakie makro mam przypisać do przycisku, żeby po naciśnięciu go odświeżało dane z kwerendy www w innym arkuszu tego skoroszytu. Może ktoś potrafi takie makro napisać? i pomoże. http://obrazki.elektroda.pl/9125140100_1...
Witaj. Bez względu na to, co potem już liczbą będzie tekstem(1,5s)? Makro należy znać nazwy arkuszy i werszy-kolumny źródłowe i docelowy. w przeciwnym razie sam cos takiego: [syntax=vb] For r=pierwszWersz To OstatWersz If Cells(r,2) >1500 then ' Tu kopiowanie, dzieląc wartość przez 1000, a przypisanie s. End If Next [/syntax]
Skoro już rozpisałeś, to użyj jej jako tabelki pomocniczej. Np: wpisz rozpiskę w L1:O15 w H1 wpisz =PRZESUNIĘCIE($A$1;0;L1-1) i skopiuj 4 w prawo i 15 w dół w h16 =PRZESUNIĘCIE($A$2;0;L1-1) i skopiuj 4 w prawo i 15 w dół etc, etc http://obrazki.elektroda.pl/1008993400_1... Ostatecznie możesz sobie napisać proste makro z wykorzystaniem...
Dobrze myślałeś. Przycisk i kod, który wypełni formularz na podstawie Np aktywnej komórki i "druknie" x2 szt. Zwykłe przypisanie cells()=cells() i instrukcja PrinTout Coś na wzór (kod w module):[syntax=vb]Sub PrnForm() Dim arkPrn As Worksheet Set arkPrn = Sheets("Wydruk") With ActiveSheet wrs = ActiveCell.Row arkPrn.Range("d7") = .Cells(wrs, 1) 'Nr...
cześć, poszukuję znaleźć makro przypisaną do przycisku który będzie aktualizował dane w excelu, które są powiązane formułą z plikiem na dysku sieciowym. Problem jest w tym, że jak plik otworzę pierwszy raz na pulpicie to excel te dane zaciąga automatycznie z dysku sieciowego. Lecz jeżeli ktoś na dysku sieciowym podmieni plik wsadowy to aby zobaczyć...
wszystko działa pięknie poza tym łączem, scieżkę musiałem zmienić i problem ma z wybraniem konkretnego pliku do którego ma przypisać łącze bo w miejscu gdzie ma znajdować się już sama nazwa konkretnego pliku wyświetla zmienną "p" i nie potrafi otworzyć linku. Range("A15").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "C:\Users\Wioletta...
Tworząc makro i umieszczając przycisk z przypisanym makro, które sprawdzi tabelę, a gdy pole będzie puste - zwróci komunikat zamiast wysłać wydruk do drukarki. Korzystanie z przycisku Drukuj w menu programu wymusi jednakże wydruk z pustym polem. Aby nauczyć się pisać makra - F1 - pomoc, hasła: Visual Basic, makro. Jest też obfita literatura na ten temat.
Napiszę, jak to było przed Office 2007 bo na wersji 2007 nie znam się za dobrze. Makropolecenia (inaczej procedury, programy VBA) to są programy, które można zapisać albo jako makra dostępne tylko z poziomu danego skoroszytu (pliku Excela) albo w skoroszycie makr osobistych. Jeżeli zatem chcesz aby dane makro było dostępne zawsze, to trzeba je zapisać...
Dzień dobry, Szkoda, że nie ma załącznika, bo to nie jest całkiem jasne. Czy te nazwy miast występują jako zawartość komórek samodzielnie, tak jak we wzorcu, czy są wewnątrz jakichś dłuższych tekstów? I która wersja Excela? Edit: Ponieważ nie ma na razie odpowiedzi, przesyłam propozycję w trzech wariantach. Wszystkie wykorzystują formatowanie warunkowe,...
przypisanie excel przypisanie danych excel excel przypisanie wartości
naprawa medion soundbar subwoofer budowa latarki
schematy boardview schematy boardview
Znaczenie dźwięków w zmywarce Indesit - wyjaśnienie Wymiana czerwonych LED na żółte w kierunkowskazach VW Jetta 2021 - Koszty i porady