来自 新葡亰办公软件 2019-11-06 09:27 的文章
当前位置: 澳门新葡亰app > 新葡亰办公软件 > 正文

澳门新葡亰官网APP:下面是一些使用AutoFilter的例

问题:EXCEL表格中哪些多尺度筛选?

目录

回答:

澳门新葡亰官网APP 1 AutoFilter
澳门新葡亰官网APP 2 Binding
澳门新葡亰官网APP 3 Cell Comments
澳门新葡亰官网APP 4 Cell Copy
澳门新葡亰官网APP 5 Cell Format
澳门新葡亰官网APP 6 Cell Number Format
澳门新葡亰官网APP 7 Cell Value
澳门新葡亰官网APP 8 Cell

  1. 开发供给挑选的文本。大家的指标是要寻找薪金>二〇〇三,报废<1000的数码。要是你筛选每种各种的查阅,是相比较没功能的,借使数额非常多,查找就更难。澳门新葡亰官网APP 9

AutoFilter

    1. 确定当前职业表是不是开启了电动筛选功效Sub filter()
           If ActiveSheet.AutoFilterMode Then
              MsgBox "Turned on"
           End If
      End Sub

    当专门的职业表中有单元格使用了全自动筛选功效,专业表的AutoFilterMode的值将为True,不然为False。

    1. 使用Range.AutoFilter方法
      Sub Test()
      Worksheets("Sheet1").Range("A1").AutoFilter _
          field:=1, _
          Criteria1:="Otis"
          VisibleDropDown:=False
      End Sub

    以上是意气风发段来源于Excel扶持文书档案的例子,它从A1单元格开始筛选出值为Otis的单元格。Range.AutoFilter方法能够带参数也能够不带参数。当不带参数时,表示在Range对象所钦赐的区域内奉行“筛选”菜单命令,即仅呈现三个自动筛选下拉箭头,这种情况下风度翩翩旦重新实践Range.AutoFilter方法则足以撤除机关筛选;当带参数时,可根据给定的参数在Range对象所钦赐的区域内开展多少筛选,只呈现相符筛选标准的多少。参数Field为筛选标准字段的整型偏移量,Criterial1、Operator和Criterial2三个参数一同组成了筛选规范,最终三个参数VisibleDropDown用来钦命是或不是出示自动筛选下拉箭头。
    当中Field参数大概不太好明白,这里给一投注明:

  1. 如图,增多扶持标准区域,并输入公式,依照大家的须要输入公式“=(C2>贰零零肆卡塔尔国*(D2<1000)",当中C2意味的是”工资“,D2代表的是”报废“,实操中依据本人的急需选用原则。

    澳门新葡亰官网APP 10

  2. 透过步骤2到手如图结果,此时救助标准区域曾经完毕。

    澳门新葡亰官网APP 11

  3. 入选任生机勃勃单元格,在工具栏中找到”数据“中”筛选“生机勃勃栏,接受”高等“。

    澳门新葡亰官网APP 12

  4. 当时,现身如图所示对话框,在”列表区域“选中全体供给筛选的多少。

    澳门新葡亰官网APP 13

  5. 在”条件区域“选中步骤第22中学创造的支持标准区域。

    澳门新葡亰官网APP 14

  6. 成就。如图所示为末段筛选出的结果,全部满意薪给超越二〇〇一,报销小于1000的规范。

    澳门新葡亰官网APP 15

澳门新葡亰官网APP 16

回答:

用地点的代码结合那个截图,若是从A1单元格发轫进行数量筛选,若是Field的值为1,则代表取列表中的第贰个字段即B列,依此类推,假使Field的值为2则意味着C列…然而前提是富有的待筛选列表是连接的,就是说中间不能有空驶列车。当然也足以如此,使用Range(“A1:E17”).AutoFilter,那样正是待筛选列表中有空驶列车也得以,因为已经内定了多少个待筛选区域。Field的值表示的正是将筛选规范应用到所表示的列上。下边是某些施用AutoFilter的例子。

方式如下:

Sub SimpleOrFilter()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=4,Criteria1:="=A", Operator:=xlOr, Criteria2:="=B"
End Sub

先是,下表中是贰个初一年级的成就汇总新闻表,能够看看学子班级,姓名,以致各科战绩。大家要做的是高效依照需要和成绩排序,筛选出须要的新闻。

 

澳门新葡亰官网APP 17

Sub SimpleAndFilter()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=4, _
        Criteria1:=">=A", _
        Operator:=xlAnd, Criteria2:="<=EZZ"
End Sub

若果供给按语文战表从高到低,排序。大家得以选用数据选项卡上面包车型地铁排序作用,主要关键字,选用语文成绩,然后采用降序排列。那样excel表就能够将培育根据语文成绩由高到低排序。

 

澳门新葡亰官网APP 18

Sub Top10Filter()
    ' Top 12 Revenue Records
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=6, Criteria1:="12",Operator:=xlTop10Items
End Sub

假如既要展现语文成绩的前三名,又同有时候要总成绩的前三名,怎么办吧?这就事关到多规格筛选。超级轻易。如故是数码,排序选项卡,接纳丰盛条件采取,扩展条件下拉菜单,总战绩- 降序排列。点击鲜明。

 

澳门新葡亰官网APP 19

Sub MultiSelectFilter()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=4, Criteria1:=Array("A", "C", "E","F", "H"),Operator:=xlFilterValues
End Sub

那样语文战绩和总战绩同期位列前三名的学习者音信就显得出来了。如红框呈现

 

澳门新葡亰官网APP 20

Sub DynamicAutoFilter()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=3,Criteria1:=xlFilterNextYear,Operator:=xlFilterDynamic
End Sub

假杜撰要只看某一个班级的新闻,也得以使用Excel的筛选效率,轻巧实现,比方大家供给看初一1班的学习者音讯。就足以筛选数据,筛选,下拉菜单,只勾选初意气风发1班。

 

澳门新葡亰官网APP 21

Sub FilterByIcon()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=6, _
        Criteria1:=ActiveWorkbook.IconSets(xl5ArrowsGray).Item(5),Operator:=xlFilterIcon
End Sub

如此那般显示器上就只显示初大器晚成1班的成绩新闻,别的的多寡就自动隐蔽了。

 

澳门新葡亰官网APP 22

Sub FilterByFillColor()
    Worksheets("SalesReport").Select
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=6, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
End Sub

若是急需将excel调换来pdf文件的话能够利用便捷pdf在线调换器举办操作哦。

上面包车型客车主次是通过Excel的AutoFilter功效火速删除行的办法,供参谋:

回答:

Sub DeleteRows3()
    Dim lLastRow As Long       'Last row
    Dim rng As range
    Dim rngDelete As range
    'Freeze screen
    Application.ScreenUpdating = False
    'Insert dummy row for dummy field name
    Rows(1).Insert
    'Insert dummy field name
    range("C1").value = "Temp"
    With ActiveSheet
        .UsedRange
        lLastRow = .cells.SpecialCells(xlCellTypeLastCell).row
        Set rng = range("C1", cells(lLastRow, "C"))
        rng.AutoFilter Field:=1, Criteria1:="Mangoes"
        Set rngDelete = rng.SpecialCells(xlCellTypeVisible)
        rng.AutoFilter
        rngDelete.EntireRow.delete
        .UsedRange
    End With
End Sub

答: 提供3种方法

澳门新葡亰官网APP 23 再次回到目录

  1. 利用Excel常规筛选功用
  2. 运用Excel高等筛选功用
  3. 利用VBA编程

 Binding

原本示例数据图:

    1. 三个利用最先Binging的例证 Sub EarlyBinding()
          Dim objExcel As Excel.Application
          Set objExcel = New Excel.Application
          With objExcel
              .Visible = True
              .Workbooks.Add
              .Range("A1") = "Hello World"
          End With
      End Sub
    1. 使用CreateObject创建Excel实例 Sub LateBinding()

        'Declare a generic object variable
        Dim objExcel As Object

        'Point the object variable at an Excel application object
        Set objExcel = CreateObject("Excel.Application")

        'Set properties and execute methods of the object
        With objExcel
            .Visible = True
            .Workbooks.Add
            .Range("A1") = "Hello World"
        End With

    End Sub

    1. 运用CreateObject创设钦赐版本的Excel实例 Sub mate()
          Dim objExcel As Object

        Set objExcel = CreateObject("Excel.Application.8")
    End Sub

澳门新葡亰官网APP 24

              当Create对象实例之后,就足以应用该指标的保有属性和章程了,如SaveAs方法、Open方法、Application属性等。

例生龙活虎:(单列多规格卡塔尔须要筛选出姓名叫"梁盼烟"和"李雁卉"的笔录。

澳门新葡亰官网APP 25 重临目录

  • 选择正规筛选方法:

 Cell Comments

分选表格中从心所欲单元格,施行"数据"-“筛选“,选取"梁盼烟",接注重复操作,在查找栏输入"李雁卉",注意勾选"将近期所选内容增加到筛选器"。鲜明后就筛选出那2个人的记录。

    1. 收获单元格的备注

    Private Sub CommandButton1_Click()
        Dim strGotIt As String
        strGotIt = WorksheetFunction.Clean(Range("A1").Comment.Text)
        MsgBox strGotIt
    End Sub

    Range.Comment.Text用于获取单元格的备注文本,固然当前单元格未有增加备注,则会掀起这几个。注意代码中接纳了WorksheetFunction对象,该目的是Excel的系统对象,它提供了过多种类函数,这里运用的Clean函数用于清楚钦点文本中的全数重大字(特殊字符卡塔 尔(阿拉伯语:قطر‎,具体音讯方可查阅Excel自带的佑助文书档案,里面提供的函数超级多。下边是一个应用Application.WorksheetFunction.Substitute函数的例子,当中第2个Substitute将加以的字符串中的author:替换为空字符串,第2个Substitute将加以的字符串中的空格替换为空字符串。

    Private Function CleanComment(author As String, cmt As String) As String
        Dim tmp As String

        tmp = Application.WorksheetFunction.Substitute(cmt, author & ":", "")
        tmp = Application.WorksheetFunction.Substitute(tmp, Chr(10), "")

        CleanComment = tmp
    End Function

    1. 校勘Excel单元格内容时自动给单元格加多Comments音讯Private Sub Worksheet_Change(ByVal Target As Excel.Range)
          Dim newText As String
          Dim oldText As String
          
          For Each cell In Target
              With cell
                  On Error Resume Next
                  oldText = .Comment.Text
                  If Err <> 0 Then .AddComment
                  newText = oldText & " Changed by " & Application.UserName & " at " & Now & vbLf
                  MsgBox newText
                  .Comment.Text newText
                  .Comment.Visible = True
                  .Comment.Shape.Select
                   Selection.AutoSize = True
                  .Comment.Visible = False
              End With
          Next cell
      End Sub

    Comments内容能够遵照要求和煦改革,Worksheet_Change方法在Worksheet单元格内容被纠正时举行。

    1. 转移Comment标签的来得状态 Sub ToggleComments()
          If Application.DisplayCommentIndicator = xlCommentAndIndicator Then
              Application.DisplayCommentIndicator = xlCommentIndicatorOnly
          Else
              Application.DisplayCommentIndicator = xlCommentAndIndicator
          End If
      End Sub

    Application.DisplayCommentIndicator有二种境况:xlCommentAndIndicator-始终展现Comment标签、xlCommentIndicatorOnly-当鼠标指向单元格的Comment pointer时展现Comment标签、xlNoIndicator-隐敝Comment标签和单元格的Comment pointer。

    1. 变动Comment标签的暗许大徐熙娣(英文名:Elephant Dee卡塔 尔(英语:State of Qatar)ub CommentFitter1()
          With Range("A1").Comment
              .Shape.Width = 150
              .Shape.Height = 300
          End With
      End Sub

    小心:旧版本中的Range.NoteText方法相像能够重返单元格中的Comment,依照Excel的增派文书档案中的介绍,建议在新本子中集结运用Range.Comment方法。

澳门新葡亰官网APP 26

澳门新葡亰官网APP 27 再次来到目录

澳门新葡亰官网APP 28

 Cell Copy

  • 接收高档筛选方法:
    1. 从多个Sheet中的Range拷贝数据到另三个Sheet中的Range Private Sub CommandButton1_Click()
          Dim myWorksheet As Worksheet
          Dim myWorksheetName As String
          
          myWorksheetName = "MyName"
          Sheets.Add.Name = myWorksheetName
          Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)
          Sheets("Sheet1").Range("A1:A5").Copy Sheets(myWorksheetName).Range("A1")
      End Sub

    Sheets.Add.Name = myWorksheetName用于在Sheets群集中增加名为myWorksheetName的Sheet,Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)将刚刚加多的这一个Sheet移到Sheets集合中末了叁个要素的末尾,最终Range.Copy方法将数据拷贝到新表中对应的单元格中。

高端筛选须要设定筛选规范,并放置在别处,避开数据源。如下图:

澳门新葡亰官网APP 29 重临目录

澳门新葡亰官网APP 30

 Cell Format

接纳表格中随便单元格,试行"数据"-“排序和筛选“-"高等筛选",按如下设定条件:

    1. 设置单元格文字的颜料 Sub fontColor()
          Cells.Font.Color = vbRed
      End Sub

    Color的值能够经过LANDGB(0,225,0)这种方式得到,也得以利用Color常数:

    常数

    描述

    vbBlack 0x0 黑色
    vbRed 0xFF 红色
    vbGreen 0xFF00 绿色
    vbYellow 0xFFFF 黄色
    vbBlue 0xFF0000 蓝色
    vbMagenta 0xFF00FF 紫红色
    vbCyan 0xFFFF00 青色
    vbWhite 0xFFFFFF 白色
    1. 经过ColorIndex属性纠正单元格字体的颜色
      经过地方的法子外,还足以透过钦命Range.Font.ColorIndex属性来改进单元格字体的颜料,该属性表示了调色板中颜色的索引值,也足以钦命多个常量,xlColorIndexAutomatic(-4105卡塔 尔(英语:State of Qatar)为电动配色,xlColorIndexNone(-4142卡塔 尔(阿拉伯语:قطر‎表示无色。
    1. 八个Format单元格的例子 Sub cmd()
          Cells(1, "D").Value = "Text"
          Cells(1, "D").Select
          
          With Selection
              .Font.Bold = True
              .Font.Name = "Arial"
              .Font.Size = 72
              .Font.Color = RGB(0, 0, 255)  'Dark blue
              .Columns.AutoFit
              .Interior.Color = RGB(0, 255, 255) 'Cyan
              .Borders.Weight = xlThick
              .Borders.Color = RGB(0, 0, 255)  'Dark Blue
          End With
      End Sub
    1. 钦点单元格的边框样式 Sub UpdateBorder
          range("A1").Borders(xlRight).LineStyle = xlLineStyleNone
          range("A1").Borders(xlLeft).LineStyle = xlContinuous
          range("A1").Borders(xlBottom).LineStyle = xlDashDot
          range("A1").Borders(xlTop).LineStyle = xlDashDotDot    
      End Sub

    只要要为Range的多个边框设置同大器晚成的体制,能够直接设置Range.Borders.LineStyle的值,该值为贰个常数:

    名称

    描述

    xlContinuous 1 实线
    xlDash -4115 虚线
    xlDashDot 4 点划相间线
    xlDashDotDot 5 划线后跟两个点
    xlDot -4118 点式线
    xlDouble -4119 双线
    xlLineStyleNone -4142 无线
    xlSlantDashDot 13 倾斜的划线

澳门新葡亰官网APP 31

澳门新葡亰官网APP 32 重回目录

按鲜明后获得后生可畏致结果:

 Cell Number Format

澳门新葡亰官网APP 33

  1. 退换单元格数值的格式 Sub FormatCell()
        Dim myVar As Range
        Set myVar = Selection
        With myVar
            .NumberFormat = "#,##0.00_);[Red](#,##0.00)"
            .Columns.AutoFit
        End With

    End Sub

    单元格数值的格式有广大种,如数值、货币、日期等,具体的格式钦命样式能够透过摄像Excel宏获知,在Excel的Sheet中选中多个单元格,然后单击右键,选取“设置单元格格式”,在“数字”选项卡中开展选取。

  • 使用VBA方法:

澳门新葡亰官网APP 34 重返目录

按ALT+F11组合键,展开VB编辑器,接纳"插入"-"模块",然后复制上边代码进去,按F5运维。

 Cell Value

Sub Demo()

    1. 接收STRConv函数转变Cell中的Value值

    Sub STRConvDemo()
        Cells(3, "A").Value = STRConv("ALL LOWERCASE ", vbLowerCase)
    End Sub

    STRConv是二个功力很强的系列函数,它能够依照钦赐的转移类型调换字符串值,如大小写转变、将字符串中的首字母大写、单双字节字符调换、平假名片假名调换、Unicode字符集调换等。具体的行使准则和参数类型读者能够查看一下Excel自带的协理文书档案,在扶植中输入STRConv,查看找出结果中的第黄金年代项。

    1. 行使Format函数举行字符串的大小写调换Sub callLower()
          Cells(2, "A").Value = Format("ALL LOWERCASE ", "<")
      End Sub

    Format也是三个不胜常用的种类函数,它用来格式化输出字符串,有关Format的施用读者能够查看Excel自带的帮带文档。Format函数有无数的行使本领,如本例给出的<能够将字符串转变为小写情势,相应地,>则可以将字符串转变为大写方式。

    1. 少年老成种援用单元格的急速方法 Sub GetSum()                    ' using the shortcut approach
          [A1].Value = Application.Sum([E1:E15])
      End Sub

    [A1]即等效于Range("A1"),那是豆蔻梢头种援用单元格的高效方法,在公式中近似也可以选取。

    1. 计量单元格中的公式 Sub CalcCell()
            Worksheets("Sheet1").range("A1").Calculate
      End Sub

    示范中的代码将计算Sheet1职业表中A1单元格的公式,相应地,Application.Calculate能够计算有所张开的专业簿中的公式。

    1. 多少个用以检查单元格数据类型的事例 Function CellType(揽胜极光ng)
          Application.Volatile
          Set Rng = Rng.Range("A1")
          Select Case True
              Case IsEmpty(Rng)
                  CellType = "Blank"
              Case WorksheetFunction.IsText(Rng)
                  CellType = "Text"
              Case WorksheetFunction.IsLogical(Rng)
                  CellType = "Logical"
              Case WorksheetFunction.IsErr(Rng)
                  CellType = "Error"
              Case IsDate(Rng)
                  CellType = "Date"
              Case InStr(1, Rng.Text, ":") <> 0
                  CellType = "Time"
              Case IsNumeric(Rng)
                  CellType = "Value"
          End Select
      End Function

    Application.Volatile用于将顾客自定义函数标识为易失性函数,有关该格局的具体应用,读者能够查阅Excel自带的救助文书档案。

    1. 贰个Excel单元格行列转变的事例 Public Sub Transpose()
          Dim I As Integer
          Dim J As Integer
          Dim transArray(9, 2) As Integer
          For I = 1 To 3
              For J = 1 To 10
                  transArray(J - 1, I - 1) = Cells(J, Chr(I + 64)).Value
              Next J
          Next I
          Range("A1:C10").ClearContents
          For I = 1 To 3
              For J = 1 To 10
                  Cells(I, Chr(J + 64)).Value = transArray(J - 1, I - 1)
              Next J
          Next I
      End Sub

    该示例将A1:C10矩阵中的数据开展行列调换。
    转换前:澳门新葡亰官网APP 35
    转换后:澳门新葡亰官网APP 36

    1. VBA中冒泡排序示例 Public Sub BubbleSort2()
          Dim tempVar As Integer
          Dim anotherIteration As Boolean
          Dim I As Integer
          Dim myArray(10) As Integer
          For I = 1 To 10
              myArray(I - 1) = Cells(I, "A").Value
          Next I
          Do
              anotherIteration = False
              For I = 0 To 8
                  If myArray(I) > myArray(I + 1) Then
                      tempVar = myArray(I)
                      myArray(I) = myArray(I + 1)
                      myArray(I + 1) = tempVar
                      anotherIteration = True
                  End If
              Next I
          Loop While anotherIteration = True
          For I = 1 To 10
              Cells(I, "B").Value = myArray(I - 1)
          Next I
      End Sub

    该实例将A1:A第10中学的数值按从小到大的顺序举行并,并出口到B1:B10的单元格中。
    澳门新葡亰官网APP 37

    1. 叁个验证Excel单元格数据输入标准的例证 Private Sub Worksheet_Change(ByVal Target As Range)
          Dim cellContents As String
          Dim valLength As Integer
          cellContents = Trim(Str(Val(Target.Value)))
          valLength = Len(cellContents)
          If valLength <> 3 Then
              MsgBox ("Please enter a 3 digit area code.")
              Cells(9, "C").Select
          Else
              Cells(9, "C").Value = cellContents
              Cells(9, "D").Select
          End If
      End Sub

    根本看一下Val函数,该函数再次回到给定的字符串中的数字,数字之外的字符将被忽视掉,该示例用于检查评定顾客单元格的输入值,借使输入值中富含的数字个数不等于3,则提醒顾客,不然就将个中的数字赋值给另贰个单元格。

Range("A1:E9").AutoFilter Field:=1, Criteria1:=Array("梁盼烟", "李雁卉"), Operator:=xlFilterValues

澳门新葡亰官网APP 38 再次回到目录

End Sub

 Cell

澳门新葡亰官网APP 39

    1. 检索最终叁个单元格 Sub GetLastCell()
         Dim RealLastRow As Long
         Dim RealLastColumn As Long
         
         Range("A1").Select
         On Error Resume Next
         RealLastRow = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
         RealLastColumn = Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column
         Cells(RealLastRow, RealLastColumn).Select
      End Sub

    该示例用来探究出当前专业表中的结尾单元,并将其当选,首要采纳了Cells对象的Find方法,有关该方法的详细表达读者能够参考Excel自带的援救文档,寻找Cells.Find,见Range.Find方法的求证。

    1. 剖断多少个单元格是或不是为空 Sub Shade伊芙ryRowWithNotEmpty()
        Dim i As Integer
        i = 1
        Do Until IsEmpty(Cells(i, 1))
          Cells(i, 1).EntireRow.Interior.ColorIndex = 15
          i = i + 1
        Loop
      End Sub

    IsEmpty函数本是用来推断变量是或不是业已初步化的,它也足以被用来判别单元格是还是不是为空,该示例从A1单元格初步向下检查单元格,将其所在行的背景观设置成蓝色,直到下三个单元格的情节为空。

    1. 判别当前单元格是不是为空的其它大器晚成种艺术 Sub IsActiveCellEmpty()
          Dim sFunctionName As String, sCellReference As String
          sFunctionName = "ISBLANK"
          sCellReference = ActiveCell.Address
          MsgBox Evaluate(sFunctionName & "(" & sCellReference & ")")
      End Sub

    Evaluate方法用来计量给定的表明式,如计量三个公式Evaluate("Sin(45)"),该示例使用Evaluate方法总计ISBLANK表明式,该表明式用来鉴定钦点的单元格是或不是为空,如Evaluate(ISBLANK(A1))。

    1. 五个在加以的区域中寻觅数值最大的单元格的例子 Sub GoTo马克斯()
          Dim WorkRange As range

        If TypeName(Selection) <> "Range" Then Exit Sub

        If Selection.Count = 1 Then
            Set WorkRange = Cells
        Else
            Set WorkRange = Selection
        End If
        MaxVal = Application.Max(WorkRange)
        On Error Resume Next
        WorkRange.Find(What:=MaxVal, _
            After:=WorkRange.range("A1"), _
            LookIn:=xlValues, _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, MatchCase:=False _
            ).Select
        If Err <> 0 Then MsgBox "Max value was not found: " _
         & MaxVal
    End Sub

    1. 动用数组更加快地填充单元格区域 Sub ArrayFillRange()
          Dim TempArray() As Integer
          Dim TheRange As range

        CellsDown = 3
        CellsAcross = 4
        StartTime = timer

        ReDim TempArray(1 To CellsDown, 1 To CellsAcross)
        Set TheRange = ActiveCell.range(Cells(1, 1), Cells(CellsDown, CellsAcross))
        CurrVal = 0
        Application.ScreenUpdating = False
        For I = 1 To CellsDown
            For J = 1 To CellsAcross
                TempArray(I, J) = CurrVal + 1
                CurrVal = CurrVal + 1
            Next J
        Next I

        TheRange.value = TempArray
        Application.ScreenUpdating = True
        MsgBox Format(timer - StartTime, "00.00") & " seconds"
    End Sub

    该示例展示了将二个二维数组直接赋值给三个“等效”单元格区域的主意,利用该办法能够行使数组直接填充单元格区域,结合下边这几个一贯在循环中填充单元格区域的艺术,读者能够和煦作证二种办法在效用上的分化。 Sub LoopFillRange()
        Dim CurrRow As Long, CurrCol As Integer
        Dim CurrVal As Long

        CellsDown = 3
        CellsAcross = 4
        StartTime = timer
        CurrVal = 1
        Application.ScreenUpdating = False
        For CurrRow = 1 To CellsDown
            For CurrCol = 1 To CellsAcross
                ActiveCell.Offset(CurrRow - 1, _
                CurrCol - 1).value = CurrVal
                CurrVal = CurrVal + 1
            Next CurrCol
        Next CurrRow

    '   Display elapsed time
        Application.ScreenUpdating = True
        MsgBox Format(timer - StartTime, "00.00") & " seconds"
    End Sub

运转结果如下图:

澳门新葡亰官网APP 40 重临目录

澳门新葡亰官网APP 41

 

例二:(多列条件卡塔尔国务求筛选出性别为"女",奖金数大于200的记录行。**

  • 接纳正规筛选方法:

接收表格中自由单元格,实行"数据"-“筛选“,先在性别下拉框选择"女",然后在奖金列下拉精选"大于",如下图:

澳门新葡亰官网APP 42

填上200后确定。

澳门新葡亰官网APP 43

获得如下结果:

澳门新葡亰官网APP 44

  • 利用高等筛选方法:

行使准绳公式,条件区域的首行必需为空或然是与数量区域标题行分裂的标题字段。

,如图G1:G2单元格,里面包涵公式:

=AND(性别="女",奖金>200)

澳门新葡亰官网APP 45

分选表格中自便单元格,实施"数据"-“排序和筛选“-"高档筛选",按如下设定标准:

澳门新葡亰官网APP 46

规定后,获得平等结果。

澳门新葡亰官网APP 47

  • 使用VBA方法:

此处提供第22中学代码供参谋:

Sub Demo2()

With Range("$A$1:$E$9")

.AutoFilter Field:=3, Criteria1:="女"

.AutoFilter Field:=5, Criteria1:=">200", Operator:=xlAnd

End With

End Sub


Sub Demo3()

Dim rngData As Range

Dim rngCriteria As Range

Set rngData = Range("A1:E9")

Set rngCriteria = Range("G1:G2")

rngData.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rngCriteria, Unique:=False

End Sub

澳门新葡亰官网APP 48

运营此中三个就能够拿走平等结果,如下图:

澳门新葡亰官网APP 49

回答:

Excel中的筛选,有三种,都足以兑现多规格筛选

  • 日常说来筛选

  • 尖端筛选

日常筛选

打开Excel中的普通筛选,能够如下情势

澳门新葡亰官网APP 50

不等列的多规格挑选,能够一贯挨个字段点击筛选下拉框,然后输入累积筛选规范就能够。

澳门新葡亰官网APP 51

同列上多规格筛选,犹如下两种方法:

  • 在输入条件后,勾选"将日前所选内容加多到筛选器"

澳门新葡亰官网APP 52

  • 您仍能利用自定义筛选

澳门新葡亰官网APP 53

常备筛选中的多规格筛选动漫

澳门新葡亰官网APP 54

高级筛选

高档筛选,在如下地方:

澳门新葡亰官网APP 55

尖端筛选的接收,也相当粗略,如下:

澳门新葡亰官网APP 56

来个卡通演示

澳门新葡亰官网APP 57

高端筛选中,还是可以够应用公式来表述筛选规范,如下所示:

澳门新葡亰官网APP 58

澳门新葡亰官网APP 59

盼望关于筛选的那多少个小技术能帮到你!

越多实用小技术,关怀自己啊!!!

本文由澳门新葡亰app发布于新葡亰办公软件,转载请注明出处:澳门新葡亰官网APP:下面是一些使用AutoFilter的例

关键词: