calendar in excel?

[BIG1]

Buna ziua .
Stie cineva daca exista posibilitatea de a insera/defini intr-o coloana/celula un calendandar de unde ai putea derula si alege ziua,luna anul?
Nu stiu daca sunt explicit insa sper sa va dati seama
ceva de genul ca in atasament

[Dr. Cloud]

Asa este ok?
In celula in care esti pozitionat va aparea data curenta.
Ca sa inserezi o data intr-o celula, va trebui sa executi dublu click pe acea data.

[gecs]

Trebuie sa inserezi in foaia respectiva un ActiveX Control din Control Toolbox -> More Controls -> Calendar Control X.0 unde X.0 reprezinta versiunea de Office caruia ii apartine fisierul mscal.ocx. Cu putin cod VBA poti face sa apara controlul doar cand ai selectat o anumita celula si sa pasezi valoarea selectata din calendar unei anumite celule din foaie.

Imi pare rau ca nu am decat versiunea 2007 instalata si nu pot sa-ti fac un fisier-exemplu. Daca insa reusesti sa inserezi controlul si explici aici cum vrei sa functioneze, te putem ajuta cu codul VBA.

[Dr. Cloud]

Aici ai alta versiune.
Acum dupa ce apare calendarul, poti chiar sa selectezi o alta celula in timp ce calendarul este afisat.

[Dr.Windows]

Sau... ca sa te ametim de tot... poti folosi un add-on (freeware): http://isamrad.com/ExcelCal/default.htm
Asta stie sa-ti puna Date Picker-ul chiar in celula excel...

[BIG1]

am urmat pasii recomandati de gecs si acum as vrea ca in urma selectarii datei respective aceasta sa fie inserata intr-o celula anumeIn ceea ce priveste celelalte exemple /raspunsuri postate, ar fi ok insa nu-mi ramane data inserata in celula
mentionez ca nu ma pricep in astfel de chestiuni

[Dr. Cloud]

Dupa ce ai inserat calendarul, va trebui sa dai dublu click pe el pt. a introduce codul care va face ce vrei tu.
Odata ce ai dat dublu click pe el si ai ajuns in VBA se scrie urmatorul cod:

Cod: Selectaţi tot

Private Sub Calendar1_Click()
    On Error GoTo err
    ActiveCell.NumberFormat = "dd/mm/yyyy"
    ActiveCell.Value = Calendar1.Value
    ActiveCell.EntireColumn.AutoFit
    Exit Sub
    
err:
    MsgBox err.Description, vbOKOnly + vbInformation, "Eroare"
End Sub

Dupa ce ai bagat codul, inchizi editorul si in bara de controale apesi butoul Design Mode ca sa iesi din designer.
Apoi dai click pe o data din calendar si aceasta este scrisa in celula activa.

[BIG1]

MULTUMESC

[mariusc]

Salutare,

Am "furat" si eu informatia cu calendarul si am adus-o in fisierul atasat .
Am creat un NameRange pentru coloanele F,G,H si I, incepand de la randul 4 pana la 44 cu denumirea "DatedeExpirare" .
Exista posibilitatea sa fac calendarul activ doar cand userul a selectat o celula din interiorul range-ului ?
Asa cum este acum, userul daca se pozitioneaza cu mouse-ul in afara range-ului, si da click pe calendar, ii completeaza data respectiva.

Va multumesc

[Dr.Windows]

Ai putea sa faci urmatoarea modificare:

1. In functia initiala de selectie a datei poti seta sa se ASCUNDA calendarul dupa ce s-a selectat data (Calendar1.Visible = False)

Cod: Selectaţi tot

Private Sub Calendar1_Click()
    On Error GoTo err
    ActiveCell.NumberFormat = "dd/mm/yy"
    ActiveCell.Value = Calendar1.Value
    ActiveCell.EntireColumn.AutoFit
    Calendar1.Visible = False
    Exit Sub
    
err:
    MsgBox err.Description, vbOKOnly + vbInformation, "Eroare"
End Sub

2. Poti re-afisa calendarul NUMAI daca userul este intr-una din celulele unde trebuie sa completeze o data:

Cod: Selectaţi tot

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set isect = Application.Intersect(Target, Range("DataExpITP"))
    If isect Is Nothing Then
        Calendar1.Visible = False
    Else
        Calendar1.Visible = True
    End If
    
End Sub

si poti adauga in comanda Intersect cate renge-uri vrei (maxim 30) Application.Intersect(Target, Range("DataExpITP"), Range("NumeRange2"),... Range("NumeRange30"))