Przede wszystkim, to wyjmij poza pętle otwieranie i zamykanie RS. Dla testu dodaj MsgBox z wartościami wybranymi z pola listy.
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 = ""...
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
Private Sub Form_Load() On Error GoTo Blad 'kod obslugi portu Exit Sub Blad: MsgBox "Problem z portem" End Sub
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.
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]
: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....
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...
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...
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")...
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...
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...
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...
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...
: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...
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,...
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...
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...
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...
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
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...
[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....")...
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...
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 makro do wgrywania danych. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Proszę to poprawić. [syntax=vb][/syntax]
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...
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 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...
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)...
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...
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" -...
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()...
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...
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...
Sprawdziłem moim ulubionym Foxit Readerem i [syntax=vbscript]q = Shell("C:\Program Files (x86)\Foxit Software\Foxit Reader\Foxit reader.exe /p " & FolderPath & Filename, vbMinimizedNoFocus)[/syntax] drukuje w tle. Żadnych okienek. Nie trzeba też zamykać procesu, bo sam się zamyka. [syntax=vbscript]Sub Zlicz() Dim FolderPath As String, Filename...
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...
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...
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
msgbox "bark " :D Dodano po 5 dalej wyskakuje mi błąd który wysłałem wcześniej w załączniku :( http://obrazki.elektroda.pl/2901563100_1... Dodano po 19 Witam. Nie wiem dlaczego ale nie działało mi to za dobrze. Doszedłem do wniosku, że zmieniam taktykę i biorę się za powershella. wrzucam kod, może komuś się przyda. Tematu nie zamykam...
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 = ""...
JRV, dzięki za dobre chęci. Tylko, że taki kod do wpisywania zakresu kopiowania danych, powoduje, że trzeba wpisywać zakres po kolei dla wszystkich plików, a ja chciałem aby można było wpisać jeden raz dla wszystkich plików. Na chwilę obecną mam już wszystko zrobione, wszystko już działa jak należy, łącznie z licznikiem scalonych plików :D . W razie...
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...
Witam Nie rozumiem tylko co to jest za skoroszyt Windows("Za+é¦ůcznik nr 2 rachunku umowy zlecenie.xls").Activate? Makro masz w jednym otwierasz drugi i kopiujesz do trzeciego pliku? Przepraszam może to jest mało zrozumiałe, ale ja próbuję metodą prób i błędów. Poniżej częściowy kod mojego makra, które wygląda teraz tak: [syntax=vbscript]Sub Pobieranie_IL()...
Dziekuje za odpowiedz z kursu napewno skorzystam i wezme sie za prace... poszedlem troche na latwizne i udalo mi sie przerobic czyjes makro i smiga wysmienicie moze komus tez sie przyda pozdrawiam Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz As Long Dim sciezka As String ' okreslam sciezke szukania...
Jak przerobić makro poniżej, by działało przy otwartym skoroszycie źródłowym (nie mogę go zamykać), z którego ma pobierać dane, gdyż obecnie wyskakuje mi taki błąd (dane oczywiście pobiera): http://obrazki.elektroda.pl/7726577100_1... i przenosi do tej linii Set wb = GetObject(strQ) Kod zamyka skoroszyt źródłowy (a chciałbym,...
Dzień dobry, Proszę spróbować zastosować takie makro: [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim s As Long, n As Long, i As Long With ActiveSheet.UsedRange s = .Row n = .Rows.Count For i = 1 To n If .Cells(i, "A") > 0 And .Cells(i, "K") = "" Then .Cells(i, "K").Activate MsgBox ("Komórka K" & i + s - 1 & " nie została wypełniona."...
*Aldrin jezeli dobrze Cie rozumiem to dla kazdej kopiowanej komorki z pliku zleceniexxx mam zastosowac petle, ktora bedzie przenosic/kopiowac wartosci ze zleceniexxx do zestawienie_szef ?? Dodano po 14 wstepnie widze, ze ten skrypt bedzie mi pomocny :) Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz...
Jak tam postępy? Ja to widzę mniej więcej w ten deseń [syntax=vb]Sub PorównajDane() Dim plik1 As Workbook, plik2 As Workbook Dim i As Long, j As Long, w As Long Dim Omega_a As Integer, Omega_b As Integer On Error Resume Next Set plik1 = Workbooks(Range("G6").Value) Set plik2 = Workbooks(Range("G9").Value) If Err > 0 Then MsgBox "Błąd otwarcia plików,...
Witam Proszę o pomoc. Potrzebuje wykorzystać poniższy kod do wyszukania określonego tekstu w skoroszytach zapisanych w katalogu "DANE" i skopiowania całego wiersza do skoroszytu "Zbiorczy" Jednym zdaniem chodzi o wyszukiwanie tekstu w wielu plikach xls i zapisywanie ich do jednego arkusza. Czy jesteście w stanie mi w tym pomóc? kod: Sub OperacjeHurtowe2()...
"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.
nie otrzymałeś satysfakcjonującej Cię porady nawet od autora książki na podstawie której tworzysz swój projekt Dokładnie.. Autor z tego co zauważyłem przestawił się już całkowicie na komercję. Ale jego prawo. W sumie nigdy jeszcze nie widziałem aby udzielił pełnej odpowiedzi. Ale patrząc 2-3 lata wstecz jak sam zadawał pytania takie jak ja teraz można...
Zobacz z wcięciami [syntax=vbscript]Sub wstawianie_IL_z_załącznikami() 'te dane mają być w makrze pobierającym arkusze Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Dim tblArkusze() Application.ScreenUpdating = False tblArkusze() = Array("I L", "II L", "III L", "IV L", "V L", "VI L", "VII L", "VIII L", "IX L") Set wkb1 = ThisWorkbook Set...
poszczególnych konfiguracji w tabeli arkusza Excel z poziomu SolidWorks Nie wiem jak to wygląda w Solid Works, ale zakładam, że tam jest VBA i z jego poziomu łączysz się z Excelem przez referencje. Jeśli tak to chyba należało by pisać tak (Nie w Excelu!): [syntax=vb]Sub RunMakro() Call OpenExcel40(Empty) End Sub Private Sub OpenExcel40(DimCol) Dim...
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...
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...
Poprzedni temat został zamknięty... hmmm... no nic. Tu masz klasę do rejestracji klawiszy skrótu: Opis działania: Uruchamiasz program i klikasz klawisz skrótu lub przycisk. Okno chowa się na 1s, po 500ms robiony jest screen. Timer1 - realizuje opóźnienie 500ms test - flaga określająca stan timera - jeśli prawda to zrzut ekranu, jeśli fałsz to pokaż...
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...
A co dokładnie nie wychodzi? Nie mam na czym sprawdzić, ale jak w kod patrzę, to wydaje się, że powinno działać (oczywiście po zmianie na Option.LogFileName = string.Parse(...), bo w programie masz char.Parse). Zresztą kod łatwo zdebugować, wstaw gdzie trzeba msgboxa, może metoda zapisująca do pliku się nie wywołuje, bo nie otrzymujesz takiego końca...
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...
Ten program to gra tetris napisana w visual basicu. Wczesniej program zamykal sie normalnie. Dołączam kod do głównej formatki, przy ktorej powstaje ten problem. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 And Timer1.Enabled = True Then ' wlaczenie/ wyłączenie pauzy - SPACJA Timer1.Enabled = False Label2.Visible = True...
excel msgbox funkcja msgbox msgbox petla
gazowy termopara sprawdzić czujnik polozenia przepustnicy astra spalinowy kosiarka
instrukcja serwisowa kable modus głośników
Czy w stykach termostatu Brotje Energy Top płynie prąd? Piec Brotje Energy Top - Prąd w stykach do termostatu