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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • razeghi

    • 2010/12/30
    • 12
    #1

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

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

    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

      • 2010/10/03
      • 114
      #2
      RE: فيلتر كردن با ماكرو

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

        کامنت

        • runmohsen

          • 2010/06/13
          • 120
          #3
          RE: فيلتر كردن با ماكرو

          با سلام
          دوستان چطور ميتوان از طريق كد نويسي ويا ماكرو , اطلا عات داخل يك ستون مشخص رو مثلا هر 1 دقيقه به ترتيب صعودي به نزولي سورت كرد , و به صورت اتوماتيك اين عمل هر يك دقيقه انجام بشه
          [size=medium][b]موفق باشيد[/b][/size]

            کامنت

            • khakzad

              • 2010/03/17
              • 2034
              • 85.00
              #4
              RE: فيلتر كردن با ماكرو

              سلام
              بله
              این فایل هر 10 ثانیه رنجa1:a300 رو sort .میکنه
              http://www.4shared.com/file/PrAhwACD/Book1.html[hr]
              فقط ماکرو رو اول یک بار اجرا کنید[hr]
              اگر دقت کنیذ.کافیه اون یک خط کد رو به کد دلخواه اضافه کنید.مشاهده می کنید که زمان از ساعت تا ثانیه قابل تنظیم هست
              [CENTER][B][COLOR=#008000][SIZE=3]محصولات و جزوات آموزش تخصصی [URL="https://excelpedia.net/"]اکسل[/URL] در:

              [URL="https://excelpedia.net/category/excel-functions/"]برترین مرجع تخصصی پارسی اکسل[/URL]
              [URL="http://www.exceliran.com/shop/"]جامعه اكسل ايرانيان: فروشگاه[/URL][/SIZE][/COLOR][/B]
              :wcom:

              [B][URL="https://excelpedia.net/"]آموزش اکسل تخصصی[/URL] و [URL="https://excelpedia.net/excel-ninja/"]پیشرفته[/URL] - [URL="https://excelpedia.net/"]تهران[/URL][/B]
              [EMAIL="h.khakzad@yahoo.com"]h.khakzad@yahoo.com[/EMAIL]
              [/CENTER]

                کامنت

                • runmohsen

                  • 2010/06/13
                  • 120
                  #5
                  RE: فيلتر كردن با ماكرو

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

                    کامنت

                    • MEYTI

                      • 2010/11/11
                      • 362
                      #6
                      RE: فيلتر كردن با ماكرو

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

                        کامنت

                        • mo-aslani

                          • 2011/01/27
                          • 32
                          #7
                          RE: فيلتر كردن با ماكرو

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

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

                            کامنت

                            • اهورا

                              • 2012/11/01
                              • 18
                              • 43.00
                              #8
                              RE: فيلتر كردن با ماكرو

                              سلام دوستان گرامي
                              من هم در همين مورد يه سوالي داشتم
                              به اين ماكرو يه نگاه بندازين
                              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 چگونه است؟؟؟
                              ممنون ميشم كمكم كنيد....
                              [size=x-large][/size][size=large][/size][i][font=Courier][color=#800000]من خدا را دارم[/color][/font][/i]

                                کامنت

                                • hoomantt

                                  • 2011/03/28
                                  • 19
                                  #9
                                  RE: فيلتر كردن با ماكرو

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

                                    کامنت

                                    قبلی template بعدی
                                    چند لحظه..