[已解决]一键多表切换统计

cyj153

对不起，无法上传附件。只能用文字表述，谢谢老师指导！
问题１：每次打开工作簿时，总是显示指定工作表（如sheet2）;
问题２：窗体上有一按键（CommandButton9），当打开sheet１时，统计sheet１.[f3:f30]区域的和；当打开sheet2时，统计sheet2.[g3:g30]区域的和；当打开sheet3时，统计sheet3.[h3:h30]区域的和。
谢谢大家！！！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-3-26 15:44

1  用workbook.open事件，代码为：worksheets(指定工作表名称).activate
2  按键代码：
With ActiveSheet
    If .Name = "Sheet1" Then s = Application.Sum(.[f3:f30])
    If .Name = "Sheet2" Then s = Application.Sum(.[g3:g30])
    If .Name = "Sheet3" Then s = Application.Sum(.[h3:h30])
End With

跳转到最佳答案楼层

grf1973

1  用workbook.open事件，代码为：worksheets(指定工作表名称).activate
2  按键代码：
With ActiveSheet
    If .Name = "Sheet1" Then s = Application.Sum(.[f3:f30])
    If .Name = "Sheet2" Then s = Application.Sum(.[g3:g30])
    If .Name = "Sheet3" Then s = Application.Sum(.[h3:h30])
End With