اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

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

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

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

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

كتابة تلقائية.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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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