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

[عبدالله باقشير]

السلام عليكم

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

************************************************

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

مثلا: العام الدراسي

="2009 /2010"

والعكس صحيح لو اردت رقم تسلسلي للشهادات في خلية معينة في الشهادة ابتداءا من الرقم 1 ادخل الرقم 1 في الخلية تريدها في الشهادة ستجد في الشهادة الثانية 2 وفي الثالثة 3 وهكذا تباعا *********************************************** المعلومات المطلوبة اعلى الكود :

'***********************************************

'***********************************************

'	 اسم ورقة الشهادات

Const ShName As String = "الشهادات"

'	 رقم اول صف للشهادة

Const FirstRow As Integer = 12

'	 عدد صفوف الشهادة

Const CountRow As Integer = 12

'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة

Const CountColumn As Integer = 13

' خلية موقع الطالب  لمعادلات الشهادة

Const Range_Index As String = "A12"

'=====================================

'	 اسم ورقة البيانات

Const Sh As String = "بيانات اساسية"

' نطاق ناجح دور ثاني في ورقة البيانات

Const MyND As String = "BK10:BK1000"

' نطاق الاسماء في ورقة البيانات

Const MyNSearch As String = "B10:B1000"


'=====================================

'   خلية عدد كل المتقدمين

Const CountAll As String = "C3"

'	خلية عدد الناجحين

Const CountNA As String = "C4"

'   كلمة البحث عن الناجحين

Const NA_G As String = "ناجح"

'   خلية عدد دور ثاني

Const CountDT As String = "C5"

'   كلمة البحث عن دور ثاني

Const DT_G As String = "دور تان"

'************************************************

'************************************************

اذا تم ادخال المطلوب بالشكل الصحيح سيعمل الكود على اي ملف

تفضلوا المرفق

شهادات جديد.rar

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

بسم الله ... ماشاء الله حفظك الله ورعاك أيها المرجع الفذ تنسيقات المنتدى لاتعمل اليوم عبدي

[بن علية حاجي]

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

بارك الله فيك أخي الكريم وجزاك الله عنا ألف خير... جعل الله كل ما تقدمه لنا وللأعضاء في ميزان حسناتك ونفعنا الله بعلمك... نسأل الله أن يكرمك الله كما أكرمتنا ويوفقك إلى كل خير... بسر الله طريقك وسهّل لك كل صعب...

والله لم أجد الكلمات التي أعبّر بها على كل ما قدّمته وما تقدمه لنا جميعا...

أخوك بن علية

[علي فاهم]

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

بارك الله فيك أخي الكريم وجزاك الله عنا ألف خير... جعل الله كل ما تقدمه لنا وللأعضاء في ميزان حسناتك ونفعنا الله بعلمك... نسأل الله أن يكرمك الله كما أكرمتنا ويوفقك إلى كل خير... بسر الله طريقك وسهّل لك كل صعب...

والله لم أجد الكلمات التي أعبّر بها على كل ما قدّمته وما تقدمه لنا جميعا...

أخوك بن علية

بسم الله ماشاء الله

ربنا يزيدك من خيره

افضل فكرة افضل فكرة

حتى يتم الاستفاده منها في اعمال مختلفة

[أيسم إبراهيم]

السلام عليكم

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

لكي يكتمل العمل و يصبح كالدرة المتلألأة

المطلوب أن يضاف له كود الدوائر الحمراء ليصلح ملائم لكل فصل دراسي و كل مرحلة تعليمية مزودا بزر إظهار أو إخفاء الدوائر

نعلم أننا نثقل عليك و لكن ليس لنا من هذا بد فليس لها إلا أنت و قد يسر الله لك العمل بالأكواد كفنان

يرسم بريشته فيخرج أروع اللوحات.

دمت بخير و في طاعة الله

أيسم إبراهيم

تم تعديل فبراير 10, 2010 بواسطه أيسم إبراهيم

[خالد الشاعر]

استاذى القدير خبور خير

تسلم ايدك ياباشا ودائماً فى تقدم

و جزاك الله كل خير

[عبدالله باقشير]

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

الاخ الحبيب / محمدي عبد السميع ----- حفظه الله

جزاك الله خيرا

===================================

الاخ الفاضل/ بن علية ----- حفظه الله

اكرمك الله في الدارين

وجزاك الله خيرا

===================================

الاخ الفاضل/ alyfahem ----- حفظه الله

جزاك الله خيرا

===================================

الاخ الفاضل/ آيسم إبراهيم ----- حفظه الله

اكرمك الله في الدارين

وجزاك الله خيرا

اذا اضفنا كود الدوائر في الملف لن يصبح الملف عام للكل

ممكن تستخدم التنسيق الشرطي افضل لهذا العمل

او كود اضافي للدوائر منفصلا عن كود عمل الشهادات

===================================

الاخ الفاضل/ khhanna ----- حفظه الله

جزاك الله خيرا

===================================

تقبلوا تحياتي وشكري

تم تعديل فبراير 10, 2010 بواسطه خبور خير

[cat101]

احسن فكره فعلا ينفع للكل وبسهوله

الله يجزيك الخير يا كل الخير

هذا العمل درة متلألئه

ممكن تستخدم التنسيق الشرطي افضل لهذا العمل

ياريت ..نفسي في التنسيق الشرطي ده للشهادات

او كود اضافي للدوائر منفصلا عن كود عمل الشهادات

فكرة انفصال كود الدوائر عن كودالطباعة عظيمة

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

[خالد القدس]

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

[عبدالله باقشير]

السلام عليكم

اخي الفاضل كات حفظه الله

اريد ملفا اقرب الى الواقع او ملف حقبقي من ورقتين

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

وورقة فيها نموذج للشهادة

وسنرى حينها كيف سنطبق كود الدوائر

واذا لم يفلح سنطبق التنسيق الشرطي

ارجوا الاهتمام بما طلبت

=============================================

اخي الفاضل / خالد القدس حفظه الله

جزاك الله خيرا يا طيب القلب

اريد رايك في تصميم الرابط ده لمواضيعي في المنتدى

http://www.officena.net/team/khboor/topics1.htm

ودمتم في حفظ الله

تم تعديل فبراير 11, 2010 بواسطه خبور خير

[خالد القدس]

السلام عليكم أستاذ خبور خير لقد أحسنت في تصميم صفحة مواضيعك حيث أصحبت غاية في الروعة والجمال إضافة إلى ما فيها من روعة الأعمال فأصحبت تجمع بين حسن المظهر ونفاسة الجوهر طبت وطاب مسعاك وتبؤات من الفردوس الأعلى منزلا

[cat101]

ارجوا الاهتمام بما طلبت

انا لااستطيع ان اتأخر هنيهه عن طلبك ياايها العالم الكبير

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

[cat101]

الاستاذ خبور

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

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

لاني ذاهب الى الدكتور فادعو لي بالشفاء

دوائر1.rar

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

العمل رائع جداُ ولكن عندمااكتب معادلة عدد المتقدمين فى الشيت الخاص بى وهى =COUNTA(INDEX(MyRng,0,2 لا يظهر عدد المتقدمين كيف اجعل الدالة تحسب على اساس البيانات الموجودة فى الشيت الخاص بى بمعنى آخر ما هى وظيفة myrng فى الدلة السابقة وكيف انفذها ارجوا الإفادة ولك جزيل الشكر

[saffaa]

مشكور ومأجور بالخير ان شاء الله استاذ خبور

-وشفاك الله وعافاك استاذ كات

- استاذ ايسم تمنيت استاذنا خبور يعمل كود الدوائر او اي حل

عشان انا شايفاك في المنتدى الان بقول لك اكمل الدرجات فقط وادعو لاخيك كات بالشفاء

[عبدالله باقشير]

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

الاخ الفاضل/ خالد القدس ----- حفظه الله

الله يكرمك دنيا وآخرة

وجزاك الله خيرا

===================================

الاخ الفاضل/ كات ----- حفظه الله

الله يشفيك

وعايزين ملف من الواقع

===================================

الاخ الفاضل/ حسن محمد----- حفظه الله

ما هى وظيفة myrng فى الدلة السابقة

هو اسم لنطاق خلايا البيانات

اذهب الى مربع الاسم واختار myrng

ستحدد لك نطاق البيانات المشمول للاسم

===================================

الاخت الفاضلة/ صفا----- حفظها الله

جزاك الله خيرا

[saffaa]

[areeg]

اين اضع هذا الكود حتي اتمكن من طباعة كل الشهادات نصف العام

[حاتم 14169]

السلام عليكم

اخي الفاضل زادك الله علما وادبا ورزقك من الدنيا والاخرة ما تشتهي في كلا منهما دائما اياديك البيضاء علي اخوتك نسأل الله ان ينفعك بما ندعوا به لك اللهم امين

رجاء اضافهاللغه الفرنسيه في نهايه الشيت والشهاده وكل الشكر مقدما

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

استاذى خبور خير جزاك الله خيراُ ايها المعلم الفذلقد نفذت ما قلت وطبعت الشهادات

[قصي]

مشكور ومأجور بالخير ان شاء الله استاذ خبور

-وشفاك الله وعافاك استاذ كات

- استاذ ايسم تمنيت استاذنا خبور يعمل كود الدوائر او اي حل

عشان انا شايفاك في المنتدى الان بقول لك اكمل الدرجات فقط وادعو لاخيك كات بالشفاء

مشكور ومأجور بالخير ان شاء الله استاذ خبور

-وشفاك الله وعافاك استاذ كات

كلمات طيبات دعاء بالخير للاستاذ خبور ودعاء بالشفاء للاستاذ كات

لفته جميله

[قصي]

كرما منكم عايز شرح معدلة OFFEST الموجودة في الشهادة

وخاصة الارقام اللي فيها

[ابوحبيبه]

بارك الله فيك

وزادك من علمه

انت فعلا مبدع

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

<br />

ارجوا الاهتمام بما طلبت

<br />انا لااستطيع ان اتأخر هنيهه عن طلبك ياايها العالم الكبير<br />جمعت بين حسن المظهر ونفاسة الجوهر طبت وطاب مسعاك وتبوأت من الفردوس الأعلى منزلا<br />

<br /><br /><br />

شفاك الله وعافاك استاذ كات

وبعد اذنك سارفق ملفا للغرض نفسه

وجزاك الله كل الخير ايها العلامة خبور خير

[عبدالله باقشير]

السلام عليكم

الاخ قصي دالة اوفيس دالة استخدمت كثيرا في الملفات وهي من المعادلا ت التي لا تستغني في كثير من الامور

ولكنني ساعطيك تعليمات الدالة للتعرف على المزيد

OFFSET

إرجاع مرجع إلى نطاق عبارة عن رقم معين من الصفوف والأعمدة من خلية أو نطاق خلايا. من الممكن أن يكون المرجع الذي يتم إرجاعه عبارة عن خلية مفردة أو نطاق من الخلايا، يمكنك تحديد عدد الصفوف وعدد الأعمدة التي سيتم إرجاعها.

بناء الجملة

OFFSET(reference,rows,cols,height,width)

Reference (المرجع) المرجع الذي تريد أن تستند إليه الإزاحة. يجب أن يكون المرجع مرجعاً لخلية أو نطاق من الخلايا المتجاورة؛ وإلا ستقوم OFFSET بإرجاع قيمة الخطأ #VALUE!.

Rows (الصفوف) عدد الصفوف، لأعلى أو لأسفل، التي تريد أن تشير إليها الخلية العلوية اليمنى. يؤدي استخدام 5 كوسيطة الصفوف إلى أن تكون الخلية العلوية اليمنى في المرجع أسفل المرجع بخمسة صفوف. من الممكن أن تكون Rows موجبة (أي أسفل مرجع البدء) أو سالبة (أي أعلى مرجع البدء).

Cols (الأعمدة) عدد الأعمدة، إلى اليمين أو اليسار، التي تريد أن تشير الخلية العلوية اليمنى من الناتج إليها. يؤدي استخدام 5 كوسيطة الأعمدة إلى أن تكون الخلية العلوية اليمنى في المرجع إلى يسار المرجع بخمسة صفوف. من الممكن أن تكون Cols موجبة (أي إلى يسار مرجع البدء) أو سالبة (أي إلى يمين مرجع البدء).

Height (الارتفاع) الارتفاع، في عدد الصفوف، الذي تريده للمرجع الذي يتم إرجاعه. يجب أن تكون Height رقماً موجباً.

Width (العرض) العرض، في عدد الأعمدة، الذي تريده للمرجع الذي يتم إرجاعه. يجب أن تكون Width رقماً موجباً.

ملاحظات

إذا كان مرجع إزاحة الصفوف والأعمدة فوق حافة ورقة العمل، تقوم OFFSET بإرجاع قيمة الخطأ #REF!.

في حالة تجاهل height أو width، يفترض أنهما نفس ارتفاع وعرض المرجع.

لا تنقل OFFSET فعلياً أي خلية أو تغيِّر التحديد؛ لكنها فقط تقوم بإرجاع مرجع. يمكن استخدام OFFSET مع أية دالة تتوقع وسيطة مرجع. فعلى سبيل المثال، تحسب الصيغة SUM(OFFSET(C2,1,2,3,1)) القيمة الإجمالية لنطاق يتكون من 3 صفوف وعمود واحد ويقع أسفل الخلية C2 بصف واحد وإلى اليسار منها بعمودين.

اذا فهمت هذه التعليمات ستصبح الدالة لك مثل العجينة بين يديك

ودمتم في حفظ الله