نشان ندادن ردیف های بیشتر از 1000 ردیف در فیلتر کردن

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • habib100

    • 2017/12/18
    • 112
    • 39.00

    پرسش نشان ندادن ردیف های بیشتر از 1000 ردیف در فیلتر کردن

    با سلام و وقت بخیر خدمت همه دوستان
    مشکلی در فایل اکسل دارم که وقتی یک ستونی را فیلتر میکنم داده های ردیف بیشتر از 10000 را نشامن نمی دهد
    فیلتر را هم برای کل شیت برداشتم و دوبار ه گذاشتم برای یک ستون برداشتم و دو باره گذاشتم
    ....
    ولی جواب نداد
    فکر کنم آفیس نصبی2017 باشد(می گویند جز محدویت های اکسل در این ورژن هست ولی من فایل دیگری دارم بیشاز 10000 دارد و این مشکل را ندارد)
    ممنونم از راهنماییتان
  • habib100

    • 2017/12/18
    • 112
    • 39.00

    #2
    نمون فایل(بخشی از فایل مورد نظر)

    نوشته اصلی توسط habib100
    با سلام و وقت بخیر خدمت همه دوستان
    مشکلی در فایل اکسل دارم که وقتی یک ستونی را فیلتر میکنم داده های ردیف بیشتر از 10000 را نشامن نمی دهد
    فیلتر را هم برای کل شیت برداشتم و دوبار ه گذاشتم برای یک ستون برداشتم و دو باره گذاشتم
    ....
    ولی جواب نداد
    فکر کنم آفیس نصبی2017 باشد(می گویند جز محدویت های اکسل در این ورژن هست ولی من فایل دیگری دارم بیشاز 10000 دارد و این مشکل را ندارد)
    ممنونم از راهنماییتان

    قسمتی از فایل را می فرستم
    ممنونم
    فایل های پیوست شده

    کامنت

    • حسام بحرانی

      • 2013/09/29
      • 2065
      • 72.00

      #3
      نمایش سطر بیشتر از 10000 در فیلتر گیری

      نوشته اصلی توسط habib100
      با سلام و وقت بخیر خدمت همه دوستان
      مشکلی در فایل اکسل دارم که وقتی یک ستونی را فیلتر میکنم داده های ردیف بیشتر از 10000 را نشامن نمی دهد
      فیلتر را هم برای کل شیت برداشتم و دوبار ه گذاشتم برای یک ستون برداشتم و دو باره گذاشتم
      ....
      ولی جواب نداد
      فکر کنم آفیس نصبی2017 باشد(می گویند جز محدویت های اکسل در این ورژن هست ولی من فایل دیگری دارم بیشاز 10000 دارد و این مشکل را ندارد)
      ممنونم از راهنماییتان
      با درود

      لطفاً به لینک زیر مراجعه کنید:
      نمایش سطر بیشتر از 10000 در فیلتر گیری

      موفق باشید.
      [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
      [/FONT][/B][/CENTER]
      [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
      [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
      [/FONT][/B][/FONT][/SIZE]
      [/CENTER]

      کامنت

      • habib100

        • 2017/12/18
        • 112
        • 39.00

        #4
        نوشته اصلی توسط حسام بحرانی
        با درود

        لطفاً به لینک زیر مراجعه کنید:
        نمایش سطر بیشتر از 10000 در فیلتر گیری

        موفق باشید.
        سلام
        ممنونم. ولی نمیخواهم دیتاها را در جند ستون دسته بندی کنم و با آین راه حل نشد نتوانستم کد vba را رویش اعمال کنم
        راه حل دیگری ندارد؟
        مثل نوشتن کد VBA برایش بدون اینکه چهارچوبش بهم خورد؟؟
        ممنون

        کامنت

        • habib100

          • 2017/12/18
          • 112
          • 39.00

          #5
          نوشته اصلی توسط habib100
          قسمتی از فایل را می فرستم
          ممنونم
          سلام وقت بخیر دوستان
          کسی راه حلی برای این موضوع داره؟ با vba یا ....
          ممنونم

          کامنت

          • habib100

            • 2017/12/18
            • 112
            • 39.00

            #6
            نوشته اصلی توسط habib100
            سلام وقت بخیر دوستان
            کسی راه حلی برای این موضوع داره؟ با vba یا ....
            ممنونم

            سلام وقت بخیر
            کد vba را وارد میکنم ارور میده
            میخام ستون C و ستون I فیلتر شوند
            ممنونم
            Sub allee_kiha_AF()
            Const pmpt As String = "Show data for:"
            Const ttl As String = "Criteria"
            Const dflt As String = "<>2"

            Dim c As Range, t As Range, w As String

            w = Trim(InputBox(pmpt, ttl, dflt))
            If Len(w) = 0 Then Exit Sub

            With ThisWorkbook.Sheets("Rotation")
            .Select
            If .FilterMode Then .ShowAllData
            Set t = .Range("A2:I2").CurrentRegion
            Set c = .Range("A2:I2")
            c.Value = Application.Transpose(Array("Row", w))
            t.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=c, Unique:=False
            c.ClearContents
            End With
            End Sub

            فایل های پیوست شده

            کامنت

            چند لحظه..