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

Collapse
X
 
  • زمان
  • نمایش
Clear All
new posts
  • razeghi

    • 2010/12/30
    • 12

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

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

    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 اينم عدد مبنا
    اميدوارم تونسته باشم منظورمو برسونم
    اگر تنهاترين تنهايان شوم بازهم خدا هست،
    او جانشين تمام نداشته هاي من است...!

    کامنت

    • runmohsen

      • 2010/06/13
      • 120

      #3
      RE: فيلتر كردن با ماكرو

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

      کامنت

      • khakzad

        • 2010/03/17
        • 2034

        #4
        RE: فيلتر كردن با ماكرو

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

        کامنت

        • runmohsen

          • 2010/06/13
          • 120

          #5
          RE: فيلتر كردن با ماكرو

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

          کامنت

          • MEYTI

            • 2010/11/11
            • 362

            #6
            RE: فيلتر كردن با ماكرو

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

            کامنت

            • mo-aslani

              • 2011/01/27
              • 32

              #7
              RE: فيلتر كردن با ماكرو

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

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

              کامنت

              • اهورا

                • 2012/11/01
                • 18

                #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 چگونه است؟؟؟
                ممنون ميشم كمكم كنيد....
                من خدا را دارم

                کامنت

                • 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

                  کامنت

                  Working...