返回列表 上一主題 發帖

[發問] 格式化條件累加

[發問] 格式化條件累加

Windows("派工單.xlsm").Activate
     Sheets("二維碼").Select
     Sheets("二維碼").Rows("2:2").Copy

    Windows("生產進度.xlsm").Activate
     Sheets("進度表").Select
     Sheets("進度表").Range("A1").Select
     Sheets("進度表").Range("A2:B2").Insert xlDown
     Sheets("進度表").Cells(2, 1).PasteSpecial xlPasteValues
     Sheets("進度表").Range("A1").Select

'複製公式
     Sheets("進度表").Range("I2:J2").Copy
     Sheets("進度表").Range("L2:M2,O2:P2,R2:S2,U2:V2,X2:Y2,AA2:AB2,AD2:AE2,AG2:AH2").Select
     Sheets("進度表").Range("AG2").Activate
     Selection.PasteSpecial Paste:=xlPasteAllMergingConditionalFormats, Operation _
        :=xlNone, SkipBlanks:=False, Transpose:=False
     Sheets("進度表").Range("AM3:AV3").Copy
     Sheets("進度表").Range("AM2:AV2").Select
     Selection.PasteSpecial Paste:=xlPasteAllMergingConditionalFormats   '貼上一切並且合併條件格式

如何修正 格式化條件才會累加 而不是多一筆
=$A$1:$G$1,$A$3:$G$117---目前

=$A$1:$G$117--想變成這樣

Windows("派工單.xlsm").Activate
     Sheets("二維碼").Select
     Sheets("二維碼").Rows("2:2").Cop ...
annie.l 發表於 2020-10-14 09:44



    你想要的功能是累加計算 還是單純依據條件格式化?...
    建議提供示範檔案,才比較有幫助

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題