|
■No73440 (あお さん) に返信 > ActiveSheet.Range("$D$9:$D$26").AutoFilter Field:=1, Criteria1:="=あ", Operator:=xlOr, Criteria2:="=う"
そのまま訳せば、
Dim rng As Excel.Range = oSheet.Range("$D$9:$D$26") Dim result As Object = rng.AutoFilter(1, "=あ", Excel.XlAutoFilterOperator.XlOr, "=う"))
ですかね。元のコードのように、名前付き引数を使って Criteria1:="=あ" などと表現しても良いですが。
|