تابع sort

[himanhch]

سلام به همه دوستان اکسلی
می خواستم بدونم تو ویژوال بیسیک اکسل چطوری می تونم فرمان sortبرای اطلاعات تو یه شیت صادر کنم

برای مثال می دونید که توابع lookup حتما باید مرتب شده باشند تا بتونی از اطلاعاتشون گزارش بگیری
اگر ما یه جدول داشته باشیم که یه اطلاعات جدید به اون اضافه کنیم و سورتش نکنیم اطلاعات lookupغلط در میاد

ممنون می شم از جوابتون

[shamsololama]

RE: تابع sort

با درود فراوان

کدی که نوشته ام محدوده مورد نظر را که مشخص کرده ایم سورت می کند
در این کد هر زمان که Calculate در صفحه شما انجام بپذیرد یا همان فورمولی محاسبه شود
این کد عمل کرده و محدوده سورت میشود ولی در این حالت در هر باری که Calculate اتفاق می افتد یک بار سورت شدن نیز انجام می گیرد لذا تعداد اجرای ماکرو نسبتا زیاد بوده و در زمانهای که نیاز نداریم نیز انجام میگیرد و لی در حالت دوم میتوان این کد را به عنوان یک ماکرو در کلیدی به عنوان به روز رسانی قرار داده که هر زمان نیاز به استفاده از فورمول وی لوک آپ داشتیم یک بار اجرا شده تا جواب صحیح را به ما نشان دهد

اگر این روش جوابگوی نیاز شما نبود بگید تا راه دیگر را خدمتان عرض کنم

اول

Private Sub Worksheet_Calculate()

Sheet1.Range("B3:D24").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

دوم

Sheet1.Range("B3:D24").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal