Ciao a tutti,
Il mio intento è quello di creare uno scorrimento automatico di una lista di articoli, con evidenziazione della cella centrale.
Mi spiego meglio.
Ho trovato una funzione che mi fa scorrere il foglio excel ad un tot di secondi...
Sub MM1()
ActiveWindow.SmallScroll Down:=1
Application.OnTime Now + TimeValue("00:00:10"), "MM1"
End Sub
Ho trovato altra funzione che mi evidenzia il rigo sul quale è posizionato il mouse (mi evidenzia anche la colonna ma non so come eliminarlo)
Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 15/12/2010 da Fausto Rolet
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=""1=1"""
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=1=1"
Selection.FormatConditions(1).Interior.ColorIndex = 3
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro registrata il 15/12/2010 da Fausto Rolet
Range("C7").Select
Selection.FormatConditions.Delete
End Sub
Sub Macro3()
'
' Macro3 Macro
' Macro registrata il 15/12/2010 da Fausto Rolet
'
'
Range("E:E,13:13").Select
Range("A13").Activate
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=""1=1"""
Selection.FormatConditions(1).Interior.ColorIndex = 36
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=1=1"
Selection.FormatConditions(1).Interior.ColorIndex = 36
Range("G17").Select
End Sub
Ora vorrei combinare le due cose e modificarle in modo che :
Il foglio scorra automnaticamente (con posssibilità di blocco scorrimento e riavvio)
Che si evidenzi il rigo centrale del foglio excel + rigo sopra e rigo sotto (magari con diversi colori dal centrale)
che il focus di evidenziazione rimanga sempre al centro del foglio (praticamente scroll in alto del foglio ma sempre rigo centrale del foglio evidenziato)
Possibile secoondo voi?
Grazie