كود عند الضغط دبل كلك على أي خلية من خلايا محددة تكون قيمتها Negative دون غيرها

[ابو طيبه]

التعديل على كود الصفحة عند الضغط دبل كلك على أي خلية من خلايا محددة تكون قيمتها  Negative دون غيرها

واضافة شرط على معادلة خلية C3  كما موضح بالملف المرفق مع جزيل الشكر

ملف العمل.xlsm

[أ / محمد صالح]

يمكنك استعمال هذه المعادلة في الخلية C3

=IF(RIGHT(D3,8)="المحترمة",": الدكتورة المحاضرة",": الطبيب المحاضر")

وتعديل هذا الكود في خدث قبل الدبل كلك

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("g10:j15")) Is Nothing Then
Application.Calculation = xlManual
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="123"
Target.Value = "Negative"
ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=False, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True
Application.Calculation = xlAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub

بالتوفيق

[ابو طيبه]

شكرا جزيلا لك استاذ محمد جعلها الله في ميزان حسناتك تحياتي لك

[أ / محمد صالح]

الحمد لله الذي وفقنا جميعا لهذا