اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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

 

 

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

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information