標題: [發問] 指定範圍依據特定文字 "N" 能自動隱藏列… [打印本頁]

---

作者: cypd    時間: 2023-8-30 00:25     標題: 指定範圍依據特定文字 "N" 能自動隱藏列…

指定範圍依據特定文字能自動隱藏列…

依據 AA 欄自動對應之產生之 Y/N 公式
希望對應之特定文字含有 N 列能自動隱藏 N 列範圍後
結果只要含有 Y 列之範圍做為列印範圍...
以下之程式碼該如何修正?

Sub 隱藏列()
Range("AA1:AA180").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Sub 復原列()
Cells.EntireRow.Hidden = False
End Sub

[attach]36781[/attach]

[attach]36782[/attach]

---

作者: rouber590324    時間: 2023-9-15 11:50

For i = 2 To 1000
    With Sheet33
    If Trim(.Cells(i, 5)) = "N" Then
    .Rows(i).Hidden = True
    Else
    .Rows(i).Hidden = False
    End If
    End With
    Next

---

作者: cypd    時間: 2023-9-16 14:22

回復 2# rouber590324

非常感謝 rouber590324熱心的回覆

針對
For i = 2 To 1000
    With Sheet33
    If Trim(.Cells(i, 5)) = "N" Then
    .Rows(i).Hidden = True
    Else
    .Rows(i).Hidden = False
    End If
    End With
    Next
...稍做修正即可  ^^

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)