返回列表 上一主題 發帖

[發問] 不同的Sheet執行重覆的巨集

回復 1# PJChen
這樣可以嗎?
  1. Sub Ex() '工作表月份越大的我會放在右邊 -> 它的索引值 (Sheets.Count)
  2.     With Sheets(Sheets.Count)
  3.         .Range("O20").FormulaR1C1 = "=ROUND(RC10*RC12,2)"
  4.     Next
  5.     ActiveWorkbook.Save
  6. End Sub
  7. Sub Ex1() '可以讓Sheet在"Jan"右邊的,自動執行以下一模一樣的巨集 ->所有的工作表執行一模一樣的巨集
  8.     Dim Sh As Worksheet
  9.     For Each Sh In Sheets
  10.         Sh.Range("O20").FormulaR1C1 = "=ROUND(RC10*RC12,2)"
  11.     Next
  12.     ActiveWorkbook.Save
  13. End Sub
複製代碼
回復 3# PJChen
我不了解你說的"把程式放在一般模組,不是工作表模組
如圖:

EX1.GIF
2011-10-19 15:25

TOP

        靜思自在 : 不怕事多,只怕多事。
返回列表 上一主題