作者：绿色风
分类：
时间：2022-08-18
浏览：162
楼主
nothingwmm |
Q: 如何同步选定所有工作表的相同区域？
A：VBA方法如下：
- Sub SynchSheets() '同步选择所有表格的相同区域
- If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub '当前激活的表格是如果不是工作表类型，退出
- Dim UserSheet As Worksheet, sht As Worksheet
- Dim TopRow As Long, LeftCol As Integer
- Dim UserSel As String
- Application.ScreenUpdating = False
- Set UserSheet = ActiveSheet '设定当前工作表为变量Usersheet
- TopRow = ActiveWindow.ScrollRow '获取窗口最上方的行号
- LeftCol = ActiveWindow.ScrollColumn '获取窗口最左边的列号
- UserSel = ActiveWindow.RangeSelection.Address
- For Each sht In ActiveWorkbook.Worksheets '遍历当前工作薄的所有工作表
- If sht.Visible Then '忽略隐藏的工作表
- sht.Activate '激活工作表
- Range(UserSel).Select '选中用户定义的工作区域
- ActiveWindow.ScrollRow = TopRow '设置该表的显示位置与用户自定义的表格位置相同，做到同步表格
- ActiveWindow.ScrollColumn = LeftCol
- End If
- Next sht
- UserSheet.Activate '恢复到当前的表格
- Application.ScreenUpdating = True
- End Sub
|
2楼
亡者天下 |
wmm怎么最近看不见你了阿！
|
3楼
lg6052 |
代码，代码。。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一