KutoolsforOffice — Un'unica soluzione, cinque potenti strumenti.Ottenere di più con meno sforzo.

Come si fa a verificare se un anno è bisestile in Excel?

AutoreXiaoyang Data di modifica

Come si fa a determinare se un anno è bisestile o meno? In Excel non esiste un metodo diretto per verificarlo, ma puoi creare una funzione definita dall’utente o utilizzare una formula apposita per risolvere il problema.

Verificare se un anno è un Anno bisestile con una formula

Verificare se un anno è un Anno bisestile con una funzione definita dall'utente


freccia blu a destra con fumetto Verificare se un anno è un Anno bisestile con una formula

Supponendo di avere un elenco di anni nel foglio di lavoro, la seguente formula potrà aiutarLa a stabilire facilmente se un determinato anno è bisestile o meno. Proceda come segue:

1. Oltre alle celle contenenti gli anni, inserisca questa formula in una cella vuota:

=IF(OR(MOD(A2,400)=0,AND(MOD(A2,4)=0,MOD(A2,100)<>0)),«[[PH_8]]», «NOT a [[PH_9]]»), ()A2contiene l’anno a cui applicare la formula; è possibile modificarla in base alle proprie esigenze) vedi screenshot:

doc-check-if-leap-year-1

2. Trascina quindi il quadratino di riempimento sull’intervallo in cui desideri applicare questa formula: tutti gli anni verranno verificati per stabilire se sono anni bisestili o meno.

doc-check-if-leap-year-2

Nota: se la cella corrispondente è vuota, anche questa formula visualizzerà «Anno bisestile».


freccia blu a destra con fumetto Verificare se un anno è un Anno bisestile con una funzione definita dall'utente

È anche possibile creare una funzione definita dall’utente per verificare se l’anno è un Anno bisestile; proceda come segue:

1. Tieni premuti i tasti ALT + F11: si aprirà la finestra di Microsoft Visual Basic for Applications.

2. Fai clic su Inserisci > Modulo e incolla il codice seguente nella finestra del modulo.

Codice VBA: verificare se un anno è un Anno bisestile

Function IsLeapYear(pYear As Integer) As Boolean
'Update 20140623
If (pYear Mod 4) = 0 And (pYear Mod 100) <> 0 Or ((pYear Mod 400) = 0) Then
   IsLeapYear = True
Else
   IsLeapYear = False
End If
End Function

3.Quindi Salva e chiudi questo codice, torni al foglio di lavoro e inserisca la seguente formula: =isleapyear(A2), vedi screenshot:

doc-check-if-leap-year-3

4. Trascina quindi il quadratino di riempimento nelle celle in cui desideri applicare questa formula: tutti gli anni verranno verificati; il valore FALSO indica che non si tratta di un anno bisestile, mentre VERO indica un anno bisestile. Vedi screenshot:

doc-check-if-leap-year-4


Articolo correlato:

Trovare il minimo comune denominatore o il massimo comun divisore in Excel

Migliori Strumenti per la Produttività in Office

🤖KUTOOLS AI Assistente: Rivoluziona Analisi dei dati in base a:Esecuzione Intelligente   |  Genera Codice|  Crea formule personalizzate  |  Analizza Dati e Genera Grafici|  Richiama Funzioni avanzate
Funzionalità Popolari:Trova, Evidenzia o Contrassegna Duplicati   |  Elimina righe vuote   |  Combinare Colonne o Celle senza Perdere Dati   |   Arrotondamento senza usare la formula...
Super RICERCA.VERT:VLookup con Criteri Multipli  |  VLookup con Valori Multipli  |   VLookup tra Fogli Multipli   |   Corrispondenza approssimativa....
Elenco a discesa avanzato:Crea Rapidamente un Elenco a Discesa   |  Elenco a Discesa Dipendente   |  Elenco a Discesa con Selezione Multipla....
Gestione Colonne:Aggiungi un Numero Specifico di Colonne|Sposta Colonne|Attiva/Disattiva lo Stato di Visibilità delle Colonne Nascoste|Confronta Intervalli e Colonne...
Funzionalità in Evidenza:Attenzione della griglia   |  Visualizzazione Design   |Barra delle formule avanzata   | Gestione Cartelle di Lavoro e Fogli   |  Biblioteca di risorse(Testo Automatico)|  Selettore di Date   |  Unisci fogli di lavoro  |  Crittografa/Decrittografa celle   | Invia Email da Lista   |  Super Filtri   |   Filtro speciale(Filtra celle con testo in grassetto/corsivo/barrato...) ...
Principali Set di Strumenti 15:12 Strumentiper il Testo(Aggiungi testo,Elimina Caratteri Specifici, ...)|   50+Tipidi Grafico(Diagramma di Gantt, ...)|   40+ Formule Pratiche(Calcola l'età in base alla data di nascita, ...)|   19 Strumentidi Inserimento(Inserisci Codice QR,Inserisci Immagine dal Percorso, ...)|   12 Strumentidi Conversione(Converti in parole,Conversione del tasso di cambio, ...)|   7 StrumentiUnisci e Dividi(Unione avanzata righe,Dividi celle, ...)|... e molto altro
Usa Kutools nella tua lingua preferita – supporta inglese, spagnolo, tedesco, francese, cinese e 40+ altre!

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.

ExcelWordOutlookTabsPowerPoint
  • 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