دسترسی سریع

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • razemana

    • 2012/07/06
    • 78

    [حل شده] دسترسی سریع

    با سلام و وقت بخیر ، میخوام بدونم امکانی هستش که مجبور نباشم نوار کنار اکسل حرکت بدم و با انتخاب کد مربوطه به ردیف مورد نظر برم و یه جور حالت انتقال سریع به ردیف مورد نظر بهم بده ؟فایل مورد نظر پیوست می باشد .با تشکر فراوان
    فایل های پیوست شده
  • iranweld

    • 2015/03/29
    • 3341

    #2
    با سلام

    با استفاده از قابلیت های رویدادها در اکسل در صورت تغییر دیتای سلول H3 عمل فیلتر انجام میگیرد


    کد PHP:
    Sub Worksheet_Change(ByVal Target As Range)

        If 
    Not Intersect(TargetMe.Range("H3")) Is Nothing Then
        
        
        ActiveSheet
    .Range("$E:$F").AutoFilter Field:=1Criteria1:=Range("h3")
        
        
    End If
        
        
        
    End Sub 
    Click image for larger version

Name:	Untitled.png
Views:	1
Size:	87.3 کیلو بایت
ID:	130617
    فایل های پیوست شده

    کامنت

    • razemana

      • 2012/07/06
      • 78

      #3
      با انتخاب کد مربوطه میخوام طوری بشه که سطر مرد نظر نمایش داده بشه و نیازی به جا به جا کردن نوار کناری اکسل نباشه چون تعداد ردیف هام خیلی زباد هستش

      کامنت

      • iranweld

        • 2015/03/29
        • 3341

        #4
        خوب در این فایل نیازی به جابجا کردن نوار کناری نیست

        کامنت

        • razemana

          • 2012/07/06
          • 78

          #5
          اخه این نمونه هستش و فایل اصلی نیست فایل اصلی تعداد سطرهام زیاد هستش، فایل مربوطه خوب هستش ممنون ولی مشکلی که داره اینه که دائم در حال فیلتر هستش و سطرها رو نمیشه دید و با انتخاب کد عمل فیلتر انجام میشه و باید از فیلتر خارج بشه تا بتونیم سرها را ببینیم

          کامنت

          • iranweld

            • 2015/03/29
            • 3341

            #6
            این ماکرو را در فایل بررسی کنید

            کد PHP:
            Sub Worksheet_Change(ByVal Target As Range)



                If 
            Not Intersect(TargetMe.Range("H3")) Is Nothing Then
                
                Rows
            ("4:4").Select
                Range
            ("F3").Select
                
                ActiveWindow
            .SmallScroll Down:=Range("H3") - 23
                
               
                End 
            If
                
                
                
            End Sub 
            فایل های پیوست شده
            Last edited by iranweld; 2016/08/29, 10:14.

            کامنت

            چند لحظه..