طالب مدرسة أوفيسنا

السؤال عملية فرز تعتمد على عمود البيانات لدي بالعرض يعني بالصفوف وعمود A رقم اريد اعمل فرز تنازلي وتصاعدي يكون المركز عمود A وفي تتغير باقي الاعمده بحسب تغير العمود A

شكرا لكم ياشباب بعد عدة محاولات الحمد لله استطعت من تشغيله بشكل صحيح اكرر شكر

هذا الكود من عمل الاستاذ هشام شلبى Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Select Case Target Case 1 To 5 icolor = 6 Case 6 To 10 icolor = 12 Case 11 To 15 icolor = 7 Case 16 To 20 icolor = 53 Case 21 To 25 icolor = 15 Case 26 To 30 icolor = 42 Case Else 'Whatever End Select Target.Interior.ColorIndex = icolor End If End Sub

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

تم حل المسألة بطرؤيقه مختلف شكرا للجميع

بشكل مختصر عامل فرز بستخدام دالة IF(B9+5=D9;1= الفرز يعمل بشكل جيد المطلوب +5 +4 +3 +2 يعني B9 + اين من 5 او 4 او3 يعطيه صلاحية 1 في الترتيب

عمل رائع شكرا استاذ ايسم

استاذ ايسم b بدية العقد c فترت التجديد d بدية العقد + فترت التجديد باختصار المثال يعمل بشكل ممتاز حين يتم ادخل d بشكل يدوي المشكله لمايكون مرتبط بمعادله مثل d=b+c لايعمل ويصير فيه مشكله في الخانه A مركز المعادله

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

اخي ايسم ساعدني عملك ممتاز جدا حاولة اصيف بعض1.rar الاضافات بما يتناسب مع احتياجاتي واجهتني مشكله مختصره في الصف رقم 7 ارجو القاء نظره

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

استاذ هشام شكرا لتجاوبك هذا الملف المطلوب تعديله1.rar

انا استخد هذا الماكرو وايضا التنسيق الشرطي هل يمكن الجمع بينه وبين الكود اعلاه مع الشكر ' ترتيب Macro ' Macro recorded 10/02/2010 by aysam ' ' Range("A7:H31").Select Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("A1").Select End Sub

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

شكرا لتجاوبك عندما ادخل من الشريط لايوجد الا 3 وجدة كود لك لم اعرف كيف اتعامل مع هل يوجد شرح وشكرا Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Select Case Target Case 1 To 5 icolor = 6 Case 6 To 10 icolor = 12 Case 11 To 15 icolor = 7 Case 16 To 20 icolor = 53 Case 21 To 25 icolor = 15 Case 26 To 30 icolor = 42 Case Else 'Whatever End Select Target.Interior.ColorIndex = icolor End If End Sub

كيفكم شباب كماهو واضع في العنوان هل استطيع اضافة اكثر من 3 تنسيق شرطي لإكسيل 2003 كما في اكسيل 2007 ارجو شرح الطريقه إذا كان ممكن

شكرا اخوي لسعت صدرك تعبتك معي كلي ثقه بان اجد الجواب وهاهو على طبق من ذهب اشكرك بشكل خاص واشكرالقائمين على هذا المنتدى دون استثناء وإلا الامام دائما مع تمنياتي لكم بالتوفيق

اعذرني للتأخير نعم هذا هو المطلوب لو سمحت شرح هذا الكود لكي افهمه واستخدمه بشكل موسع لما يناسبني Sub ترتيب() ' ' ترتيب Macro ' Macro recorded 10/02/2010 by aysam ' ' Range("A7:D31").Select Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("A1").Select End Sub

شكرا لك وصلت المعلومه بخصوص الفرز باللون هل يمكن في 2003

اخي كيف فعلت هذا بكود ام ماذا

شكرا لك اخوي ايسم ابراهيم الطلب الثاني الترتيب والفرز حسب الون والبيانت هي التاريخ فقط يعني باقي 5 ايام يكون في الاعلى وتلقائيان يختلف الترتيب مع اختلاف اللون واكيد طبيعي يكون الباقي من الايام اختلف ايضاالحكمه من هذا الفرز هو كثرت المستأجرين بأرقام كبيره جدا لذلك اوريد ترتيب القريبين من الانتهاء لكي يتم العامل معهم ارجو اذا ممكن عملها وشكرا لك

وهذا رابط الطلب http://www.up-00.com/dldsZ844181.rar.html

السلام عليكمورحمة الله وبركاته كيفكم ياشباب انشاء الله بصحه وعافيه عندي ملف مرفق متعبني شوي وكالعاده كل ماصعب علي شي اعود لاوفيسنا الموقع العربي الاول للإكسيل مرجع لجميع المحاسبين العرب الذي لانستغني عنه اترككم مع المطلوب بالمرفقات واشكركم مقدما للجهدكم المبذول والمقدر والمحترم من قبلنا 1.rar

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

الاخوه الاساتذه ابو اسامة العينبوسي TareQ M نزار سليمان عيد تشرفت بردودكم الف شكر وكثر الله من امثالكم