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

هل استطيع اضافة اكثر من 3 تنسيق شرطي 2003


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

شكرا لتجاوبك

عندما ادخل من الشريط لايوجد الا 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 يكون بلون ويساوي بلون وهكذا

يعني بشكل تنسيق الشرطي في نموذج اكسيل

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

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

' ترتيب 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 اقسام لون قبل انتهاء الفتره بخمسه ايام ولون في نفس يوم الانتهاء ولون بعد الانتهاء

اريد اضيف لون لمن انتهاء عقده ومر عليه 45 يوم يعتبر ملغي ولا يتوقع التجديد له

لو لاحضت وجود ماكرو وتنسيق شرطي والخانه A7 تحتوي على معادله هي مركز التعديل

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

الاساتذه الافاضل

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information