Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Formularz w arkuszu

nikkoo1 · Forumowicz Wersja: Win Office 365 Posty: 22

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 15 raz(y) 23.21 KB

Tadek · Wysłany: 05-02-2021, 08:12

Patrz załącznik.

Formularz2.xlsm

Pobierz Plik ściągnięto 30 raz(y) 41.41 KB

Ayala · Exceloholic Wersja: Win Office 2019 Posty: 209

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 17 raz(y) 49.61 KB

Tajan · **Pomógł:** 4768 razy Posty: 10472

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

Ayala · Exceloholic Wersja: Win Office 2019 Posty: 209

Super
dziękuję
pozdrawiam

Ayala · Exceloholic Wersja: Win Office 2019 Posty: 209

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 11 raz(y) 48.47 KB

Tadek · Wysłany: 09-02-2021, 08:48

Ayala załóż nowy temat, a nie podpinasz się pod czyjś.

Ayala · Exceloholic Wersja: Win Office 2019 Posty: 209

Witam
Tak zrobię
Pozdrawiam