[ ivanpro @ 14.03.2013. 21:37 ] @
Pozdrav pravim neku formu za vodjenje faktura i treba mi da u odredjeni textbox upisem datum ali izborom preko calendara. Ako nisam bio dovoljno jasan tu je i fajil. HVALA |
[ ivanpro @ 14.03.2013. 21:37 ] @
[ timmy @ 15.03.2013. 14:04 ] @
Pogledaj slicnu temu http://www.elitesecurity.org/t...Excel-izbor-datuma-upis-celiju
mozda ti bude od pomoci pri resavanju tvog problema. Pozdrav [ zoran_dojkic @ 16.03.2013. 09:09 ] @
Ne radi link http://isamrad.com/ExcelCal/default.htm
[ 3okc @ 17.03.2013. 20:45 ] @
Tušar Mehta ima gotovo rešenje koje je izuzetno lako pokrenuti ali je sors zaključan i nije besplatan za komercijalnu upotrebu!
Developer deployment calendar S druge strane, postoji potpuno besplatno rešenje korišćenjem VBA klase; mada, njega treba znati prilagoditi, pa dakle, nije tako jednostavno ali je sors otvoren i kontrola je kompatibilna sa svim verzijama od v2003 pa uključiv i najsvežiju, v2013! VBA Calendar Control Class (All Office versions) Uzorak Autori: Kristina Sabo (Szabó), Gabor Madač (Madács) i Roberto Mensa [ timmy @ 17.03.2013. 21:27 ] @
Citat: zoran_dojkic: Ne radi link http://isamrad.com/ExcelCal/default.htm Evo imam sacuvano od ranije, a pomaze i Way Back Machine :-) Pozdrav [ neptuncokg @ 18.03.2013. 14:57 ] @
Pozdrav,
Ovaj kalendar je sasvim korektan, skoro kao DTPicker. Moje pitanje glasi - sta promeniti u macrou da bi u comboboxu format datuma bio sistemski, kod mene (dd.mm.yy) U postojecem primeru je "m/d/yyyy" Hvala unapred [ jaskojsako @ 16.05.2013. 12:20 ] @
poz
evo kod koji prikazuje kalendar na dupli klik i izabereš datum i to je to: na list koji hočeš da ima kalendar kopiraš kod i importuješ formu kalendara poz Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Rng1 As Range 'Assign the range to work with Set Rng1 = Range("B7:B7") 'promjeni ćeliju gdje će duplim klikom pokazati kalendar 'Only work on assigned range If Intersect(Target, Rng1) Is Nothing Then Exit Sub 'Cancel cell editing that would normally trigger when you double click Cancel = True 'Call the userform UserForm1.Show End Sub Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|