الاكسل فى امتحان ( درس تعليمى )

[مختار حسين محمود]

السلام عليكم اخوانى فى المنتدى

حد من زملائى بيقول ايه الاكسل ده اللى واكل دماغك

قلت الاكسل بحر عميق  وكريم تديه معلومه  يديك مليون

 وجاتنى الفكره دى تخيلت ان الاكسل طالب دخل امتحان فى كل المواد عربى وانجليزى وحساب وكتابه وقراءة  وخط عربى وموسيقى 

ادخل على الرابط التالى وشوف الاكسل عمل ايه فى الامتحان  .

 

http://www.mediafire.com/download/bcg2es19ovi9b54/excell_in_exam_by_mokhtar_1.rar

 

الاكواد المستخدمة مع بعض الشرح :

'الكود التالى يوضع فى حدث الورقة
'هذا الكود لاظهار شريط عنوان متحرك فى الخلية ( f2)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
t = "  اعمل لدنياك كأنك تعيش أبدا واعمل لآخرتك كأنك ستوت غدا "

  
n = 0
Do While n < 5000
t = Right(t, Len(t) - 1) & Left(t, 1)
[f2] = t
w = 0.1
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop

End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'الكود التالى يوضع فى مديول
'هذا الكود لنطق الخلية النشطة

Sub mokh_speak()
' record by mokhtar 11/12/2014  3:48
'الاستماع للصوت عن طريق speechcommands
' هذا البرنامج يتوفر فى ويندوز 8 و 7 

' اختيار القطاع ( الخلية ) النشطة ونطقها
   
       ActiveCell.speak
 ' يمكن اضافة هذه الرسالة على الكود
      
OutPut = MsgBox("صح ولا غلط يامخ؟", vbOKOnly, "مع تحياتى/ مختار حسين")

End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'هذا الكود لاحضار الداتا المكتوبه فى خليه أو خلايا من نفس الشيت 
'يمكنك تعديله لاحضار الداتا من شيت آخر باضافة اسم الشيت الى المدى 

   Sub mokh_what()

MsgBox Range("m27") & vbNewLine & Range("m28") & vbNewLine & Range("m29") & vbNewLine & Range("m30") & vbNewLine & Range("m31") & vbNewLine & Range("m32")
End Sub



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'الكود التالى لوضع او نسخ محتوى خليه فى اخرى

Sub mokh_Write()

Cells(18, 8) = Cells(15, 8)

End Sub


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'الكود التالى  يضم عدة أكواد  لتشغيل اصوات ذات امتداد يسمى ويف
'هذه الاصوات لكى تعمل لازم تكون فى نفس مسار ملف الاكسل
'ولازم يكون اسم الصوت موضح فى الكود لتشغيله 

Public Declare Function PlaySound Lib "winmm.dll" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Dim RunPause As Boolean

Sub Sound_1()
' لتشغيل سورة الاخلاص
Call PlaySound(ThisWorkbook.Path & "\ekhlas.wav", 0&, SND_SYNC)

End Sub
Sub Sound_123_sync()
Call PlaySound(ThisWorkbook.Path & "\one.wav", 0&, SND_SYNC)
Call PlaySound(ThisWorkbook.Path & "\two.wav", 0&, SND_SYNC)
Call PlaySound(ThisWorkbook.Path & "\three.wav", 0&, SND_SYNC)
End Sub

Sub song()
' لتشغيل اغنيه باسم song
Call PlaySound(ThisWorkbook.Path & "\song.wav", 0&, SND_SYNC)
End Sub

Sub song2()
' لتشغيل صوت رنة الموبايل
Call PlaySound(ThisWorkbook.Path & "\ranna.wav", 0&, SND_SYNC)
End Sub

Sub song3()
' لتشغيل دعاء البراك
Call PlaySound(ThisWorkbook.Path & "\doaa.wav", 0&, SND_SYNC)
End Sub


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'الكود التالى   لتشغيل اصوات تشبه السلم الموسيقى


Private Declare Function Beep Lib "kernel32" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub Beep_1()
DoEvents            'first value is the frequency in Hz
Beep [B21], 1000    'second value is the sound duration in ms
End Sub

Sub Beep_steps()
    For i = 1 To 30
    DoEvents
    [h49] = 200 * i   ' فى هذه الخليه يظهر الرقم المساوى للصوت
    Beep 200 * i, 400 'Beep "frequency" "duration"
    DoEvents
    Next i
End Sub


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
والسلام عليكم  أرجوا أن ينال الملف اعجابكم
وأن تعتبروه فى المقام الأول درس تعليمى وليس لمجرد التسليه أو الفكاهة

تم تعديل ديسمبر 21, 2014 بواسطه مختار حسين محمود

[صلاح الدين المصلح]

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

[محمد يوسف محمد1]

بجد رائع

ايه الجمال ده

[حمادة عمر]

موضوع جميل و راااائع

تقبل خالص تحياتي

[ياسر خليل أبو البراء]

شكلك بتخطط يا أخ مختار تاخد مني لقب فاكهة المنتدى ..

بصراحة في منتهى الروعة يا مختار ..تسلم وعشت يا لذيذ يا رايق (أكيد كنت بتشرب سفن أب وإنت شغال ع الملف ده)

تقبل تحياتي

[مختار حسين محمود]

الأخ صلاح   السلام عليكم

     lib      المذكور فى الجزئية

Private Declare Function Beep Lib "kernel32                 " _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

أ ول كلمة هي private     وهي تحدد مدى  وظيفة او اجراء
ثاني كلمة هي Declare    و   هي كلمة للإعلان عن دوال (الـ API ) يمكنك البحث عنها فى النت
ثالث كلمة هي Function     وهي تدل على أننا سنعلن عن وظيفة او داله( كذا ).
رابع كلمة هي Beep     وهو اسم هذه الوظيفه   وهى تستخدم للتنبيه أو إصدار صوت.
بعد ذلك   "Lib "kernel32   وهي تحدد اسم المكتبة التي سنأخذ منها هذه الوظيفة،    و  الكلمة Lib هي اختصار لكلمة مكتبة Library ..

فى جهازك وكل الاجهزة  بوجد العديد من المكتبات    المكتبات دى  توجد فى نسخة الويندوز فى ال c  

على سبيل المثال المكتبة gdi32 ،    kernel32    ، user32 ،....ألخ     هذه المكتبات  بها ملفات مشهوره تسمى dll  تستخدم فى تشغيل واستدعاء البرامج .

( اوعى تحذف الملفات دى ...... النسخة تسقط منك )

أما ما بداخل القوسين  معناه أنه يتم تمرير المتغيرات المطلوبة من قبل الوظيفة . و يتم الإشارة إليها بالكلمة ByVal وليس ByRef لأننا نود تمرير القيمة فقط

وكفايه كده عليك . كمل أنت وابحث عن داله التنبيه .

تم تعديل ديسمبر 21, 2014 بواسطه مختار حسين محمود

[مختار حسين محمود]

الاستاذ الفاضل / محمد يوسف    أسأل الله عزوجل أن يعزك كما أعز سيدنا يوسف 

وبارك الله فيكم وشكرا على مروركم الكريم

 

الاستاذ الفاضل / حماده عمر  أسأل الله عزوجل أن يجملك بأخلاق الفاروق

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

 

الاستاذ الفاضل / ياسر خليل  أسأل الله عزوجل أن تكون خليلا للمصطفى  ( صلى الله عليه وسلم ) فى الجنة ونحن معك أجمعين

بارك الله فيك وشكرا على مرورك الكريم ( أنا شربت سفن وإيت وناين وتن وإلفن .... يا ألذ منى و بلاش   )

 

تم تعديل ديسمبر 21, 2014 بواسطه مختار حسين محمود