標題: [發問] 如何讓巨集「自動」執行？ [打印本頁]

---

作者: 馨。    時間: 2018-10-31 10:08     標題: 如何讓巨集「自動」執行？

各位高手們好
小妹今天想詢問一下「待辦事項」我有錄製巨集，讓「完成/未完成」將未完成及空白留下…
但目前都必須手動操作才可以，若想把巨集改為自動打上「完成」後，就不見的話，應如何修改？
謝謝高手~

巨集內容如下：
Sub 巨集1()
'
' 巨集1 巨集
'

'
    ActiveSheet.Range("$A$3:$H$41").AutoFilter Field:=4, Criteria1:="=未完成", _
        Operator:=xlOr, Criteria2:="="
End Sub

---

作者: rouber590324    時間: 2018-10-31 11:23

Sub 列自動隱藏()
    Sheet2.Select
    Range("A1").Select
    For i = 2 To 100
    With Sheet2
    If Sheet2.Cells(i, 4) = "完成" Then
     Sheet2.Rows(i).Hidden = True
    Else
     Sheet2.Rows(i).Hidden = False
    End If
    End With
    Next
End Sub

---

作者: n7822123    時間: 2018-10-31 23:11

回復 1# 馨。


想要讓巨集自動觸發，要用工作表事件
以下附件，當C欄的"完成日"輸入之後，會自動隱藏該列
這裡有些人還是用舊版excel，所以存兩個檔案

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If IsDate(Target.Value) Then Rows(Target.Row).Hidden = True
End Sub

[attach]29613[/attach]

---

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