اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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

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

تم تعديل بواسطه العربي_الحر
رابط هذا التعليق
شارك

:( :( :(

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

MODEL يكون فراغ

او

DESCRIPTION يكون فراغ

او

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

او

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

او

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

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

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

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

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

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

تم تعديل بواسطه العربي_الحر
رابط هذا التعليق
شارك

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

اخي الكريم

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

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

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

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

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

ANT_001T.rar

رابط هذا التعليق
شارك

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

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

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

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

وضع f7=12

f6=1

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

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

f7=50

f6=1

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

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

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

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

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

ولكن

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

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

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

تم تعديل بواسطه العربي_الحر
رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه m.hindawi
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information