المساعدة فى اخفاء الصفوف

[أ محمد عبد الصمد]

بسم الله الرحمن الرحيم

احوانى الافاضل اعضاء منتدانا الكرام

مرفق برنامج لعمل المرتبات بالتربية والتعليم من تصميمى وقد كنت صممته على اكسيل 2010 ولكن تم تحويله الى امتداد 2003 ولكنفوجئت بانه لا يقوم باخفاء الاعمدة او الصفوف الغير مطلوبة فقمت بتحويله بعد فترة الى اوفيس 2010 مرة أخرى الحمد لله قام باخفاء الاعمدة التى يتم اختيارها ولكن المشكلة أنه الان لا يخفى الصفوف التى لا اريدها فارجو معرفة مكمن الخطأ واصلاحه وخاصة ان البرنامج اخذ منى جهدكبيروالان نستخدمه لعمل مرتبات مدارس ادارة كاملة الشهداء التعليمية بالمنوفية

 

https://up.top4top.net/downloadf-796sylon1-rar.html

[Ali Mohamed Ali]

السلام عليكم أخى الكريم تم عمل كود فى صفحة العاملين لإلغاء الصفوف الغير مرغوب فيها أى الفارغة

 

https://up.top4top.net/downloadf-7966ynhw1-rar.html

[أ محمد عبد الصمد]

الاخى الفاضل ali mohamed ali شكرا لك لاهتمامك والرد فعلا الكود يعمل فى صفحة البيانات ولكن لا يهمنى حذف او اخفاء اعمدة او صفوف فى صفحة البيانات ولكن ما يهمنى هو أخفاء الاعمدة الغير مطلوبة وكذللك الصفوف الغير مطلوبة فى الكشوف اى فى كشف 1 و2 وهكذا وليس الحذف وبالفعل امكننى اخفاء الاعمدة ولكن لا يمكننى اخفاء الصفوف وارجو التوصل لاخفاء الصفوف التى احددها وليس حذفها وتقبل خالص تحياتى

[Ali Mohamed Ali]

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

 

كود لإخفاء الصفوف واظهارها.xls

[أ محمد عبد الصمد]

الاستاذ على الف شكر ولكن المشكلة ان الشيت نفسه لا يخفى وتظهر رسالة لا يمكن تحريك الاكائنات ثانيا من يتعامل مع الشيت اداريون ليس لهم خبره بالاكواد حتى يغير فيها رقم الصفوف ارجو ان تجرب على ملفى وفى أوراق كشف 1 وكشف 2 وهكذا وممكن يكون الكود اخفاء الصفو المحددة بالماوس وهذا اسهل لهم وشكرا

[سليم حاصبيا]

اخي محمد

الملف كبير جداً (اكثر من 2 ميغا)و التعامل معه مضيعة للوقت

لذلك ارفق تموذجاً صغيراً عن الملف (حوالي 20 ضف) لكتابة الكود اللازم

[أ محمد عبد الصمد]

تفضل اخى حذفت كل الاوراق وتبقي  ثلاثة اوراق جرب تخفى الصفوف فى الكشف

المرتبات ورقة واحدة.xlsm

[أ محمد عبد الصمد]

للرفع للأهمية لوسمحتم

[احمد بدره]

بعد إذن أستاذنا الفاضل سليم تفضل كود يقوم بإخفاء الصف إذا كانت قيمة العمود b فارغة  قمت بتجربته في صفحة العاملين

المرتبات ورقة واحدة.xlsm

[أ محمد عبد الصمد]

صفحة العاملين ببخفى عادى يا اخواتى والله ما فيها مشكلة ... المشكلة فى كشف ١ وباقى الكشوف لا يخفى صفوف ارجو معرفة السبب صفحة العاملين ليس بها مشكلة

[نبيل عبد الهادي]

استاذ محمد عذرا لم اتمكن من تحميل الملف الذي ارفقته

عموما في الملف المرفق اختيار صف من خلال قائمة منسدلة وحسب معيار محدد والمعيار هنا (A;B) عله يلبي طلبك

 

تحديد صفوف من خلال قائمة منسدلة لغرض اخفائها.xlsm

[أ محمد عبد الصمد]

الف الف شكر بس والله المشكلة مش كيفية الإخفاء المشكلة الملف نفسه مش بيخفى صفوف يا جماعة وبيطلع رسالة تقول لا يمكن تحريك الكائنات وده ملف بيعمل مرتبات كل مدارس إدارة تعليمية عايز الملف يتصلح ويخفى واعرف المشكلة فييييبن وشكرا واسف لانى تعبتكم معايا

[احمد بدره]

قمت بتحويل الملف إلى تنسيق 97:2003 حتى أتمكن من إظهار كافة الصفوف بتحديد الركن العلوي للورقة ثم عمل كليك يمين واخترت إظهار الصفوف  وبعدها جربت الكود أصبح شغال  والكود حاليًا يعتمد على عمود a فلتفادى إخفاء صف الإجمالى قمت بكتابة رقم 0 بعد ذلك قمت بفتح الملف الجديد واخترت نوع حفظ باسم مصنف وحدات ماكرو ممكنة ليرجع كما كان وقمت بتجربته واشتغل معي

المرتبات ورقة واحدة.xlsm

[أ محمد عبد الصمد]

الف الف شكر جارى التجريب والرد بعد صلاة الجمعه وال الف شكر

[أ محمد عبد الصمد]

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

22.xlsm

[احمد بدره]

قمت بالوقوف على الركن العلوي لورقة العمل لتحديد كل الورقة بعدها عملت كليك يمين واخترت إظهار وجربت الكود رأيته يعمل بشكل طبيعي المهم إن الكود يشترط أن تكون أي خلية في العمود A غير فارغة ولو كتبت رقم0 مثلاً سوف يظهر  هذا الصف فمطلوب كتابة أي شيء أو رقم في العمود A أمام الصفوف المراد إظهارها ، لمعرفة كيفية تحديد كل الورقة واختيار إظهار للصفوف شاهد الصورة المرفقة مع الملف ، تقبل تحياتي

22.xlsm

[أ محمد عبد الصمد]

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

http://

المطلوب.xlsm

[أ محمد عبد الصمد]

للرفع للأهمية اهل ااخير

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Sub hid_rows()
' اختر هنا اي ورقة تريد
'=====================
Dim my_sh As Worksheet: Set my_sh = Sheets("العاملين")
'Dim my_sh As Worksheet: Set my_sh = ActiveSheet
'=====================
Dim My_Rg As Range
Dim lr%
lr = my_sh.Cells(Rows.Count, 1).End(3).Row
    Set My_Rg = my_sh.Range("A1:A" & lr)
    My_Rg.EntireRow.Hidden = False
    My_Rg.SpecialCells(4).EntireRow.Hidden = True

End Sub

 

[أ محمد عبد الصمد]

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

 

المطلوب.xlsm

وياريت كود لاخفاء الاصفوف الفارغة فى نطاق معين وكذلك كود اخر لاخفاء الاعمدة الفارغة فى نطاق معين الكود الاول كان ساعات يخفي الاعمدة وساعات ما يتغلش ويطلع رسايلخطأ وان عاجز عن الشكر

///// تأكد ان اسم الصفحة ف الكود هو  نفسة الاسم الحقيقي(اقصد دون مسافات ناقصة او زائدة) انا لاحظت ان هناك

مسافة زائدة بعد كلمة "الاستمارة" مكتوبة هكذا "الاستمارة  "

لهذا لا تكتب اسم الشيت في الكود بل خذه Copy-Paste

واذا لم يعمل الكود هذا معناه ان لا صفوف خالية في العامود A 

لتلافي الخطأ في الكود اضف هذا السطر مباشرة قبل عبارة:  set My_Rg

السطر المطلوب كتابته:On Error Resume Next

[أ محمد عبد الصمد]

لقد قمت بتغير اسم الاستمارة الى رقم 1 واضفت السطر الذى اشرت اليه ولم تخرج رسالة خطأ وكذلك لم يخفى الصفوف رغم انى كتبت فى بعض اللصفوف 1 وبعضها ضغطت مفتاح delete حتى اتأكد أنها خالية ولم تحفى شيئ بعد اذن حضرتك ممكن تنزل الملف وتجرب عليه الكود وترفعه ويار يت تعمل كود للصفوف الفارغة وأخر للاعمدة الفارغة

المطلوب.xlsm

والله انا محتاج الطلب ضروري فى عملى لآنى لو لم أحصل عليه الشيت هيبوظ بعد عمل اسابيع عليه بس ان للاسف ماليش فى الاكواد

[سليم حاصبيا]

يبدو انك تريد ان تتعامل مع العامود  B وليس A  كما هو واضح من الصورة لذلك استبدل الرقم 1 يالرقم 2 في هذا السطر من الكود

واسم النطاق هكذا 

Set My_Rg = my_sh.Range("B1:B" & lr)

ليصبح الكود بهذا الشكل

Sub hid_rows()
' اختر هنا اي ورقة تريد
'=====================
Dim my_sh As Worksheet: Set my_sh = Sheets("العاملين")
'Dim my_sh As Worksheet: Set my_sh = ActiveSheet
'=====================
Dim My_Rg As Range
Dim lr%
lr = my_sh.Cells(Rows.Count, 2).End(3).Row
    Set My_Rg = my_sh.Range("B7:B" & lr)
    My_Rg.EntireRow.Hidden = False
    My_Rg.SpecialCells(4).EntireRow.Hidden = True

End Sub

 

 

[احمد بدره]

الحل الأمثل الذي وجدته بعد كل المحاولات أن العمود A يجب ألا تكون فيه خلايا مدمجمة مثل م لأنني عندما قمت بإلغاء الدمج ووضعت بباقي الخلايا التي كانت مدمجة رقم 0 فضلاً أن يكون إحدى الخلايا المدمجة يسمى م لا مشكلة وقمت بتجربة كود أستاذنا/ سليم وجدته عمل بشكل سليم ( جرب الملف المرفق ) ودعواتك

المطلوب.xlsm

[أ محمد عبد الصمد]

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

Sub إخفاءعمدة()

Application.ScreenUpdating = False
إظهارالاعمدة
 For Each cl In Range("A:ck")
With cl
If .Value = "" Then .Columns.EntireColumn.Hidden = True Else .Columns.EntireColumn.Hidden = False
End With
Next
Application.ScreenUpdating = True

End Sub
 

[Ali Mohamed Ali]

السلام عليكم لقد تم الرد وارسال الحل على مشاركتك الأخرى