استفسار بخصوص الدالة الشرطية IF

[كريم الفلسطيني]

سلام

  لدي سؤال لو بالامكان..

لدي استفسار بخصوص الدالة الشرطية IF

كنت سالت من قبل هذا السؤال و لكن قيل لي ان ما تبحث عنه مستحيل.

. سؤالي هو :

كيف يمكن كتابة الخاصية لو مررتها على الخلية تعطي:

- اذا كان في الخلية B2 حرف R اعطي في الخلية D2 الرقم 1

 - اذا كان في الخلية B3 حرف R - باللون الاحمر مثلا (font color)- اعطي في الخلية D3 الرقم 1 يكون ايضا باللون الاحمر.

- اذا كان في الخلية B4 حرف R في خلية باللون الازرق مثلا (fill color) . اعطي في الخلية D4 الرقم 1 و تكون الخلية باللون الازرق .

 

هل هذا ممكن . اتاسف على الاطالة شكرا جزيلا اخي و بارك الله فيك

New Picture.bmp

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

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim My_range As Range
Dim lr As Long
lr = Sheets("sheet1").Cells(Rows.Count, 2).End(3).Row + 1
Set My_range = Range("b1:b" & lr)
If Target.Column = 2 And Target.Count = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
colorize

Application.ScreenUpdating = True
Application.EnableEvents = True
  End If
  Application.ScreenUpdating = True
  Application.EnableEvents = True
End Sub
Sub colorize()
Dim My_range As Range
Dim lr As Long
lr = Sheets("sheet1").Cells(Rows.Count, 2).End(3).Row + 1
Set My_range = Range("b1:b" & lr)
 For i = 1 To lr
 Range("b" & i).Copy
 Range("d" & i).PasteSpecial Paste:=xlPasteFormats

Next
Application.CutCopyMode = False
End Sub

جرب هذا الماكرو

 

[كريم الفلسطيني]

شكرا الاخ على الرد

في الحقيقة الكود فقط اشتغل بالنسبة للخلفية ......فلون اي خلية باللون الازرق

 

و لكن انا سالت كخاصية امررها بشكل عادي على اي خلية ... يعني انا وضعت الخلايا B و D كمثال فقط

مثلا تطوير الخاصية التالية لجعلها تشمل لون الخلية و لون الكتابة .

=

IF(ISNUMBER(FIND("R",B2)),"1")a