هل من الممكن حذف الاسطر التي بها B1=0 اوتوماتيكيا

[العربي_الحر]

السلام عليكم

اخواني عندي جدول على سبيل المثال مكون من 10 اسطر وخمس اعمده وهو مصمم ليكتب اوتوماتيكيا حسب مدخلين فقط احيانا يكون السطر الخامس خاليا واحيانا الثامن واحيانا الاول والسابع وهكذا

هل يوجد امر يحذف هذه الاسطر عند عدم وجود بياتات في الخانه الاولى من السطر B1

الملـــــــــــــــــــــــــــــــــــف

والشكر الجزيل لكم

تم تعديل مايو 26, 2005 بواسطه العربي_الحر

[m.hindawi]

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

لم تحدد في اي ورقة يتم الادخال

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

[العربي_الحر]

:(

الادخال في كل الاوراق

في الخليتين

F6 , F9

وبمجرد الادخال

شكرا لك مقدما

تم تعديل مايو 27, 2005 بواسطه العربي_الحر

[m.hindawi]

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

اخي الكريم القيت نظرة على الملف المرفق

عندك الخلية b1

التي سيطبق الشرط على اساس قيمتها دائما فارغة او غير مستخدمة وذلك في جميع الاوراق

[العربي_الحر]

:( :( :(

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

MODEL يكون فراغ

او

DESCRIPTION يكون فراغ

او

QTY عندما تساوي 0

او

U PRICE عندما تساوي 0

او

TOTALعندما تساوي 0

في اي صفحه من صفحات العمل 1 2 3 4 5 6 7 8 IF او RF

او حسب ماتراه مناسبا فانت المحترف وانا المبتدا

,واعذرني اذا كان هناك اي نقص في المعلومات لتوضيح سؤالي

واذا كان هناك اي نقطه تريد ان اوضحها لتجيب على استفساري فانا رهن اشارتك

وشكرا جزيلا وجزاك الله كل خيروسامحنا على سوء شرح السؤال لانه بالفعل سؤال مبهم ومن الصعب حتى على الخبير معرفه مبتغاي وما اريد

تم تعديل مايو 28, 2005 بواسطه العربي_الحر

[m.hindawi]

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

اخي الكريم

بالنسبة لموضوعك فان الاسطر التي تريد حذفها تحتوي على صيغ

وبالتالي فانه عند حذفها ستفقد الصيغ الموجودة فيها

[العربي_الحر]

معلش اخي هننداوي

اجعلها تنحذف وانا ساجد طريقه لمعالجة موضوع الصيغ

وشكرا لك

[m.hindawi]

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

اخي الكريم

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

ويعتمد الكود على عمود الكمية i

اذا كنت تريد الحذف اعلمني بذلك وساعدل الكود

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

جرب وبلغني بالنتيجة

ANT_001T.rar

[العربي_الحر]

جميل جدا اخي هنداوي ولك مني كل الشكر

ولكن توجد نقطه واحده

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

اخي الكريم جرب في sheet 5

وضع f7=12

f6=1

ولاحظ النتيجه

ثم غير القيم لتصبح

f7=50

f6=1

لاحظ النتيجه ثم اذهب الى ورقة عمل اخرى وعد لنفس الورقه sheet 5

اعتقد ان تفعيل الكود يجب ان يربط بتغيير قيم f7 و f6 او باضافه زر امر على سبيل المثال run

ولقد اضفت زر امر وسميته qout

وربطته مع الكود الذي اضفته جزاك الله كل خير

وعمل بشكل رائع

ولكن

بعد ان اغير قيمة f7 او f6 واذهب للضغط على زر qout لا يعمل الا اذا ضغطت بالكيرسر اي مكان خالي اولا ثم اضغط عليه فتكون النتيجه مبهره

اريد فقط ان اتخلص من مشكلة الضغط على مكان اخر ثم الضغط على الزر qout

وعميق امتناني لك اخ هنداوي

تم تعديل يونيو 2, 2005 بواسطه العربي_الحر

[m.hindawi]

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

جرب التعديل التالي

ولست بحاجة الى زر الامر

فقط قمت بتغير الحدث من activate الى change

ANT_001T.rar

تم تعديل يونيو 2, 2005 بواسطه m.hindawi

[العربي_الحر]

اروع من رائع اخي هنداوي

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

وشكرا مقدما وسامحنا تعبناك

[m.hindawi]

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

الكود سهل ما عليك الا انشاء اجراء جديد

ولصق الكود التالي بداخله

Sub rowhid()
Dim a As String

a = ActiveSheet.Name
Sheets(a).Cells.EntireRow.Hidden = False
For b = 18 To 34
If Sheets(a).Cells(b, 9).Value < 1 Then
Sheets(a).Rows(b).EntireRow.Hidden = True
End If
Next


End Sub

بعد ذلك تقوم بلصق الكود التاي في كل ورقة من اوراق العمل من الورقة المسماة 1 الى الورقة ذات الاسم 10

Private Sub Worksheet_Change(ByVal Target As Range)
rowhid
End Sub

تم تعديل يونيو 2, 2005 بواسطه m.hindawi

[العربي_الحر]

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

ولكن كيف اعمل اجراء جديد

وكيف الصق الكود الثاني في كل ورقه

فانا مبتدا اكثر مما تتصور اخي هنداوي :(

[m.hindawi]

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

بعد ان تفتح شاشة محرر فيجوال بيسك

من القائمة insert اختار module هذا هو الاجراء الان انسخ الكود الاول والصقة في الشاشة التي تظهر امامك

الان انظر الى يسار الشاشة ستجد اسماء الاوراق في ملفك اذا لم تكن ظاهرة فهي موجودة تحت مجلد microsoft excel objects

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

[العربي_الحر]

ماشاءالله على تفاعلك السريع اخي هندااوي

عاجز عن شكرك ولكن

جزاك الله خير