تحديد الخلايا التي بها معدلات

[Akram Galal]

السادة المحترمين

أريد كود يقوم بما يلي

 

إذاكان لدينا في العمود A  أي خلايا تحتوي علي معادلات يقوم بكتابة Y في الخلية المقابلة لها في العمود B

والخلايا التي لا تحتوي علي معادلات في العمود A يقوم بكتابة N في الخلية المقابلة لها في العمود B

وجزاكم الله شكراً .

 

تم تعديل سبتمبر 2, 2013 بواسطه Akram Galal

[عبدالله باقشير]

السلام عليكم

Sub Macro1()
Dim LR As Long, R As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row
For R = 1 To LR
    If Cells(R, "A").HasFormula Then
        Cells(R, "B").Value = "Y"
    Else
        Cells(R, "B").Value = "N"
    End If
Next
End Sub

تحياتي

[أبو حنــــين]

السلام عليكم

استعمل الكود التالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim cl As Range, LR As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
For Each cl In Range("A1:A" & LR)
If cl.HasFormula Then cl.Offset(0, 1) = "Y" Else cl.Offset(0, 1) = "N"
Next

End Sub

[أبو حنــــين]

السلام عليكم

اخي عبد الله المعذرة لم ارى ردك الا بعد ما ارسلت ردي

[Akram Galal]

أستاذي الفاضل عبد الله

أشكرك كثيراً علي مرورك وسرعة درك

ولكني قمت بكتابة الكود ولكن ولم يعمل

أرجوا منكم إضافتة في عمل حتي أعرف ماهو السبب

وجزاك الله خيراً .

[Akram Galal]

أستاذي الفاضل أبو حنين

جزاك الله خيراً

ولك مني كل الشكر علي سرعة ردك

الكود يعمل بكفاءة

وفقك الله

وأكرر شكري للأستاذ عبد الله

علي إهتمامه.

[بن علية حاجي]

السلام عليكم

 

يمكن استعمال كود لدالة مستحدثة للتأكد من مضمون خلية إن كانت تحوي معادلة أم غير ذلك... ويمكن أيضا استعمال المعادلات في ذلك بالطريقة التالية (باعتبار أن القيم التي يتم اختبارها موجودة في العمود A):

* أولا : نقوم بتسمية المعادلة التالية (مع الأخذ بعين الاعتبار اختيار أي خلية من السطر الأول) باسم معين مثلا "Test"

- بالفرنسية:

=LIRE.FORMULE($A1)

- بالإنجليزية:

=GET.FORMULA($A1)

* ثانيا : كتابة المعادلة التالية في أي خلية من أي عمود (العمود B مثلا) :

- بالفرنسية :

=SI(GAUCHE(Test;1)="=";"Y";"N")

- بالإنجليزية :

=IF(LEFT(Test;1)="=";"Y";"N")

وفي الملف المرفق تجد تطبيقا لهذه الطريقة...

 

أخوك بن علية

 

الملف المرفق : File_Test.rar