(تمت الاجابة) طلب - كيفية عمل ترتيب لأوراق الاكسيل حسب الابجدية

[khaled0795]

أارجو من أصحاب الخبرة ارشادي في كيفية عمل sorting ل sheets في ملف الاكسيل حسب اسم الشيت الابجدي

ولكم جزيل الشكر

[طارق محمود]

السلام عليكم

أخي العزيز

تفضل المطلوب في المرفق

ترتيب الورقات أبجديا.rar

[طارق محمود]

وهذا هو الكود

Sub Macro5()

'

' Macro5 Macro

Dim sh(99) As String


x = Sheets.Count



For k = 1 To x

    For i = 1 To x

	    sh(i) = Sheets(i).Name

    Next i

    For i = 1 To x - 1

	    Z = sh(i)

	    For j = i + 1 To x

		    If sh(j) < Z Then Z = sh(j)

	    Next j

	    If sh(i) > Z Then Sheets(Z).Move Before:=Sheets(i)

    Next i

Next k


End Sub

[khaled0795]

مششششششششششششكككككككككككككككككككككككككوووووووووووووووووووووووووووووووووووووورررررررررررررر

[abouelhassan]

روائع استاذنا الغالى الحبيب

مهندس طارق

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