البحث بالرقم الوظيفى مع حماية الملف

[عبد الله بولنوار]

اي ملف تقصد الذي اقتبسته ( شرح الفيديو ) ام طلبك الاول

[احمد فضيله]

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

بعد اذن كل الاخوه

 

يمكن متابعة الموضوع على الرابط التالي :

http://www.officena.net/ib/?showtopic=37604

 

و الله المستعان

[الأمير هشام]

اي ملف تقصد الذي اقتبسته ( شرح الفيديو ) ام طلبك الاول

الأستاذ الفاضل / عبد الله

الحقيقة أنى أدرك أننى قد أثقلت على حضرتك و لكن كريم مودتك و فيض علمك يشجعنى على سؤال سيادتكم

أولاً : الرابط http://www.gulfup.com/?jc2GSY   و الخاص بالشرح لا يكتمل فيه التحميل  (المثل الصينى يقول لا تعطنى سمكه و لكن علمنى كيف أصطاد )

ثانياً : أرجو تطوير الكود بحيث عند فتح الملف لا تظهر أى بيانات 

ثالثاً : ما معنى الكود     ActiveWindow.ScrollRow = 12 الموجود فى داله البحث و لماذا 12 بالذات 

و ما معنى الكود    (MyRng = Range("schedule").Columns(8

رابعاً : عند كتابة الرقم الوظيفى 0 (عند محاولة إختبار الكود ) يظهر عمود الرقم الوظيفى فارغ 

مع وافر الشكر و التقدير 

[عبد الله بولنوار]

 

اي ملف تقصد الذي اقتبسته ( شرح الفيديو ) ام طلبك الاول

الأستاذ الفاضل / عبد الله

الحقيقة أنى أدرك أننى قد أثقلت على حضرتك و لكن كريم مودتك و فيض علمك يشجعنى على سؤال سيادتكم

أولاً : الرابط http://www.gulfup.com/?jc2GSY   و الخاص بالشرح لا يكتمل فيه التحميل  (المثل الصينى يقول لا تعطنى سمكه و لكن علمنى كيف أصطاد )

ثانياً : أرجو تطوير الكود بحيث عند فتح الملف لا تظهر أى بيانات 

ثالثاً : ما معنى الكود     ActiveWindow.ScrollRow = 12 الموجود فى داله البحث و لماذا 12 بالذات 

و ما معنى الكود    (MyRng = Range("schedule").Columns(8

رابعاً : عند كتابة الرقم الوظيفى 0 (عند محاولة إختبار الكود ) يظهر عمود الرقم الوظيفى فارغ 

مع وافر الشكر و التقدير 

 

للاسف الرابط لسمكة اخرى غير السمكة الي تريد اصديادها لانه شرح آخر للاخ الجموعي في امر آخر

الابط يعمل عادي

 

الن موقع الرفع الخليجية معطل لاعيد تحميله لك من جديد

بخصوص الاكواد سالفة الذكر

 

عملها الأخ الي قبلي في الفلترة

 

انا عملك كود طريقة البحث فقط

طبعا عند وضع الرقم 0 يظهر العمود فارغ لانه يوجد بيانات لا يوجد بها رقم وظيفي

الكود

  (MyRng = Range("schedule").Columns(8

الأخ قام بتسمية مساحة البحث باسم schedule لعمل الفرز عليها و الرقم 8 هو ترتيب العمود الخاص بالرقم الوظيفي الذي سيتم الفرز  على اساسه

تم تعديل يناير 7, 2015 بواسطه عبد الله بولنوار

[عبد الله بولنوار]

باخفاء كل البيانات

invigilations99.rar

[الجموعي]

باخفاء كل البيانات

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

والله أتحفتنا به هذه الأكواد الرائعة

ActiveSheet.Unprotect ([j1])
    Rows("6:5001").Select
    Selection.EntireRow.Hidden = True
ActiveSheet.Protect ([j1])

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

وإخفاء المحددة

ولماذا

وضعته ايضا في زر البحث

وضعته ايضا في الموديول 4 Sub hide()

[عبد الله بولنوار]

 

باخفاء كل البيانات

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

والله أتحفتنا به هذه الأكواد الرائعة

ActiveSheet.Unprotect ([j1])
    Rows("6:5001").Select
    Selection.EntireRow.Hidden = True
ActiveSheet.Protect ([j1])

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

وإخفاء المحددة

ولماذا

وضعته ايضا في زر البحث

وضعته ايضا في الموديول 4 Sub hide()

 

اهلا بيك في الموديل نسيت حذفه فقط لاني سجلت الموديل ثم عدلت عليه لفك الحماية ثم ارجاع الحماية ( اسهل من كتابته حرفيا )

 

في زر البحث لكي يخفي عملية البحث السابقة فقط سواء اراد البحث عن جديد او مجرد مسح البحث السابق

 

دمت بود