[已解决]如何确定VBA要操作的单元格不在数组或者透视表范围内

轩辕轼轲

众所周知，有两种单元格的内容是不允许被改变的，不管是手动改变还是VBA改变，一种是数组范围内的单元格，另一种是透视表内的单元格。

假如说现在要操作的单元格地址是A6，那么如何确定A6单元格是否在数组范围内以及是否在透视表的范围内。
如何确定要操作的单元格不在数组或者透视表范围内.rar (4.04 KB, 下载次数: 7)

2014-1-4 10:35 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-1-4 10:48

1.     With Sheet3.Range("a6")
   
2.         MsgBox .PivotCell Is Nothing
   
3.         If Not .PivotCell Is Nothing Then
   
4.             MsgBox .PivotCell.PivotTable.Name
   
5.         End If
   
6.     End With
   
7.     With Sheet4.Range("a6")
   
8.         If .HasArray Then
   
9.             MsgBox .CurrentArray.Address
   
10.         End If
    
11.     End With

复制代码

是数组后，用currentarray属性更好了。

跳转到最佳答案楼层

hwc2ycy

range对象有属性可以实现这两点。

hwc2ycy

Range.HasArray 属性
如果指定单元格属于数组公式，则该属性值为 True。

hwc2ycy

yewei113

参观一下

hwc2ycy

1.     With Sheet3.Range("a6")
   
2.         MsgBox .PivotCell Is Nothing
   
3.         If Not .PivotCell Is Nothing Then
   
4.             MsgBox .PivotCell.PivotTable.Name
   
5.         End If
   
6.     End With
   
7.     With Sheet4.Range("a6")
   
8.         If .HasArray Then
   
9.             MsgBox .FormulaArray
   
10.         End If
    
11.     End With

复制代码

hwc2ycy

1.     With Sheet3.Range("a6")
   
2.         MsgBox .PivotCell Is Nothing
   
3.         If Not .PivotCell Is Nothing Then
   
4.             MsgBox .PivotCell.PivotTable.Name
   
5.         End If
   
6.     End With
   
7.     With Sheet4.Range("a6")
   
8.         If .HasArray Then
   
9.             MsgBox .CurrentArray.Address
   
10.         End If
    
11.     End With

复制代码

是数组后，用currentarray属性更好了。