[TIP] Cum sa folosesti Calendar Control in Excel 2013

[queensoft]

In primul rind, de obicei, trebuie instalat un fisier OCX - MSCOMCT2.OCX
Descarcati aceasta arhiva: http://activex.microsoft.com/controls/vb6/MSCOMCT2.cab
Dezarhivati cele doua fisiere intr-unul din aceste foldere, in functie de versiunea de windows:
C:\Windows\System32 - windows 32 bit
C:\Windows\Syswow64 - windows 64bit
Executati click dreapta pe fisierul mscomct2.inf > alegeti meniul Install
Deschideti meniul de start > cautati programul Command prompt > efectuati pe el click dreapta si alegeti meniul Run as administrator.
In fereastra nou aparuta, introduceti aceste comenzi, din nou, in functie de versiunea de windows:
cd C:\Windows\System32 - windows 32 bit
cd C:\Windows\Syswow64 - windows 64bit
regsvr32 mscomct2.ocx

Dupa aceste operatii preliminare puteti sa deschideti Excel.
Mergeti la meniul File > Options > Customize Ribbon
In partea dreapta - Main Tabs - activati Developer, apoi OK.
Activati tab-ul Developer > apasati butonul Insert > apoi iconita More controls (este in coltul de jos dreapta).

Image1.jpg

Cautati in lista Microsoft Date and Time Picker Control - daca nu apare, nu ati efectuat corect primul pas de mai sus, instalarea OCX.
"Desenati" controlul in sheet-ul activ.
Pentru a configura controlul, activati din nou tab-ul Developer, apasati butonul Design mode > selectati controlul, apasati butnul Properties.

Image3.jpg

Ultima operatiune este activarea controlului. Pur si simplu apasati butonul Design Mode.
Pentru a lega controlul de o celula, trebuie sa folositi VBA.
Activati tab-ul Developer, apasati butonul View Code
Introduceti codul sursa, ca in poza de mai jos:

Cod: Selectaţi tot

Private Sub DTPicker21_Change()
    ActiveCell.Value = Me.DTPicker21.Value
End Sub

Image4.jpg

Accesati apoi meniul Debug > Compile...
Apoi, daca totul este corect, meniul File > Save
Daca primit o avertizare, trebuie sa salvati fisierul in formatul Macro enabled.
Puteti sa folositi si fisierul atasat, pentru exercitii.