Quando si immettono le date in un foglio di lavoro, Excel fornisce un po ‘di libertà per come inserirle. Un’area in cui viene concessa la latitudine è quando si tratta di includere un anno. Se includi un anno (come il 2/2/08), è fantastico. Se non includi un anno (come 3/2), Excel aggiunge utilmente l’anno corrente a ciò che stai inserendo.

Il più delle volte questo non è un problema. Può essere un problema, tuttavia, per coloro che inseriscono le date che “avvolgono” l’anno scorso. Ad esempio, molte persone inseriscono le date per il mese o due precedenti nei loro fogli di lavoro. Nella maggior parte dei mesi questo non è un problema, perché l’ultimo mese o due sono nello stesso anno del mese corrente. Può essere un problema nei mesi di gennaio e febbraio, tuttavia, quando potresti inserire date da novembre e dicembre dell’anno precedente.

Una soluzione è inserire sempre l’anno quando si inserisce una data. È indiscutibilmente più veloce lasciare l’anno libero durante l’immissione dei dati e consentire a Excel di aggiungerlo alla voce. Pertanto, sarebbe bello trovare un modo per inserire le date durante i primi due mesi dell’anno e aggiungere l’anno dell’anno precedente.

Un modo per gestirlo è modificare la data di sistema sul tuo computer.

In Windows, diminuisci la data di sistema di un anno. Quindi, tutte le date che inserisci cambieranno nell’anno scorso. Ciò ha delle ramificazioni in altri programmi, tuttavia, a meno che non ci si ricordi di cambiare la data di sistema.

Può anche rovinare l’immissione dei dati se, durante l’ultima parte di gennaio e l’inizio di febbraio, inizi a inserire le date di quest’anno e Excel aggiunge automaticamente a esse l’anno dell’anno scorso.

Fare qualcosa di più complesso implica necessariamente l’uso di una macro.

Considera il seguente esempio, che dovrebbe essere aggiunto alla finestra del codice per un foglio di lavoro:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub     If Target = "" Then Exit Sub     If Target.Column <> 1 Then Exit Sub

If DateValue(Target) > Date Then         Application.EnableEvents = False             Target = DateAdd("yyyy", -1, Target)

Application.EnableEvents = True     End If End Sub

Questa macro viene eseguita automaticamente ogni volta che viene apportata una modifica al foglio di lavoro. Se la modifica apportata riguarda una singola cella nella colonna A e ciò che viene immesso è una data maggiore della data odierna, viene sottratto un anno da ciò che viene immesso.

Funziona alla grande, a condizione che tu inserisca regolarmente date che rientrano nell’ultimo anno o nei mesi dell’anno in corso. Se aggiungi in modo specifico una data futura (come l’immissione di 6/11/17 il 3/2/16), l’anno viene comunque incrementato di uno. La macro potrebbe, ovviamente, essere modificata per verificare se la data da inserire è negli ultimi due mesi di un anno, e che la data viene effettivamente inserita durante i primi due mesi di un anno, prima di fare il decremento di l’anno.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (3360) si applica a Microsoft Excel 97, 2000, 2002 e 2003.