استخدام IF في الجمل الشرطيه

[Khalid Jnb]

السلام عليكم

عندي ملف استخدمت فيه جمله شرطيه عند فتح  الاكسيل

اريد تطبيق هذه الجمله على الخلايا  من (A1:A100)

مع التقدير

1.rar

[طلعت محمد حسن]

اخي خالد ماذا تريد فعلة بالضبط نعني الخلايا A1 تساوي 1 والخلايا A2 تساوي صفر ما هو المطلوب بالضبط

[Khalid Jnb]

السلام عليكم

عند فتح الملف 

اذا كانت اي قيمه من (A1:A100)  = ,واحد   تظهر الرساله TRUE  واذا كانت صفر تظهر الرساله FALSE

ملفي يعمل فقط عل الخليه A1  اريد توسيع النطاق ال A100

مع التقدير

[ابراهيم الحداد]

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

استبدل الكود السابق بهذا الكود

Private Sub Workbook_Open()
For R = 1 To 100
x = Range("A" & R).Address
If Range("A" & R) = 1 Then
MsgBox "الخلية" & x & "= TRUE"
Else
MsgBox "الخلية" & x & "=FALSE"
End If
Next
End Sub

 

تم تعديل نوفمبر 19, 2016 بواسطه زيزو العجوز

[Khalid Jnb]

اخي العزيز  زيزو المحترم

الملف يعمل لكنه ظهرت لي 100 رساله

انا عاوز  رساله TRUE واحده اذا كانت القيمه  1

ورساله  FALSE  واحده  اذا كانت القيمه صفر

او اثنان معا  مع التقدير

[ابراهيم الحداد]

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

جرب هذا الكود

Private Sub Workbook_Open()
cell = WorksheetFunction.Sum(Range("A1:A100"))
If cell = 100 Then
MsgBox "TRUE"
Else
MsgBox "FALSE"
End If
End Sub

 

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

جرب هذا الكود

Sub verifacation()
x = FormulaArray = "=AND($A$1:$A$100=1)"
MsgBox x
End Sub

 

[Khalid Jnb]

السلام عليكم 

اشكرا لكم اساتذتي الكرام

تم حل المشكله مع التقدير