求解释下面VBA语句
答案:2 悬赏:30
解决时间 2021-01-14 07:07
- 提问者网友：像風在裏
- 2021-01-13 18:03
求解释下面VBA语句
最佳答案
- 二级知识专家网友：长青诗
- 2021-01-13 18:17
Application.ScreenUpdating = False //关闭屏幕刷新，提高执行效率
Dim xz As String //定义一个字符串变量xz
On Error Resume Next //遇到错误忽略，继续执行下一句
xz = Application.Selection.SpecialCells(12).Address
//SpecialCells()是选取特殊单元格的函数,里面的12代表可见的单元格可以用xlCellTypeVisible代替， 后边的Address就是这些可见单元格区域的地址，加入是A1,B1,C1单元格是选中的，并且是可见的，那么xz的值为$A$1:$C$1，代表这个区域
If Len(xz) > 0 Then //如果这个xz不为空
Call wvRw //调用wvRw这个过程
shtke.Range(xz).Select
//shtke应该是一个Sheet， 选中shtke Sheet中，上边那个区域
End If
Application.ScreenUpdating = True
整个代码的意思就是： 找到当前选中区域中可见的单元格，然后再让另一个工作表（shtke）中相同位置的单元格也选中
Dim xz As String //定义一个字符串变量xz
On Error Resume Next //遇到错误忽略，继续执行下一句
xz = Application.Selection.SpecialCells(12).Address
//SpecialCells()是选取特殊单元格的函数,里面的12代表可见的单元格可以用xlCellTypeVisible代替， 后边的Address就是这些可见单元格区域的地址，加入是A1,B1,C1单元格是选中的，并且是可见的，那么xz的值为$A$1:$C$1，代表这个区域
If Len(xz) > 0 Then //如果这个xz不为空
Call wvRw //调用wvRw这个过程
shtke.Range(xz).Select
//shtke应该是一个Sheet， 选中shtke Sheet中，上边那个区域
End If
Application.ScreenUpdating = True
整个代码的意思就是： 找到当前选中区域中可见的单元格，然后再让另一个工作表（shtke）中相同位置的单元格也选中
全部回答
- 1楼网友：举杯邀酒敬孤独
- 2021-01-13 19:23
哪里不懂？不会一句都不懂吧
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息