Come visualizzare un calendario quando si fa clic su una cella specifica in Excel?
Supponendo che ci sia un intervallo di colonne in un foglio di lavoro, è necessario inserire e modificare frequentemente le date all'interno, ma è annoiato inserire o modificare la data manualmente ogni volta. Come inserire rapidamente le date senza digitare manualmente nell'intervallo di colonne? Questo articolo parla di far apparire un calendario quando si fa clic sulle celle in un determinato intervallo, quindi di inserire automaticamente la data nella cella selezionata dopo aver selezionato la data nel calendario.
Passaggio 2: attiva il calendario facendo clic sulla cella
Apri un calendario quando fai clic su una cella specifica con codice VBA
Si prega di risolvere questo problema come segue passo dopo passo.
Note:: Questo metodo può funzionare solo su Microsoft Excel a 32 bit.
Passaggio 1: crea un form utente con il calendario
Si prega di creare un form utente che contenga il calendario che verrà visualizzato facendo clic su una cella.
1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo utente.
3. Quindi a Modulo utente e Strumenti vengono visualizzate le finestre, nel file Strumenti, fare clic su qualsiasi controllo e fare clic con il tasto destro, quindi selezionare Controlli aggiuntivi dal menu di scelta rapida. Vedi screenshot:
4. Nel Controlli aggiuntivi finestra di dialogo, scorrere verso il basso per controllare il file Controllo Microsoft MonthView opzione nel Controlli disponibili casella, quindi fare clic su OK pulsante.
5. Quindi puoi vedere il file Vista mese viene aggiunto il pulsante Strumenti finestra. Fare clic su questo pulsante MonthView, quindi fare clic sulla finestra UserForm1 per creare un calendario nel modulo utente.
Note:: È possibile regolare la dimensione della finestra UserForm per adattarla al calendario inserito trascinando il bordo di UserForm.
6. Fare doppio clic sul calendario inserito nell'UserForm1 e nel Code finestra, sostituire il codice originale con il seguente script VBA.
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
Note:: Questo codice può aiutare a inserire la data nella cella selezionata dopo aver selezionato la data dal calendario.
Passaggio 2: attiva il calendario facendo clic sulla cella
Ora è necessario specificare determinate celle per far apparire il calendario quando si fa clic. Si prega di fare quanto segue.
7. Fare doppio clic sul nome del foglio che contiene le celle su cui fare clic per far apparire il calendario a sinistra Progetto riquadro, quindi copia e incolla il codice VBA sottostante nella finestra del codice. Vedi 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
Note:: nel codice, A2: A10 sono le celle su cui farai clic per far apparire il calendario. Si prega di modificare l'intervallo di celle di cui hai bisogno.
8. Stampa altro + Q contemporaneamente i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.
D'ora in poi, quando si fa clic su qualsiasi cella all'interno dell'intervallo specificato nel foglio di lavoro corrente, verrà visualizzato un calendario come mostrato nell'immagine sottostante. E la data verrà inserita automaticamente nella cella selezionata dopo aver selezionato la data dal calendario.
Apri un calendario quando fai clic su una cella specifica con codice VBA
Questa sezione introduce il Date picker utilità di Kutools for Excel. Dopo aver abilitato questa funzione, fai clic su una cella della data per far apparire un calendario, puoi facilmente sostituire la data esistente con una nuova data con essa. Si prega di seguire i passaggi seguenti per applicare questa funzione.
1. Clic Kutools > Contenuti > Abilita selezione data.
2. Dopo aver abilitato questa funzione, fare clic su una cella della data e un'icona del calendario apparirà direttamente sulla cella.
3. Fare clic sull'icona del calendario per aprire il file Date picker finestra di dialogo, quindi fare clic su una nuova data per sostituire la data 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 Selezione data;
- Questa funzione può essere applicata solo alle celle contenenti la data.
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
Articoli correlati:
- Come attivare o eseguire una macro facendo clic su una cella specifica in Excel?
- Come cambiare il colore della cella quando si fa clic o si seleziona la cella in Excel?
- Come visualizzare la finestra di messaggio quando si fa clic su una determinata cella in Excel?
- Come disabilitare il pulsante dopo aver fatto clic una volta in Excel?
- Come disabilitare il clic destro sulla scheda del foglio in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!