
Private Sub worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean)
If Intersect(target, Range("A1:A10")) Is Nothing Then Exit Sub
Cells(target.Row, "B") = Val(target)
Cells(target.Row, "C") = Val(Mid(target, Application.Find("+", target, 1) + 1, 10))
End Sub
|
Cells(target.Row, "C") = Val(Mid(target, Application.Find("+", target, 1) + 1, 10))
