我正在设置一个文档,以便在特定单元格包含值的情况下删除行。我希望在选择“保存”按钮时运行此代码。我需要在vba脚本中添加些什么才能实现此目的?
我已经搜索了多个站点并尝试了一些建议的解决方案,但没有找到一个可行的解决方案。
HideRows_BeforeSave()
Dim beginRow As Long
Dim endRow As Long
Dim chkCol As Long
Dim rowCnt As Long
Dim rngResult As Range
Dim ws As Worksheet
beginRow = 3
endRow = 38
chkCol = 14
Set ws = ThisWorkbook.Worksheets("Travel Expense Codes")
For rowCnt = beginRow To endRow
If Cells(rowCnt,chkCol).Value = "X" Then
Cells(rowCnt,chkCol).EntireRow.Hidden = True
Else
Cells(rowCnt,chkCol).EntireRow.Hidden = False
End If
Next rowCnt
将此代码插入“ ThisWorkbook”对象时,运行宏时没有任何响应。当插入“模块”时,我可以使宏运行,但不能通过“保存”选项使其运行。