我有自动过滤的命令按钮,第一个和第二个工作,第三个没有,我想按两个标准和两个列过滤。有什么想法吗?
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
答案 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