这两句如何用 "If" "THen "连在一起执行

838225419 · 发表于 2023-7-7 10:56

Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3], [b7:u7]
Sheet1.Range("b4:u" & x).AdvancedFilter 2, [ad2:ae3], [b7:u7] '筛选

fenghuaxue · 发表于 2023-7-7 10:59

if true then
  Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3], [b7:u7]
  Sheet1.Range("b4:u" & x).AdvancedFilter 2, [ad2:ae3], [b7:u7] '筛选
end if

dzsrmyh · 发表于 2023-7-7 11:00

本帖最后由 dzsrmyh 于 2023-7-7 11:02 编辑

这样？？？
if <条件> Then
Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3], [b7:u7]
Else
Sheet1.Range("b4:u" & x).AdvancedFilter 2, [ad2:ae3], [b7:u7]
End If

你需要根据具体的条件来替换 <条件>。根据条件的不同，会执行不同的语句。

838225419 · 发表于 2023-7-7 11:03

本帖最后由 838225419 于 2023-7-7 11:09 编辑

dzsrmyh 发表于 2023-7-7 11:00
这样？？？
f Then Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3], Else Sheet1.Range("b ...

想改成这样的，但是提示错误
if Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3], [b7:u7] Then Sheet1.Range("b4:u" & x).AdvancedFilter 2, [ad2:ae3] [b7:u7]

Sub 按钮2_Click()
[a3:ae3].Clear
If [c4] <> "" Then [aa3] = ">=" & [c4]
If [c5] <> "" Then [ab3] = "<=" & [c5]
If [p4] <> "" Then [ad3] = ">=" & [p4]
If [p5] <> "" Then [ae3] = "<=" & [p5]
If [e4] <> "" Then [f3] = [e4]
If [e5] <> "" Then [c3] = [e5]
If [g4] <> "" Then [d3] = [g4]
If [g5] <> "" Then [e3] = [g5]
x = Sheet1.Range("b65536").End(xlUp).Row '最后行数

Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3], [b7:u7] '高级筛选最简代码
Sheet1.Range("b4:u" & x).AdvancedFilter 2, [ad2:ae3], [b7:u7] '高级筛选最简代码
End Sub

838225419 · 发表于 2023-7-7 11:04

fenghuaxue 发表于 2023-7-7 10:59
if true then
  Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3],
  Sheet1. ...

想改成这样的，但是提示错误
if Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3], [b7:u7] Then Sheet1.Range("b4:u" & x).AdvancedFilter 2, [ad2:ae3] [b7:u7]

fenghuaxue · 发表于 2023-7-7 11:09

本帖最后由 fenghuaxue 于 2023-7-7 11:11 编辑

838225419 发表于 2023-7-7 11:04
想改成这样的，但是提示错误
if Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3], Then Sheet1 ...

AdvancedFilter函数的返回值不是boolean.不能这么写。

838225419 · 发表于 2023-7-7 11:11

fenghuaxue 发表于 2023-7-7 11:09
AdvancedFilter函数不是boolean.不能这么写。

麻烦您看一下这个如何改？非常感谢

Sub 按钮2_Click()
[a3:ae3].Clear
If [c4] <> "" Then [aa3] = ">=" & [c4]
If [c5] <> "" Then [ab3] = "<=" & [c5]
If [p4] <> "" Then [ad3] = ">=" & [p4]
If [p5] <> "" Then [ae3] = "<=" & [p5]
If [e4] <> "" Then [f3] = [e4]
If [e5] <> "" Then [c3] = [e5]
If [g4] <> "" Then [d3] = [g4]
If [g5] <> "" Then [e3] = [g5]
x = Sheet1.Range("b65536").End(xlUp).Row '最后行数

Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3], [b7:u7] '高级筛选最简代码
Sheet1.Range("b4:u" & x).AdvancedFilter 2, [ad2:ae3], [b7:u7] '高级筛选最简代码
End Sub

838225419 · 发表于 2023-7-7 11:21

dzsrmyh 发表于 2023-7-7 11:00
这样？？？
if Then
Sheet1.Range("b4:u" & x).AdvancedFilter 2, [aa2:ab3],

谢谢大师，解决了

838225419 · 发表于 2023-7-7 11:22

fenghuaxue 发表于 2023-7-7 11:09
AdvancedFilter函数的返回值不是boolean.不能这么写。

谢谢大师，解决了

fenghuaxue · 发表于 2023-7-7 11:25

838225419 发表于 2023-7-7 11:22
谢谢大师，解决了

怎么解决的

		自动登录	找回密码
密码			免费注册

[求助] 这两句如何用 "If" "THen "连在一起执行