عبد الفتاح كيرة

تحت أمرك أخى

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

واحد يسأل

ما ميزة المتابعة عن طريق الخلاصات

نفتح المنتدى و نسبح فيه

الجواب

أن الخلاصات فيها تركيز شديد للموضوعات الجديدة التى تمت إضافتها

وجمع لما تشتت فى مكان واحد

كما أنه يبقى لك خيار مشاهدة الموضوع أو تركه

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

ببساطة

كل شىء يأتيك و أنت فى مكانك

مرحبا أستاذنا يحيى

بارك الله فيك

لتحميل الصور

وللمشاهدة

من هنا

ولتحميل مجموعة أخرى

و هناأيضا باقى الصور

لكن

لماذا لا تظهر الصور عندك

هل هى كذلك عند الجميع ؟

الآن

إذا كنت تستخدم متصفح وندوز الافتراضى

internet explorer

فيمكنك لحسن الحظ

متابعة خلاصات المنتدى بدون جوجل ريدر

وبالطبع بدون حساب جى ميل

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

أولا

افتح الصفحة الرئيسة لمنتدى أوفيسنا

ابحث عن علامة الخلاصات

مربع برتقالى كما بالصورة

انقر على أيقونة الخلاصات أو السهم الذى بجوارها

ثم اختر المنتدى الفرعى الذى تريد متابعة خلاصاته

ستظهر الشاشة التالية

اضغط على المشار إليه بالسهم لتأكيد متابعة الخلاصات

تابع ووافق

و الآن

يمكنك متابعة الخلاصات يوميا

من خلال متصفح وندوز العادى

أو متصفح فاير فوكس

فى أى منتدى تقابلك هذه العلامة

اتبع نفس الخطوات

السلام عليكم

نظرا لما نفعنا الله به فى هذا المنتدى

فسوف أبدأ معكم من اليوم إن شاء الله موضوعا تقنيا

عن كيفية متابعة المنتدى - و غيره من المنتديات

عن طريق الخلاصات

بالنسبة لى لا أتابع أى منتدى إلا عن طريق الخلاصات

لأن موضوعات المنتدى كلها تأتينى و أنا بمكانى

أختار منها ما أشاء متابعته

الصورة التالية تعبر عن هذا الأمر

لاحظ هنا موضوعات المنتدى

التى تأتينى يوميا

و غيره من المنتديات أيضا

أما كيف نصل لهذا

فستأتى الشروح تباعا إن شاء الله

و إن كان كثيرون يعرفون هذه التقنية

فكثيرون أيضا لا يعرفونها

و أرجو ممن لديه إضافة

ألا يبخل بها

فكلنا هنا نتعلم من بعضنا

من الآن و حتى اللقاء القادم للشرح

يجب أن يكون لديك حساب بريدي فى جوجل ( سنشرح ذلك إجمالا )

إلى لقاء إن شاء الله

آه

عفوا

هذه معادلة صفيف

لما تضع المعادلة فى أول خلية

اضغط

control + shift+enter

لو ضغطت

control فقط

يعطيك الاسم 1

جربت الآن نفس ما قلته أنت

نجحت اسم 2

تم ترحيله

اسم2

فى شيت الناجحين

أخى يمكن غيرت فى المعادلة

ستتم هذه العملية هكذا

ROW(mostawa)-ROW($A$7) = صفر

7-7 =0

ثم

+1

يبقى المحصلة = 1

= الصف رقم 1 من المستوى

يمكنك استبدال

row(a6)

ROW($A$7)+1

انظر نتيجة الطرح

ما هذا

ترقيت إلى أعضاء فعالين

مش عارف ليه

الظاهر الفعالين فى سؤال الخبراء

لازم إن شاء الله أقدم شيئا للمنتدى

الدرجات تبدأ فى الشيت الأساسى من الصف السابع

الدالة تفحص الخلية الأولى إذا كانت صفرا

ترجع لنا رقم الصف

و هو هنا = 7

بالنسبة للورقة كلها

لكننا نريد رقم الصف فى المدى نفسها بدءا من أول المدى

يعنى الصف رقم واحد فى المدى لذلك طرحنا منه 6

انظر أخى الصورة

بدءا من 2007

إذا بدأت فى كتابة دالة فكتبت حرفها الأول فى شريط الصيغة

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

لاختيار أحدها

انزل إليها بالسهم

ثم اضغط مفتاح الجدول لإدراجها فى المعادلة

SUMPRODUCT(--(CW7:DF7<>""));"")

الخلايا

cw7:df7

هذه أعمدة مخفية بالشيت الأساسى

بعدد المواد

إذا كان الطالب راسبا فى اللغة العربية مثلا

تكتب

" عربى"

إذا كان الطالب ناجحا فى اللغة العربية

تترك الخلية فارغة

و المعادلة أعلاه

تعد الخلايا غير الفارغة

يعنى عدد مواد الرسوب

الدالة

small

ترتب لنا أرقام الصفوف التى تحقق فيها شرط النجاح

من الأصغر للأكبر

INDEX(names;SMALL(IF(mostawa=0;ROW(mostawa)-ROW($A$7)+1)

ثم الدالة

index

تجلب اسم الطالب من المدى

names

بدلالة رقم الصف الذى حصلنا عليه

بهذا نكون قد حصلنا على اسم الطالب

والحمد لله

شرحت لك و استرسلت بالشرح

لكن

هل أنت معى ؟

أرجو الرد

كى أواصل

أو أتوقف

مع الشكر

IF(mostawa=0;ROW(mostawa)-ROW($A$7)+1)

سنتعرف على صف الطالب الناجح من خلال فحص المدى mostawa

باستخدام if

إذا كانت قيمته = 0 فعدد مواد الرسوب = 0 وبالتالى الطالب ناجح

إذا تحقق الشرط و هو

mostawa=0

ترجع الدالة رقم الصف

وهذا الصف هو بالنسبة للصف الأول من الورقة

و لأننا نريد رقم الصف بالنسبة للمجال نفسه

فإننا نطرح منه ستة يعنى

رقم الصف فى a7

ثم نضيف 1

بهذا حصلنا على رقم الصف داخل المدى mostawa

IF(ROWS($A$7:A7)<=COUNTIF(mostawa;0)

مادام عدد الصفوف أقل من عدد الناجحين نفذ الآتى

المدى mostawa فيه عدد مواد الرسوب

و إذا كانت قيمة الخلية فيه = 0

فالطالب ناجح

ونحن نريد ترحيل عدد صفوف يساوى عدد الناجحين

حتى لا تظهر رسالة خطأ بعد ذلك

إذا كانت كل المعلومات فى صفحة واحدة

درجات - تقديرات - مواد رسوب - مجموع - ...

كان التحكم فيها أفضل

لأنها تتحرك كتلة واحدة

عند الفرز أو إعادة الترتيب أو أى تغيير

أما عندما تكون الدرجات فى ورقة أخرى

فلا تأمن اختلال الترتيب

و الله أعلم

لا أنصح بعمل صفحات مستقلة لإدخال البيانات

الأفضل أن يتم الإدخال فى صفحة الشيت مباشرة

الذى هو صورة عن الشيت الورقى

مرحبا أخى

أين الملف؟

هل هذه الأكواد تعمل بشكل جيد؟

أظن هذا الشيت كنترول هو الخاص بى

رفعته هنا مرة

عمل دفتر 5 سلوك الكترونيا بالاكسل

المشكة لا أظنها فى عمل الدفتر

المشكلة

من سيفرغ غياب الطلاب يوميا فى البرنامج

أخى

غير المعادلة فى

k7

إلى

=IF(AND(J6>=40;F6>=15);0;1)

=sum(F6;E6)

ممتاز

الفائدة الكبرى

أن طريقة العرض المخصصة تحفظ مع إعدادات التصفية

يعنى لو عملت تصفية بحيث تظهر الراسبين فقط

وحفظتها

لو حدث تحديث للبيانات

ونجح طالب كان من قبل راسبا

فإن طريقة عرض الراسبين لا تظهره فى الراسبين

وحفظ إعدادات التصفية اختيارى

مع الشكر

أخى أبا عبد الله

لقد حصلت على كل ما طلبت بهذا المنتدى الرائع

من أعضاء رائعين

فهمت أن

offset

هى أهم ما فى هذه الأكواد

كما أن وضع الكود فى الحدث

change

هو المطلوب فعلا

أطلب منكم أن تتكرموا بشرح هذا السطر

If Not Intersect(Target, Range("A1:A1000")) Is Nothing _

حتى نزداد نورا

ونزيدكم دعاء

وهل

target هو الخلية المحددة ؟

شكرا جزيلا لك

فرق كبير بين الكودين

جارى الدراسة

وأشكرك

وفق الله الجميع

لا عليك أخى

وفقك الله لكل خير

شكرا لك أستاذ عماد

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

لاستجلاب بيانات

الكود يستخلص جدول مدرس من جدول مدرسى كبير

طبعا كل مدرس جدوله فى صف واحد من الجدول الرئيس

لجلب جدول مدرس رقم 2

نحتاج لتغيير رقم الصف

و هكذا حتى نجلب جدول آخر مدرس

Sub tar()

'الإعلان عن المتغيرات

'العناوين

Dim k1 As String

Dim k2 As String

Dim k3 As String

Dim k4 As String

'رقم الصف فى الجدول الأصلى

Dim t1 As Integer

'رقم الصف فى الشيت الثانى الذى ستنسخ إليه الجداول للمدرسين

Dim t2 As Integer

k1 = "مدرسة kemas الإعدادية للبنين"

k2 = "جدول الأستاذ"

k3 = ""

k4 = "اليوم"

t1 = 6

t2 = 2

Sheets("new").Columns("a:l").ClearContents

Application.ScreenUpdating = False

Sheets("new").Range("a1:l500").Font.Bold = True

For i = 1 To 50

'لصق العناوين

Sheets("new").Range("a" & t2).Value = k1

Sheets("new").Range("d" & t2).Value = k2

Sheets("عام").Range("b" & t1).Copy Sheets("new").Range("f" & t2)

'النزول صفا لأسفل

t2 = t2 + 1

Sheets("new").Range("a" & t2) = k4

Sheets("عام").Range("f5:m5").Copy Sheets("new").Range("b" & t2)

t2 = t2 + 1

Sheets("new").Range("a" & t2) = "الأحد"

'نسخ جدول أول أستاذ ليوم الأحد

'طريقةالأستاذ خبور للإشارة للمدى مع المتغير

Sheets("عام").Range("f" & t1 & ":m" & t1).Copy Sheets("new").Range("b" & t2 & ":i" & t2)

'Sheets("عام").Range(("f" & t1), ("m" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2))

'النزول صفا لأسفل

t2 = t2 + 1

'نسخ جدول أول أستاذ ليوم الإثنين

Sheets("new").Range("a" & t2) = "الإثنين"

'طريقة أخرى الإشارة لمدى مع متغير لرقم الصف

Sheets("عام").Range(("n" & t1), ("u" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2))

 t2 = t2 + 1

Sheets("new").Range("a" & t2) = "الثلاثاء"

Sheets("عام").Range(("v" & t1), ("ac" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2))

t2 = t2 + 1

Sheets("new").Range("a" & t2) = "الأربعاء"

Sheets("عام").Range(("ad" & t1), ("ak" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2))

t2 = t2 + 1

Sheets("new").Range("a" & t2) = "الخميس"

Sheets("عام").Range(("al" & t1), ("as" & t1)).Copy Sheets("new").Range(("b" & t2), ("i" & t2))

t1 = t1 + 1

t2 = t2 + 2

Sheets("new").Range(("a" & t2), ("i" & t2)) = k3

Next

Application.ScreenUpdating = True

Sheets("new").Activate

Range("a1").Select

End Sub

و مرفق البرنامج نفسه للاطلاع و إبداء الرأى

فى كود جلب جداول المدرسين

و ذلك فى الورقة المسماة

new

فى انتظار الرد

و تقييم هذا الكود البدائى

واقتراح تحسينات عليه

مع الشكر

جدول للتدريب على الكود للرفع.zip