Far comparire un calendario per inserire una data in ciascuna cella formattata come "data".
codice VBA da incollare:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'scegli il formato numerico
If ActiveCell.NumberFormat = "m/d/yyyy" Then
'rendi visibile il calendario
ActiveSheet.Shapes("calendario").Visible = True
'allineamento sinistra
ActiveSheet.Shapes("calendario").Left = ActiveCell.Left + ActiveCell.Width
'allineamento alto
ActiveSheet.Shapes("calendario").Top = ActiveCell.Top + ActiveCell.Height
'rendi invisibile il calendario.
Else: ActiveSheet.Shapes("calendario").Visible = False
End If
End Sub
