كيف يمكن عمل ازار اوامر في اكسل

[الباحث عن كل جدي]

بسم الله الرحمن الرحيم

الى اخواني الاعزاء في المنتدى ارجو مساعدتي لتعلم عمل ازرار اوامر مثال

اضغط على زر ياتي لي بالعشرة الاوائل

اضغط على زر يعطي لي مثلا الناجحين اولا وهكذا ارجوا المساعدة وجزاكم الله خيرا

واليكم ملف به ازرار واريد كيف يمكن عملها

__________.rar

تم تعديل يونيو 16, 2008 بواسطه الباحث عن كل جدي

[عادل جلال]

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

الأخ / صابر

لقد قمت بإعادة رفع الملف بعد تعديل خلية الحاسب الآلى فى أول شهادة لآخر العام

حسب المعطيات التى زوتنى بها بصفتك تنتمى إلى التعليم الإبتدائى .

وأى طلب فى البرنامج .... أنا حاضر بإذن الله

ولمعرفة عمل الأزرار فك الحماية وكليك يمين على الزر وأقرأ الكود

باسورد الورقة( 123)

باسورد الفيجوال(adel66)

وإليك هذا الموضوع لأستاذى/ أكرم الغامدى سوف يفيدك جداَ بأذن الله

http://www.officena.net/ib/index.php?showt...p;hl=تعلم+بنفسك

__________.rar

[محمد فيروز]

ما هذا الجمال الذى ما رأت عينه مثله

كل أملى فى هذا الوقت هو أن أفهم هذا البرنامج

أنا أعلم أن هذا طلب صعب ولكن أعلم كرمك الزائد

فأتمنى من حضرتك أن تشرح لى خطوات عمل مثل هذا البرنامج

ولك جزيل الشكر

[محمد فيروز]

يقول إن باسورد الفيجول خطأ

[عادل جلال]

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

الأخ / محمد فيروز

با رك الله فيك

الباسورد صحيح تأكد من أن لغة لوحة المفاتيح إنجليزية

الأخ/ صابر

الأخ/ محمد

بالنسبة لعمل البرنامج كالآتى :-

بعد الدخول على صفحة إدخال بيانات الطلبة وفك الحماية (123)

كليك يمين على زر نسخ البيانات بعدد الطلاب تظهر نافذة نختار -تحرير - (Edit)

تظهر نافذة الفيجوال بيزك بها مجموعة من الموديولات والماكروهات والزر السابق يخص الكود الآتى:-

Sub MacroFil1()
Application.ScreenUpdating = False
Sheets("بيانات الطلبة").Range("a7:o7").Select
     Selection.AutoFill Destination:=Range("a7:o" & ['الرئيسية'!s12] + 6)
    Sheets("رصد نصف العام").Select
    Range("a7:n7").Select
     Selection.AutoFill Destination:=Range("a7:n" & ['الرئيسية'!s12] + 6)
    Sheets("ملف الإنجاز1 ").Select
    Range("a7:k7").Select
     Selection.AutoFill Destination:=Range("a7:k" & ['الرئيسية''!s12] + 6)
    Sheets("رصد آخر العام ").Select
    Range("a7:cd7").Select
     Selection.AutoFill Destination:=Range("a7:cd" & ['الرئيسية'!s12] + 6)
     Sheets("بيانات الطلبة").Select
    Range("A4").Select
 Application.ScreenUpdating = True
End Sub

السطر الأول فى الكود هو اسم الماكرو السطر الثانى هو إلغاء تحديث الشاشة (الغاء مشاهدة تنفيذ الماكرو) السطر الثالث تحديد البيانات الموجودة فى أول صف من صفوف بيانات الطلاب من الخلية (a7)إلى الخلية (o7) السطر الرابع نسخ المعادلات والدوال الموجود فى المدى السابق بعدد الطلاب الموجود فى الصفحة الرئيسية من السطر الخامس حتى السطرالثالث عشر تكرار نفس عمليتى التحديد والنسخ فى الصفحات ( رصد نصف العام - ملف الإنجاز1 - رصد آخر العام ) حتى تكون الصفحات جاهزة لأستقبال وربط البيانات السطر الرابع عشر الرجوع إلى صفحة بيانات الطلبة السطر الخامس عشر الوقوف فى الخلبة (a4) السطر السادس عشر عكس السطر الثانى السطر السابع عشر نهاية الكود ثم زر إظهار السرى

Sub إظهار()
Dim Answer As String
    Answer = InputBox(" فضلاَ أدخل كلمة المرور  ")
    If Answer <> Sheets("بيانات الطلبة").Range("S2") Then
     MsgBox "كلمة المرور غير صحيحة ولم يتم تنفيذ المطلوب "
    Exit Sub
    End If
        MsgBox "كلمة المرور صحيحة وسيتم تنفيذ المطلوب "
Columns("c:d").Select
    Selection.EntireColumn.Hidden = False
    Columns("s:s").Select
    Selection.EntireColumn.Hidden = True
    Range("b7").Select

End Sub

هذا الكود اسمه إظهار وهو يقوم بعملية إظهار عمود الرقم السرى كلآتى:-

تظهر نافذة تطلب إدخال كلمةالمرور وهى موجودة فى صفحة بيانات الطلبة فى الخلية (s2)

إذا كانت لاتساوى الكلمة الموجودة فى الخلية (s2)لم يتم تنفيذ المطلوب وتخرج من الكود

إذا كانت تساوى يتم تنفيذ المطلوب وهو تحديد وعدم إخفاء العمودين (c , d)الموجود بهما سرى نصف العام وآخر العام وتحديد و إخفاء العمود (s)الموجود كلمة المرور

ثم زر إخفار كلمة السرى

يقوم بعكس عملية الإظهار

وإلى لقاء قريب بمشيئة الله

[فهيد]

 الف شكر يالغالي

تم تعديل يونيو 19, 2008 بواسطه فهيد

[abbermustfa]

شكرا لك واذا اردنا ازالة الباسوورد نهائي حق الورقة والفيجوال

ماذا نفعل ؟

نرجو تجربة الملف لانه يعطي رسائل خطأ

تم تعديل يونيو 19, 2008 بواسطه abbermustfa

[قصي]

اشكرك ونرجو شرح الصفحة الرئيسية

كبفبة اتمامها

[الباحث عن كل جدي]

بسم الله الرحمن الرحيم

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

الاخ العزيز لقد اردت ان تصلح لي شيت الصف الرابع ولكن ارسلت لي الصف الاول والخطا في الصف الرابع وهو

1- شهادة نصف العام بها خطأ

2- ترتيب حسب الناجحين والراسبين بها خطأ لايعمل

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

اليك شيت الصف الرابع:___________1.rar

[h63]

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

الاخ الفاضل الاستاذ / عادل

عملك جميل جدا ورائع واستفدت منه انا شخصبا فى مجال المرحلة الابتدائية0 اسمح لى فقط ان اساعدك فى حل مشاكل استاذ صابر فقط ولا تعديل

الاستاذ / صابر تفضل المرفق

الله الموفق

___________1.rar

[الباحث عن كل جدي]

بسم الله الرحمن الرحيم

الحمد لله رب العالمين ان جمعنا على الطاعة والعلم والتعلم كن عالما او متعلما ولا تكن الثالثة فتهلك

الاستاذ/ عادل شكرا لك ولانه مجهودك يا اخي

ونشكر الاستاذ هشام على المتابعة وتصليح الخطا الذي بشيت وجزاكما الله خيرا

ولكن لي تعليق : ولكن عند ادخال درجات الطلبة قد نخطا ونكتب درجة كبيرة على الدرجة

اريد كود لمجموعة كل مادة عندما يزيد عن الدرجة الاصلية ينبها ويعطي لي رسالة ارجو المتابعة

اخوكم صابر

[h63]

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

الاخ صابر يمكنك عمل ذلك عن طريق التحقق من الصحة وله امثلة كثيرة بالمنتدى

فقط ابحث وحاول اذا وصلت الى النتيجة بمفردك سيكون افضل

عن طريق بيانات - التحقق من الصحة ثم ضع الشرط الذى تريده0

الله الموفق

[الباحث عن كل جدي]

بسم الله الرحمن الرحيم

الاخ العزيز

شكرا لك

يوجد خطأ في الشيت في طباعة العشرة الاوائل ارجو ان تنظر اليه وتصلح هذا الامر حيث لا يعطي نتيجة صحيحة

[h63]

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

اخى الفاضل

جرب المرفق الان

واعلمنى هل توصلت الى ما كنت تريد فى المشاركة السابقة

الله الموفق

_____________________1.rar

[cat101]

شكرا لهذا العمل ولكن الاعداد في الاحصاء

به خطأ نرجو تصحيحه

[h63]

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

اعلمونى بالحد الدنى والاعلى للدرجات فى كل مادة

ملحوظة هامة

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

الله الموفق

[الباحث عن كل جدي]

بسم الله الرحمن الرحيم

الاخ/ هشام

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

وارجو ان ترسل لي شرح لما قلت لك وهي طريقة التحقق من الصحة

وارجو ان تضيفني على الياهو

ولا ننسي ان نشكر الاستاذ/ عادل جلال على هذا الجهد الرائع فاللهم جازيه بالاحساني احسانا والله الموفق

وارجو ان يكون معا في المحادثة فاين انت يااستاذنا

[h63]

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

الاخ صابر

اليك المرفق

الله الموفق

New_______Microsoft_Word.rar

[h63]

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

تصحيح العشرة الاوائل

الله الموفق

_____________________1.rar

[cat101]

لو سمحت ألق نظرة على صفحة

واعداد

الناجحين في الاحصاء

[عادل جلال]

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

الأخ/هشام

كلامك وسام على صدرى

بارك الله فيك

الملف بعد تعديل الإحصاء

_____________________2.rar

[cat101]

  COUNTIF('رصد أخر العام'!S7:S507;">=50")

كيف تعد من هو اكبر

من الخمسين درجة ناجح

الا يمكن ان يكون الطالب غايب في امتحان اخر العام او لم يحصل على ربع درجة امتحان اخر العام

ويكون في نفس الوقت مجموع المادة اكبر من الخمسين

لو سمحت راجع الاحصاء وشكراا مقدما

[محمدي عبد السميع]

up

[الباحث عن كل جدي]

شكرا للاستاذ هشام على شرح دالة التحقق من الصحة

وشكر للاستاذ عادل جلال الذي بالفعل اصلح خطأ العشرة الاوائل وجزاكم عن المسلمين خيرا

اخوكم صابر

[محمدي عبد السميع]

  COUNTIF('رصد أخر العام'!S7:S507;">=50")

كيف تعد من هو اكبر

من الخمسين درجة ناجح

الا يمكن ان يكون الطالب غايب في امتحان اخر العام او لم يحصل على ربع درجة امتحان اخر العام

ويكون في نفس الوقت مجموع المادة اكبر من الخمسين

لو سمحت راجع الاحصاء وشكراا مقدما

ملحوظة سليمة ...... نرجو تصحيح الاحصاء