VBA 有多个单元格内容,只有NO,该行下6行隐藏或是显示问题

准提部林

隱藏或顯示...應只針對C列標黃的那幾格吧!
B列為Is this Item Subcontracted? 所對應的C列,

只有輸入"NO"才隱藏, 其它文字(含空格)都應為顯示???

准提部林

樣版//
Hide More Rows--01.rar (15.61 KB, 下载次数: 3)

2023-2-19 11:03 上传

点击文件名下载附件

rayhen

准提部林 发表于 2023-2-19 10:49
隱藏或顯示...應只針對C列標黃的那幾格吧!
B列為Is this Item Subcontracted? 所對應的C列,

老师其它不算,只限定 YES","Y","y","No","N","n","" 才算

准提部林

rayhen 发表于 2023-2-19 20:49
老师其它不算,只限定 YES","Y","y","No","N","n","" 才算

好吧!就依指定字元//
Hide More Rows--02.rar (15.98 KB, 下载次数: 6)

2023-2-19 22:14 上传

点击文件名下载附件

rayhen

准提部林 发表于 2023-2-19 22:15
好吧!就依指定字元//

老师您超级棒棒棒

rayhen

老师如果B3 单元格含有这行字 Is this Item Subcontracted? , 同时C2 单元格为"YES","Y","y", 行 4:10 显示
如果B3 单元格含有这行字 Is this Item Subcontracted? , 同时C2 单元格为"No","N","n","", 行 4:10 隐藏
以下如此类推
那代码又如何修改呢?

rayhen

老师求求帮忙,顶一顶

准提部林

rayhen 发表于 2023-2-24 08:12
老师如果B3 单元格含有这行字 Is this Item Subcontracted? , 同时C2 单元格为"YES","Y","y", 行 4:10  ...

那就是下七行
If K <> "" Then .Cells(2, 1).Resize(7).EntireRow.Hidden = K

rayhen

准提部林 发表于 2023-2-24 20:02
那就是下七行
If K  "" Then .Cells(2, 1).Resize(7).EntireRow.Hidden = K

老师是这样吗?

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim T$, K
   
3. With Target
   
4.      If .Count > 1 Or .Column <> 3 Then Exit Sub
   
5.      If LCase(.Cells(1, 0)) <> "is this item subcontracted?" Then Exit Sub
   
6.      T = "-" & UCase(.Value) & "-": K = ""
   
7.      'If InStr("--YES-Y-", T) > 1 Then K = False
   
8.          If K <> "" Then .Cells(2, 1).Resize(7).EntireRow.Hidden = K
   
9.      If InStr("--NO-N-", T) > 1 Then K = True
   
10.      If K <> "" Then .Cells(2, 1).Resize(5).EntireRow.Hidden = K
    
11. End With
    
12. End Sub

复制代码

rayhen

老师求求帮忙,顶一顶