当前位置：首页 → 问答吧 → 请各位帮我修改这几句代码

请各位帮我修改这几句代码

时间：2011-08-07

来源：互联网

Private Sub CommandButton1_Click()
With Sheet10
Dim i As Object
.Range("a5") = ""i"&"班"" Then Sheets(""i"&"班"").Select
.Range("b5") = Application.WorksheetFunction.CountA(Sheets("'i'&"班"").Range("b3:b72"))
End With
End Sub
意图是：在sheet10的A5单元格中，可能是“一班”、“二班”、“三班”、“四班”（工作表的名称）之一，根据A5所表示的工作表激活之，并统计被激活表B3：B72中非空行的个数。

作者: lcbnyn 发布时间: 2011-08-07

需要激活工作表吗？
sheet10.[a5]  是一、二、三……

Private Sub CommandButton1_Click()
  on error resume next
  sheet10.[b5]= Application. CountA(Sheets(sheet10.[a5] & "班").Range("b3:b72"))
end sub

作者: livewire 发布时间: 2011-08-07

sheet10.[a5]  是一班、二班、三班……之一。我把代码调整为

Private Sub CommandButton1_Click()
  on error resume next
  sheet10.[b5]= Application. CountA(Sheets(sheet10.[a5] ).Range("b3:b72"))
end sub
刚试过，既不出错也无结果产生。

作者: lcbnyn 发布时间: 2011-08-07

1.sheet10 是工作表的代码名称，还是标签名称？
2.标签名称是一班、二班、三班…… 的，标签名称里还有没有其它字符存在？

作者: livewire 发布时间: 2011-08-07

sheet10是工作表名（也就是工作表下边的名称），
标签名称是一班、二班、三班…… 的，标签名称里没有其它字符存在。

作者: lcbnyn 发布时间: 2011-08-07

sheet10 替换为 sheets("sheet10")
试试

作者: livewire 发布时间: 2011-08-07