للمعلمين أربط علامة الطالب بوجه ضاحك أو عابس ويمكن طباعتها

[m_127899]

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

إليكم ملف قوموا بالتعديل عليه .........قطعوه ب.........................الكودات والمعادلات واعملوا اللازم فيه بدون نقطة دم واحدة

__________.rar

[سالم شباني]

السلام عليكم

فكرة جديدة بالنسبة لي

فقط نرجو تشريح الملف من الأخصائيين فلكل مهنته

جزاك الله خيرا أخي الفاضل m_127899

تم تعديل يوليو 14, 2009 بواسطه سالم شباني

[مصطفى كمال]

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

يمكن ذلك من خلال الخط wingdings

J للوجه الضاحك

L للوجه بدون تعبير

K للوجه العابش

فمثلا

العلامات الأقل من3 وجه عابس

العلامات الأقل من 5 والأكثر من 3 وجه بدون تعبير

العلامات الأكثر من 5 وجه ضاحك

اكتب الفورم التالي

 =IF(A1<3,"L",SI(A1>5,"J","K"))

[مصطفى كمال]

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

تم رسم الشكل عن طريق VB

تم التحكم في الفم عن طريق شكل تم التحكم فيه حسب معادلة تحدد حسب قيم H3

ثم يتم رسم شكل الفم حسب معادلة وهي

  = 0.7181 + Target.Value / 1000

حيث Target.Value تنحصر القيم بين 0.7 و 0.9 حيث الكود هو كالتالي

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errHandler

If Target.Address = "$H$3" Then
  Application.EnableEvents = False
'    min is 0.7181
'    max is 0.8111
  Select Case Target.Value
    Case 0
      Shapes("HappyFace").Adjustments.Item(1) = 0.7
    Case 50
      Shapes("HappyFace").Adjustments.Item(1) = 0.767
    Case 100
      Shapes("HappyFace").Adjustments.Item(1) = 0.9
    Case Else
      Shapes("HappyFace").Adjustments.Item(1) _
        = 0.7181 + Target.Value / 1000
  End Select
End If

exitHandler:
  Application.EnableEvents = True
  Exit Sub

errHandler:
  MsgBox Err.Number & " " & Err.Description
  GoTo exitHandler
End Sub

[حسين بلال]

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

جزاكم الله خيراً ورضاً وسروراً