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
|
|
|
 |
|
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
Ayala
Exceloholic

Wersja: Win Office 2019
Posty: 171
|
Wysłany: 08-02-2021, 15:12
|
|
|
Super
dziękuję
pozdrawiam |
|
 | ID posta:
399974
|
|
|
 |
|
|
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
|
|
|
 |
|
|
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
|
|
|
 |
|
|
Ayala
Exceloholic

Wersja: Win Office 2019
Posty: 171
|
Wysłany: 09-02-2021, 13:11
|
|
|
Witam
Tak zrobię
Pozdrawiam |
|
 | ID posta:
400051
|
|
|
 |
|
|
|
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
|
 |
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
|