اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

منع ادخال وقت مكرر


إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

السلام عليكم اخواتي الافاضل

ارجو المساعدة في الجدول المرفق 

عندما اريد كتابة تاريخ موجود مسبقا بخلية الوقت لنفس الطالب يمنعني الاكسيل من كتابة الوقت ويعطيني رسالة بان الوقت مكرر

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

ولكم جزيل الشكر

جدول بيانات.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

قم  بتطويع  الكود  بناء  على  اختيار  المدى  كما  في  التعليق  ونسخه  في موديول  الورقة 

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

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information