樞紐資料標顏色

freeffly

Sheets("彙總表(明細表)").PivotTables("樞紐分析表1").PivotSelect "尚未收款", xlDataAndLabel, True
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With

   想問依下 上面標顏色的地方可以用什麼方式讓他不要跑掉嗎
  如果我的畫面是停在 Sheets("彙總表(明細表)")這各表就不會跑掉
  可是如果在別的工作表再執行該程式碼就會在別的工作表所在儲存格標顏色

  我想要的是上面的程式碼有辦法在簡略嗎? 否則好像只能改成下面的嗎?
  Sheets("彙總表(明細表)").PivotTables("樞紐分析表1").PivotSelect "尚未收款", xlDataAndLabel, True
Sheets("彙總表(明細表)").select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With