自动过滤2列

时间:2018-02-13 19:31:22

标签: excel vba excel-vba

我有自动过滤的命令按钮,第一个和第二个工作,第三个没有,我想按两个标准和两个列过滤。有什么想法吗?

    Private Sub CommandButton6_Click()
    Worksheets("Sheet1").Range("K4 : K1900").AutoFilter _
    Field:=1, _
    Criteria1:="No", _
    VisibleDropDown:=False
    End Sub
    Private Sub CommandButton7_Click()
    Cells.AutoFilter
    End Sub
    Private Sub CommandButton8_Click()
    Worksheets ("Sheet1")
        .Range("K4:K1900").AutoFilter
        .Range("C4:C1900").AutoFilter
        Field:=1,
        Criteria1:="No", _
        Criteria1:="City",_
        VisibleDropDown:=False
    End Sub

1 个答案:

答案 0 :(得分:1)

你可以这样试试......

set.seed(12345)
dat <- ts(data=runif(n=10, min=50, max=100), frequency = 4, start = c(1959, 2))
library(ggfortify)
autoplot(dat, geom = "point", ts.colour = ('dodgerblue3')) #Option 1

library(zoo)
autoplot.zoo(as.zoo(dat), geom = "point") #Option 2