Come visualizzare un calendario facendo clic su una cella specifica in Excel?
Immagina di avere un foglio di lavoro con un intervallo di colonne in cui devi inserire e modificare spesso delle date, ma digitare manualmente ogni volta è noioso e dispendioso in termini di tempo. Come fare per inserire rapidamente le date senza doverle digitare a mano nell’intervallo di colonne? Questo articolo ti mostra come visualizzare un calendario semplicemente facendo clic su una cella all’interno di un intervallo specifico: la data selezionata nel calendario verrà inserita automaticamente nella cella scelta.
Passaggio 2: attivare il calendario facendo clic su una cella
Visualizzare un calendario facendo clic su una cella specifica con codice VBA
Risolvi questo problema seguendo attentamente i passaggi indicati di seguito.
Nota: questo metodo funziona esclusivamente con Microsoft Excel a 32 bit.
Passaggio 1: creare un UserForm con calendario
Crea un UserForm con un calendario che si apre facendo clic su una cella.
1. Premere contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di Microsoft Visual Basic for Applications, fai clic su Inserisci > UserForm.

3. A questo punto verranno visualizzate una finestra UserForm e una finestra Casella degli strumenti. Nella Casella degli strumenti, fai clic su un controllo qualsiasi, premi il tasto destro del mouse e seleziona Controlli aggiuntivi dal menu contestuale. Vedere lo screenshot:

4. Nella finestra di dialogo Controlli aggiuntivi, scorri verso il basso fino a individuare l’opzione Microsoft MonthView Control nella casella Controlli disponibili, quindi fai clic sul pulsante OK.

5. A questo punto, il pulsante MonthView verrà aggiunto alla finestra della Casella degli strumenti. Fai clic su questo pulsante MonthView, quindi fai clic sulla finestra UserForm1 per inserire un calendario nel modulo utente.

Nota: puoi regolare le dimensioni della finestra UserForm trascinandone il bordo, per adattarla perfettamente al calendario inserito.
6. Fare doppio clic sul calendario inserito in UserForm1; nella finestra del Codice, sostituire il codice originale con lo script VBA seguente.
VBA code: create a user form with calendar
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End Sub Nota: questo codice consente di inserire la data nella cella selezionata dopo aver scelto una data dal calendario.

Passaggio 2: attivare il calendario facendo clic su una cella
Ora devi specificare le celle su cui fare clic per visualizzare il calendario. Procedi nel seguente modo.
7. Fare doppio clic sul nome del foglio che contiene le celle su cui si desidera visualizzare il calendario, nel riquadro sinistro Progetto, quindi copiare e incollare il seguente codice VBA nella finestra del codice. Vedere lo screenshot:
VBA code: Click cell to pop up calendar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Count = 1) Then
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
End If
End Sub Nota: nel codice, A2:A10 indica le celle su cui fare clic per visualizzare il calendario. Modifica l’intervallo in base alle tue esigenze.

8. Premere contemporaneamente i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic for Applications.
D’ora in poi, facendo clic su qualsiasi cella all’interno dell’intervallo limitato nel foglio di lavoro corrente, verrà visualizzato un calendario come mostrato nello screenshot seguente. La data scelta verrà inserita automaticamente nella cella selezionata.

Visualizzare un calendario facendo clic su una cella specifica con codice VBA
Questa sezione presenta l’utilità Selettore di Date di Kutools per Excel. Dopo aver abilitato questa funzionalità, facendo clic su una cella contenente una data verrà visualizzato un calendario, che ti permette di sostituire facilmente la data esistente con una nuova. Segui i passaggi indicati di seguito per applicare questa funzionalità.
1. Fare clic su Kutools > Contenuto > Abilita Selettore di Date.

2. Dopo aver abilitato questa funzionalità, facendo clic su una cella contenente una data verrà visualizzata un’icona del calendario immediatamente a destra della cella.

3. Fai clic sull’icona del calendario per aprire la finestra di dialogo Selettore di Date, quindi seleziona una nuova data da sostituire a quella nella cella selezionata.

Note:
Pulsante Annulla: fare clic su questo pulsante per annullare la sostituzione della data;
Pulsante Chiudi: fare clic su questo pulsante per chiudere la finestra di dialogo Selettore di Date;- Questa funzionalità è applicabile esclusivamente alle celle che contengono una data.
Se desidera provare gratuitamente (30 giorni) questa utility, faccia clic qui per scaricarla, quindi segua la procedura illustrata nei passaggi sopra.
Articoli correlati:
- Come attivare o eseguire una macro facendo clic su una cella specifica in Excel?
- Come si può modificare il colore di una cella quando la si seleziona o vi si fa clic in Excel?
- Come visualizzare un messaggio a comparsa facendo clic su una specifica cella in Excel?
- Come disabilitare un pulsante in Excel dopo averci fatto clic una volta?
- Come disabilitare il clic destro sulla scheda del foglio in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi
Pulsante Annulla: fare clic su questo pulsante per annullare la sostituzione della data;
Pulsante Chiudi: fare clic su questo pulsante per chiudere la finestra di dialogo Selettore di Date;