هذا الكود مثلا أين اجد اسمه؟
[/size]
[size=7] [/size]
[size=7]On Error Resume Next
If Me.[T1] Then Exit Sub
If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub[/size]
[size=7]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/size]
[size=7]On Error Resume Next[/size]
[size=7] Dim Rng As Range
Static Cell As Range
Static TheFormula As String
Set Rng = Range("myrange")
If Not Application.Intersect(Target, Rng) Is Nothing Then
If Not Cell Is Nothing Then
Cell.Formula = TheFormula
End If
Set Cell = ActiveCell
With Cell
TheFormula = .Formula
.Value = .Value
End With
Else
With Cell
.Formula = TheFormula
End With
End If[/size]
[size=7]End Sub[/size]
[size=7]