فيلتر كردن با ماكرو [بایگانی]

PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : فيلتر كردن با ماكرو

razeghi

2011/03/08, 16:22

با سلام
براي فيلتر كردن ماكروي زير رو داريم

ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 39
Selection.AutoFilter Field:=3, Criteria1:="1"
Range("AW1:AW4").Select
Range("AW4").Activate
Selection.AutoFilter Field:=2, Criteria1:="1"
Selection.AutoFilter Field:=1, Criteria1:="1"
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 1
Range("C10").Select
End Sub
حال ميخواستم شرح مختصر هر كدام رو بدونم و ضمنا يك فايل ضميمه و براي برداشتن فيلتر از چه ماكرويي ميشه استفاده كرد؟
خيلي خيلي ممنون

4017

2011/03/12, 16:30

سلام
ماكرويي كه شما گذاشتيد فكر ميكنم با ابزار record ايجاد كرديد چون حركتهاي غلتك ماوس رو هم آورده.
Selection.AutoFilter Field:=3, Criteria1:="1"
شما اينجا روي ستون c عدد ۱ رو مبناي فيلتر قرار داديد
Selection محوطه هست كه عمل فيلتر در اون انجام ميشه
Field:=3 اين شماره ستونه
Criteria1:="1 اينم عدد مبنا
اميدوارم تونسته باشم منظورمو برسونم

runmohsen

2011/03/31, 12:58

با سلام
دوستان چطور ميتوان از طريق كد نويسي ويا ماكرو , اطلا عات داخل يك ستون مشخص رو مثلا هر 1 دقيقه به ترتيب صعودي به نزولي سورت كرد , و به صورت اتوماتيك اين عمل هر يك دقيقه انجام بشه

khakzad

2011/04/04, 17:03

سلام
بله
این فایل هر 10 ثانیه رنجa1:a300 رو sort .میکنه
http://www.4shared.com/file/PrAhwACD/Book1.html[hr]
فقط ماکرو رو اول یک بار اجرا کنید[hr]
اگر دقت کنیذ.کافیه اون یک خط کد رو به کد دلخواه اضافه کنید.مشاهده می کنید که زمان از ساعت تا ثانیه قابل تنظیم هست

runmohsen

2011/04/06, 17:03

محدوده سلولها رو چطور كد ماكروشون رو تغيير بديم تا رديفها نيز با اجراي ماكرو تغيير رديف بدن
منظور اينه كه يك محدوده رو رو ميخواهيم سورت كنيم يك ستون سورت ميشه وبر روي محدوده اطرافش تغييرات اعمال ميشه
مثلا در فايل نمونه شما اگر در ستونهاي b و c نيز ديتا داشته باشيم اونها هم با سورت شده ستون a تغيير پيدا كنن

MEYTI

2011/04/07, 11:02

با سلام خدمت شما دوست عزیز
در فایل زیر با سورت شدن ستون a ستونهای دیگری که دارای دیتا هستند تغییر مکنند.
http://www.upload4files.tk/download.php?file=d5f9c60b096f4d41ccd5eddd21b84b7a

mo-aslani

2011/04/07, 11:06

دوست عزیز
با اجازه اساتید فن بویژه شمس العلما عزیز من یک فایل نمونه پیوست کردم امیدوارم به دردتون بخوره
در این فایل از ستون A1تا ستون E1500 تمام تغییرات اعمال خواهد شد

http://www.4shared.com/file/IVtGzcaE/Book.html

اهورا

2013/02/04, 08:51

سلام دوستان گرامي
من هم در همين مورد يه سوالي داشتم
به اين ماكرو يه نگاه بندازين
Sub Macro6()
'
' Macro6 Macro
'

'
ActiveSheet.Range("$A$5:$A$28").AutoFilter Field:=1, Criteria1:=Range("e5").Value

End Sub

همانطور كه ميبينين
اين ماكرو در روي ستون 1 يك فايل اكسل عبارتي را كه در خانه E5 وجود دارد را فيلتر مينمايد
در اين خصوص لازم به ذكر ميدونم كه بگم اين ماكرو دقيقا عبارت داخل e5را فيلتر ميكند
حالا اگر بخواهيم اين ماكرو در ستون 1 عبارتهايي را كه شامل سلول E5 باشد را فيلتر كند بايد چگونه كدنويسي كرد؟؟؟ به زبان ساده تر كد نويسي با شرط CONTIAN چگونه است؟؟؟
ممنون ميشم كمكم كنيد....

hoomantt

2013/02/04, 11:37