Right to left

[Mansourbina]

سلام خدمت دوستان گرامی
در اکسل اگر جدول ما چپ به راست باشد و بخواهیم راست به چپ بکنیم sheet right to left
ترتیب ستونی جدول به هم میخوره راه حل چیه که ترتیب ستونها به هم نخوره

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

سلام
یک عکس نمونه از این حالت ضمیمه کنید

[Amir Ghasemiyan]

سلام خدمت دوستان گرامی
در اکسل اگر جدول ما چپ به راست باشد و بخواهیم راست به چپ بکنیم sheet right to left
ترتیب ستونی جدول به هم میخوره راه حل چیه که ترتیب ستونها به هم نخوره

سلام دوست عزیز
یک ردیف اضافه کنید. ترتیبی که میخواهید ستون ها قرار بگیرین رو بنویسید. مثلا ستونی که قرار هست اول باشه رو یک بذارین و ستون دوم رو 2 و به همین ترتیب تا آخر

حالا جدول رو انتخاب کنیداز تب home گزینه sort and filter و سپس custom sort رو انتخاب کنید
در پنجره ای که باز میشه مطابق شکل عمل کنین
فایل پیوست 12286

[mohammad_ashooryan]

با سلام و کسب اجازه از استاد قاسمیان
علاوه بر روش استاد از روش زیر نیز میتوانید استفاده کنید:
بعد از right to left کردن شیت و انتخاب کل محدوده مورد نظر از کد زیر که از این لینک برداشتم استفاده کنید:

Sub FlipColumns()
Dim vTop As Variant
    Dim vEnd As Variant
    Dim iStart As Integer
    Dim iEnd As Integer
        Application.ScreenUpdating = False
        iStart = 1
        iEnd = Selection.Columns.Count
        Do While iStart < iEnd
            vTop = Selection.Columns(iStart)
            vEnd = Selection.Columns(iEnd)
            Selection.Columns(iEnd) = vTop
            Selection.Columns(iStart) = vEnd
            iStart = iStart + 1
            iEnd = iEnd - 1
        Loop
        Application.ScreenUpdating = True 
End Sub 

[Mansourbina]

سلام خدمت استاد قاسمیان
از راهنمایی شما کمال تشکر دارم
شرمنده لینک فایل پیوست که کلیک میکنم سیستم پیغام * لینک وجود ندارد * نشان میدهد

[Mansourbina]

سلام خدمت استاد قاسمیان
از راهنمایی شما کمال تشکر دارم
شرمنده لینک فایل پیوست که کلیک میکنم سیستم پیغام میدهد * این فایل پیوست وجود ندارد *