zoukankan      html  css  js  c++  java
  • 【VBA研究】工作表自己主动筛选模式检測

    作者:iamlaosong

    用VBA程序处理Excel数据文件。用户的数据文件有时处于自己主动筛选模式,往往导致数据处理不对。为此,须要检測工作表是否处于该模式,假设是,则去掉自己主动筛选。语句例如以下:

            If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter

    这个语句一般仅仅用于去掉自己主动筛选,尽管Selection.AutoFilter也能够加上自己主动筛选,但筛选位置却可能在当前单元格处,所以要注意。加自己主动筛选前,现将单元格定位到字段标题处。然后用例如以下语句:

            If ActiveSheet.AutoFilterMode = False Then Selection.AutoFilter


    假设检測其他非活跃的工作表,能够用以下语句:

    If Worksheets("sheet1").AutoFilterMode = True Then 

    Worksheets("sheet1").Range("A1").AutoFilter 


    附:
    Range.AutoFilter Method
    Filters a list using the AutoFilter.

    Syntax

    expression.AutoFilter(FieldCriteria1OperatorCriteria2VisibleDropDown)

    expression   An expression that returns a Range object.

    Parameters

    Name Required/Optional Data Type Description
    Field Optional Variant The integer offset of the field on which you want to base the filter (from the left of the list; the leftmost field is field one).
    Criteria1 Optional Variant The criteria (a string; for example, "101"). Use "=" to find blank fields, or use "<>" to find nonblank fields. If this argument is omitted, the criteria is All. If Operator is xlTop10ItemsCriteria1 specifies the number of items (for example, "10").
    Operator Optional XlAutoFilterOperator One of the constants of XlAutoFilterOperator specifying the type of filter.
    Criteria2 Optional Variant The second criteria (a string). Used with Criteria1 and Operator to construct compound criteria.
    VisibleDropDown Optional Variant True to display the AutoFilter drop-down arrow for the filtered field. False to hide the AutoFilter drop-down arrow for the filtered field. True by default.

    Return Value
    Variant

    Remarks

    If you omit all the arguments, this method simply toggles the display of the AutoFilter drop-down arrows in the specified range.

    Example

    This example filters a list starting in cell A1 on Sheet1 to display only the entries in which field one is equal to the string "Otis". The drop-down arrow for field one will be hidden.

    Visual Basic for Applications
    Worksheets("Sheet1").Range("A1").AutoFilter _
        field:=1, _
        Criteria1:="Otis", _
        VisibleDropDown:=False



  • 相关阅读:
    关于软件设计中遇到的问题
    关于power shell
    如果TChart的发生异常
    重温gof版《设计模式》中的创建型模式
    如何更好的使用cvs
    存储过程返回临时表的问题
    关于bugzilla与svn结合的配置注意事项
    VC知识点:如何用vc6调试CGI程序
    如何让应用程序托盘化
    符号表
  • 原文地址:https://www.cnblogs.com/gccbuaa/p/7147370.html
Copyright © 2011-2022 走看看