po komunikat = suma1 dodaj Dodano po 2 Wtedy 'Function formatowanie' odpada
Czy to dlatego że dodefiniowuję wymiany MojaTablica dopiero w procedurze? Tak.
Podmień Target na ActiveCell (to nie jest już procedura zdarzeniowa)...
Pyta za to okno wywołane w VBA. Tutaj [url=https://stackoverflow.com/questions... - jak uruchomić procedurę BeforeSave No i trochę trzeba pokombinować. Np (wklej poniższe w ThisDocument) [syntax=vbscript]Private WithEvents App As Word.Application Private Sub Document_Open() Set App = Word.Application...
Teraz po drobnych poprawkach powinien działać. Tylko obliczanie różnicy musisz uruchamiać ręcznie. I pamiętaj, żeby czas był zarówno w kol. B jak i D, bo procedura nie ma obsługi błędu.
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Pewnie makro masz w kodzie arkusza. Musi być w module... Jeśli to procedura zdarzeniowa, wywołaj je po nazwie (Call NazwaMakraInModule)
W arkuszu może być tylko jedna procedura obsługi określonego zdarzenia, w tym przypadku zdarzenia SelectionChange. Należało połączyć tylko wnętrza procedur, pozostawiając jeden nagłówek. Proszę sprawdzić w załączniku, czy o to chodziło?
tekst zostaje rozformatowany Zamiast & vbCr (jak w Ciebie) Treba & vbCrLf potrzebna by była chyba dodatkowa cała procedura Tak :) bf.SetText "" bf.PutInClipboard ' do schowka
Dobry wieczór, Proszę sprawdzić, czy taka procedura Pana zadowala. Tylko proszę uważać, bo widzę, że ma Pan tam różne rzeczy poustawiane, żeby to Panu razem zagrało. W kolumnie H jest dość dziwne formatowanie niestandardowe dla liczb, a wprowadzone miał Pan teksty. W każdym razie moja procedura porównuje faktyczną zawartość komórek, a nie to co w nich...
Hmm. Żeby sprawdzić warunek True/False (przy warunkowym uruchomieniu ze zmienną globalną) procedura musi się uruchomić. Wbudowany autozapis nie spełnia wymogów? [url=http://www.jkp-ads.com/download.asp... znalazłem jakiś dodatek (Autosave.zip), może się nada. W ostateczności można "napisać" procedurę przy otwarciu, a przy zamknięciu usunąć. [url=http://www.cpearson.com/excel/vbe.a...
Procedura Sub Command1_Click() generuje się automatycznie, kiedy wstawisz przycisk na akrusz Excela i klikniesz go dwukrotnie myszą - oczywiście w trybie projektowania.
Jeśli nadzorowane zmiany mają być w Arkuszu2, to procedura Worksheet_Change powinna być umieszczona w module Arkusza2. W tej procedurze można odwoływać się do Arkusza1 bezpośrednio (przez nazwę kodową) albo pośrednio przez kolekcję Worksheets jako Worksheets(1) albo Worksheets("Arkusz1"). Przykładowy kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal...
hibou1 , nie piszesz, w której wersji Excela pracujesz. Generalnie, nie należy takich plików otwierać przez dwuklik na ikonce/nazwie pliku, bo wtedy zdajemy się wyłącznie na domyślność Excela - a Excel wszystko co przypomina liczbę traktuje jak liczbę, a dokładność pamiętania liczb to 15 cyfr. Wszystko co ponad to jest zastępowane zerami. Dlatego zanim...
Dobry wieczór, Proszę sprawdzić, czy o to chodziło. Procedura reaguje na wpisanie małego "x" w kolumnie L. Zarówno skasowanie tego wpisu, jak i wpisanie tam czegokolwiek innego usuwa datę i przekreślenie. Pozdrowienia.
Dobry wieczór, Do tego trzeba zaangażować Visual Basic, bo w samym Excelu są ograniczone możliwości sterowania treścią komentarzy. W załączniku jest propozycja rozwiązania, ale musi Pan ją zaadaptować do swoich potrzeb. Jeśli danych jest dużo trzeba zastanowić się nad optymalizacją, bo działanie może być powolne. Podstawą rozwiązania jest procedura...
Dzień dobry, A co w tym kodzie oznacza "ark"? Czy nie jest to arkusz aktywny (ActiveSheet)? Poza tym czy 6 to stała? Jeśli tak, to po co tak komplikować ten adres, wystarczy [syntax=vbscript]ark.Range("E6:F" & dstW)[/syntax]Poza tym, jak często zmienia się wartość "dstW"? W sumie można makrem uruchomić też sprawdzanie poprawności danych, tylko tę procedurę...
A jesteś w stanie określić w którym momencie jest uruchamiana procedura "ListaForName" ? I jeszcze jedna próba: jak masz włączony twój plik to: jeżeli masz excel 2003 wybierz menu Narzędzia - Makro - Makra ... - zaznacz "ListaForName" - kliknij uruchom i sprawdz czy jest lista w kolumnie V arkusza Admin jeżeli masz excel 2007 i wyżej to wskaż kartę...
INDIRECT to to samo co ADR.POŚR, tylko po angielsku. Tu się nie przyda. W załączniku przesyłam przykład rozwiązania. 2 pliki z danymi w tych samych miejscach i 1 plik raportu, który te dane odczytuje. Te 3 pliki powinny być zapisane na dysku w tym samym katalogu. W przykładzie pokazałem jak można odczytać pojedynczą wartość i kilka wartości z prostokątnego...
Chciałbym zwrócić uwagę na jedno zdanie z dokumentacji metody GetSaveAsFilename: When InitialFilename is used with an extension and a filter is applied, this extension must match the filter extension, otherwise the effective InitialFilename displayed in the dialog box will be an empty string. Według tego, jeżeli 'initialfilename' jest używane z rozszerzeniem...
Hmmm, zabawne, ale jak zamiast ! wpiszesz . (zamiast [DEU1$]![GUID] => [DEU1$].[GUID]), to zadziała (z INNER JOIN). :) Wykrzykniki do łączenia tabeli/arkusza z polem to taka bardziej Accessowa składnia kwerend, kropka to standard w "normalnych" SQLach. Przypuszczalnie za obsługę zapytania bez JOIN odpowiada jakiś inna procedura (silnik?), która obsługuje...
Dzień dobry, Rozwiązanie można oprzeć na dwóch procedurach obsługi zdarzeń. Pierwsza procedura będzie wykonywana przy aktywacji arkusza i będzie przygotowywać arkusz do ochrony. Wykonuje ona następujące operacje: 1) wyłącza obsługę błędów (dot. p. 4) 2) zdejmuje ochronę arkusza (jeśli nie było ochrony nic nie zmienia), 3) zdejmuje blokadę wszystkich...
Sprawa dość prosta. Procedura zdarzeniowa arkusza "przy zmianie" Range(zakres).Find i przypisywanie...
Dzień dobry, Jeśli można się włączyć do dyskusji, jeśli dane są takie jak w ostatnim przykładzie, to wydaje mi się, że dodawanie przecinków jest zbędne i cała procedura może się obejść bez kolumn pomocniczych. Funkcja USUŃ.ZBĘDNE.ODSTĘPY potrzebna jeśli mogą się gdzieś pojawić dodatkowe spacje. Formuła końcowa byłaby formułą tablicową (Ctrl+Shift+Enter)....
Całkiem fajnie Ci to wychodzi. Trochę poprawiłem (na ile zdążyłem dzisiejszego ranka) UserForm6 uwzględniając warunkowanie, o które prosiłeś. Natomiast procedura wpisywania do magazynu (teraz wysypana) jest do przerobienia. Moim zdaniem wszystko należy policzyć w polach tekstowych formularza i dopiero przypisać do komórek arkusza. I na końcu JEDNA procedura...
Tu masz schemat kopiowania danych do innego pliku. Procedura sprawdzona, działa i jest używana. Wystarczy dostosować co ma być kopiowane i już. [syntax=vbnet] Private Sub Zapisz() Dim Src As Workbook, Dst As Workbook Dim S As String S = Application.ActiveWorkbook.Path & "\Braki-" & Format(Date, "yyyymmdd") Set Src = Application.ActiveWorkbook Src.Sheets(1).Range("A1:E"...
Powyższa procedura działa, jak sama nazwa wskazuje, w momencie zmiany zawartości komórki w arkuszu. Jak chcesz zrobić, żeby sprawdzane były wcześniej wpisane daty, to skorzystaj z tego kodu: [syntax=vb]Sub SprawdzTermin() ow = Cells(Rows.Count, "B").End(xlUp).Row For x = 2 To ow Step 2 If Date - Cells(x, 2) > 30 Then Cells(x - 1, 5) = "" Cells(x, 5)...
Dobry wieczór, Można jeszcze tak, z wykorzystaniem obsługi zdarzenia Change, jakkolwiek jest to rozwiązanie niezbyt eleganckie, bo wymagające dopasowania do konretnej struktury arkusza (adresy komórek, w których są dane). Procedura wymaga inicjalizacji, polegającej na wybraniu listy rozwijanej i zatwierdzeniu wyboru. Później ewentualne zmiany w komórce...
.. Stworzyłem proste makro, które sprawdza czy komórka X jest pusta, jeżeli TAK to czyści komórkę Y za pomocą Clear.Contents. Procedura wywoływana jest po przeliczeniu arkusza: Worksheet_Calculate.. Makro może i jest proste, ale powiązałeś je w arkuszu w tak zagmatwany sposób, że jego wykonanie się zapętla. Twoje makro wykonując się, powoduje wykonanie...
Należałoby przeszukać sąsiadów w wierszu "wierszkontrahenta"... Taki efekt: http://obrazki.elektroda.pl/8119171000_1... uzyskałem przy pomocy [syntax=vb]Sub Szukaj() ilekontrahentow = 20000 ListaFirm = "nazwisko" 'symulacja wartości pola tekstowego wiersz = Worksheets("KONTRAHENT").Range("B3", "B" & ilekontrahentow) _ .Find(what:=ListaFirm,...
Dobry wieczór, Nie da się chyba tego zrobić w sposób oczywisty, ale jakoś można, stosując pewne "sztuczki". Przede wszystkim w komórkach, w których mamy wprowadzać dane i wykonywać obliczenia muszą być odpowiednio sformatowane (niestandardowo). Podam 3 sposoby (żaden nie jest idealny, ale jest z czego wybrać). Sposób 1 - najbardziej naturalny Format...
Aby ochronić komórki przed przypadkowym nadpisaniem ich zawartości trzeba wykorzystać mechanizm ochrony arkusza oraz przedefiniować czasowo funkcję klawisza F2 . Najpierw musimy zdecydować, które komórki mają być objęte ochroną. Domyślnie blokowane są wszystkie komórki, ale blokada jest nieaktywna dopóki nie włączymy ochrony arkusza. Blokowanie i odblokowywanie...
vcarter - w pierwszym poście przedstawiłeś kod, w którym wystarczy tylko zmienić wklejanie całej zawartości pliku na odczyt wiersz po wierszu i umieścić wszystko w pętli. VBA posiada wbudowane funkcje. które radzą sobie z własnymi oraz niektórymi obiektami systemowymi, w przeciwieństwie do Np Basica w Open Office, gdzie niemal wszystkie obiekty wymagają...
Chyba złapałem. Moim zdaniem nie powinna to być procedura zdarzeniowa, a zwykłe makro. Jeśli chodzi o coś takiego: http://obrazki.elektroda.pl/4353087600_1... Spróbuj w ten sposób For Each kom in zakres .
Np. przy inicjalizacji okienka/arkusza (bo nie napisałeś gdzie sią umieszczone boxy) wyłącz cztery checkboxy pozostawiając pierwszy. wersja dla okienka: "end sub" dla klikniecia checkboxa kod włączający kolejny checkbox. [syntax=vb]Private Sub CheckBox1_Click() For i = 60 To 64 If Columns(i).EntireColumn.Hidden = True = True Then Columns(i).EntireColumn.Hidden...
Dzięki Marku. Wg mnie nic to nie zmienia. Efekt nie jest ten sam. Inaczej działa Find a inaczej podaj.pozycję() z zerem jako ostatni parametr. W twoim przypadku "Find" szuka ciągu nazwy klienta w innych ciągach. Dlatego dla Klient2 po zamianie w "wykonaniu" nazwy klient2 na klient000 wyszukiwał "Klient22" bo klient2 "mieści się w klient2 2. I tu powstawał...
Dzień dobry jeszcze raz, Chwilę to trwało, bo jak zacząłem dodawać swoje funkcje "słownie" stwierdziłem, że procedura Staz nie jest doskonała i uznałem, że warto ją podmienić na coś innego. Zapewne dałoby się ją poprawić, ale to już pozostawiam Autorowi, jeśli uzna za celowe. Niestety w VBA nie ma takiej wygodnej funkcji jak półoficjalna DATA.RÓŻNICA...
Pozwolę sobie odpowiedzieć: zmień deklaracje typu zmiennych i będzie ok. Dim Nazwa_1 As Integer Dim Nazwa_2 As Integer Na Dim Nazwa_1 As String Dim Nazwa_2 As String Integer to liczby całkowite a String to ciąg tekstowy do którego też można zaliczyć "wizualnie" liczby (czyli liczby i cyfry jako tekst). I jeszcze jedno jak zmienić aby nazwy arkuszy zmieniały...
...ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Ten sposób ListView2.ListItems = "'BAAN 3'!G8:K97" ładowania danych NIE JEST poprawny dla ListView, zapomnij o nim. To działa tylko z ListBox'em. USUŃ z formy wszystkie ListBoxy które tam miałeś... Zamiast nich wstaw i skonfiguruj...
Witam, co ma być zmodyfikowane w procedurze VBA, aby zadziałała. Procedura ma zadziałać w całym arkuszu w momencie w następujący sposób: 1. Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9, to ma dodać jeszcze 8 wierszy. 2. Ma skopiować dane z wiersza powyżej. 3. W kolumnie G w pierwotnym wierszu jak i skopiowanych wierszach ma być cyfra...
Testuj. Testowałem ten Twój kod w Excel 2016 i po jednokrotnym przejściu coś się wykrzacza :-( Niestety ze względu na Twoje zabezpieczenia widzę tylko dwie procedury i być może błąd powstaje z uwagi na brak przełączenia na końcu opcji Application.ScreenUpdating na True albo coś źle współpracuje ta procedura z jakimiś ukrytymi procedurami skoroszytu....
W załączniku jest pokazany przykład. Zależy mi na takim zapisie adresu komórki, aby dla kolejnego parametru np. K=3,4,5,6,7 do zakresu komórek B2:B5 wkopiowywano by kolejno zawartość komórek C2:C5, D2:D5, … ,G2:G5. Prosiłbym o opis jak działa procedura (jak jest skonstruowany adres komórki), a nie tylko suchy zapis.
chyba że bardziej dobitnie wskażesz ścieżkę postępowania. Od Excel 2003 do Excel 2016 procedura "importu wewnętrznego" przebiega podobnie :ok: 987205 987206 987207 987208 987209 987210 987211 987212 987213 987214 I taką procedurę musisz powtórzyć dla każdego ustawienia filtru np pierwsze 4 znaki :spoko:
Dawno temu (jak dobrze pamiętam) był podobny wątek na elektrodzie ale nie mogę go znaleźć. Jeżeli ktoś wie niech mnie nakieruję - choć wolałbym uzyskać odpowiedź w moim wątku. Przekazałem do użytkowania plik excela z makrami - w "środku" paręnaście procedur. Okazało się że jedna z procedur, powiedzmy o nazwie babelki [Sub babelki()] zawiera błąd. Nie...
W kodzie arkusza procedura Private Sub Worksheet_Change.
Albo jestem wyjątkowo niedomyślny, albo coś robię nie tak. "Worksheet_Change(ByVal Target As Excel.Range) - Procedura wywołana po zmianie zawartości dowolnej komórki arkusza." Co chcę zrobić? Mam arkusz, w którym mam dane - analogiczne do tych przykładowych. Chcę uruchomić procedurę z pliku Zeszyt1-2. Mam plik z danymi, otwieram moduł VBA, wklejam do...
[syntax=vbscript]Sub qq() Selection.End(xlDown).Select End Sub [/syntax] Zobacz, co powyższa procedura zrobi.
Podepnę się pod temat, mam chyba banalny problem. Potrzebuje pomnożyć zbiór wielu wartości, wszystkie o 10%. Tak więc startuje =, następnie kursorem zaznaczam komórkę startową całej zabawy, a wpisuje procedurę *1.1. I oczom ukazuje się błąd mogę tylko zaakceptować informacje o błędzie i skorzystać z pomocy Excel 2003. Przykładowa procedura wygląda następująco...
Jak stworzyć formularz do wprowadzania danych do tabeli,albo chociaż jaka procedura uruchamia wbudowany taki formularz w pasku narzędzi szybki dostęp?
Tak. Używam "Microsoft Communication Control" Problem udało się rozwiązać poprzez wstawienie do pętli DoEvents. Do DoEvents Loop Until MSComm1.InBufferCount >= 9 Program w pętli umożliwia zmianę komórek bez wysyłania danych, a pętla kończy się w momencie kiedy z urządzenia zostaną wysłane dane do komórki. Po zmianie komórki procedura startuje na...
procedura excel procedura adaptacyjny asembler procedura
zwieranie przekaźnika pompy zasilać laser nagrywarka karta podczerwień
tester rezonatorów kwarcowych tester rezonatorów kwarcowych
Kontrolka poduszki po montażu fotela pasażera - przyczyny i rozwiązania ESAB Rustler 350C PRO – błąd 205, 206: zanik fazy, przekroczenie napięcia, przegrzanie
