هل يمكن ترتيب اسماء شيت الاكسيل ابجدي

[ibrahem183]

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

استفسار من اخواني في المنتدي

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

ارجو سرعة الرد للاهمية

شكرا اخواني الاعزاء

[أبوعبد الله]

أخي العزيز

بالمرفق ملف به إمكانية ترتيب الأوراق حسب أسمائها هجائياً ترتيب تصاعدي أو تنازلي .

تحياتي

أبو عبدالله

ترتيب الأوراق حسب أسمائها.rar

[طارق محمود]

السلام عليكم

الأخ الفاضل / إبراهيم

كنت جهزت رد ولم أستطع إرساله لعيب باتصال الإنترنت

ثم وجدت الرد من أخي أبو عبدالله ، ماشاء الله

عموما للإثراء تفضل الكود إسمه

sortsheets

Sub sortsheets()

Dim sh_name(99), nw_sh(99) As Variant


'Read Sheet names

x = Worksheets.Count

For i = 1 To x

 sh_name(i) = Sheets(i).Name

 nw_sh(i) = sh_name(i)

Next i


'Sort Sheet names

	For i = 1 To x

 	For j = i + 1 To x

 	If nw_sh(j) < nw_sh(i) Then exchg = nw_sh(j): nw_sh(j) = nw_sh(i): nw_sh(i) = exchg

 	Next j

	Next i


 For i = x To 1 Step -1

	Sheets(nw_sh(i)).Move Before:=Sheets(1)

	Next i


End Sub

وهذا للترتيب التصاعدي وللترتيب التنازلي تغير آخر سطور من

 For i = x To 1 Step -1

	Sheets(nw_sh(i)).Move Before:=Sheets(1)

	Next i

إلي 

 For i = 1 To x

	Sheets(nw_sh(i)).Move Before:=Sheets(1)

	Next i

يتم تشغيله عن طريق

Alt-F8

ثم تختار

sortsheets

RUN

وكذلك المرفق وبه الكود وفيديو للتشغيل

sort_sheets.rar

[ibrahem183]

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

الف الف شكر وبارك الله فيكم

[أيسم إبراهيم]

السلام عليكم

بعد إذن الأساتذة أبو عبد الله و طارق

و لإثراء الموضوع

جرب أخي هذا الكود

Sub SortABC()

Dim i As Integer, j As Integer, x As Integer

x = Sheets.Count

For i = 1 To x - 1

	For j = i + 1 To x

    	If Sheets(j).Name < Sheets(i).Name Then

    	Sheets(j).Move before:=Sheets(i)

    	End If

	Next

Next

Sheets(1).Select

End Sub

دمتم بخير

أيسم إبراهيم

[ibrahem183]

السلام عليكم

بعد إذن الأساتذة أبو عبد الله و طارق

و لإثراء الموضوع

جرب أخي هذا الكود

Sub SortABC()

Dim i As Integer, j As Integer, x As Integer

x = Sheets.Count

For i = 1 To x - 1

	For j = i + 1 To x

    	If Sheets(j).Name < Sheets(i).Name Then

    	Sheets(j).Move before:=Sheets(i)

    	End If

	Next

Next

Sheets(1).Select

End Sub

دمتم بخير

أيسم إبراهيم

بارك الله فيك

[صابر حمزه]

شكرا جزيلا هل هذا الرد

[حسام ميلكانا]

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

[ياسر خليل أبو البراء]

أخي في الله حسام..

هل تريد ترتيب بيانات داخل ورقة العمل ؟ أمم تريد ترتيب أسماء أوراق العمل ؟؟

حدد طلبك ويا ريت لو ملف مرفق به نموذج من البيانات بالشكل الذي ترغب

[حسام ميلكانا]

الاخ الكريم / ياسر خليل

كل عام وانتم جميعا بكل خير وعام سعيد عليكم وعلينا وعلى الامة الاسلامية ان شاء الله

مرفق ملف نريد ان يتم ترتيب خانات المقابلة لة

ارجو ان اكون قد وفقت فى شرح المطلوب

ولكم منى الشكر والتقدير

وجزاكم الله خيرا

Milkana.rar

[ياسر خليل أبو البراء]

أخي حسام

ببساطة شديدة حدد النطاق B2:F21 ثم من التبويب Data ثم الأمر Sort واختر من الحقل Sort By العمود الذي تريد الترتيب على أساسه (اختر اسم المنتج أو الوزن أو أياً ما تريد الترتيب على أساسه) ، يمكنك الترتيب على أكثر من عمود ، مثلا تختار اسم المنتج ، ثم تضغط Add Level وتختار عمود آخر وهكذا ..

ويمكنك الترتيب تصاعدياً أو تنازلياً من الحقل الأخير المسمى Order

[محمدزهرى2000]

Milkana.xlsx

اتفضل اخى