數據透視表值單元地址

是否可以通過VB獲取數據透視表中某個值的單元格地址（或單元格範圍）？數據透視表值單元地址

例子：

Row Labels Count Threshold-% 

REG1  224  0.00% 
    FALSE 11 
    TRUE 213 

REG2  213  0.00% 
    FALSE 13 
    TRUE 200 

REG3  318  0.00% 
    FALSE 3 
    TRUE 315 

REG4  467  0.00% 
    FALSE 7 
    TRUE 460 

Grand Total 1222 0.00%

我怎麼能拿REG1的單元格地址 - FALSE> - > 11？

我知道當我點擊它，它給了我「B3」，但我想通過VB找到它。

來源

2016-05-27 Iain Blackwood

還在尋找，但它可以幫助http://stackoverflow.com/questions/6262743/convert-cells1-1-into -a1-反之亦然 – Destrif

幫助！我設法使用下面的代碼獲得我正在尋找的地址 - pt.GetPivotData（「State」，「Region」，「REG1」，「State」，False）。地址 –

是的，你可以，這樣讓你的樞紐項目：

https://msdn.microsoft.com/fr-fr/library/office/ff840045.aspx

https://msdn.microsoft.com/fr-fr/library/office/ff821539.aspx

後，你會發現它的地址有：

Convert cells(1,1) into "A1" and vice versa

或數據透視：

https://msdn.microsoft.com/fr-fr/library/office/ff195919.aspx

來源

2016-05-27 08:54:15 Destrif

感謝您的鏈接。我讀過它們，但不幸的是它不是我正在尋找的值，而是單元格地址。所以就像「B3」等細胞的範圍。不是它裏面的價值。 –

該文檔說：包含數據透視表數據的字段的名稱。請注意數據，這應該返回範圍 – Destrif

我不理解。你會有一個代碼示例嗎？ –

試試這個：

Sub test() 
    Dim Data As Range, cl As Range 
    Set Data = Range(Cells.Find("REG1").Offset(, 1), _ 
        Cells.Find("REG2").Offset(-1, 2)) 

    For Each cl In Data 
     If UCase(cl.Value2) = "FALSE" And cl.Offset(, 1).Value2 = 11 Then Exit For 
    Next cl 

    If Not cl Is Nothing Then MsgBox cl.Address 
End Sub

測試：

來源

2016-05-27 09:12:24 Vasily

數據透視表值單元地址

回答

相關問題