標題: 在VBA中，如何使用巨集隱藏部份欄位 [打印本頁]

---

作者: aassddff736    時間: 2024-2-23 14:31     標題: 在VBA中，如何使用巨集隱藏部份欄位

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

---

作者: Andy2483    時間: 2024-2-23 14:55

回復 1# aassddff736

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

---

作者: aassddff736    時間: 2024-2-23 16:01

回復 2# Andy2483

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

---

作者: aassddff736    時間: 2024-2-23 16:33

回復 2# Andy2483


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

---

作者: aassddff736    時間: 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    時間: 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'全部顯示

---

作者: aassddff736    時間: 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    時間: 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

---

作者: aassddff736    時間: 2024-2-23 22:28

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)