返回列表 上一主題 發帖

在VBA中，如何使用巨集隱藏部份欄位

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1429 
主題
40 
精華
0 
積分
1453 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-5-18 
1# 跳轉到 »
發表於 2024-2-23 14:55 | 顯示全部帖子
回復 1# aassddff736

請參考以下鏈結帖:
https://forum.twbts.com/thread-23850-1-12.html
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1429 
主題
40 
精華
0 
積分
1453 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-5-18 
2#
發表於 2024-2-23 18:57 | 顯示全部帖子
本帖最後由 Andy2483 於 2024-2-23 19:05 編輯

回復 5# aassddff736

1.取消輸入窗參考鏈接帖：
    https://forum.twbts.com/viewthre ... ;highlight=Input%2B
2.Worksheets("1").Rows((x1x) & ":" & (x2x)).EntireRow.Hidden = True
3.Worksheets("1").UsedRange.EntireRow.Hidden = False'全部顯示
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1429 
主題
40 
精華
0 
積分
1453 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-5-18 
3#
發表於 2024-2-23 20:43 | 顯示全部帖子
回復 7# aassddff736


Sub Hidden()
Dim Brr, A, B
    A = InputBox("請輸入開始row"): V = Val(A)
    If StrPtr(A) = 0 Or V = 0 Then MsgBox "資料有誤" : Exit Sub
    B = InputBox("請輸入結束row"): V = Val(B)
    If StrPtr(B) = 0 Or V = 0 Then MsgBox "資料有誤": Exit Sub
    Worksheets(1).Rows((A) & ":" & (B)).Select
    Selection.EntireRow.Hidden = True

End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題