محمد رامز قام بنشر أغسطس 22, 2022 مشاركة قام بنشر أغسطس 22, 2022 السلام عليكم اخواتي الافاضل ارجو المساعدة في الجدول المرفق عندما اريد كتابة تاريخ موجود مسبقا بخلية الوقت لنفس الطالب يمنعني الاكسيل من كتابة الوقت ويعطيني رسالة بان الوقت مكرر قمت بتوضيح المطلوب عن طريق اضافة تعليق على الخلية المطلوب عدم تكرار الوقت فيها ولكم جزيل الشكر جدول بيانات.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر أغسطس 22, 2022 أفضل إجابة مشاركة قام بنشر أغسطس 22, 2022 قم بتطويع الكود بناء على اختيار المدى كما في التعليق ونسخه في موديول الورقة Private Sub Worksheet_Change(ByVal Target As Range) 'غير الاعمدة المراد تنفيدها مع مراعاة تكون الاعمدة متعاقبة If Not Intersect(Range("D:M"), Target) Is Nothing Then Dim myrange As Range With Target If Len(.Value) > 0 Then Set myrange = Columns(.Column) Application.EnableEvents = False If WorksheetFunction.CountIf(myrange, .Value) > 1 Then MsgBox .Value & " عذرا هذا الوقت مكرر.", vbExclamation .ClearContents End If Application.EnableEvents = True End If End With End If End Sub 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان