خالد العنود قام بنشر أبريل 10, 2020 مشاركة قام بنشر أبريل 10, 2020 إخواني الأعزاء بارك الله جهودكم و جعلها فى ميزان حسناتكم لدي شيت اكسل به عمودين أحدهما اسم الطالب و الآخر الدرجة أقوم بكتاية الدرجة أمام كل طالب و يوجد بعض الغائبين أترك خلاياهم فارغة أرغب قى عمل زر أمر عند الضغط عليه يقوم بكتابة كلمة غائب فى الخلايا الفارغة دفعة واحدة و لكن بشرط أن تكون الخلية الفارغة التى يكتب فيها غائب يكون مقابلها اسم طالب موجود فعلا و ليس خلية الفارغة أي أنه لا يكتب كلمة غائب فى الخلايا الفارغة التى ليس مقابلها اسم طالب مسجل و لكم التحية و التقدير Fill blanks.xlsx رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أبريل 10, 2020 مشاركة قام بنشر أبريل 10, 2020 السلام عليكم ورحمة الله استخدم هذا الكود Private Sub CommandButton1_Click() Dim C As Range For Each C In Sheet1.Range("A2:A" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row) If IsEmpty(C.Offset(0, 1)) Then C.Offset(0, 1).Value = "غ" End If Next End Sub 2 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أبريل 10, 2020 أفضل إجابة مشاركة قام بنشر أبريل 10, 2020 بعد اذن اخي ابراهيم هذا الكود (من سطر واحد) وبدون حلقات تكرارية Sub test() On Error Resume Next Range("A2", Range("A1"). _ End(4)).Offset(, 1). _ SpecialCells(4).Value = "Abscent" End Sub 1 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 10, 2020 مشاركة قام بنشر أبريل 10, 2020 شاهد هذا الفيديو https://www.youtube.com/watch?v=hElkHVLg7a4 1 رابط هذا التعليق شارك More sharing options...
عبدللرحيم قام بنشر أبريل 10, 2020 مشاركة قام بنشر أبريل 10, 2020 تفضل جرب الكودين بأزرار التنفيذ Fill blanks.xlsm 1 رابط هذا التعليق شارك More sharing options...
خالد العنود قام بنشر أبريل 10, 2020 الكاتب مشاركة قام بنشر أبريل 10, 2020 شكرا لك استاذ عبد الرحيم و كل الأخوة الأفاضل ما قصرتو الله يحفظكم 1 رابط هذا التعليق شارك More sharing options...
عبدللرحيم قام بنشر أبريل 10, 2020 مشاركة قام بنشر أبريل 10, 2020 الفضل لأصحاب الفضل ابراهيم الحداد / سليم حاصبيا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها