[已解决]如何添加表名称

跑跑2014

Sub Macro1()

[k5] = "=SUM(E5:J5)"   'dsmch所写 精  英 excel
[k5].AutoFill [k5:k53]
With [k5:k53]
    .Value = .Value
    .Replace 0, "", lookat:=xlWhole  '把0替换为空格，单元格匹配
    .SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True  '定位空值，空值所在的行隐藏
End With
End Sub
现在 这段代码如果在其它工作表中执行的话，可能会报错，这种简略写法我不知道如何添加上工作表的名字。请高手帮我添加下，这个表是 sheet3
多谢了。

最佳答案

月排行榜 / 总排行榜

xdragon

2014-4-5 21:50

sheets("sheet3").[k5] = "=SUM(E5:J5)"   'dsmch所写 精  英 excel
sheets("sheet3").[k5].AutoFill sheets("sheet3").[k5:k53]
With sheets("sheet3").[k5:k53]
     .Value = .Value
     .Replace 0, "", lookat:=xlWhole  '把0替换为空格，单元格匹配
    .SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True  '定位空值，空值所在的行隐藏
End With
End Sub

跳转到最佳答案楼层

xdragon

sheets("sheet3").[k5] = "=SUM(E5:J5)"   'dsmch所写 精  英 excel
sheets("sheet3").[k5].AutoFill sheets("sheet3").[k5:k53]
With sheets("sheet3").[k5:k53]
     .Value = .Value
     .Replace 0, "", lookat:=xlWhole  '把0替换为空格，单元格匹配
    .SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True  '定位空值，空值所在的行隐藏
End With
End Sub

dsmch

没必要添加工作表
可以把代码写进sheet3工作表事件中
Private Sub Worksheet_Activate()
代码
End Sub

跑跑2014

dsmch 发表于 2014-4-5 21:57
没必要添加工作表
可以把代码写进sheet3工作表事件中
Private Sub Worksheet_Activate()

谢谢，我试一下…………