تقييد خليه في حال الكتابة بها بإظهار الوقت الفعلي

[Mohdbns3id]

تحية طيبة،،،

أسعد الله جميع أوقاتكم بكل خير،،،

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

لدي وقة عمل اسمها التحضير بها جدول الارقام الوظيفية واسماء الموظفين

وورقة عمل أسمها التوقيع

إذا تم إدخال الرقم الوظيفي للموظف يظهر اسمه الموجودة في ورقة التحضير

ويسجل الوقت الذي تم فيه إدخال رقم الوظيفي

 

مرفق مثال قام الاستاذ سليم مشكورة بمساعدتي فيه

SHEIT salim.xlsx

[سليم حاصبيا]

جرب هذا الملف

 

SHEIT salim.xlsm

[Mohdbns3id]

22 ساعات مضت, سليم حاصبيا said:

جرب هذا الملف

 

SHEIT salim.xlsm

ياسلم يا استاذ هذا المطلوب .

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

وانا احتاج الربط يكون ب ورقة التوزيع 

يعني اذا حطيت رقم موظف غير الموجودين بورقة التوزيع 

ما اريده يظهر

حاولت اعدل على الاكواد ولكن ما زبطة معي 

////////////////// رد

ال VBA   لا  يتعامل مع اللغة العربية كما نريده نحن

لذلك اذا كنت تريد ربط الكود بورقة التوزيع قم يتغيير اسم هذه الورقة الى اي اسم اخر بالاجتبية(Distribution)مثلاَ

[Mohdbns3id]

معلومة مهمه بالنسبة لي كـ مبتدأ

قمت بإستخدام الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = رقم العمود المراد ظهور الوقت فيه Then
    
        Range("الخلية الخاصة بالكتابة" & Target.Row) = Time
        
    End If
    


End Sub

وضبط معي

ولكن إذا قمت بتثبيت الكود عن طريق 

Comment Block

ليصبح بالشكل التالي

'Private Sub Worksheet_Change(ByVal Target As Range)
'
'    If Target.Column = رقم العمود المراد ظهور الوقت فيه Then
'
'        Range("الخلية الخاصة بالكتابة" & Target.Row) = Time
'
'    End If
'
'
'
'End Sub
'
'

للاسف لا يعمل الكود معي لا يظهر الوقت إذا قمت بالكتابة في الخلية

 

ما الحل؟

[سليم حاصبيا]

الكود الذي وضعته لا يفي بالغرض تماماً

لذلك قمت بتعديل الكود كما تريد ليأخذ بياناتة من الصفحة Preparation

تم اضافة ميزة مهمة انه لا يسمح بتكرار نفس الاسم بذات التاريخ

SHEIT salim _new.xlsm

[Mohdbns3id]

بارك الله فيك يا أستاذ

شكر لك