
'in A1, e poi giù a copiarla per tutto il range di celle interessato =O(GIORNO.SETTIMANA(A1)=7;GIORNO.SETTIMANA(A1)=1) |
'codice di foglio
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
[A3] = Month("1/" & Target)
Application.EnableEvents = True
End Sub
|
