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

[ابو تميم]

تحية لجميع الأعضاء والمشرفين الأعزاء

لدي ملف إكسل يحتوي على جدول أرغب بإدخال بيانات فيه والمطلوب هو إنشاء ماكرو يعمل كما يلي :

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

باختصار

ماكرو يعمل على

1. تحديد أول خليه في أول صف فارغ ضمن النطاق المحدد لإدخال البيانات

2. إخفاء الصفوف التي تسبق أول صف فارغ

3. إخفاء الصفوف التي بعد الصف الفارغ

بمعنى أنني أريد صف واحد فقط يظهر فارغ يتم الادخال فيه مع إخفاء باقي الصفوف ...

في المرفقات الصفحة المراد العمل عليها

[ابو تميم]

لجميع الأعضاء والمشرفين الأعزاء

لدي ملف إكسل يحتوي على جدول أرغب بإدخال بيانات فيه والمطلوب هو إنشاء ماكرو يعمل كما يلي :

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

باختصار

ماكرو يعمل على

1. تحديد أول خليه في أول صف فارغ ضمن النطاق المحدد لإدخال البيانات

2. إخفاء الصفوف التي تسبق أول صف فارغ

3. إخفاء الصفوف التي بعد الصف الفارغ

بمعنى أنني أريد صف واحد فقط يظهر فارغ يتم الادخال فيه مع إخفاء باقي الصفوف ...

في المرفقات الصفحة المراد العمل عليها

Book1.rar

[الشهابي]

الأخ saad.abu

أولاً :مرحباً بك في هذا الصرح الكبير

ثانيا: لا يوجد ملف مرفق

لإرفاق ملف قم بضغطه أولا بواسطة أحد برامج الضغط ثم قم بإرفاقه

ثالثاً : هذا كود من عمل الأستاذ الكبير خبور خير يقوم بإخفاء الصفوف الفارغة عندما تكون خلية معينة في الصف فارغة في نطاق تحدده

تضعه في حدث الورقة

Private Sub Worksheet_Activate()

Dim MyRng As Range

Dim Col As Range

Range("C16:C515").EntireRow.Hidden = False

For Each Col In Range("C16:C515")

If CStr(Col) = "" Or Col.Value = 0 Then

If MyRng Is Nothing Then Set MyRng = Col Else _

              Set MyRng = Union(MyRng, Col)

  End If

Next

If Not MyRng Is Nothing Then MyRng.EntireRow.Hidden = True

End Sub

[ابو تميم]

شكرا أخي الشهابي

الكود الذي تفضلت بإفادتي فيه ممتاز ملكن لم يف بالغرض المطلوب حيث أنه يقوم بإخفاء الصفوف الفارغة فقط ولكنه لا يقوم بإخفاء باقي الصفوف

للتوضيح أكثر الملف المرفق يبين الوضع المطلوب

Book1.rar

[رفعت يسري حامد]

جزاك الله خيرًا أخي

أنا أحاول عمل ماكرو يقوم بالتحديد فقط على جدول من رقم (2) إلى الإجمالي علمًا بأن الإجمالي ممكن أن يكون في رقم (22) من الخلية أو أبعد من ذلك حسب إضافة صفوف.

فهل يمكن عمل ذلك عن طريق EXTENDED SELECTION وما هي الطريقة لأني حاولت كثيراً.

علمًا بأن طريقة EXTENDED SELECTION عملية جدًا لكن استطيع عملها على الوورد فقط.

وفي الوورد: وهي تقوم بالتحديد من المكان الذي تقف فيه حتى مكان آخر بدلالة كلمة أو حرف أو علامة مرجعية.

وعمومًا لتقوم بعمل EXTENDED SELECTION تضغط F8 قبل عمل تحديد ممتد.

أفيدونا وجزاكم الله عنا خيرًا.

[رجب جاويش]

بعد إذن أخى الفاضل / الشهابي

أخى ابو تميم

جرب هذا الكود

Book1.rar

[جمال عبد السميع]

أستاذي ومعلمي الرائع رجب جاويش ماشاء الله أعمالك رائعة سلمت يداك وأزادك الله من علمة

[رجب جاويش]

أخى الحبيب / محمود

شكرا جزيلا لك على هذا المرور العطر والكلمات الطيبة

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل رجب جاويش حفظك الله

قمة في الأحتراف نور الله قلبك بالأيمان ويسر الله لك كل أمورك في الدنيا وجع ل الفردوس دارك ومحلك في الآخرة.

أبو أنس

[رجب جاويش]

أخى الحبيب / أبو أنس حاجب

جزاك الله كل خير أخى الحبيب على هذا الدعاء الطيب

[simsim0002]

الموضوع بجد رائع  وشكرا

 

 

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

 

تم تعديل يوليو 24, 2014 بواسطه simsim0002

[عبدالعزيز محمد]

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

جزاكم الله خيراً 

نأمل لو يتم تغيير بسيط على الكود

1-بحيث يبقي على الصفوف التي بها بيانات السابقة ويحذف الصفوف الفارغة

2-عند الانتهاء من تسجيل البيانات في الصف(في الجدول) يضيف صفا فارغا عند الضغط على انتر .

3-ويبقي الصفوف الفارغة مختفية كما في الكود.

[عبدالعزيز محمد]

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

وجزاكم الله خيراً

المطلوب:

1-بحيث يبقي على الصفوف التي بها بيانات السابقة ويحذف الصفوف الفارغة

2-عند الانتهاء من تسجيل البيانات في الصف(في الجدول) يضيف صفا فارغا عند الضغط على انتر .

3-ويبقي الصفوف الفارغة مختفية كما في الكود

[عبدالعزيز محمد]

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

الأمر مهم  لي على الأقل في عملي...........

مازلت على الانتظار الرد

[عبدالعزيز محمد]

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

الأمر مهم  لي على الأقل في عملي...........

مازلت على الانتظار الرد

شباب وينكم...

[ياسر خليل أبو البراء]

أخي العزيز عبد العزيز

أخبرت الكثير من الأعضاء سابقاً أن الطلبات في المشاركات الفرعية لا يلتفت لها عادةً .. لما لم تطرح طلبك في موضوع مستقل وترفق الملف المطلوب العمل عليه وتبين شكل المخرجات المطلوبة ليسهل على الأعضاء تقديم المساعدة

وأنا صدقني رغم تواجدي الشبه دائم بمنتدى لم ألتفت إلى طلبك ..ربما لإنشغالي بأمور كثيرة

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

تقبل تحياتي