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

تعبئة الخلايا الفارغة بكلمة معينة


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

إخواني الأعزاء 

بارك الله جهودكم و جعلها فى ميزان حسناتكم

 لدي شيت اكسل به عمودين أحدهما اسم الطالب و الآخر الدرجة أقوم بكتاية الدرجة أمام كل طالب و يوجد بعض الغائبين أترك خلاياهم فارغة أرغب قى عمل زر أمر عند الضغط عليه يقوم بكتابة كلمة غائب فى الخلايا الفارغة دفعة واحدة و لكن بشرط أن تكون الخلية الفارغة التى يكتب فيها غائب يكون مقابلها اسم طالب موجود فعلا و ليس خلية الفارغة أي أنه لا يكتب كلمة غائب فى الخلايا الفارغة التى ليس مقابلها اسم طالب مسجل 

و لكم التحية و التقدير 

Fill blanks.xlsx

رابط هذا التعليق
شارك

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

استخدم هذا الكود

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

 

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

  • أفضل إجابة

بعد اذن اخي ابراهيم 

هذا الكود (من سطر واحد) وبدون حلقات تكرارية

Sub test()
On Error Resume Next
  Range("A2", Range("A1"). _
  End(4)).Offset(, 1). _
  SpecialCells(4).Value = "Abscent"
End Sub

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information