omar elhosseini قام بنشر سبتمبر 4, 2006 قام بنشر سبتمبر 4, 2006 بسم الله الرحمن الرحيم تحياتى للجميع قام الكثير من الاساتذة الافاضل بعمل دوال او اكواد للتفقيط سواء للعملات المختلفه وبعضها لجميع العملات او الدرجات فهل يوجد كود للترتيب " الاول - الثانى - الرابع مكرر ..................... الألف " تحياتى
علي السحيب قام بنشر سبتمبر 5, 2006 قام بنشر سبتمبر 5, 2006 الملف المرفق يحتوي على كود للاستاذ محمد طاهر يلبي طلبك، والرابط التالي يحتوي على موضوع بخصوص ترتيب الطلاب على حسب مجموع درجاتهم، http://www.officena.net/ib/index.php?showtopic=13153 ______________________________.rar
omar elhosseini قام بنشر سبتمبر 5, 2006 الكاتب قام بنشر سبتمبر 5, 2006 بسم الله الرحمن الرحيم الاستاذ علي السحيب تحياتى لك الملف المرفق هو المطلوب فشكرا لك لى طلب خاص اخر اذا سمح وقتكم بذلك التفضل بشرح سريع لأوامرالمصفوفات " ARRAY " فى ال " VBA " من اعلان واضافة والغاء وباقى اوامراها ولكم جزيل الشكر
علي السحيب قام بنشر سبتمبر 5, 2006 قام بنشر سبتمبر 5, 2006 آسف .. ليس لدي إلمام بها يمكنك أن تطلب من الاستاذ محمد طاهر وضع شرح بسيط عنها.
خالد نور قام بنشر سبتمبر 5, 2006 قام بنشر سبتمبر 5, 2006 أسمح لى اخى الحبيب هذا رابط يتكلم عن المصفوفة بشرح كامل أرجو أن يفيديك من هنا
omar elhosseini قام بنشر سبتمبر 5, 2006 الكاتب قام بنشر سبتمبر 5, 2006 بسم الله الرحمن الرحيم الاستاذ علي السحيب شكرا لك استاذنا الفاضل الاخ خالد نور تحياتى لك مع رجائى من الله عز وجل بالشفاء لجهاد فهو قادر على كل شئ اخى شكرا لك ولكنها مصفوفات فى لغة السى على ما اعتقد اتمنى من الفاضل محمد طاهر اذا سمح وقته التفضل بشرح سريع لأوامرالمصفوفات " ARRAY " فى ال " VBA " من اعلان واضافة والغاء وباقى اوامراها وله جزيل الشكر تحياتى للجميع
mn20 قام بنشر سبتمبر 6, 2006 قام بنشر سبتمبر 6, 2006 (معدل) بعد اذنك اخي تامر و اخي محمد طاهر و اخي علي السحيب اقدم هذا الشرح السريع و المبسط للمصفوفات هناك طريقتان لتعريف المصفوفة الطريقة الأول : مصفوفة ثابتة الأبعاد مثال ( 1 ) : Dim MyArray (3) as Integer ' مصفوفة ذات بعد واحد مكونة من أربع عناصر من النوع عدد صحيح ' إسناد القيم MyArray(0)= 0 ' القيمة الأولى MyArray(1)= 1 ' القيمة الثانية MyArray(2)= 2 ' القيمة الثالثة MyArray(3)= 3 ' القيمة الرابعة ' طريقة لإسناد القيم بحلقة فور For I =0 to 3 MyArray(I)=I Next I مثال ( 2 ) : Dim MyArray (5) as String ' مصفوفة مكونة من أربع عناصر من النوع سلسلة نصية ' إسناد القيم MyArray(0)= "m" ' القيمة الأولى MyArray(1)= "n" ' القيمة الثانية MyArray(2)= "2" ' القيمة الثالثة MyArray(3)= "0" ' القيمة الرابعة ' طريقة لإسناد القيم بحلقة فور For I =0 to 3 MyName= MyName & MyArray(I) Next I [a1].value=MyName مثال ( 3 ) : Dim a as Variant 'متغير من نوع عام A = Array(10,20,30) 'تحويل المتغير إلى مصفوفة مع إعطاء القيم B = A(2) مثال ( 4 ) : Dim MyArray (2,3) as Integer ' مصفوفة ذات أبعاد متعددة مثلا 3×4 وهي أعداد صحيحة ' إسناد القيم MyArray(0,0)= 0 MyArray(0,1)= 13 MyArray(0,2)= 24 MyArray(0,3)= 33 MyArray(1,0)= 04 MyArray(1,1)= 15 MyArray(1,2)= 25 MyArray(1,3)= 34 MyArray(2,0)= 03 MyArray(2,1)= 15 MyArray(2,2)= 24 MyArray(2,3)= 33 ' طريقة لإسناد القيم بحلقة فور For I =0 to 2 For J =0 to 2 MyArray(I,j)=i*j Next I Next I الطريقة الثانية : مصفوفة ديناميكية (متغيرة الأبعاد ) هناك أمران للتحكم في المصفوفة هما 1- للتعريف ( لاحظ لا يوجد رقم بين الأقواس ) Dim MyArray() 2- لتحديد البعد ( او تغييره ) ReDim MyArray(4) 'ثم لتغييره ReDim MyArray(10) و التعامل مع هذه المصفوفة هو نفس التعامل مع المصفوف الثابتة من إعطاء القيمة أو المعالجة مثال ( 1 ) : Dim MyArray () as Integer ' مصفوفة بدون بعد ( ديناميكية ) من النوع عدد صحيح 'الآن تحديد البعد ReDim MyArray(3) ' إسناد القيم MyArray(0)= 0 ' القيمة الأولى MyArray(1)= 1 ' القيمة الثانية MyArray(2)= 2 ' القيمة الثالثة MyArray(3)= 3 ' القيمة الرابعة ReDim MyArray (2,3) as Integer ' مصفوفة ذات أبعاد متعددة مثلا 3×4 وهي أعداد صحيحة ' إسناد القيم MyArray(0,0)= 0 MyArray(0,1)= 13 MyArray(0,2)= 24 MyArray(0,3)= 33 MyArray(1,0)= 04 MyArray(1,1)= 15 MyArray(1,2)= 25 MyArray(1,3)= 34 MyArray(2,0)= 03 MyArray(2,1)= 15 MyArray(2,2)= 24 MyArray(2,3)= 33 آمل ان أكون قد غطيت جانب من طرق التعامل مع المصفوفات و بعد اذنكم اساتاذتي تامر و محمد طاهر و علي السحيب ارفق نفس الملف بعد وضع بعض الشروحات عليه اسأل الله الكريم ان يكون نافعا ً ______________________________.zip تم تعديل سبتمبر 6, 2006 بواسطه mn20
omar elhosseini قام بنشر سبتمبر 6, 2006 الكاتب قام بنشر سبتمبر 6, 2006 بسم الله الرحمن الرحيم الاخ mn20 بعد التحية شكرا لك اخى على هذا الشرح الجميل وشكرا على الاضافة انار الله طريقك كما انرت لى طريقى جزاك الله خيرا تحياتى لك
inas aly قام بنشر سبتمبر 7, 2006 قام بنشر سبتمبر 7, 2006 آسف .. ليس لدي إلمام بها يمكنك أن تطلب من الاستاذ محمد طاهر وضع شرح بسيط عنها. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ أين أنت ياأستاذ محمد طاهر ؟
محمد طاهر عرفه قام بنشر سبتمبر 9, 2006 قام بنشر سبتمبر 9, 2006 السلام عليكم أولا أشكر الأخوة على و خالد علي و أخص بالشكر الأخ mn20 على اضافته و بالنسبة للسؤال : أين أنت ياأستاذ محمد طاهر ؟ الإجابة : حالياً ، فى المنزل و بالتحديد أمام الكمبيوتر طبعا هذا ليس مقصد السؤال ! الحقيقة أني منذ فترة ليست بقصيرة لا أستطيع متابعة المشاركات بانتظام و على قدر ما يؤلمني ذلك ، على قدر ما أشعر باسعادة و الفخر لاستمرار عطاء الموقع اعتماداً علي أخوة أفاضل عوضوا غياب العديد من أعمدة الموقع الذين غابوا تباعاً بكفاءة و إخلاص ، بل و أضافوا كثيرا بأسلوب مختلف ، و هذا مدعاة فخر و سعادة لنا جميعا و أتمني أن يزيد ذلك و أن يتضاعف عدد الفاعلين من الأخوة فى الموقع و أن يصل الحال الي الوضع الامثل و هو أن يكون أغلب الأخوة متفاعلين فى الاضافة و الرد و أخيرا لا أستطيع ترك الموضع دون أن ألفت نظرالأخوة بحكم العادة الي عدم تخصيص شخص معين بطلب اجابة معينة ، لان هذا يتنافي مع قواعد المشاركة ، و لأن ذلك قد يغلق باب اجابة أفضل تأتي من شخص أعلم بالموضوع و نهاية أعتذر للجميع عن عدم التواجد و أشكر كل من يساهم فى استمرارعطاء الموقع ، و أدعو الله سبحانه و تعالي أن يجعله من باب علم ينتفع به ، ينفع حيث لا ينفع الندم و أن يزيد من عددهم و أن يجعلنا منهم و أن يستعملنا و لا يستبدلنا وييسر لنا سلوك دروب الخير و العلم و قضاء حوائج الآخرين.
mn20 قام بنشر سبتمبر 9, 2006 قام بنشر سبتمبر 9, 2006 شكرا اساتذتي محمد طاهر و تامر اسأل الله الكريم بمنه أن يبارك لنا بشعبان و ان يبلغنا رمضان و يتمه علينا بالغفران و العتق من النيران اخوتي اسف جدا على التأخير لانشغالي قليلا
الردود الموصى بها