返回列表 上一主題 發帖

[發問] 如何讓巨集「自動」執行?

[發問] 如何讓巨集「自動」執行?

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

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

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

待辦事項.zip (19.91 KB)

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

TOP

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

待辦事項+.rar (40.03 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題