ابو طيبه قام بنشر يوليو 25, 2022 مشاركة قام بنشر يوليو 25, 2022 التعديل على كود الصفحة عند الضغط دبل كلك على أي خلية من خلايا محددة تكون قيمتها Negative دون غيرها واضافة شرط على معادلة خلية C3 كما موضح بالملف المرفق مع جزيل الشكر ملف العمل.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر يوليو 25, 2022 أفضل إجابة مشاركة قام بنشر يوليو 25, 2022 يمكنك استعمال هذه المعادلة في الخلية 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 بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر يوليو 26, 2022 الكاتب مشاركة قام بنشر يوليو 26, 2022 شكرا جزيلا لك استاذ محمد جعلها الله في ميزان حسناتك تحياتي لك رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 26, 2022 مشاركة قام بنشر يوليو 26, 2022 الحمد لله الذي وفقنا جميعا لهذا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها