مساعدة في تنفيذ بضع أشياء في ملف

[Abdelkarem2020]

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

كيف حالكم اخواني و اساتذتي الكرام

نسأل الله العظيم ان تكونوا في افضل صحة

بعد أذنكم احبائي أحتاج ان اضف بعض الاشياء على هذا الشيت

أولاً هذا شيت صممته لأحد محلات الهاتف ليساعده في عملية شحن الرصيد للهواتف و لمن يرغب في أقتنائه و أستخدامه فله مطلق الحرية في استخدامه

أحتاج طريقة لتقريب الارقام العشرية التي تظهر لأقرب 0.50 لو الرقم العشري اقل من 0.50 و لأقرب 1 لو الرقم العشري اكبر من 0.50 

مثال في الصورة يوجد عند مبلغ شركة الشحن رقم 14.25 اريد تقريبه إلي 14.5 لان الرقم العشري اقل من 0.50

ولو بفرض ان العدد 14.75 اريد تقريبه إلى 15 لان الرقم العشري اكبر من 0.50

و لكن عملية التقريب هذه اريدها في عمود مبلغ شركة الشحن فقط 

ثانياً اريد حماية عمود مبلغ شركة الشحن و عمود مبلغ السنترال و مجموعهم  (بالضغط على ctrl+سهم لأسفل سوف يظهر المجموع)

و حماية الرصيد المتبقي من التعديل او الكتابة

ثالثاً أريد ان اضيف للشيت واجهة رئيسية بأسم مستخدم و رقم سري عن طريق VBA 

ولكم فائق الأحترام و التقدير

شحن1.xlsx

[Ali Mohamed Ali]

وعليكم السلام -تفضل لك ما طلبت

كما تم عمل شاشة دخول بكلمة سر

يمكنك فقط اختيار الإسم من الكمبوبوكس وهو : Abdelkarem

وكلمة السر : 1111

 

 

شحن.xls

[Abdelkarem2020]

أشكرك أستاذي الفاضل علي لك مني فائق الأحترام و التقدير 

ولكن ما هو تصريح الدخول هذا

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

تم تعديل يوليو 28, 2019 بواسطه Abdelkarem2020

[Abdelkarem2020]

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

[Ali Mohamed Ali]

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

بارك الله فيك

[Abdelkarem2020]

أشكرك أستاذي بشدة ربنا يبارك فيك

[Ali Mohamed Ali]

ولك بمثل ما دعوت لى وزيادة

والحمد لله الذى بنعمته تتم الصالحات

[Abdelkarem2020]

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

بعد أذن استاذي الفاضل Ali Mohamed Ali

كنت ساعدتني في الموضوع هذا موضوع

و قمت بحماية بعض الخلايا التي يوجد بها معادلات 

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

فسوف اكون شاكر لك أستاذي ان تكرمت علي لمعرفة طريقة فك هذه الحماية و ارجاعها مرة أخرة

ولك فائق الأحترام و التقدير

[Ali Mohamed Ali]

تفضل يمكنك تفهم هذا من هذه الصورة , ثم بعد خطوات الصورة يمكنك عمل Cut للكود ثم التعديل عليه كما تريد

وهذا هو الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:h1,H3:H4,E2:G1004,C1000:C1004"), Target) Is Nothing Then
Target.Offset(0, 1).Select
End If
End Sub

 

[Abdelkarem2020]

أشكرك أستاذي جزيل الشكر

ولك فائق الأحترام و التقدير