[已解决]求助光标定位代码?

zk888

工作薄中分别有:数据源1\数据源2\数据源3三张工作表.我想用代码实现:点击工作表标签切换工作表时,光标自动定位到该表的F1单元格.其他类同.

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-10-23 15:02

1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
2.     If Sh.Name Like "数据源[1-3]" Then Range("f1").Activate
   
3. End Sub
   

复制代码

跳转到最佳答案楼层

hwc2ycy

直接用工作表的active事件呢。

hwc2ycy

或者有工作簿的事件。
就写一个地方，只需对工作表筛选。

hwc2ycy

1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
2.     If Sh.Name Like "数据源[1-3]" Then Range("f1").Activate
   
3. End Sub
   

复制代码

zk888

谢谢回复.如果我的工作表名不是数据源1\2\3,而分别为:A\B\C或者其他字符,代码又应该如何改呢?