اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

  • أفضل إجابة
قام بنشر

لدى صفحه بها مجموعه من الاكواد وارغب

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

فهل يستطيع احد فك هذه الحمايه

 

اليك أخي لقد تم فك الحماية والباسورد الجديد 123

 

في الملف المرفق

جديد.rar

  • Like 2
  • 1 month later...
قام بنشر

ممكن كود يرتب الألقاب والأسماء حسب ترتيب الحروف  العربية لدي  لقب وإسم 300  تلميذ

اريد ترتيبهم حسب ابجد هوز  اي  حسب  ترتيب  الحروف العربية  

مرفق  معا  الملف

 يتم  ترتب لقب واسم معا اي لقب و اسم  تلميذ :بوشلاغم زاكي لقب واسم تلميذ  اخر  بوشلاغم احمد

     يأتي  لقب واسم الأول: بوشلاغم احمد   ثم   التاني :بوشلاغم زاكي  هكذا

                            

                                بوشلاغم أحمد

                                بوشلاغم زاكي  

                            وهكذا

ملفات مرفقة

Classeur1.rar

  • Like 1
قام بنشر

السلام عليكم

اخى واستاذى العزيز

اليك ما طلبت

الكود المستخدم فى الترتيب

Sub الترتيب()
Range("b2:b10000").Select
    Selection.Sort Key1:=Range("b2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  
End Sub

مرفق الملف بعد التعديل

 

Classeur1.rar

 

  • Like 1
قام بنشر

ممكن شرح مفصل  كيف  اضف   رزر  ترتيب في  ملفي   وعند الضغط عليه  يرتب  لي  الترتيب الأبجدي كما ان عندا كتابة  كلمة الترتيب في كود ماكرو  تخرج لي حروف تشبه الفرنسية

 ماكرو لا يقرا العربية حسب ظني والله اعلم ممكن المساعدة واجرجك على الله

قام بنشر

اخى العزيز

ارفقت لك الملف على اوفيس 2010 واظن انه سيعمل على اوفيس 2013

ولو اضفت اى اسماء جديدة وضغطت على زر الترتيب سيقوم بالترتيب مرة اخرى لان المدى بالكود من  b2 : b1000  

يمكن ان تزيد عدد الطلاب الى 1000 طالب ويمكن التغيير فى الكود الى اكثر من ذلك او حسب ما تريد

 

ملفات مرفقة

 

المصنف1.rar

قام بنشر

ممكن شرح مفصل  كيف  اضف   رزر  ترتيب في  ملفي   وعند الضغط عليه  يرتب  لي  الترتيب الأبجدي كما ان عندا كتابة  كلمة الترتيب في كود ماكرو  تخرج لي حروف تشبه الفرنسية

 ماكرو لا يقرا العربية حسب ظني والله اعلم ممكن المساعدة واجرجك على الله

ادخل اخي الحبيب على صفحة الفيجول بيسك ثم اضغط على قائمة tools ثم  option ثم editor format ثم اختر اللغة Courier New (Arabic)

واليك هذا الرابط هذا سيفيدك http://www.officena.net/ib/index.php?showtopic=45544&hl=

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information