基於類別名稱的VBA Excel數據透視圖數據點標記

Question

我有一個通過SQL查詢填充的Excel中的數據表。

該表是數據透視表的數據源，數據透視表又用於創建數據透視圖。

我需要以一種顏色顯示直到本月（例如，2016年7月）的數據，並以另一種顏色顯示未來的數據。 我做了研究，看來我必須操縱源數據來這樣做（這意味着應該更改SQL查詢的結果）。 就我而言，這是不可能的。

因此，我決定突出顯示“今天”數據點以顯示過去和將來的交匯處。 如何使用VBA做到這一點？ 我需要以下邏輯：

for i=1 to category.count
if categoryname(i)="July-2016" then change marker style
end if
next

謝謝。

Answer 1

我使用簡單的Excel公式確定當月的數據點索引，然后通過宏循環從項目開始到當月更改了行顏色：

        For i = 1 To DataPointIndex
        ActiveChart.ChartArea.Select
        ActiveChart.SeriesCollection(1).Select
        ActiveChart.SeriesCollection(1).Points(i).Select
        With Selection.Format.Line
                .Visible = msoTrue
                .ForeColor.RGB = RGB(255, 0, 0) 
                .Transparency = 0
                .DashStyle = msoLineSolid       
        End With

使用標記可以完成類似的操作，但是我更喜歡使用不同的線條顏色。