Originariamente Scritto da
Degauss
Perchè quando chiede aiuto kimia viene insultato e nightcoso lo aiutate?
Infatti. Non sono intervenuto perché mi hanno offeso con il loro comportamento.
Avevo la soluzione, più "fine" del range di date... ovvero creare una funzioncina personalizzata ISDATE in vba ed utilizzare quella.
Infatti io ho il mio worksheet con tutte le mie funzioni personalizzate...
Codice:
Private Sub Worksheet_Change(byval Cella as Range)
if IsDate(Range) then Cella.Interior.Color = RGB(255,0,0) else Cella.Interior.Color=RGB(255,255,255)
End Sub
Public Function UnaData(byval sCella as variant) as Boolean
UnaData = IsDate(sCella)
End Function
Il codice in alto (la sub), ad esempio, ti colora la cella quando viene modificata... Ovviamente può limitarla, oppure usare la funzione all'interno delle formule
Rispondi Citando