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

帖子: 70
主題: 9
精華: 0
積分: 83
點名: 27
作業系統: win
軟體版本: 7
閱讀權限: 20
性別: 女
註冊時間: 2024-2-3
最後登錄: 2024-11-16

3^#

發表於 2024-2-23 16:01 | 只看該作者

回復 2# Andy2483

感謝大神
這篇我有看過,可是不太懂
我想隱藏的是ROWS如何修改?

帖子: 70
主題: 9
精華: 0
積分: 83
點名: 27
作業系統: win
軟體版本: 7
閱讀權限: 20
性別: 女
註冊時間: 2024-2-3
最後登錄: 2024-11-16

4^#

發表於 2024-2-23 16:33 | 只看該作者

回復 2# Andy2483

感謝大神
這篇我有看過,可是不太懂
我想隱藏的是ROWS
不知道如何帶入變數
擷取.JPG

帖子: 70
主題: 9
精華: 0
積分: 83
點名: 27
作業系統: win
軟體版本: 7
閱讀權限: 20
性別: 女
註冊時間: 2024-2-3
最後登錄: 2024-11-16

5^#

發表於 2024-2-23 17:19 | 只看該作者

Sub Hidden()

x1x = InputBox("請輸入開始row")
x2x = InputBox("請輸入結束row")

Worksheets("1").Rows((x1x) & ":" & (x2x)).Select
Selection.EntireRow.Hidden = True

End Sub

請教各位大神
當我InputBox值為空白或0提醒錯誤併離開
怎麼設?

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

6^#

發表於 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'全部顯示

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

帖子: 70
主題: 9
精華: 0
積分: 83
點名: 27
作業系統: win
軟體版本: 7
閱讀權限: 20
性別: 女
註冊時間: 2024-2-3
最後登錄: 2024-11-16

7^#

發表於 2024-2-23 19:52 | 只看該作者

回復 6# Andy2483
感謝您的解答
但是如果我要先跳 MsgBox "資料有誤"然後才Exit怎麼修改

Sub Hidden()
Dim Brr, A, B

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

End Sub

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-12-5

8^#

發表於 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

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

帖子: 70
主題: 9
精華: 0
積分: 83
點名: 27
作業系統: win
軟體版本: 7
閱讀權限: 20
性別: 女
註冊時間: 2024-2-3
最後登錄: 2024-11-16

9^#

發表於 2024-2-23 22:28 | 只看該作者

回復 8# Andy2483
謝謝指教，我會努力學習