Question

VBA Range作用对象'Worksheet'时失败

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Or _
Target.Address = "$G$1" Then
Range("Database").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("Criteria"), Unique:=False
End If
End Sub

问题是 Range作用对象'Worksheet'时失败
我的工作表名称是“新建 Microsoft Excel 工作表”
工作簿名称是“Sheet1"
求助各位大虾帮帮小弟！小弟刚刚入门~谢谢
各位大虾们 能不能说得再详细一点.
这段代码确实是我从学习资料上抄来的用在学习资料上可以，但是我很想把它用到别的表格上面。
小弟诚心想学这个VBA。

Answer 1

看得出来，你这段代码是直接抄袭F1里面的。。。。

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Or _
Target.Address = "$G$1" Then
Range("Database").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("Criteria"), Unique:=False
End If
End Sub

Answer 3

可能是你的工作表里边没有名称为 "Database" 和 "Criteria" 的区域

Answer 4

当前的workbook和worksheet最好都要指明，还有你的range对象很容易早不到。触发条件貌似也不太对..你这个是打算做什么的？

Answer 5

activesheet.range
或者直接sheet1.range