ابجد من صفحة اخري

[محمد الورفلي1]

السلام عليكم

اريد مساعدة

 

اريد أبجدة العمود G من هذه الصفحة مع العلم تكون الصفحة محميه وشكراً رقم السري (1)

 

ابجد من صفحة اخري.rar

تم تعديل أغسطس 21, 2014 بواسطه محمد الخازمي

[علي المصري]

جرب المرفق التالي

 

ابجد من صفحة اخري.rar

[محمد الورفلي1]

السلام عليكم

 

الاستاذ علي ظهر ت لي هذه الصورة

 

 

[علي المصري]

اختلاف نسخة الاكسيل

هل تستخدم اكسيل 2003  ام احدث منه

[محمد الورفلي1]

نعم اتستخدم اكسيل 2003 

 

 

تم تعديل أغسطس 21, 2014 بواسطه محمد الخازمي

[علي المصري]

الملف بعد التعديل على اكسيل 2003

ابجد من صفحة اخري.rar

[محمد الورفلي1]

السلام عليكم

الاستاذ الفاضل علي المصري 

هل يمكن اضافة هذة العملية التي هي الابجد (( عند بدء تشغيل الملف واغلاق الملف في نفس العمود والصفحة  )) يعني اتوماتيك بنفسة هل يوجد كود ام لايوجد

[محمد الورفلي1]

السلام عليكم

الاستاذ الفاضل علي المصري 

هل يمكن اضافة هذة العملية التي هي الابجد (( عند بدء تشغيل الملف واغلاق الملف في نفس العمود والصفحة  )) يعني اتوماتيك بنفسة هل يوجد كود ام لايوجد

 

 

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

[علي المصري]

إليك طلبك اخي الكريم ولا تتعجل الأمور

 

انسخ احد الكودين التاليين :

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

ثم كليك يمين على ايم الورقة بالاسفل واختر اظهار الكود

ثم اعمل لصق للكود

 

 

الكود الأول في حالة إذا كان العمود له رأس ( أي له تسمية مثل  : اسم الطالب   .... الفصل ..... التاريخ  .... )

'هذا الكود يستخدم في حالة إذا كانت اول خليه في العمود بها اسم هذا العمود مثل الفصل .... التاريخ
'
'أخوكم في الله : علي المصري
'

Private Sub Worksheet_Activate()
Dim MyRange As Range
Dim myCell As Range

Set MyRange = Range("G:G")           'هذا السطر يكتب به العمود المراد ابجدته
Set myCell = Range("G1")           '  هذا السطر تكتب به الخليه التي بها عنوان العمود

MyRange.Sort Key1:=myCell, Order1:=xlAscending, Header:=xlYes
End Sub

الكود الثاني إذا كان العمود لا يحتوي راس له

'إذا كان العمود لا يحتوي على رأس استخدم الكود التالي .

Private Sub Worksheet_Activate()
Dim MyRange As Range
Dim myCell As Range

Set MyRange = Range("G:G")           'هذا السطر يكتب به العمود المراد ابجدته
Set myCell = Range("G1")
MyRange.Sort Key1:=myCell, Order1:=xlAscending, Header:=xlNo
End Sub

تقبل تحياتي

[محمد الورفلي1]

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

 

1/ اشكرك جداً وجعله الله في ميزان حسناتك

 

2/ الكود جميل وخفيف

 

3/ لم اكون اتوقع وجود هذا الكود

 

سئوال خارج الموضوع   هل من الممكن كل من لديه بعض الاكواد وامام لك كود شرح كما تفضلت في المشاركة الفائته مثلاً (( Set MyRange = Range("G:G") 'هذا السطر يكتب به العمود المراد ابجدته ))

 

فسنكون شاكرين لكم

 

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

[علي المصري]

اطرح هذا الاقتراح في موضوع جديد

والسادة الافاضل لن يبخلو عليك في شيئ