返回列表 上一主題 發帖

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

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

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

回復 1# aassddff736

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

TOP

回復 2# Andy2483

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

TOP

回復 2# Andy2483


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

TOP

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

End Sub

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

TOP

本帖最後由 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

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

TOP

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

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

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題