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

مساعدة في تنفيذ اوامر بشكل آلي


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

السلام عليكم

 

الملف هو عبارة عن حالات ترويج للمنتجات من قبل الموظفين و غرضه هو متابعة الاحصاءات لحالات الترويج و التسويق
 
يوجد ضمن الورقة الاولى تعليمات برمجية يمكنكم قرائتها
 
لكن ما يهمني هو ان العمود رقم 11 لا يتم تعبئته بشكل آلي ( وفقا للبرمجة ) الا في حال الضغط فيه على احدى الخلايا فيه لتحريرها و بعدها يتم اختيار الخيار الآلي وفقا للاوامر البرمجية بعد الخروج من التحرير
 
اي انه انا بحاجة لأي شيء يقوم باجبار الملف على تعبئة العمود رقم 11 بالخيار المطلوب آلياً
 
علماً ان كلمة السر للملف هي 72007 لتعديل البرمجية فيه و كذلك لتعديل الخيار في العمود رقم 11
 
و لكم المحبة و الشكر 

005.rar

تم تعديل بواسطه aziz3399
رابط هذا التعليق
شارك

أخي عبد الله جزاك الله 

 

المشكلة تكمن في التالي

 

العمود K يجب تعبئته بأحد الخيارات 

 

Auto Reject

Auto Pending

Manager Reject

Manager Pending

 

أول خيارين يجب تعبئتهم آلياً إذا لم أقم بتعبئة الخلية بأي من الخيارين الثالث و الرابع

 

و هذه صورة للأوامر البرمجية التي كتبتها و الخاصة بهذا الموضوع

 

m5zn_692b8e9dcee1542.jpg

 

اتمنى مساعدتكم الكريمة

 

شاكراً تعاونكم

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

اخي الفاضل 

يجب ان تربط التعبئة بحدث معين 

مثل 

يتم التعبئة اوتوماتيكياً اذا تجاوزت العمود K وكتبت في العمود الذي يليه 

وهكذا 

فهل لديك فكرة لربط التعبئة 

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

تماماً أخي عبد الله

 

أريد تعبئة الخلية K4  مثلاً في حال تم تعبئة الخلية B5 في السطر الذي يليه

 

أو اي طريقة أخرى تجعل الملف يقوم بتعبئة العمود K بالخيار الآلي في حال لم أقم باختيار الخيار اليدوي

 

شكراً لكم

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

السلام عليكم 

التجربة تمت على الخلايا من K2: K20

قمت بالتعديل على المرفق كالتالي

1. الغيت القائمة المنسدلة وجعلتها تظهر بالضغط دبل كليك على اي من الخلايا في العمود K  اي بمعنى اذا اردت ان تختار يدوياً في الخلية K3 مثلاً فما عليك الا الضغط دبل كليك عليها وستظهر القائمة لتختار منها

2. في حال كتبت في الخلية B5 مثلاً وكانت الخلية K4 ليس بها بيانات فسيتم الادراج اوتوماتيكياً

 

جرب المرفق 

005.rar

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

أخي الكريم عبد الله شكرأ لك

 

لكن حبذا لو شرحت لي التالي :

 

لماذا قمت بالتعديل الأول و ما هو فائدته ؟؟؟

 

ما هو السطر البرمجي الذي اصبحت فيه خلية K5 تعتمد على قيمة الخلية B6 و هل من شرح له ان استطعت

 

و لماذا تم الغاء الأسطر :

 

'Case Else
'    ActiveSheet.Unprotect
'    Range(Target, Target.Offset(0, -10)).Interior.ColorIndex = 0
'    Range(Target, Target.Offset(0, 1)).Borders.LineStyle = xlNone
'    Target.Offset(0, 0).Borders(xlEdgeLeft).LineStyle = xlContinuous
'    Cells(Target.Row, 3).Value = Cells(Target.Row, 4).Value
'    Cells(Target.Row, 4).ClearContents
'    Cells(Target.Row, 4).Value = Cells(Target.Row, 14).Value
'    Cells(Target.Row, 14).Value = ClearContents
'    Cells(Target.Row, 1).Select
'    ActiveSheet.Protect
End Select

 

 

اعرف اني عذبتك لكن الملف يعني لي كثيرا

 

و شكراً لك يا أخي

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

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

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



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

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

Important Information