كود اضافة تاريخ ويوم وكتابة جملة معينة عن يوم محدد

[اشرف عطوة]

السلام عليكم ورحمه الله وبركاته 

فى هذا الجدول خانه الوحدة المستفيدة عبارة عن ليست من شيت SOURCE LIST  والاسم  اللى بنختاره بتظهر تلقائي ارقام العمال والمشرفين قصاد الخانة بتاعتهم في شيت متابعة الحضور

المطلوب : 1- فكرة او كود بحيث تسهل ادخال اليوم والتاريخ " بدل للإدخال اليدوي "

2- كود عند كتابة يوم السبت فى اى خانه من الايام يظهر فى الاربع خانات التالية للتاريخ انه يوم اجازة اسبوعية.. تم ارفاق الملف بدون دمج 

تقرير حضور.xlsm

[عبدالفتاح في بي اكسيل]

حقا !!!  تريدني  ان  اقوم  بتنسيق  ملفك  وانت  من  تريد  المساعدة  . هذا  اهدار  لوقتي  ولست مستعد   لمراجعة  الخلايا  المدمجة .

 لن  ادخل  في  هكذا  مواضيع  في  المستقبل .

على اي  حال  لضيق  وقتي  هذه  محاولة  بخصوص  المطلوب  الاول  .  ولم  افهم  شيء  بخصوص  المطلوب  الثاني , وما  الهدف  منه ؟

كما  تلاحظ من  خلال  الكود  قمت  بتخصيص  الايام  بالعربي  لانه  تظهر  بالانجليزي  ( عندما  تتغير  القيم  في  خلايا  العمود C   سوف  يدرج  تاريخ  اليوم  ويوم من الاسبوع)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TodayValue As String
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Target, Range("C:C")) Is Nothing Then
   TodayValue = Choose(Weekday(Date), "الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة", "السبت")
   Target.Offset(0, -1) = Date
   Target.Offset(0, -2) = TodayValue
   End If
   End Sub

تحياتي .

[اشرف عطوة]

شكرا جزيلا لتعب حضرتك معى ، ولكن 

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

لم اقل ابدا انه مطلوب تنسيق من حضرتك قلت انه يمكن اى خلية مازالت مدمجة ولم ألحظها انا والغى دمجها ممكن حضرتك تلغي دمجها 

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

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

الحلم سيدى الفاضل  ..شكرا جزيلا مره اخرى .اقدر وقت السادة الخبراء فى المتندى وليست اول مره اطلب منهم مساعدة ،وفى جميع الحالات كثير من السادة اعضاء المنتدى ساعدنى بالفعل ،  

السادة / اعضاء المنتدى الكرام 

ابحث عن كود اذا ادخلت تاريخ معين فى اى خانه مثلا 21/9/2022 يظهر اليوم " الاربعاء " تلقائي   خانة اخرى 

وكذلك كود عند كتابة يوم السبت مثلا فى خانه معينه تملئ الخانة التالية بجملة " اجازة اسبوعيه" 

 

 

 

[عبدالفتاح في بي اكسيل]

اقتباس

نعم سيدى حقاً ، تم التحقق فعلا من الملف 

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

اقتباس

لم اقل ابدا انه مطلوب تنسيق من حضرتك قلت

هذا  ما  عنيته   عندما  قلت  لي  ليست  مشكلة  يمكن  الغاءها  هذا  يعني  بدلا  من  العمل  على  موضوعك  الرئيسي  اقوم  بتتبع  الخلايا  لالغاء  دمجها   وهذا  غير  منطقي 

هذا  ملفك  وجب  عليك  تنسيقه  قبل  نشر  موضوعك 

اقتباس

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

هل  من  يرشدك  كيف  تقوم بعرض  بياناتك  بشكل  سليم  حتى  تجد المساعدة اصبح الاسلوب  غير  جيد ؟؟؟؟

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

اقتباس

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

اذا  كنت  لا تقبل  النصائح  وتعتبرها  اذى اعذرني    لن  اخوض  في  مواضبعك  في  المستقبل  تجنبا  لجدال  لا طائل  منه  .تحياتي .

 

[عبدالفتاح في بي اكسيل]

بخصوص الاجازة  الاسبوعية  اضف  هذا  في  نهاية  الكود  وانظر كيف  تعمل معك 

If Target.Column = 1 Then
 If Target.Value = "السبت" Then
   Target.Offset(, 4) = "اجازة اسبوعية"
   End If
   End If

اما  هذه  الجزئية  لم افهمها  اطلاقا   نحتاج  منك  مزيد  من  التفصيل 

اقتباس

ابحث عن كود اذا ادخلت تاريخ معين فى اى خانه مثلا 21/9/2022 يظهر اليوم " الاربعاء " تلقائي   خانة اخرى 

 

[اشرف عطوة]

شكرا جزيلا