اصلاح کد فیلتر

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • ali.b

    • 2014/01/12
    • 798

    اصلاح کد فیلتر

    سلام دوستان عزیز
    ی کد هست که بر اساس فیلتر کردن گزارش مورد نظر رو انجام میده
    اما مشکلی که هست اینه که شیت قبلی رو رد حالت فیلتر نمیزاره و فیلتر رو بر میداره. مثلا میخوایم عدد 1 در ستون e هر جا 1 بود انتقال بده و ردیف دوم حالت فیلتر رو داشته باشه
    چون برای ی کار دیگه نیاز به قرار داشتن فیلتر هست.
    اگه کمکی برسونید ممنونم
    فایل های پیوست شده
    [CENTER]
    [/CENTER]
  • khakzad

    • 2010/03/17
    • 2034
    • 85.00

    #2
    سلام
    لطفا داده های بهتر تو فایل بذارید
    خیلی واضح نیست که کد چکار می کنه و شما چی می خواید
    توضیح بهتربدید که بشه سریع تر کد رو متوجه شد!
    [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]

    کامنت

    • ali.b

      • 2014/01/12
      • 798

      #3
      با این کد هر جا که در ستون e عدد 1 باشه کل اون ردیف رو به شیت 2 انتقال میده

      اما میخوام حالت فیلتر که در ردیف 2 هست اون حالت از بین نره
      چون این کد ردیف 2 رو به حالت فیلتر میبره و عدد 1 رو در نظر میگره و بعد از فیلتر خارج میکنه هر کاری کردم نشد
      میخوام ایکون ها فیلتر باشه و پاک نشه
      [CENTER]
      [/CENTER]

      کامنت

      • Javid Mokhtari
        مدير تالار ويژوال بيسيك

        • 2012/01/16
        • 1212
        • 73.00

        #4
        با سلام.
        برادر شرمنده سیستمم اعصابمو خراب کرد .فقط تونستم این کد رو روش اعمال کنم.اگر میخواهید ردیف در حالت فیلتر بماند کد زیر رو به کد آخرتون اضافه کنید.

        End With
        کد PHP:
         Sheet1.Select
              Range
        ("a2:g2").AutoFilter 5Sheet1.Range("M1")
        Application.ScreenUpdating True 
        خودتون امتحان کنید ببینید جواب میده
        [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
        بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

        شرکت در دوره:
        [/FONT][/SIZE]
        [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
        [/B][/FONT][/SIZE]
        [/CENTER]
        [/INDENT]
        [/FONT]

        کامنت

        • ali.b

          • 2014/01/12
          • 798

          #5
          این کد رو قبلا درست کردم هدم این بود که بدون اینکه نیاز باشه بنویسم شیت 2 اون رو اصلاح کنه چون از این کد برای 5 شیت استفاده میشه و وجبورم 6 بار بنویسم فقط به خاطر خط اخر
          دنبال این هستم که زمانی که فیلتر رو بر میداره ایکون رو بر نداره و فقط به حالت Select all نگه داره
          Last edited by Javid Mokhtari; 2014/10/27, 16:13.
          [CENTER]
          [/CENTER]

          کامنت

          • ali.b

            • 2014/01/12
            • 798

            #6
            کد:
            Sub nash()Dim a
            a = Range("a1")
                Application.ScreenUpdating = False
            With Range("e3:e" & Cells(Rows.Count, "e").End(xlUp).Row)
            If Range("e3") = Sheet1.Range("M1") Then
             .[COLOR=#a52a2a]AutoFilter 5[/COLOR], Sheet1.Range("M1")
                .Offset(0).EntireRow.Copy
                  Sheets("sheet2").Select
                Range("A2").Select
                Selection.Insert Shift:=xlDown
                ActiveSheet.Paste
                Rows("2:2").Select
                Selection.Insert Shift:=xlDown
                Range("a2") = a
            [COLOR=#a52a2a]    .AutoFilter 5[/COLOR]
                 ActiveSheet.Cells.EntireRow.Hidden = False
                 Range("a2").Select
                  End If
            End With
            Sheet2.Select
            Application.ScreenUpdating = True
            End Sub
            با تغییر دادن اینها حل شد
            [CENTER]
            [/CENTER]

            کامنت

            • ali.b

              • 2014/01/12
              • 798

              #7
              در صمن دوستا اگه کسی خواست تعداد خروجی هر فیلتر رو داشتهباشه مثلا میخواد عدد 1 رو فیلتر کنه و بدونه چندتا هستن از تابع زیر استفاده کنن فقط سلولو هایی که مشاهده میشن رو داده های اونها رو میشماره نه سلول های مخفی در اون رنج

              کد PHP:
              =subtotal(1,2
              در اینجا عدد 1 نوع جمع ( مثلا اگه حروف رو میخواد باید از لیست counta رو بگیره)
              2 هم رنج مورد نظر رو باید وارد کنی
              [CENTER]
              [/CENTER]

              کامنت

              • Javid Mokhtari
                مدير تالار ويژوال بيسيك

                • 2012/01/16
                • 1212
                • 73.00

                #8
                پس حل شد...؟
                [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
                بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

                شرکت در دوره:
                [/FONT][/SIZE]
                [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
                [/B][/FONT][/SIZE]
                [/CENTER]
                [/INDENT]
                [/FONT]

                کامنت

                چند لحظه..