Excel 过滤选择数据后，某个Cell显示其值，并自定义合计的VBA.

Private Sub Worksheet_Calculate()
iFindFirstRow = 0
For iRows = 1 To 65536
If Rows(iRows).Hidden = False And iRows <> 1 Then
iFindFirstRow = iRows
Exit For
End If
Next iRows
Sheet2.Cells(3, "C").Value = Sheet1.Cells(iFindFirstRow, 2).Value

'计算海信电视费用。
dSumHXDS = 0
'计算海信科龙空调费用。
dSumHXKT = 0
'计算海信容声冰箱费用。
dSumHXBX = 0
'计算海信小家电费用。
dSumHXJD = 0
'计算海信洗衣机费用。
dSUmHXXYJ = 0
For iRows = 1 To 65536
'这个操作是将隐藏的行和非1行去掉后的第一个条件。
If Rows(iRows).Hidden = False And iRows <> 1 Then
If Sheet1.Cells(iRows, 8).Value = "海信电视" Then
dSumHXDS = dSumHXDS + Sheet1.Cells(iRows, 7).Value
End If
If Sheet1.Cells(iRows, 8).Value = "海信科龙空调" Then
dSumHXKT = dSumHXKT + Sheet1.Cells(iRows, 7).Value
End If
If Sheet1.Cells(iRows, 8).Value = "海信小家电" Then
dSumHXJD = dSumHXJD + Sheet1.Cells(iRows, 7).Value
End If
If Sheet1.Cells(iRows, 8).Value = "海信洗衣机" Then
dSUmHXXYJ = dSUmHXXYJ + Sheet1.Cells(iRows, 7).Value
End If
If Sheet1.Cells(iRows, 8).Value = "海信容声冰箱" Then
dSumHXBX = dSumHXBX + Sheet1.Cells(iRows, 7).Value
End If
End If
Next iRows

Sheet2.Cells(7, "D").Value = dSumHXDS

Sheet2.Cells(8, "D").Value = dSumHXKT

Sheet2.Cells(8, "D").Value = dSumHXBX

Sheet2.Cells(10, "D").Value = dSumHXJD

Sheet2.Cells(11, "D").Value = dSUmHXXYJ
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub