اوفيس 2003

مشكور اخي هاني ولكني من عشاق 2003

جزاك الله كل خيــــــــــــــــر جاري التجربة والرد

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

اكثر من راااااااااااااااااائع

للرفع

تمام اكثر من رااااااااااااائع لكن تقابلني مشكلة وهي كيف لي ان اعملها على صفوف متفرقة ومتباعده وليست متتاليه اخي الغالي

لا يقبل معي اخي

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

لدي ملف اكسل بع العديد من الأعمده عمود ما منهم اكتب به العديد من الأصناف وليكن 1000 صنف مثلا طبعا الأعمده مفصوله بجداول وفراغات وخلافه وانا على حد علمي الضئيل ان التكمله التلقائية من الإكسل في الصف التالي او اللي بعده انا اريد يكون هناك اكمال تلقائي من الإكسل للعمود كله وبدون عمل قائمة وخلافه كيف اقوم بذلك Test 1.rar

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

اتفضل اخي الغالي TEST.rar

لدي ملف اكسل واريد ان اضع اكثر من 3 تنسيقات شرطية بحيث لو تحققت يوضع التنسيق اللي انا محدده مالحل حيث ان البرنامج 2003 يسمح ب 3 شروط فقط وسؤال اخر لو تكرمتم ما رأيكم لو غيرت استخدامي للأوفيس 2003 ب 2007 او 2010 وجزاكم الله كل خيـــــــر

جزاك الله خير نحتاج فعلا لشرح ماقمت به

وصلت وجزاك الله كل خيــــــــــــر

للرفع

جزاك الله كل خيـــــر فعلا حذفت التعليق وتم قبول التجميع لي طلب اخر يا غااااالي افترض ان لي جدول اريد تجميع عمودين متباعدين فيه كيف اقوم بذلك حيث اني عندما اختار الدالة SUM واحدد المدى الذي اريده للجمع لا يقبل معي لذلك لا اجد الا طريقة وهي تجميع العمود الأول بمفرده ثم اخد حاصل الجمع واجمعه على حاصل جمع العمود الثاني جزاك الله كل خيــــــر

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

UPUPUPUP

UPUPUP

راااااااااااااااائع وهذا ما يريده الواحد ان يتعلمهبهذا الإسلوب

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

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

لو تكرمت اخي عادل ياليت لو تشرح لي معنى هذل الكود ، حيث اني اريد الجدول يأخذ صفوف اكثر وان يكون الجداول في الصفحات متتالية للأسفل وليس متجاورة Sub go() Sheets("جدول الأرقام المرسل").Range("A5:K30") = "" n = 1 s = Sheets("تصفيه").Range("A2").End(xlDown).Row For i = 2 To s If Sheets("تصفيه").Cells(i, 1) <> "" Then x = 2 1: With Sheets("جدول الأرقام المرسل").Columns(x).Rows(30).End(xlUp) If Sheets("جدول الأرقام المرسل").Cells(30, x) <> "" Then x = x + 2 GoTo 1 Else .Offset(1, -1) = n .Offset(1, 0) = Sheets("تصفيه").Cells(i, 1).Value End If End With End If n = n + 1 Next End Sub

مشكور اخي الغالي عادل ترحيل اكثر من راااااااااااااائع ولكن عند التجربة على 23 رقم بينهم رقم واحد فقط مكرر وجدت ان النتيجة ظهرت في الجدول النهائي 20 لماذا ؟؟ وجربتها مرة اخرى وظهر في الجدول رقم واحد فقط في الجدول وهكذا بما يعني ان الدالة تريد تظبيط برجاء الشرح اكثر واكثر لها ربما استطيع التعديل عليها ولو هناك حلول اخرى ياليت اخواني ترفعوها لي

مشكور على الرد ولكن لم استطيع الوصول الى الحل اخي الغالي