Przede wszystkim, to wyjmij poza pętle otwieranie i zamykanie RS. Dla testu dodaj MsgBox z wartościami wybranymi z pola listy.
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...
Zrezygnuj w takim razie z MsgBox i przygotuj sobie stosowany formularz(yk). W Initalize uruchom makro z opóźnieniem (Application.Ontime), w którym będzie jedna linijka zamykająca formularz(yk) + On Error Resume Next, gdyby zamknięcie nastąpiło przed czasem...
chciałbym aby przycisk krzyżyka w wyświetlanym MessageBox był nieaktywny (najlepiej jak by w ogóle można było go usunąć), jak to zrobić?
Cześć, mam problem z wyłączeniem komunikatu msgbox. Plikiem A uruchamiam plik B. Następnie w uruchamiam makro również w pliku B. Na końcu makra wstawiony jest msgbox. Co zrobić, aby ten msgbox się nie wyświetlał? Użyłem "Application.DisplayAlerts = False", ale niestety w przypadku msgbox to nie działa. Jakieś pomysły?
Hej, czy istnieje możliwość stworzenia kodu w VBA, który po uruchomieniu pliku wyświetli msgox o ładowaniu danych, natomiast zamknięcie tego komunikatu będzie możliwe po określonym czasie, np. 1 min lub zamiast msgbox może też pojawić się pasek loading, który również zniknie po 1 min?
Trzeba wrzucić to w pętlę. Jak znajdzie robi warunek PRAWDA Jak nie znajdzie to w warunku FAŁSZ wyświetla Msgbox i kończy działanie
Tak na szybko przerobione z Twojej procedury Private Sub cmdLogowanie_Click() 'nie Enter If Me.txtPassword.Value = "test" Then 'tu robisz co potrzeba 'i zamykasz formę Unload Me Else MsgBox "Błędne haslo! Wpisz poprawne hasło", vbExclamation, "Logowanie" 'zeruję wartość i ustawiam kursor txtPassword.Value = ""...
Private Sub Form_Load() On Error GoTo Blad 'kod obslugi portu Exit Sub Blad: MsgBox "Problem z portem" End Sub
:arrow: marek003 Witam "starego" znajomego :D Nie czytałem dokładnie od początku, ale mam drobną uwagę do postu wyżej. Co będzie, jeśli User wpisze: 1. tekst 2. liczbę z przecinkiem/kropką (a co, wolno mu) 3. liczbę ujemną 4. Inne nieprzewidziane rzeczy Np przez ctr+v Zwykle zamykam w takich przypadkach InputBox w pętli 'Do' i trzymam Usera do skutku....
Mam taki skrypt napisany w notatniku: (at)echo off start nazwa.vbs. shutdown -s -t 30 pause >>null Plik nazwa.vbs.: msgbox"zamykanie komputera", vbCritical , "informacja" Takie coś wyświetla komunikat o tym, że komputer zostanie zamknięty za 30 sekund, lecz nie chcę by wyświetlał się komunikat ten niebieski od Windowsa który informuje że komputer zostanie...
DZIĘKI . Sprawdzę w wolnym czasie i dam znać. Dodano po 5 DZIĘKUJE ZA POMOC .Problem rozwiązałem przez użycie MsgBox i przekierowania za jednym podejściem przez Call do drugiego makra. Jest ok zamykam problem.
Przy czym plik txt jest koszmarnie sformatowany Dlaczego zaraz koszmarnie?? Całkiem przyzwoicie - dane powtarzają się w przewidywalnych grupach. Wystarczy podzielić na tablicę wg spacji i w zależności od długości tablicy skopiować dane w odpowiednią komórkę: [syntax=vb]Private Sub CommandButton1_Click() Dim linia As String Dim tabl() As String Application.ScreenUpdating...
A spróbuj tak, co się będzie działo ? (Może nie przywracasz pierwotnego działania wszystkim, zmienionym uprzednio, klawiszom ?) [syntax=vba]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim nrPlikuWyj1 As Integer: nrPlikuWyj1 = FreeFile Dim op1 As String: op1 = ThisWorkbook.Name Dim op2 As String: op2 = Application.UserName & "/" & Environ("Username")...
U mnie działa tak. Timer ustawiam przy otwieraniu formularza: [syntax=vb]Private Sub Form_Open(Cancel As Integer) Form.TimerInterval = 10000 End Sub Private Sub Form_Timer() MsgBox "10 sekund poszło jak z bicza strzelił, zamykam." DoCmd.Close acForm, "Formularz1" End Sub [/syntax]
Jak wyżej. W tym przypadku należy oprogramować zdarzenie ramki. Poniżej przykład dla Frame_Exit. Jednym z minusów jest to, że ramka "odezwie" się także przy zamykaniu formularza. Dlatego dodatkowy warunek i czyszczenie zawartości. Jeśli ramka służy tylko celom estetycznym, prościej będzie zamiast niej wstawić pusty Label z obramowaniem... [syntax=vb]Private...
Może źle to nazywam - ale nawet jak nie rejestrujesz makra, tylko po prostu zamykasz plik, to zostaniesz odpytany o jego zapis. Tutaj mówię o tym samym. Zresztą nieważne, fragment kodu, który wkleiłeś rozwiązał mój problem - wielkie dzięki! :)
Brakuje wyjścia "z etykiety" [syntax=vbscript]koniec_1: MsgBox ("Witaj! " & pracownik) ark = pracownik Worksheets(ark).Active unload me 'zamykamy uForm[/syntax] Ale o wiele czytelniej byłoby z instrukcją warunkową (o pewnym anachronizmie GoTo nie wspomnę) [syntax=vbscript]Dim pracownik As String, ark As String start: pracownik = InputBox("Imię i...
"Wyskakujące okno" - trzeba wykorzystać UserForm, MsgBox sie do tego nie przyda. Przy zdarzeniu Initialize formularza, wpisz wywołanie procedury zamykającej formularz przez Application.OnTime (opis z przykładem w pomocy). Sumuj przez Worksheetfunction.Sum(argumenty), wartość przypisz do Label.Caption i... to wszystko.
Teraz jednak chciałbym, aby od czasu do czasu była możliwość zapisania tych dwóch plików jednocześnie Dziwi mnie Twój kod :D w którym najpierw zamykasz (bez pytania) aktywny skoroszyt, a potem chcesz go zachować :?: :cry: Ale w kwestii wyboru sposobu zapisywania - to można wykorzystać kod typu: [syntax=vbscript] Select Case MsgBox("Czy zapisać oba...
1. Klawisze "blokowane" są w wyniku działania kodu procedury: cmbGra3 ' nie ma zogniskowania (focus), to w/w procedura nie działa, jeśli ma to ' Cancel = True ' blokuje możliwość opuszczenia ' Combobox '. 2. W procedurze zdarzeniowej ' Private Sub cmbGra3_Change ', kod: Private Sub cmbGra3_Change ' - gdy na pytanie: "Czy chcesz dodac nowa Gre" odpowiadasz...
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...
Czy jest możliwość jakiejś aktualizacji przed przełączeniem do userform Ps3Kupno bo po dodaniu nowej pozycji za każdym razem muszę zamykać user form żeby zaczęło działac? [syntax=vbscript]Private Sub cmbSubmit2_Click() If TextBox1 = "" Then Call MsgBox("WPROWADZ DANE") Else Dim sheet As Worksheet Set sheet = ThisWorkbook.Sheets("List") nr = sheet.Cells(Rows.count,...
:arrow: marcindargiewicz Zerknij na datę założenia tematu ;) ' i tutaj mam problem z warunkiem ' adresat = adresat 'adresat wiadomości pobierany z kolumny E w zależności od nazwy pliku przyporządkowanej w kolumnie D If Cells(j, 4) = ThisEntry Then adres = Cells(j, 4) MsgBox ThisEntry + " " + Cells(j, 4) I tu jest (był) pies pogrzebany... Z oczywistych...
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...
Panowie codziennie dostaje maila w takim układzie wykonano: 11 do realizacji: 5 nie wykonano: 5 chciałbym stowrzyc makro ktore po przyjsciu maila odpali excela i skopiuje te trzy wiersze do innego arkusza excelowego (arkusza 2) ale do wierszy A4 A5 A6. czyli: wykonano: 11 ma trafic do A4 itd. dokument excelowy zawiera puste wpisy czyli wykonano: do...
Kurcze, jeżeli chodzi o VBA to jestem zaczynającym samoukiem. Nie znam reguł stosowania wszystkich funkcji. Mogę prosić Cię o rzucenie okiem na mój kod i poradzenie w jaki sposób użyć Twojej funkcji? [syntax=vbscript] Private a As Integer 'zmienna globalna Private haslo As String Sub MsgBox_error1() 'wyświetla omunikat o błedzie MsgBox "Wypełnij wszystkie...
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
[syntax=vbscript] Private Sub CommandButton5_Click() On Error Resume Next 'po błędzie kontynuuje dalej Dim DatExample As Date DatExample = Date Dim x As String Dim s As String Dim y As String Application.ScreenUpdating = False Dim answer As Integer answer = MsgBox("Wybrałeś DPF/Drukuj,Czy chcesz kontynuować?", vbYesNo + vbQuestion, "UWAGA!!!DPF/DRUKUJ....")...
Jak widze temat przez weekend nie ucichł, i chwała wam za pomoc:) już odpowiadam: ścieżka do AC raczej poprawna - C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe msgbox dir("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe") '---------------- na output-cie - AcroRd32.exe fragment kodu: FolderPath = Application.ActiveWorkbook.path...
Witam. Mam pewien problem z arkuszem, dokładnie chciałem sobie zrobić coś takiego że jest sprawdzane kilka warunków by móc używać danego pliku excela. Z VB jestem niestety zielony, ale dzięki informacjom znalezionym coś tam sobie próbuje skleić. Mianowicie mam już coś takiego: ThisWorkbook: Kod: Option Explicit 'własna obsługa zapisu przy zamykaniu...
W skrócie: będę robił import do Accesa z Excela ale tylko wybranych arkuszy. Stąd konieczność ich pokazania (zapisu) w celu późniejszego wybrania przez użytkownika. Znalazłem taką procedurę która robi dokładnie to czego potrzebuję: [syntax=vbscript]Private Sub arkusze() Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False Set objWorkbook...
Dziękuje Panowie, zatem tak: nie wiem co źle robie, ale Worksheet_Calculate wywołuje okienko, ale się wiesza i na wielokrotne potwierdzanie nie reaguje. Teraz mam taki kod: Private Sub Worksheet_Calculate() If Worksheets("Formularz").Range("B1") = "1" And Worksheets("Formularz").Range("H12") <= "0" Then inf = MsgBox("Wpisujesz nowy miesiąc?", vbYesNo,...
Witam. Mam pytanie odnosnie otwierania plików w wywołanym folderze przez makro. Mam bazę pracowników, każdy pracownik ma swój folder w którym są dokumenty od danego pracownika. Menadżera z wybranym folderem wywołuje tym makrem: [syntax=vb]sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & NazwiskoImie If Dir(sciezka, vbDirectory) = "" Then MsgBox...
No działa ale nie dokońca, ponieważ pojawia się formularz Menu ale ten otwarty formularz nie zamyka się. Gdzie dokładnie ma powklejać ten kod? Formularz menu: Private Sub Polecenie66_Click() On Error GoTo Err_Polecenie66_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(68) & ChrW(111) & ChrW(100)...
1. Kopiowanie jest możliwe tylko przy otwartych plikach. Możesz otwierać je i zamykać w kodzie Np. Workbooks.Open Filename:=ThisWorkbook.Path & "\Zlecenia wystawione TE 2009.xls" 'jezeli w tej samej lokalizacji 'tutaj kopiowanie i wklejanie Workbooks("Zlecenia wystawione TE 2009.xls").Close (savechanges = False)'zamykam...
Nie poddałem się i w końcu zajarzyłem. [syntax=vb]Private Sub CommandButton1_Click() Dim wiersz As Long If Me.OptionButton1 Or Me.OptionButton2 Then wiersz = Val(Me.Label1) kolumn = Range("h" & wiersz) If Me.OptionButton1.Value Then ocena = 1 Else ocena = 0 Sheets("ARK_1").Cells(wiersz, kolumn) = ocena Sheets("ARK_1").Cells(wiersz, kolumn) = 0 - Me.OptionButton1...
no to musisz pobrać listę plików ze szczegółami, wyłuskać z nazw (lub właściwości pliku) datę/godzinę i w pętli wydać rozkazy kasowania tych, co spełniają kryteria. (at)ElektrodaBot daj program / makro w VBA które odczyta listę plików w katalogu, porówna które były starsze niż tydzień i je skasuje. Bezpośrednia odpowiedź Poniżej masz gotowe makro VBA,...
Witam serdecznie. Mam kłopot z napisaniem makra VBA, które ma "zmusić" użytkownika do zapisania zmian w arkuszu tylko przez opcję "zapisz jako" (opcja "zapisz" musi być wyłączona). Chodzi o to, aby skoroszyt źródłowy nie został przypadkiem nadpisany - co mogłoby zepsuć jego funkcjonalność. Chodzi o to, żeby użytkownik otrzymał komunikat, że nie można...
Cześć, mam pewien problem odnośnie rozwiązania przypisania danej wartości w każdym wierszu gdzie następuje kopiowanie danych z jednego arkusza do drugiego. [syntax=vbscript] Private Sub CommandButton1_Click() CutCopyMode = False Dim strPlik As String Dim i, b, z As Integer Dim data As String Application.ScreenUpdating = False ' Kopiowanie danych do...
A jak sobie poradzić z błędem PasteSpecial method of range class faild? [syntax=vb]Workbooks.Add nowy = ActiveWorkbook.Name With ieApp Set ieApp = CreateObject("InternetExplorer.applicati... ieApp.Visible = False ieApp.Navigate "https://tracking.hermesworld.com/?Track... & Sheet1.Cells(irow, 8) Do Until ieApp.readyState = 4 Application.Wait (Now...
Witam wszystkich. Zaczynam przygodę z VB 2005. Postanowiłem, że napiszę program który odczytuje wartość napięcia z woltomierza, który ma wyjście na port RS(232). Problem mam następujący, że nie potrafię odczytać bufora i wrzucić dane do np.textbox. Według dokumentacji miernika, ramka zawiera 16 znaków hex, które wyświetlają mi się w oknie MessageBox...
Witam ponownie. Jak to zwykle bywa, plany sobie a życie sobie. Narobiłem się jak dziki osioł a pod koniec, gdy doszło do haseł, dowiedziałem się że oprócz naszej (nocnej zmiany) ten skoroszyt jest edytowany jeszcze przez rzeszę ludzi z dniówki. A w związku z tym zakładanie haseł na poszczególne osoby mija się z celem. Jako że dla nas najważniejsze jest...
Witam wszystkich, mam drobny problem, mam pewne makro które ma za zadanie zapisac istniejący plik, przejść do drugiego pliku "Rejestr", w Rejestrze odszukać konkretny numer, w linijce z konkretnym numerem zmienić wartość jednej z komórek, oraz na końcu zamknąć plik z którego zostało uruchomione makro. I wszystko działa do chwili aż makro nie zamknie...
Jeśli umiesz otwierać port i zamykać to już dobrze. Dodaj na formę kontrolkę combobox - nie wiem który będzie miała numer - zmienisz w kodzie jeśli już masz taką kontrolkę. Jeśli bedzie to pierwsza kontrolka, to jej numer będzie ComboBox1. W zdarzeniu Load formy (Private Sub Form1_Load......) umieść kod: [syntax=vb] For numer_portu As Integer = 0 To...
Witam ponownie :) Dzięki Waszym radom udało mi się już ukończyć program. Wszystko działa jak należy, formularze są ze sobą powiązane, aplikacja jest dynamiczna. Postanowiłem dodać do niej jednak kilka drobiazgów i tu znowu potrzebuję Waszych wskazówek. 1. Kolejna sprawa: chciałbym, by przy otwieraniu formularza "Data" (dotyczy chyba powyzszego poleceniu)...
zawartość komórki E7 i jeżeli komórka zawiera tekst np. "DOSTARCZONO", to jako wymóg zapisu danych, jest uzupełnienie komórek F7, G7, H7, I7 w komórce E7 jest inny tekst niż wymagany, komórki F7, G7, H7, I7 są zablokowane do edycji, ale zapis danych jest możliwy Sposoby zapisu ".xls'a": 1. Menu główne: przynajmniej 4 opcje zapisu "bezpośredniego" -...
Najlepiej byłoby jednak usuwać kod przed zapisaniem kopii. I dla pewności (gdybyś jednak zapomniał) postawić warunek wykonywania procedury w BOOK1.xls: Private Sub Workbook_Open() If ActiveWorkbook.Name = "BOOK1.xls" Then Dim LiczbaOdwiedzin 'Twoja procedura End If End Sub Dopisanie jeszcze trzech linijek: If ActiveWorkbook.Name <>...
Witam, mam makro do wgrywania danych. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Proszę to poprawić. [syntax=vb][/syntax]
Działa w takim zestawieniu Masz źle zrobioną instrukcje 'If Not otwarty Then' a co jeżeli plik masz otwarty? "nie pytaj ponownie", po którego aktywacji kolejne załączenie makra, do zamknięcia arkusza masz makro do zamknięcia arkusza? odnośnie pierwszego pytania: Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". Jeśli nie jest...
To pewnie będzie trzeba zmienić podejście. Masz dane z ostatniego miesiąca (ile wierszy?) i potrafisz go przekonwertować do wymaganej postaci, masz z poprzednich miesięcy (znowu ile?) i to wszystko potem musisz złączyć (czy tu nie wejdziemy w ograniczenie Excela?) i przetwarzać? Dobrze to rozumiem? Jeżeli potrafisz przekonwertować plik w rozsądnym...
Znalazłem rozwiązanie. Nie wierze ze było takie proste. zamykam temat. [syntax=VBA]Private Sub Anuluj_click() Unload Me Dodaj1.Hide Menu.Show End Sub Private Sub UserForm_Initialize() ComboBox2.AddItem "Nie" ComboBox2.AddItem "Tak" ComboBox1.RowSource = "A2:A13" End Sub Private Sub ok_Click() If ComboBox1 = "wybierz" Or TextBox1 = "" Or TextBox2 = ""...
Cześć, mam napisane makro do wgrywanie danych z pliku typu .csv. Wszystko mi się przegrywa tak jak chce (jeżeli rozchodzi się o miejsca) Jednak zauważyłem jeden problem - polskie znaki znikają, a format godziny np. 00:10 zamienia mi się na dane np. 0.3456. Czy ktoś może wie czemu tak się dzieje i jak to rozwiązać?? [syntax=vb]Sub Przycisk1_Kliknięcie()...
excel msgbox msgbox informacja msgbox formatowanie
saa1057 programować karta pamięci uszkodzona gwarancja piksel samsung telewizor
electrolux ewt1367vdw electrolux ewt1367vdw
Ekspres Saeco - czerwona kość i błąd numer 5 Jak zrobić flash Sony Ericsson K800i - poradnik