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

aassddff736

請問各位~
如何使用巨集隱藏部份欄位
我想一巨集按鍵 跳出InputBox設定開始結束欄位然後隱藏 如何設定?

Andy2483

回復 1# aassddff736

請參考以下鏈結帖:
https://forum.twbts.com/thread-23850-1-12.html

aassddff736

回復 2# Andy2483

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

aassddff736

回復 2# Andy2483


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

下載 (15.4 KB)

2024-2-23 16:31

aassddff736

Sub Hidden()
   
    x1x = InputBox("請輸入開始row")
    x2x = InputBox("請輸入結束row")
        
Worksheets("1").Rows((x1x) & ":" & (x2x)).Select
Selection.EntireRow.Hidden = True

End Sub

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

Andy2483

回復 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'全部顯示

aassddff736

回復 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

回復 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

aassddff736

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