(آموزشی) sort کردن فقط با راست کلیک کردن رو ستون

[ali.b]

با سلام و خسته نباشید
یکی از مشکلاتی که کاربرا داشتن این بود که برای مرتب سازی مجبور بودن کلی تغییرات بدن چون فقط ستون مورد نظر تغییر میکرد و بقیه تغییری نمیکردن و باعث قاطی شدن اطلاعات میشد
ترفند هایی هم تو انحمن براش معرفی شد این هم یک نمونه دیگه
این کد رو قسمت Vb همون شیت ، یعنی روی شیت مورد نظر راست کلیک کنید و گزینه view code رو بزنین و در قسمت کدها قرار بدین
از این به بعد با هر بار راست کلیک کردن رو ستون ها اطلاعات sort میشن و تمام داده های مربوط به اون به همراهش تغییر مکان میدن و چیزی از بین نمیره

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 17 Then Exit Sub
SC = Target.Column

LR = Range("A3").End(xlDown).Row
Range("A3:Q" & LR).Select
SortRange = Range(Cells(3, SC), Cells(LR, SC)).Address
ActiveWorkbook.Worksheets("Total").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Total").Sort.SortFields.Add Key:=Range(SortRange), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Total").Sort
.SetRange Range("A3:Q" & LR)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Cancel = True
End Sub

[ali.b]

اگه سوالی بود درخدمتم