这是默认 本工作手册 代码:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
FixWidthHeight
End Sub
这是我的固定宽度高度 模块:Sub FixWidthHeight()
Cells.Select
Selection.Columns.AutoFit
Selection.Rows.AutoFit
Application.Goto ActiveCell.EntireRow, True
End Sub
我希望我的代码按照这个特定的顺序做什么:我对这段代码的问题是它不会触发最后一个属性 Application.Goto ActiveCell.EntireRow, True 因为 细胞。选择 属性阻止它发射。我测试了代码,发现细胞。选择 成为罪魁祸首。当细胞。选择 属性被触发,它会自动跳转到 工作表顶部的第一行 而不是 最后一个事件/更新的行 .好像细胞。选择 取消 Application.Goto ActiveCell.EntireRow, True 这不是我想要的。所以我想知道是否有人可以帮助我修复此代码以获得指定的我想要的结果。谢谢
最佳答案
您可以调用AutoFit
在 UsedRange.Columns
和 UsedRange.Rows
和 avoid Select
ing首先。
With ActiveSheet.UsedRange
.Columns.AutoFit
.Rows.AutoFit
End With
然后 ActiveCell
保持不变,Application.Goto ActiveCell.EntireRow, True
将按需要工作。
关于excel - 触发 Cells.Select 属性时停止工作表跳转到页面顶部,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/68294370/