العربي_الحر قام بنشر مايو 26, 2005 مشاركة قام بنشر مايو 26, 2005 (معدل) السلام عليكم اخواني عندي جدول على سبيل المثال مكون من 10 اسطر وخمس اعمده وهو مصمم ليكتب اوتوماتيكيا حسب مدخلين فقط احيانا يكون السطر الخامس خاليا واحيانا الثامن واحيانا الاول والسابع وهكذا هل يوجد امر يحذف هذه الاسطر عند عدم وجود بياتات في الخانه الاولى من السطر B1 الملـــــــــــــــــــــــــــــــــــف والشكر الجزيل لكم تم تعديل مايو 26, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر مايو 27, 2005 مشاركة قام بنشر مايو 27, 2005 بسم الله الرحمن الرحيم لم تحدد في اي ورقة يتم الادخال حدد في اي ورقة تريد ان يتم الادخال وكيف تريد للكود ان يعمل بمجرد الادخال ام ربطه بزر امر رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر مايو 27, 2005 الكاتب مشاركة قام بنشر مايو 27, 2005 (معدل) :( الادخال في كل الاوراق في الخليتين F6 , F9 وبمجرد الادخال شكرا لك مقدما تم تعديل مايو 27, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر مايو 28, 2005 مشاركة قام بنشر مايو 28, 2005 بسم الله الرحمن الرحيم اخي الكريم القيت نظرة على الملف المرفق عندك الخلية b1 التي سيطبق الشرط على اساس قيمتها دائما فارغة او غير مستخدمة وذلك في جميع الاوراق رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر مايو 28, 2005 الكاتب مشاركة قام بنشر مايو 28, 2005 (معدل) :( :( :( بصراحه خانني التعبير اخي الكريم ولو كنت اعرف ما هو الامر وما هو الشرط ما سالت ولكن هل من الممكن بخبرتك جزاك الله خيرا ان تقدر ما هي الخانه التي يجب الاعتماد عليها لحذف السطر الخالي من البيانات (القيم)مثلا في الاسطر التي يكون فيها MODEL يكون فراغ او DESCRIPTION يكون فراغ او QTY عندما تساوي 0 او U PRICE عندما تساوي 0 او TOTALعندما تساوي 0 في اي صفحه من صفحات العمل 1 2 3 4 5 6 7 8 IF او RF او حسب ماتراه مناسبا فانت المحترف وانا المبتدا ,واعذرني اذا كان هناك اي نقص في المعلومات لتوضيح سؤالي واذا كان هناك اي نقطه تريد ان اوضحها لتجيب على استفساري فانا رهن اشارتك وشكرا جزيلا وجزاك الله كل خيروسامحنا على سوء شرح السؤال لانه بالفعل سؤال مبهم ومن الصعب حتى على الخبير معرفه مبتغاي وما اريد تم تعديل مايو 28, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر مايو 31, 2005 مشاركة قام بنشر مايو 31, 2005 بسم الله الرحمن الرحيم اخي الكريم بالنسبة لموضوعك فان الاسطر التي تريد حذفها تحتوي على صيغ وبالتالي فانه عند حذفها ستفقد الصيغ الموجودة فيها رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر مايو 31, 2005 الكاتب مشاركة قام بنشر مايو 31, 2005 معلش اخي هننداوي اجعلها تنحذف وانا ساجد طريقه لمعالجة موضوع الصيغ وشكرا لك رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر يونيو 1, 2005 مشاركة قام بنشر يونيو 1, 2005 بسم الله الرحمن الرحيم اخي الكريم لقد قمت بعمل كود الي يقوم باخفاء الصفوف الفارغة وليس حذفها وذلك حتى لا تضطر الى اعادة كتابة الصيغ مرة اخرى ويعتمد الكود على عمود الكمية i اذا كنت تريد الحذف اعلمني بذلك وساعدل الكود الملف المرفق يحتوى على الكود جرب وبلغني بالنتيجة ANT_001T.rar رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر يونيو 2, 2005 الكاتب مشاركة قام بنشر يونيو 2, 2005 (معدل) جميل جدا اخي هنداوي ولك مني كل الشكر ولكن توجد نقطه واحده وهي ان الكود لا يعمل الا اذا انتقلت من ورقة العمل الى ورقه اخرى لاظهار او اخفاء الاسطر حسب القيم الجيده التي ادخلها اخي الكريم جرب في sheet 5 وضع f7=12 f6=1 ولاحظ النتيجه ثم غير القيم لتصبح f7=50 f6=1 لاحظ النتيجه ثم اذهب الى ورقة عمل اخرى وعد لنفس الورقه sheet 5 اعتقد ان تفعيل الكود يجب ان يربط بتغيير قيم f7 و f6 او باضافه زر امر على سبيل المثال run ولقد اضفت زر امر وسميته qout وربطته مع الكود الذي اضفته جزاك الله كل خير وعمل بشكل رائع ولكن بعد ان اغير قيمة f7 او f6 واذهب للضغط على زر qout لا يعمل الا اذا ضغطت بالكيرسر اي مكان خالي اولا ثم اضغط عليه فتكون النتيجه مبهره اريد فقط ان اتخلص من مشكلة الضغط على مكان اخر ثم الضغط على الزر qout وعميق امتناني لك اخ هنداوي تم تعديل يونيو 2, 2005 بواسطه العربي_الحر رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر يونيو 2, 2005 مشاركة قام بنشر يونيو 2, 2005 (معدل) بسم الله الرحمن الرحيم جرب التعديل التالي ولست بحاجة الى زر الامر فقط قمت بتغير الحدث من activate الى change ANT_001T.rar تم تعديل يونيو 2, 2005 بواسطه m.hindawi رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر يونيو 2, 2005 الكاتب مشاركة قام بنشر يونيو 2, 2005 اروع من رائع اخي هنداوي والان علمني اذا تفضلت كيف انسخ ها الكود في ملف اخر وافعله وشكرا مقدما وسامحنا تعبناك رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر يونيو 2, 2005 مشاركة قام بنشر يونيو 2, 2005 (معدل) بسم الله الرحمن الرحيم الكود سهل ما عليك الا انشاء اجراء جديد ولصق الكود التالي بداخله 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 رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر يونيو 3, 2005 الكاتب مشاركة قام بنشر يونيو 3, 2005 جزاك الله كل خير ولكن كيف اعمل اجراء جديد وكيف الصق الكود الثاني في كل ورقه فانا مبتدا اكثر مما تتصور اخي هنداوي :( رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر يونيو 3, 2005 مشاركة قام بنشر يونيو 3, 2005 بسم الله الرحمن الرحيم بعد ان تفتح شاشة محرر فيجوال بيسك من القائمة insert اختار module هذا هو الاجراء الان انسخ الكود الاول والصقة في الشاشة التي تظهر امامك الان انظر الى يسار الشاشة ستجد اسماء الاوراق في ملفك اذا لم تكن ظاهرة فهي موجودة تحت مجلد microsoft excel objects الان لوضع الكود الثاني في اوراق العمل على كل ورقة تريد تطبيق الكود عليها انقر نقرا مزدوجا بالماوس ستفتح شاشة فاغة الصق الكود الثاني فيها وكرر العملية لكل الاوراق التي تريد تطبيق الكود عليها رابط هذا التعليق شارك More sharing options...
العربي_الحر قام بنشر يونيو 3, 2005 الكاتب مشاركة قام بنشر يونيو 3, 2005 ماشاءالله على تفاعلك السريع اخي هندااوي عاجز عن شكرك ولكن جزاك الله خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها