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

[يوسف عطا]

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

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

28 دقائق مضت, يوسف عطا said:

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

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

[يوسف عطا]

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

كتابة تلقائية.xls

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

جرب هذا الكود

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

[Ali Mohamed Ali]

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

[يوسف عطا]

4 ساعات مضت, سليم حاصبيا 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

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

4 ساعات مضت, Ali Mohamed Ali said:

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

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

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

1 دقيقه مضت, يوسف عطا said:

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

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

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

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

 

[يوسف عطا]

2 دقائق مضت, سليم حاصبيا said:

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

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

 

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

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

32 دقائق مضت, يوسف عطا said:

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

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

انها تنظر فقط الى محتوى خلية معينة او نطاق معين بغض النظر عن التنسيق 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.xls