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

عبدالسلام ابوالعوافي

الخبراء
  • Posts

    342
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    6

عبدالسلام ابوالعوافي last won the day on نوفمبر 10 2018

عبدالسلام ابوالعوافي had the most liked content!

السمعه بالموقع

284 Excellent

6 متابعين

عن العضو عبدالسلام ابوالعوافي

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مهندس
  • البلد
    سرت - ليبيا
  • الإهتمامات
    Excel

اخر الزوار

5,287 زياره للملف الشخصي
  1. شاهد المرفق الكود Function RESULTA(rng As Range) As String Application.Volatile Dim c As Integer Dim r As Integer Dim str As String Dim subj As String c = rng.Column r = rng.Row subj = Cells(2, c - 3).Text str = "راسب في مادة " & subj & " " If Cells(r, c) = "غ" Then str = str & "بسبب غيابه في العملي و" If Cells(r, c + 1) = "غ" Then str = str & "بسبب غيابه في التحريري و" If Cells(r, c) < Cells(9, c) Then str = str & "لعدم حصوله علي ربع الدرجة في العملي و" If Cells(r, c + 1) < Cells(9, c + 1) Then str = str & "لعدم حصوله علي ربع الدرجة في التحريري و" If Cells(r, c + 2) < Cells(9, c + 2) Then str = str & "لعدم حصوله علي ربع الدرجة في الكلية و" str = Left(str, Len(str) - 2) If Len(str) < 20 Then str = "ناجح" RESULTA = str End Function المصنف1.xlsm
  2. بعد اذنكم .. جرب الصيغة الاتية =IF(E8<25;"ربع عملي";IF(E8="غ";"غياب عملي";""))&" "&IF(F8<25;"ربع تحريري";IF(F8="غ";"غياب تحريري";""))&" "&IF(G8<25;"ربع كلية";IF(G8="غ";"غياب كلية";""))
×
×
  • اضف...

Important Information