ma nulla, cosa può essere?
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C20")) Is Nothing Then
Application.EnableEvents = True
MsgBox Target
End If
End Sub
Moderatori: Anthony47, Flash30005
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C20")) Is Nothing Then
Application.EnableEvents = True
MsgBox Target
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("H3:H50")) Is Nothing Then
ActiveSheet.ClearArrows
Selection.ShowPrecedents
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'ActiveSheet.ClearArrows
Selection.ShowPrecedents
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.ClearArrows
End Sub
Torna a Applicazioni Office Windows
Tastiera wireless non funziona nei giochi Autore: giuseppeb1986 |
Forum: Assistenza Hardware Risposte: 1 |
Visitano il forum: Nessuno e 44 ospiti