为什么这个简单的VBA代码不起作用

-1

我的单元格H6包含一个12位数字，因此使用Long。如何为了调整这个代码，它的工作有什么想法：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

'This line stops the worksheet updating on every change, it only updates when cell'H6 or H7 is touched 
If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub 

'Set the Variables to be used 
Dim pt As PivotTable 
Dim Field As PivotField 
Dim NewCat As Long 

'Here you amend to suit your data 
Set pt = Worksheets("Data1").PivotTables("PivotTable10")  
Set Field = pt.PivotFields("[Produkter].[EAN].[EanID]") 

NewCat = Worksheets("Data1").Range("H6").Value  

'This updates and refreshes the PIVOT table 

With ActiveSheet.PivotTables("PivotTabel10").PivotFields("[Produkter].[EAN].[EanID]") 
    .ClearAllFilters 
    .PivotFilters.Add Type:=xlCaptionEquals, Value1:=ActiveSheet.Range("H6").Value 
End With

来源

2017-01-11 Niclas Schwencke Sparrevohn Mr

这段代码应该做什么？现在在做什么？你有错误信息吗？你有[参观]（http://stackoverflow.com/tour）？ – steenbergh

试着更好地描述你的代码中发生了什么，你试图达到什么目标，以及你在哪一行发生错误。目前状态的帖子不能告诉我们很多，这几乎不可能帮助你 –

对不起。我希望能够在单元格H6中输入12位数字，以便数据透视表中的过滤器将更改为该数字。我得到了一些不同的错误，但最常见的是：运行时错误6溢出。 –

长只有32位，所以你只能存储9个十进制数字。使用Double或（只有当你有一个64位版本）LongLong。

来源

2017-01-11 11:53:13 JanB

嗯，如果我使用双我得到：用户定义类型没有定义。如果我使用LongLong我得到：无法获得工作表类的PivotTabels属性。但如果已经检查，它应该是正确的。 –

为什么这个简单的VBA代码不起作用

回答

相关问题