truc №89

Pentru a asigura o utilizare corectă data un control Excel Calendar (Calendar) poate face lucrurile mai ușor pentru tine și pentru utilizatorii care lucrează cu foaia de calcul. Cu acest truc, puteți adăuga un control Calendar (Calendar) în orice registru de lucru Excel.

Dacă data este introdusă incorect, Excel nu poate recunoaște. Uneori, acest lucru înseamnă că nu puteți efectua calcule cu numere care arata ca datele, dar datele nu sunt. În plus, acest lucru înseamnă că orice diagrame sau tabele pivot, care se bazează pe aceste date vor fi incorecte. Cu toate că această problemă poate fi rezolvată instrument de validare a datelor Excel foarte versatil, de asemenea, este departe de a fi perfectă.

Cu acest truc, puteți adăuga un control Calendar (Calendar) în orice registru de lucru Excel. În primul rând, deschideți registrul de lucru, care se vor adăuga calendarul. Mai bine să utilizați Personal.xls fișier, care poate fi deschis cu Fișier → Deschidere (File → Open). Dacă acest element de meniu nu este disponibil, atunci aveți încă fișier Personal.xls. Îl puteți crea scriind un macro gol. Pentru a face acest lucru, faceți clic pe Start înregistrare → Developer (Dezvoltator → Înregistrare nouă Macro), cât și în Save (Macro Store În), selectați Personal carte Macro (Macro Workbook Personal). Apoi faceți clic pe butonul OK, selectați orice celulă și a opri înregistrarea. Excel va crea automat un fișier Personal.xls.

Asigurați-vă că este selectată forma userform, apoi faceți clic pe View → Properties Window (tasta F4). În fereastra de Proprietăți, selectați legendă și înlocuiți cuvântul UserForml cuvânt Calendar. Acum, selectați View → Code (tasta F7) și modulul privat, introduceți codul afișat în Listing 7.14.

// Listarea 7.14 Private Sub Calendar1_Click () ActiveCell = Calendar1.Value End Sub Private Sub UserForm_Activate () Me.Calendar1.Value = Data End Sub

Selectați comanda Inserare → Modul în modul general, tastați codul din Listarea 7.15.

// Listarea 7,15 ShowIt Sub () UserForm1.Show End Sub

Închide fereastra pentru a reveni la Excel. Selectați Dezvoltator> Macrocomenzi → Macrocomenzi (Dezvoltator> Macro → Macrocomenzi) (tastatura de acces rapid Alt + F8) și apoi selectați ShowIt. Faceți clic pe butonul Opțiuni (Options), și atribui macro-ul pentru comenzi rapide de la tastatură - ați terminat. Apăsați combinația de taste selectată va deschide un calendar cu data de astăzi selectată. Faceți clic pe orice dată, și va fi introdus în celula activă.