ملف كامل للجمل الشرطية واستخدام الخلايا (موضوع تعليمي)

[الحسامي]

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

بعد ان انتهينا من شرح سلسلتي الجمل الشرطية واستخدام الخلايا

أرتأيت وضعهما بملفين كاملين وذلك لاستيعابهم بصورة افضل

وتم وضعهما بوضوع مستقل حتى يتم الوصول اليهما مباشرة

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

تم وضع سؤال لكل سلسلة وذلك للتقييم الذاتي لهم

............... اخوكم عماد الحسامي

الخلايا..كامل ...hosami.rar

الجمل الشرطية كاملة (الحسامي).rar

سؤال على استخدام الخلايا.rar

سؤال على الجمل الشرطية.rar

[سالم شباني]

السلام عليكم

أخي الفاضل عماد ، حياك الله

قمة في التقديم وقمة في طريقة التقويم والإختبار

لقد أجبت عن السؤال الأول من سلسلة الجمل الشرطية

في انتظار أن أصل إلى حل موضوع الفاتورة

أما سؤال الخلايا فأعترف أنني لم أستوعب بعد السؤال

سؤال على الجمل الشرطية.rar

تم تعديل مايو 27, 2010 بواسطه سالم شباني

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

بسم الله ما شاء الله عليك

خايف عليك م الحسد ياعمدة

إليك حل الملف الثاني

أخوك أبو االبراء

سؤال على الجمل الشرطية_Baraa.rar

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

أحسن الله إليك أخ عماد

دروسك الآن مطبوعة لدى على الورق

لاستخدامها وقت الحاجة

عندى سؤال لك و للأساتذة

الأسرع يجيبنى متكرما

أنا أشير لمدى هكذا

مثلا

a1:f1

ولكن

كيف أشير للمدى نفسه

لو أحببت أن أستخدم متغيرا بدلا من الأرقام

يعنى رقم الصف سيتغير عندى أثناء البرنامج

فما الجملة المعبرة عن ذلك فى حالة استعمال متغير r مثلا

أرجو أن يكون سؤالى مفهوما

و إذا كانت هناك أكثر من طريقة

فأود معرفتها كلها

وشكرا لكم

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

أقصد مثلا عند الإشارة للمدى

n1:u1

الحرفان

n - u

يمثلان العمود

بينما الرقم 1 يمثل رقم الصف

أنا أريد أن أجعل رقم الصف هذا متغيرا و ليس ثابتا

فهل الصيغة التالية جيدة أو هى الوحيدة الممكنة أم هناك طرق أخرى؟

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

أم أن هناك طرق أحسن

فهنا المتغيران

t1 - t2

حلتا مكان أرقام الصفوف

لعل طلبى واضح

علما بأن الصيغة السابقة تعمل بكفاءة

[الحسامي]

السلام عليكم

بارك الله فيكم احبتي واخواني

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

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

اخي kemas صراحة لم افهم ما تقصد بالضبط

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

أقصد أخى عماد

كيف أتنقل بين خلايا عمود صفا بعد صف

من خلال استبدال رقم الصف بمتغير

أنا أريد صيغة ذلك

[الحسامي]

السلام عليكم

اخي kemas

التحكم بالخلايا وجعل احدائياتها متغيرة لها اكثر من طريقة

وتختلف باختلاف البرنامج المراد صنعه

اليك مرفق لمثال صغير لجعل احداثيات الخلية متغيرة

=-=====================================================

اما اخواني بالنسبة لسؤال الخلايا كان هدفي من البداية هو ايصال معلومة وهي :

معرفة فكرة اي برنامج هي 90 % من حل اي سؤال اي بلغة اخرى

اذا استطعت تحديد ما المطلوب امامك بصورة ادق تم حل السؤال

معلومة : فكرة السؤال عبارة عن مربع ابيض كبير ومربع اصفر صغير

تغير موقع الصف والعمود.rar

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

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

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

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

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

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

لجلب جدول مدرس رقم 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

[الحسامي]

السلام عليكم

اخي kemas

كان بالامكان افضل مما كان

في الاغلب وضع فكرة الكود أفضل من تنفيذ الكود نفسه لان الفكرة هي الاساس

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

اما رأي بكودك فهو بالطبع ليس بدائي بل اسميه انا انجاز

وقد يكون للبعض اعجاز ومع الممارسة يمكن التحسن وتفادي الكثير من الامور

واي برنامج يمكن كتابته باكثر من طريقة

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

اخوك عماد الحسامي

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

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

شكرا جزيلا لك

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

جارى الدراسة

وأشكرك

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

[عبد الهادي]

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