logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





23-09-2023 10:47 مساءً
أعضاء المنتدى الكرام
السلام عليكم ورحمة الله وبركاته
التالى كود   لكتابة حرف X بمجرد النقر المزدوج فى خلية من نطاق محدد

CODE
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Dim ws As Worksheet:            Set ws = ThisWorkbook.ActiveSheet
    Dim lastrow As Long:          lastrow = ws.Cells(ws.Rows.Count, "D").End(xlUp).row
    Dim rng As Range:              Set rng = Me.Range("G8:JZ" & lastrow)

    If Not Intersect(Target, rng) Is Nothing Then
        Target.Value = "X"
        Cancel = True
    End If


End Sub


المطلوب هل يوجد كود آخر يقوم بمسح محتويات هذه الخلية بمجرد النقر عليها
يعنى كود لكتابة الحرف وكود آخر لحذف الحرف فى حالة إدخاله بالخطا
تم تحرير الموضوع بواسطة :Haneen Amr بتاريخ:23-09-2023 10:50 مساءً

أثارت هذه المشاركة إعجاب: السعيد الجزائري،



look/images/icons/i1.gif مسح محتويات الخلية بمجرد النقر عليها
  24-09-2023 06:21 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3478
المشاركات : 24
الجنس :
تاريخ الميلاد : 12-9-1976
قوة السمعة : 41
الاعجاب : 1
UP  !!!!




look/images/icons/i1.gif مسح محتويات الخلية بمجرد النقر عليها
  24-09-2023 06:30 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وعليكم السلام أخي الكريم
لا داعي للاستعجال فلكل واحد منا له ظروفه ومن يجد الوقت لمساعدة إخوانه لا يتأخر ولا يتردد في ذلك

جرب الكود التالي عله يكون المطلوب
CODE
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
    Dim lastRow As Long: lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    Dim rng As Range:    Set rng = Me.Range("G8:JZ" & lastRow)
    If Target.Value = "X" Then Cancel = True: Target.ClearContents: Exit Sub
    If Not Intersect(Target, rng) Is Nothing Then
        Target.Value = "X"
        Cancel = True
    End If
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، hassona229، السعيد الجزائري،



look/images/icons/i1.gif مسح محتويات الخلية بمجرد النقر عليها
  25-09-2023 01:34 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3478
المشاركات : 24
الجنس :
تاريخ الميلاد : 12-9-1976
قوة السمعة : 41
الاعجاب : 1
بارك الله فيك أستاذ ياسر
على هذا الكود الرائع




look/images/icons/i1.gif مسح محتويات الخلية بمجرد النقر عليها
  25-09-2023 05:02 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات




اضافة رد جديد اضافة موضوع جديد




الكلمات الدلالية
محتويات ، الخلية ، بمجرد ، النقر ، عليها ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:52 AM