Pivot-Tabelle Wert Cell-Adresse

Ist es möglich, die Zelle Adresse (oder Cell Range) eines Werts in einer Pivot-Tabelle über VB zu erhalten?Pivot-Tabelle Wert Cell-Adresse

Beispiel:

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%

Wie konnte ich die Adresse der Zelle von REG1 bekommen -> FALSCH -> 11?

Ich weiß, wenn ich darauf klicke, gibt es mir "B3", aber ich möchte es über VB finden.

Quelle

2016-05-27 Iain Blackwood

Noch auf der Suche, aber es kann helfen http://stackoverflow.com/questions/6262743/convert-cells1-1-into -a1-und-umgekehrt – Destrif

das hat geholfen! Ich schaffte es, die Adresse, die ich suchte, mit dem folgenden Code zu bekommen - pt.GetPivotData ("State", "Region", "REG1", "State", False). Adresse –

Ja, Sie können, wie dies Pivot-Element zu erhalten:

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

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

Danach können Sie es Adresse finden:

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

oder mit Pivot-Daten:

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

Quelle

2016-05-27 08:54:15 Destrif

Vielen Dank für die Links. Ich habe sie gelesen, aber leider ist es nicht der Wert, nach dem ich suche, sondern die Zelladresse. Also sowas wie "B3" usw. Die Reichweite der Zelle. Nicht der Wert drin. –

Die Dokumentation besagt: Der Name des Felds, das die Daten für die PivotTable enthält. Beachten Sie die Daten, die den Bereich – Destrif

zurückgeben sollten, verstehe ich nicht. Hättest du ein Codebeispiel? –

versuchen Sie dies:

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

Test:

Quelle

2016-05-27 09:12:24 Vasily

Pivot-Tabelle Wert Cell-Adresse

Antwort

Verwandte Themen