هل ممكن وضع معادلة ترى خلية ملونة أو دائرة فى خلية أخرى

[يوسف عطا]

السلام عليكم
هل ممكن وضع معادلة لوضع كلمة معينة تلقائياً فى خلية إذا كانت خلية أخرى بها تظليل أو دائرة ؟؟

[سليم حاصبيا]

  في 7‏/7‏/2019 at 06:01, يوسف عطا said:

السلام عليكم
هل ممكن وضع معادلة لوضع كلمة معينة تلقائياً فى خلية إذا كانت خلية أخرى بها تظليل أو دائرة ؟؟

Expand  

هات مثالاً عما تريد   (الأفضل تضليل لعدم الدخول في مشاكل الــ Shapes ) و خذ ما يدهش العام

[يوسف عطا]

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

كتابة تلقائية.xlsFetching info...

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

 Sub COLORIZE_CELLS()
 Dim CEL As Range
    With Range("B7:K13")
    .ClearContents
    .Interior.ColorIndex = xlNone
    End With
  For Each CEL In Range("L7:U13")
   If CEL <> vbNullString Then
    With CEL.Offset(, -10)
     .Value = CEL
     .Interior.ColorIndex = 6
    End With
   End If
  Next
End Sub

الملف مرفق

Auto Writing.xlsFetching info...

[Ali Mohamed Ali]

أحسنت أستاذ سليم بارك الله فيك وزادك الله من فضله

[يوسف عطا]

  في 7‏/7‏/2019 at 16:31, سليم حاصبيا said:

جرب هذا الكود

Option Explicit

 Sub COLORIZE_CELLS()
 Dim CEL As Range
    With Range("B7:K13")
    .ClearContents
    .Interior.ColorIndex = xlNone
    End With
  For Each CEL In Range("L7:U13")
   If CEL <> vbNullString Then
    With CEL.Offset(, -10)
     .Value = CEL
     .Interior.ColorIndex = 6
    End With
   End If
  Next
End Sub

الملف مرفق

Auto Writing.xls 41 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

Expand  

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

  في 7‏/7‏/2019 at 16:47, Ali Mohamed Ali said:

أحسنت أستاذ سليم بارك الله فيك وزادك الله من فضله

Expand  

السلام عليكم على بك
توقعت ان تشارك فى الموضوع بمعادلات
اهلا وسهلا بك

[سليم حاصبيا]

  في 7‏/7‏/2019 at 21:27, يوسف عطا said:

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

السلام عليكم على بك
توقعت ان تشارك فى الموضوع بمعادلات
اهلا وسهلا بك

Expand  

لا يمكن لاي معادلة ان تعطي اي تنسيق للخلية او الخلايا (من لون أو خط ....الخ)

على أمل ان تقوم المايكرو سوفت بعمل هكذا خاصية للمعادلات مرجعنا الاول والاخير هو الـ ـVBA

 

[يوسف عطا]

  في 7‏/7‏/2019 at 21:31, سليم حاصبيا said:

لا يمكن لاي معادلة ان تعطي اي تنسيق للخلية او الخلايا (من لون أو خط ....الخ)

على أمل ان تقوم المايكرو سوفت بعمل هكذا خاصية للمعادلات مرجعنا الاول والاخير هو الـ ـVBA

 

Expand  

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

[سليم حاصبيا]

  في 7‏/7‏/2019 at 21:40, يوسف عطا said:

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

Expand  

المعادلة لا تكتشف اي تنسيق ولا تعرف ولا تتعرف على لون الخلية او نوعية الخط فيها او قياسة او اي تنسيق اخر

انها تنظر فقط الى محتوى خلية معينة او نطاق معين بغض النظر عن التنسيق Bold Font,Underline ,.interior Color الخ....)

مثلاً     معادلة IF  تجيبنا عن سؤال (هل الخلية  A5 تساوي 3  او  أكبر من 10 او تحتوى على نص معين او فارغة)

لماذا  نطلب من المعادلة ما لا تقدر ان تقوم به

كيف تقول للمعادلة اذا كان لون الخلية الفلانية احمر اعطني  "OK"   والا اعطني "No Red" مثلاً

ربما هذا الكود يقوم بذلك

Private Sub Worksheet_Change(ByVal Target As Range)
Dim CEL As Range
 Application.EnableEvents = False
  If Not Intersect(Target, Range("L7:U13")) Is Nothing _
  And Target.Count = 1 Then
  Range("B7:K13").ClearContents
   For Each CEL In Range("L7:U13")
     If CEL.Offset(, -10).Interior.ColorIndex = 6 Then
       CEL.Offset(, -10) = CEL
      End If
     Next
   End If
   Application.EnableEvents = True
End Sub

 

Auto Writing1.xlsFetching info...