Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 63755 Skopiuj do schowka Blokada przycisku po określonej godzinie
Autor Wiadomość
Pracownik 
świeżak


Posty: 7
Wysłany: 09-01-2019, 20:50   Blokada przycisku po określonej godzinie

Cześć,

Czy jest ktoś w stanie podpowiedzieć jak napisać makro, które spowoduje, że po określonej godzinie będzie wyświetlał się jakiś komunikat co spowoduje zatrzymanie pozostałych akcji, które są przypisane do tego przycisku?

Z góry dziękuję.
ID posta: 360133 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Pomógł: 231 razy
Posty: 1235
Wysłany: 09-01-2019, 21:32   

Google > MSOffice > VBA > "OnTime".
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
  
ID posta: 360139 Skopiuj do schowka
 
 
apollo
ExcelSpec


Pomógł: 1194 razy
Posty: 4109
Wysłany: 09-01-2019, 23:00   

A gdzie jest podany ten czas, i od jakiego początku? Np. czas podany w minutach w Sheet1!A1. Ale liczy się od chwili otwierania pliku Excel czy od bicia dzwonu w pobliskim kościele? A może ten początek też jest zapisany, np. w Sheet1!A2? Albo i początek i czas są zapisane w Module jako Const?

O ile rozumiem problem to żaden Timer nie jest potrzebny.

Np. masz makro Test podpięte do przycisku. Schemat jest taki:
Kod:

Sub Test()
'    odczytanie początku liczenia
'    odczytanie czasu
'    obliczenia koniec = początek + czas.
    If obecny czas (odczytać) > koniec Then Exit Sub
End Sub
ID posta: 360151 Skopiuj do schowka
 
 
Artik 



Pomógł: 2575 razy
Posty: 8487
Wysłany: 09-01-2019, 23:32   

Pracownik napisał/a:
po określonej godzinie będzie wyświetlał się jakiś komunikat
Rozumiem to tak, że określona jest jakaś stała godzina, po której nie można uruchomić makra po kliknięciu w przycisk.
Kod:
Sub AAA()
    If Time >= #17:00:00# Then
        MsgBox "Po godzinach nie pracuję!", vbExclamation
        Exit Sub
    End If

    MsgBox "Pchamy taczki. :-( ", vbInformation
End Sub

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 360154 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe