excel - 当一个单元格中有特定值时隐藏和取消隐藏 Excel VBA 中的行
问题描述
如果从下拉列表中选择了特定值,我想隐藏/取消隐藏。只要它有效,它就可以在工作表代码下(选择值时)或按下按钮时。非常感谢您的帮助。我尝试使用此代码未成功..
Application.EnableEvents = False
If DWR.Cells(4, 14) = "CANTI" Then
DWR.Activate
DWR.Range("10:49").EntireRow.Hidden = False
'must hide the empty rows
DWR.Activate
DWR.Range("50:89").EntireRow.Hidden = True
ElseIf DWR.Cells(4, 14) = "F100" Then
DWR.Activate
DWR.Range("50:89").EntireRow.Hidden = True
'must hide the empty rows
DWR.Activate
DWR.Range("10:49").EntireRow.Hidden = False
End If
Application.EnableEvents = True
有什么建议么?
解决方案
Try something like this?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
Application.EnableEvents = False
Range("10:89").EntireRow.Hidden = False '~~~> Default case: display ALL rows
If Target = "CANTI" Then
Range("10:49").EntireRow.Hidden = False
Range("50:89").EntireRow.Hidden = True
ElseIf Target = "F100" Then
Range("10:49").EntireRow.Hidden = True
Range("50:89").EntireRow.Hidden = False
End If
Application.EnableEvents = True
End If
End Sub
推荐阅读
- oracle - 插入过程 - 区间中的值
- matlab - 花括号和括号有什么区别
- python - Tkinter 标签未执行
- sql - 如何使用 group by 子句将一个表中的记录插入到另一个表中
- php - 如何将组产品单独添加到购物车中?
- laravel - 如何从 laravel 中的 API 路由调用 Api 控制器?
- python - 如何不计算单词之间的标点符号
- azure - Get-AzureADApplicationPasswordCredential cmdlet 是否有效?
- go - 如何同时优化大型递归任务
- java - 着色问题(有 2 种颜色),其中每个顶点都有一个特定区域并使用 DFS 找到最小区域着色