هل يمكن استخدام IF مع FORMAT

[ابن سيناء]

سلام عليكم

انا اعرف دالة IF جيدا واعمل بها كثيرا

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

يعنى اخلى اكسل يكتب واحد اذا كان الفونت الموجود فى خليه معينه مثلا بولد ولونه احمر

لو حد دلنى يبقى له جزيل شكرى

والسلام عليكم ورحمة الله

[ابو اسامة العينبوسي]

السلام عليكم

استخدم الكود التالى

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 1 To 2
If Range("b" & i).font.Bold And Range("b" & i).font.ColorIndex = 3 Then
Range("a" & i) = 1
Else
Range("a" & i) = 2
End If
Next
Application.EnableEvents = True
End Sub

Book189.rar

[طارق محمود]

السلام عليكم

أخي العزيز ابن سيناء

أظن أنه لابد من إستخدام دوال خاصة

بالمرفق إستخدمت دالتين خاصتين بالفيجيوال بيسيك

الأولي color_Nu تعطي رقم اللون

والثانية chk_Bold تعطي حالة الفونت (بولد أم لا)

ثم بعد ذلك تستخدم الدالة علي هذين النتيجتين ويمكنك إخفاء الأعمدة الصفراء بالمرفق

طارق

Function color_Nu(a As Range) As Integer
color_Nu = a.Font.ColorIndex
End Function
Function chk_Bold(a As Range) As Integer
chk_Bold = a.Font.Bold
End Function

To_Ibn_Seena.rar

[طارق محمود]

معذرة أخي ابو اسامة

لم أري ردك إلا بعد تجهيز الرد

ولابأس من زيادة الخير

طارق

[ابو اسامة العينبوسي]

Function IsBold(cell) As Integer
If cell.Font.Bold And cell.Font.ColorIndex = 3 Then
IsBold = 1
Else
IsBold = 2
End If
End Function

اخي طارق

كل رمضان و انت طيب

[ابن سيناء]

انا عاجز عن الشكر

شكرا لكرمكم الحاتمى ووقتكم الذى سخرتموه لخدمتى

صحيح اخوة كرام

سلام الله عليكم ورحمته وبركاته