Excel VBA：筛选后动态图表出现Parameter Not Valid(1004)错误

我来帮你拆解这个问题——这种筛选后触发的1004错误，在动态图表VBA开发里太常见了，核心问题通常和隐藏行的无效引用或者行号获取不准确有关，咱们一步步来解决：

先定位错误根源 #

你代码里的ChtObj.Chart.SeriesCollection(1).Values = Range(Cells(UserRow, 12), Cells(UserRow, 21))触发错误，大概率是这两个原因：

1. 筛选后UserRow对应的行被隐藏了，Excel不允许直接引用隐藏单元格区域来更新图表系列值；
2. UserRow = ActiveCell.Row在筛选后拿到的是界面显示的行号，不是数据在工作表中的真实行号，导致引用了错误的单元格范围。

针对性解决方案 #

1. 修复行号获取逻辑（最关键） #

如果你的数据是用Excel结构化表格（ListObject）构建的，这是最可靠的方式，能直接拿到筛选后可见行的真实行号：

Sub UpdateChart() 
    Dim wb As Workbook 
    Dim ws As Worksheet 
    Dim ChtObj As ChartObject 
    Dim UserRow As Long 
    Dim tbl As ListObject ' 新增表格对象
    
    Set wb = ThisWorkbook 
    Set ws = wb.Sheets("Dashboard") 
    Set ChtObj = ws.ChartObjects("Chart 6") 
    Set tbl = ws.ListObjects("你的表格名称") ' 替换成你实际的表格名称
    
    ' 获取选中单元格对应的真实数据行号
    UserRow = tbl.ListRows(ActiveCell.Row - tbl.HeaderRowRange.Row).Index + tbl.HeaderRowRange.Row
    ...

如果不是结构化表格，用这个方法确保拿到真实行号：

' 替换原来的UserRow = ActiveCell.Row
UserRow = ws.Cells(ActiveCell.Row, 1).End(xlUp).Row

2. 检查行可见性再更新图表 #

在赋值图表系列值之前，先判断目标行是否被筛选隐藏，避免引用无效区域：

' 明确指定工作表，避免默认ActiveSheet的坑
Dim targetRange As Range
Set targetRange = ws.Range(ws.Cells(UserRow, 12), ws.Cells(UserRow, 21))

' 先检查系列是否存在，再检查行是否可见
If ChtObj.Chart.SeriesCollection.Count >= 1 Then
    If Not ws.Rows(UserRow).Hidden Then
        ChtObj.Chart.SeriesCollection(1).Values = targetRange
    Else
        ' 行隐藏时的处理：清空系列或提示用户
        ChtObj.Chart.SeriesCollection(1).Values = ""
        MsgBox "选中的行已被筛选隐藏，无法更新图表！"
    End If
Else
    Msg MsgBox "图表中没有可更新的数据系列，请检查图表设置！"
End If

3. 额外的最佳实践 #

• 永远不要省略工作表对象：比如原来的Cells(UserRow,12)一定要改成ws.Cells(UserRow,12)，防止当前激活的工作表不是Dashboard时引用错误；
• 如果经常需要处理筛选后的动态图表，可以把“获取可见行真实行号”封装成一个小函数，方便复用。

内容的提问来源于stack exchange，提问作者Pedro Almeida