Khalid Jnb قام بنشر نوفمبر 19, 2016 مشاركة قام بنشر نوفمبر 19, 2016 السلام عليكم عندي ملف استخدمت فيه جمله شرطيه عند فتح الاكسيل اريد تطبيق هذه الجمله على الخلايا من (A1:A100) مع التقدير 1.rar رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 19, 2016 مشاركة قام بنشر نوفمبر 19, 2016 اخي خالد ماذا تريد فعلة بالضبط نعني الخلايا A1 تساوي 1 والخلايا A2 تساوي صفر ما هو المطلوب بالضبط رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر نوفمبر 19, 2016 الكاتب مشاركة قام بنشر نوفمبر 19, 2016 السلام عليكم عند فتح الملف اذا كانت اي قيمه من (A1:A100) = ,واحد تظهر الرساله TRUE واذا كانت صفر تظهر الرساله FALSE ملفي يعمل فقط عل الخليه A1 اريد توسيع النطاق ال A100 مع التقدير رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر نوفمبر 19, 2016 مشاركة قام بنشر نوفمبر 19, 2016 (معدل) السلام عليكم ورحمة الله استبدل الكود السابق بهذا الكود 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 بواسطه زيزو العجوز رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر نوفمبر 19, 2016 الكاتب مشاركة قام بنشر نوفمبر 19, 2016 اخي العزيز زيزو المحترم الملف يعمل لكنه ظهرت لي 100 رساله انا عاوز رساله TRUE واحده اذا كانت القيمه 1 ورساله FALSE واحده اذا كانت القيمه صفر او اثنان معا مع التقدير رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر نوفمبر 19, 2016 مشاركة قام بنشر نوفمبر 19, 2016 السلام عليكم ورحمة الله جرب هذا الكود Private Sub Workbook_Open() cell = WorksheetFunction.Sum(Range("A1:A100")) If cell = 100 Then MsgBox "TRUE" Else MsgBox "FALSE" End If End Sub رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 19, 2016 مشاركة قام بنشر نوفمبر 19, 2016 جرب هذا الكود Sub verifacation() x = FormulaArray = "=AND($A$1:$A$100=1)" MsgBox x End Sub رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر نوفمبر 19, 2016 الكاتب مشاركة قام بنشر نوفمبر 19, 2016 السلام عليكم اشكرا لكم اساتذتي الكرام تم حل المشكله مع التقدير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان