[已解决]求教打开工作薄所有的工作表都定位在A1的方法？

eikok

求教打开工作薄所有的工作表都定位在A1的方法？

最佳答案

月排行榜 / 总排行榜

爱疯

2014-1-15 14:46

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
     Range("a1").Select
End Sub
所有的工作表都定位在A1.rar (7.36 KB, 下载次数: 11)

2014-1-15 14:46 上传

点击文件名下载附件

跳转到最佳答案楼层

tgydslr

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. Application.DisplayAlerts = False
   
3. Application.ScreenUpdating = False
   
4. a = ActiveSheet.Index
   
5. For Each sh In Sheets
   
6.     sh.Select
   
7.     [a1].Select
   
8. Next
   
9. Sheets(a).Select
   
10. ThisWorkbook.Save
    
11. Application.ScreenUpdating = True
    
12. Application.DisplayAlerts = True
    
13. End Sub

复制代码

爱疯

Private Sub Workbook_Open()
    Sheets.Select
    Range("a1").Select
    Sheets(1).Select    '可选
End Sub

eikok

tgydslr 发表于 2014-1-15 09:57

求教怎么运行？

eikok

爱疯 发表于 2014-1-15 09:58
Private Sub Workbook_Open()
    Sheets.Select
    Range("a1").Select

求教一个工作薄中N个工作表，跪求N个工作表都定位到A1的方法？

爱疯

eikok 发表于 2014-1-15 10:03
求教一个工作薄中N个工作表，跪求N个工作表都定位到A1的方法？

3楼就是N个工作表都定位到A1的方法
如果你测试不成功，那么上传一下附件，我测试下

eikok

爱疯 发表于 2014-1-15 10:57
3楼就是N个工作表都定位到A1的方法
如果你测试不成功，那么上传一下附件，我测试下

求教怎么运行？

爱疯

新建 Microsoft Excel 工作表2.rar (6.5 KB, 下载次数: 9)

2014-1-15 11:25 上传

点击文件名下载附件

eikok

爱疯 发表于 2014-1-15 11:25

多谢，大侠出手{:1112:}

爱疯

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
     Range("a1").Select
End Sub
所有的工作表都定位在A1.rar (7.36 KB, 下载次数: 11)

2014-1-15 14:46 上传

点击文件名下载附件