قنديل الصياد

الاخ العزيز : رفع النتائج على النتائج يحتاج الى موقع مدفوع اريد ان اعلمك اننى قمت بعرض موضوع عن ذلك بمنتديات ثانوية واليك الاتى : سيقوم منتدى ثانوية بعمل صفحات للمدارس لتحميل نتائجها على النت قمت بعرض الفكرة على مجلس ادارة منتديات ثانوية وبالاخص الاستاذ / عوض على ... المدير التنفيذى للمنتدى والذى قام بدوره برفع طلبى لمجلس الادارة وتمت الموافقة عليه وسيتم عمل صفحات لجميع المدارس التى تريد عرض نتائجها على النت انها فقط مسالة وقت فقم بمراسلة الاستاذ / عوض على المدير التنفيذى للمنتدى وستجد حلا لطلبك باذن الله ...... قم بالدخول على رابط منتديات ثانوية ومنه الى صفحة ( طلبات الاعضاء واقتراحات الاعضاء ) قم بالدخول من هنا على رابط منتديات ثانوية

فيديو الترحيل باستخدام الفلترة حمل من هنا

اخوانى واساتذتى الاعزاء اليكم بعض الاكواد التى اعجبتنى كود يقوم بحفظ واغلاق ملف الاكسل Sub FermetureExcel() Dim Wb As Workbook For Each Wb In Application.Workbooks Wb.Save Next Wb Application.Quit End Sub كود لتحويل الاحرف الكبيرة الى احرف صغيرة فى الخلايا النشطة من كبتل الى صمول Sub Lowercase() For Each x In Selection x.Value = LCase(x.Value) Next End Sub كود تحديد عرض دقة الشاشة بجهازك Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Sub AfficherResolution() Largeur = GetSystemMetrics(0) Hauteur = GetSystemMetrics(1) MsgBox "عرض دقة الشاشة هو: " & Largeur & " على " & Hauteur End Sub كود تحديد الخلية النشطة والخلايا التي على يمينها Sub SelectToRight() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub كود تحديد الخلية النشطة والخلايا التي على يسارها Sub SelectToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub كود زر أمر لكتابة ما تريد Sub kandeel_elsiad() Range("k1") = "أهلا ومرحبا بكم فى منتديات أوفيسنا" End Sub امسح الجملة المكتوبة ( اهلا ومرحبا بكم فى منتديات اوفيسنا ) واضغط على الكود لكى يكتب لك ماتريد

رائع اخى واستاذى العزيز بارك الله فيك وعليك وزاد من ابداعاتك

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

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

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

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

السلام عليكم اخى العزيز يوجد موضوع لاستاذنا الكبير / عبد الله باقشير على هذا الرابط دالة ( تفقيط ) تحويل الرقم الى نص بالعربي وقد قمت بنسخ الملف المرفق فى الموضوع وقمت بتغيير اسم العملة الى ين يابانى وارجو اخى ان يكون هذا هو المطلوب

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

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

اخى العزيز برجاء ارفاق ملف للعمل عليه وقد ارفقت لك ملف قمت بتشفير بعض الخلايا وايضا قمت بعمل ماكرو لحذف البيانات الموجودة فى الخلايا الغير مشفرة فقط فارجو ان يكون المطلوب على حد علمى واذا لم يكن ما تريد فارفق ملف ليعمل عليه اساتذتنا بالمنتدى كلمة السر لحماية الخلايا : 123 وايضا قمت بعمل كلمة سر لمحرر الاكواد : 123 وايضا قمت بتشفير الملف باكمله بكلمة سر : 123

رائع اخى عباس السماوى كل عام وحضرتك بخير

المعلومات الأساسية للدالة MID التصنيف : Text Functions وظيفة الدالة : إستخلاص جزء من محتويات الخلية؛ من خلال تحديد موضع بداية الإستخلاص و عدد الأحرف التي ترغب في إستخلاصها من محتويات الخلية الشكل العام للدالة : =MID(text;start_num;num_chars) أجزاء الدالة : Text : هو النص الذي ترغب في إستخلاص جزء منه. Start_Num : هو الموضع الذي ستبدأ من عنده عملية الإستخلاص. Num_Chars : يمثل عدد الأحرف التي سيتم إستخلاصها. الدالة =MID(B6;3;11) B6 هو النص الذى ترغب فى استخلاص جزء منه رقم 3 الظاهر بعد اسم الخلية هو الموضع الذى ستبدأ من عنده عملية الاستخلاص الرقم 11 هو عدد الاحرف او الارقام التى سيتم استخلاصها

اخى العزيز قمت بعمل المطلوب واتمنى ان يكون كذلك

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

السلام عليكم هل هذا هو المطلوب اخى العزيز

الاخ العزيز يوجد موضوع مماثل قام بالرد عليه الاستاذ الكبير بن علية حاجى وموجود على هذا الرابط http://www.officena.net/ib/index.php?showtopic=47181

الاخت العزيزة ام عبد الله شكرا جزيلا على ردك واسف الخطا كان فى المعادلة من عندى لان الدرجة الفعلية للرياضيات فعلا من 80 ولكنى احتسبتها غلى 100 فاسف على ه\ا الخطا المعادلة كانت =IF(Q8="غ";"غ";ROUND(Q8/2;0)) والتعديل الصحيح =IF(Q8="غ";"غ";ROUND(Q8*2/5;0)) فاسف على الخطا الوارد منى ولكى شكرى على تعديل المعادلات الاخرى

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

اخى العزيز الاستاذ هانى عدلى جزاك الله خيرا

الاخوة الافاضل برجاء التعديل على الملف المرفق كما ورد بالملف

السلام عليكم اخى العزيز الدالة FIXED تفيد تثبيت عدد الأرقام العشرية بمعني أن لو ناتج العملية مثلا 10.33354 ثم طبقت عليه هذه الدالة فإن الناتج سيكون 10.33 =FIXED(A1,2) او سيكون 10.334 =FIXED(A1,3) او سيكون سيكون 10.33 =FIXED(A1) اما الدالة Round مرفق ملف لعمل الدالة

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