
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 And Target.Row > 1 Then
Application.ScreenUpdating = False
Rows(sel.Row).Interior.ColorIndex = xlNone
Set sel = Selection
Rows(sel.Row).Interior.ColorIndex = 6
Application.ScreenUpdating = True
End If
End Sub |
Public Function highlightSeries(seriesName As Range)
Range("valSelOption") = seriesName.Value
End Function |
| scossa's web site |
| Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw) |
