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
Przesunięty przez: Artik
04-02-2021, 19:08
Formularz w arkuszu
Autor Wiadomość
nikkoo1 
Forumowicz


Wersja: Win Office 365
Posty: 22
Wysłany: 04-02-2021, 16:07   Formularz w arkuszu

Chciałbym uzyskać następujący efekt:
- klikam w pole tekstowe "txtdataod", pojawia się okienko z kalendarzem, wybieram konkrentną datę, po czym okienko z kalendarzem znika,
- klikam w pole tekstowe "txtdatado", pojawia się okienko z kalendarzem, wybieram konkrentną datę, po czym okienko z kalendarzem znika,
Warunek: txtdo >= txtod. W przeciwnym wypadku pojawia się komunikat msgbox "Wprowadź poprawną datę" i po kliknięciu przycisku "OK" (w msgbox) kursor pojawia się w polu tekstowym txtod.
Z góry bardzo dziękuję za pomoc

Formularz.xlsm
Pobierz Plik ściągnięto 9 raz(y) 23.21 KB

_________________
nikkoo1
ID posta: 399744 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1952 razy
Posty: 5598
Wysłany: 05-02-2021, 08:12   

Patrz załącznik.

Formularz2.xlsm
Pobierz Plik ściągnięto 20 raz(y) 41.41 KB

ID posta: 399774 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 171
Wysłany: 07-02-2021, 09:31   

Witam
zainteresowało mnie to rozwiązanie i próbuję je zastosować do moich potrzeb.
Jednak zbyt mała wiedza nie pozwala mi iść dalej.
W moim projekcie kalendarz chciałbym wywoływać po najechaniu na konkretną komórkę C3 lub C5). To mi się udało zrobić, następnie wybrana data powinna się pojawiać w wywołanej komórce (C3 lub C5). Potrafię wprowadzać datę do komórki C3 ale tylko przez przycisk dziś, dowolnej daty nie wiem jak zrobić. Jeżeli byłaby zbyt duża komplikacja to możemy poprzestać tylko na komórce C3. w załączeniu moje próby w arkuszu2. Będę wdzięczny za wskazówki. Pozdrawiam

Formularz z kalendarzem 1.xlsm
Pobierz Plik ściągnięto 8 raz(y) 49.61 KB

ID posta: 399898 Skopiuj do schowka
 
 
Tajan


Pomógł: 4731 razy
Posty: 10416
Wysłany: 07-02-2021, 09:57   

W module klasy "clsInfo" zmień procedurę "LabelData_MouseDown" na następującą:
Kod:
Private Sub LabelData_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Dim iDzien As Integer, dData As Date, iLicz As Integer
 
  On Error GoTo ERR_EXIT
  iDzien = CInt(LabelData.Caption)
 
  dData = DateSerial(iRok, iMiesiac, iDzien)
 
   
    Select Case ActiveCell.Address(0, 0)
       Case "C3", "C5"
           ActiveCell.Value = Format(dData, "dd-mm-yyyy")
    End Select   
   
       Unload frmKalendarz
     
Exit Sub
   
   
ERR_EXIT:
  MsgBox "Błąd nr - " & Err.Number & vbCrLf _
         & "Opis - " & Err.Description & vbCrLf, _
         vbCritical, "Niepowodzenie"
End Sub
ID posta: 399900 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 171
Wysłany: 08-02-2021, 15:12   

Super
dziękuję
pozdrawiam
ID posta: 399974 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 171
Wysłany: 09-02-2021, 08:21   

Witam
jest jeszcze mały problem.
Gdy wywołuję kalendarz przez najechanie na komórkę "C3" to wszystko działa bez zarzutu. do komórki "C3 mogę wstawić zarówno datę dzisiejszą jak i dowolną.
Po wywołaniu kalendarza z komórki "C5" do komórki "C5" mogę wstawić dowolna datę ale jak chcę wstawić datę dzisiejszą to wstawia się ona do komórki "C3" zamiast do "C5".
Gdzie tkwi błąd?

Formularz z kalendarzem 1 w2.xlsm
Pobierz Plik ściągnięto 4 raz(y) 48.47 KB

ID posta: 400007 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1952 razy
Posty: 5598
Wysłany: 09-02-2021, 08:48   

Ayala załóż nowy temat, a nie podpinasz się pod czyjś.
ID posta: 400009 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 171
Wysłany: 09-02-2021, 13:11   

Witam
Tak zrobię
Pozdrawiam
ID posta: 400051 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