قنديل الصياد

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

حمل من هنا

اخوانى واساتذتى الاعزاء اليكم بعض الاكواد التى اعجبتنى

كود يقوم بحفظ واغلاق ملف الاكسل

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)

• أجزاء الدالة :
  1. Text : هو النص الذي ترغب في إستخلاص جزء منه.
  2. Start_Num : هو الموضع الذي ستبدأ من عنده عملية الإستخلاص.
  3. 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

 

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

 

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

 

أخوكم بن علية

 

الملف المرفق المعدل : Report Card-5C_2.rar

 

 

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

 

شكرا اخى الكريم بن علية على مرورك وردك الكريم

 

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

 

شكرا

 

اخى العزيز لقد قمت بتجربة الملف على جهازى ويعمل بصورة جيدة ولا تظهر اى اخطاء

قم بتحميل الملف مرة اخرى من هنا وقم بفتحه