أيها الإخوة
السلام عليكم ورحمة الله
أثناء البحث في احد المواقع الاجنبية وجدت الكود التالي
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sResult As String
If Union(Target, Range("C11")).Address = Target.Address Then
Application.EnableEvents = False
Application.ScreenUpdating = False
sResult = Target.Value
Target.ClearContents
With Range("F15")
.ClearComments
.AddComment
.Comment.Text Text:=sResult
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
الكود يقوم بعرض قيمة الخلية c11 كتعليق عند الخلية F15
وعند تجربة الكود لاحظت أنه يقوم بحف القيمة المدخلة في الخليه C11 سواء كانت معادلة أو قيمة ثابتة
وعليه آمل منكم تعديل الكود بشكل يسمح ببقاء المعادلة في الخلية C11
وشكرا
COMM.xlsm