ابوصلاح

ما المشكلة في كود الفرز تم تسجيل كود فرز علي المرفق - اكسل 2003- ولكنه لا يعمل وبداية المشكلة عندما سجتله على اكسل 2013 وقامت الاخت الفاضلة ام عبدالله بمساعدتي لكن عندما نقلت الملف علي اوفيس 2003 يظهر رسالة خطا وقمت بتسجيله علي اوفيس 2003 وايضا نفس المشكلة ارجو المساعدة وشكرا كود فرز.rar

لوكانت الياء في كلمة حول الى (ي) تحدث مشكلة

هناك مشكلة في الكتابة لان واحد يكتب الي بالياء (ي) واخر يكتب (ى) الف لينة في كلمة(حول الى) بالتالي البحث لا يجدي فاستخدمت دالة or وفشلت

بارك الله فيك و زادك الله علما اخي سليم

الاستاذ الرائد عبدالله بقشير والاستاذ المعلم سليم حصابيا لا اقو الا كما قال الشاعر لو كنت أعرف فوق الشكر منزلةٌ ... أوفى من الشكر عند الله في الثمن أخلصتها لكم مـن قلبي مهذبة ... حذواً على مثل ما أوليتم من حسن

كيف يمكن البحث عن نص معين داخل الخلية البحث داخل الخلية.rar

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

عفوا استاذ غريب

اولا تعمل تحديد للنطاق الذي سوف تعمل عليه ثانيا تذهب الى زر تسجيل ماكر وتسميه وليكن ( ترتيب_اسماء )و ثم تذهب الي فرز وتصفية تختار فرز مخصص ثم بعد ذلك تعمل فرز حسب عمود النوع وهو في مصنفي (K) من (ي الي ا) ثم تضيف مستوي جديد من اضافة مستوى ويكون الفرز حسب الاسم وهو في مصنفي (E) من (ا الى ي) ثم موافق وبعد توقف تسجيل ماكرو وتذهب الماكرو الذي سجلته باسم ( ترتيب_اسماء) ترجع الي صفحة الاكسل مرة اخري وتعمل زر ماكرو وتختار نفس الاسم (ترتيب _اسماء) اما اذا اردت ان يكون الماكرو تلقائي تذهب الي عرض التعليمات البرمجية وتذهب الي الكود وتعمل نسخ له وتلصقه في ورقة الماكرو Worksheet نفسها (ورقة1) بعد ان تفتحها وتمسح اسم الماكرو ((ترتيب _اسماء) وتكتب هذين السطرين في الاعلي Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False

رائع ام عبد الله شكرا جعله الله في ميزان حسناتك

السلام عليكم اريد في هذا العمل الترتيب بد من عمل زر ماكرو يكون تلقائي بمجرد من كتابة الاسم والنوع وشكرا ترتيب الاسماء تلقائي.rar

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

الا يوجد كود بديل او تعديل

وما الحل

للرفع

كود سهل ورائع وهو مالريد فعلا لكن هل يكون الترتيب تلقائي الذكور اولا دون عمل زر ماكرو طبعا مرتب ابجديا وشكرا

في ورقة اضافة بيانات كود لترتيب التلاميذ يعمل علي اوفيس 2013 ولا يعمل علي اوفيس 2003 هل هناك خطا بالكود ام ماذا ارجو الافادة مع تعديل الكود ان وجد الخطا Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "E12"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d12:r84") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "k12"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d12:r84") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Application.ScreenUpdating = False ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "E131"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d131:r203") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "k131"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d131:r203") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Application.ScreenUpdating = False ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "E257"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d257:r329") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "k257"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d257:r329") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Application.ScreenUpdating = False ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "E373"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d373:r445") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "k373"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d373:r445") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Application.ScreenUpdating = False ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "E518"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d518:r590") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "k518"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d518:r590") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Application.ScreenUpdating = False ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "E654"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d654:r726") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Clear ActiveWorkbook.Worksheets("اضافة بيانات ").Sort.SortFields.Add Key:=Range( _ "k654"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("اضافة بيانات ").Sort .SetRange Range("d654:r726") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub برنامج شئون ابتدائي.rar

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

السلام عليكم استاذ غريب نحن في انتظار اكتمال هذا السرح الكبير من اعمالك المميزة

بارك الله فيك عمل رائع

"احمد" و"محمد" لديهما رغبه قويه لمعرفة منزل " سامي". جميعهم يسكنون على شارع واحد، ولكن "احمد" و"محمد" لا يعرفان أين يسكن "سامي". المنازل في هذا الشارع مرقمه من 1 إلى 99 . أتى " احمد" سأل "سامي " هل رقم منزلك هو رقم تربيعي؟! أجاب "سامي". فسأله أيضاً هل هو أكبر من 50 ؟! فأجابه ثانية. "احمد" بعد ذلك ظن بأنه عرف منزل "سامي" فقرر الذهاب إليه. فلما ذهب هناك وجد بأنه مخطئه. اعتبر بأن سامي أجاب على السؤال الثاني فقط إجابة صحيحه. "محمد" هو أيضاً سأل\ "سامي" سؤالين. فسأله أولاً: هل رقم منزلك رقم تكعيبي؟! فأجاب "سامي". وسأله أيضاً هل هو أكبر من 25 ؟! فأجاب سامي. فظن "محمد" بأنه عرف رقم منزل "سامي" ولما ذهب هناك وجد نفسه مخطئ المكان. اعتبر كذلك بأن "سامي " أجاب فقط على السؤال الثاني إجابة صحيحه. لو أخبرتك بأن رقم منزل " سامي" أقل من رقم منزل "احمد" وأقل من رقم منزل "محمد". ومجوع أرقام المنازل الثلاثة هو رقم تربيعي مضروب بـ 2 . هل بإمكانك معرفة أين يسكن "احمد" و "محمد" و سامي"

ازاي يعني

"احمد" و"محمد" لديهما رغبه قويه لمعرفة منزل " سامي". جميعهم يسكنون على شارع واحد، ولكن "احمد" و"محمد" لا يعرفان أين يسكن "سامي". المنازل في هذا الشارع مرقمه من 1 إلى 99 . أتى " احمد" سأل "سامي " هل رقم منزلك هو رقم تربيعي؟! أجاب "سامي". فسأله أيضاً هل هو أكبر من 50 ؟! فأجابه ثانية. "احمد" بعد ذلك ظن بأنه عرف منزل "سامي" فقرر الذهاب إليه. فلما ذهب هناك وجد بأنه مخطئه. اعتبر بأن سامي أجاب على السؤال الثاني فقط إجابة صحيحه. "محمد" هو أيضاً سأل\ "سامي" سؤالين. فسأله أولاً: هل رقم منزلك رقم تكعيبي؟! فأجاب "سامي". وسأله أيضاً هل هو أكبر من 25 ؟! فأجاب سامي. فظن "محمد" بأنه عرف رقم منزل "سامي" ولما ذهب هناك وجد نفسه مخطئ المكان. اعتبر كذلك بأن "سامي " أجاب فقط على السؤال الثاني إجابة صحيحه. لو أخبرتك بأن رقم منزل " سامي" أقل من رقم منزل "احمد" وأقل من رقم منزل "محمد". ومجوع أرقام المنازل الثلاثة هو رقم تربيعي مضروب بـ 2 . هل بإمكانك معرفة أين يسكن "احمد" و "محمد" و سامي"

اولا عمل جدول للمعلمين به ( الوظيفة / التخصص ) * (ملاحظ / مراقب دور / مراقب اول - رئيس لجنة - عضو كنترول / مستبعد ) ثانيا عمل جدول للجان ( عدد اللجان / الطوابق / الفترات / اليوم )

الاستاذ الكبير عبد الله بقشير بالنسبة للحصص المشتركة مثل التربية الدينية والانشطة لابد ان يكون هناك حصص مشتركة لان المعلم ربما يكون يعطى مواد اخرى تتعارض مع المواد المشتركة والجدول لا يظهر هذا التعارض وشكرا