循环通过工作簿中的所有工作表 [英] Loop through all worksheets in workbook

问题描述

有时可能有1-2个工作表有时候是50 +。

  Sub HoursTotal（）
'
'HoursTotal Macro 
'
 
范围（ F2）。选择
 ActiveCell.FormulaR1C1 == SUM（C [-1]）
范围（F1）。选择
 ActiveCell.FormulaR1C1 =总时数
 Range（G1）。选择
 
 
 End Sub 
  

解决方案

应该这样做。

  Sub HoursTotal（）
工作表
 
对于工作表中的每个ws 
 ws.Range（F2）。FormulaR1C1 == SUM（C [-1]）
 ws.Range （F1）公式R1C1 =总时数
 ws.Range（G1）选择我不认为你需要这行，但是我还包括它
下一个
 End Sub 
  

I want to repeat this code on all the worksheets in a workbook.

There may sometimes be 1-2 worksheets sometimes 50+.

Sub HoursTotal()
'
' HoursTotal Macro
'

Range("F2").Select
ActiveCell.FormulaR1C1 = "=SUM(C[-1])"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Total Hours"
Range("G1").Select


End Sub

解决方案

This should do it.

Sub HoursTotal()
    Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Range("F2").FormulaR1C1 = "=SUM(C[-1])"
        ws.Range("F1").FormulaR1C1 = "Total Hours"
        ws.Range("G1").Select 'I don't think you need this line but I included it anyways
    Next
End Sub

这篇关于循环通过工作簿中的所有工作表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！