كيف تجعل الرقم الذي بالخلية يومض

محارب الاسهم 1 · يونيو 22, 2007

ارجو الافادة يستفيد الجميع

atikallah · يونيو 22, 2007

تنسيق ثم تنسيق شرطي

تم تعديل يونيو 22, 2007 بواسطه atikallah

محارب الاسهم 1 · يونيو 23, 2007

بعد اذنك لو تعطينا مثال حي

تنزله في المرفقات نكون لك من الشاكرين

وائل يونس سلامي · يونيو 24, 2007

أخي الكريم أنظر الملف المرفق

وجدته في إحدى المشاركات من إخواني في المنتدى للأسف لا أذكر اسمه

وبكل الأحوال جزاه الله ألف ألف خير

محارب الاسهم 1 · يونيو 24, 2007

الله يجزاك الف خير اخي wael salami

بس نبغي الطريقة

عشان ننفذها على الملف حقنا

ولكي يستفيد جميع الاعضاء من الطريقة

واكرر شكري لمتابعتك الموضوع

وائل يونس سلامي · يونيو 24, 2007

أخي الكريم اكتب الكود التالي في محرر الفيجوال بيزيك

على الشكل التالي :

أدرج module

أكتب الكود التالي :

Public Sub Blink()

Dim Rng As String

If Range("A2") > 4 Then Rng = "C2" Else Rng = ""

If Range("B2") > 6 And Rng <> "" Then Rng = Rng & "," & "F3" Else If Range("B2") > 6 And Rng = "" Then Rng = "F3"

If Range("A7") > 10 And Rng <> "" Then Rng = Rng & "," & "N1" Else If Range("A7") > 10 And Rng = "" Then Rng = "N1"

If Rng = "" Then Exit Sub

'And Rng <> "" Then Exit Sub Else Rng = "N1"

With Sheets(1).Range(Rng).Interior

If .ColorIndex = 2 Then

.ColorIndex = 3

Else

.ColorIndex = 2

End If

End With

appTime = Now() + TimeValue("00:00:01")

Application.OnTime appTime, "Blink"

End Sub

ثم اكتب الكود الثاني

Sub Macro1()