宏：移調問題

不知道是否有人能幫助我這一個宏：移調問題

使用VBA，我已經建立了其開始通過轉樞軸表到另一個工作表後，再接觸了數據的宏自動成整潔的小名單供用戶稍後在數據庫中設置。

現在構建它第一次爲樞軸表後，它的工作一個夢想，給我我想要的結果，但每當我更新數據透視表，並改變其長度，我就開始啓動有問題。希望這些截圖將幫助：

enter image description here

你不需要知道那裏的信息，但什麼樣的宏觀預期在這裏做的是轉可以通過完成整個樞紐要麼雙擊的橫截面總計或右鍵單擊單元格並選擇顯示所有內容的詳細信息。（以黃色突出顯示）

由於它矗立在時刻獲得該單元被設置爲代碼：

Range("AA65").Select 
Selection.ShowDetail = True

這是我意識到，這是固定的（目前以突出的地方紅色），我不知道如何通過讓宏適應不同長度的數據透視表來解決它，以便它可以轉置其中的所有內容。如果有幫助的話，那麼總數將總是在特定的那一行上，它就是這個變化結束的那一列。

有沒有一種方法可以讓我創建一個代碼，我總是可以在數據透視表中選擇總共單元格，而無論它伸出多少列？

謝謝您的閱讀，我希望得到的反饋很快:)

親切的問候

佐伊

來源

2013-07-29 Zoe

要獲得上次使用的列，做一個 Activesheet.Cells（rnum，Columns.Count）.end（xltoleft）.Column，其中rnum是rownumber。要獲取最後使用的行，請執行Activesheet.Cells（Rows.Count，cnum）.end（xlup）.Row，其中cnum是列號。希望這會有所幫助。 –

例如

With ActiveSheet.PivotTables(1).TableRange1 
    .Cells(.Cells.Count).ShowDetail = True 
    End With

來源

2013-07-29 10:35:42 JosieP

在那裏，你有它，測試和完美的作品，並恢復正常^ _ ^非常感謝你喬西你救了我很多時間:) – Zoe

宏：移調問題

回答

相關問題