返回列表 上一主題 發帖

[發問] 當沒勾選則隱藏

blithely1017

帖子
13 
主題
6 
精華
0 
積分
54 
點名
0  
作業系統
Windows 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2016-8-4 
最後登錄
2018-8-28 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-2-20 10:17 | 只看該作者

[發問] 當沒勾選則隱藏

請問假設Sheet A總共有5個項目，有勾選的項目顯示，沒勾選的項目隱藏
該如何做到?

  
收藏 分享

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2026-2-12 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2017-2-20 14:40 | 只看該作者
Sub 列自動隱藏()
    Sheet2.Select
    Range("A1").Select
    For i = 2 To 6
    With Sheet2
    If Not (Trim(Sheet1.Cells(i, 2)) = "V") Then
    .Rows(i).Hidden = True
    Else
    .Rows(i).Hidden = False
    End If
    End With
    Next
End Sub
羅

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題