[µo°Ý] ¦p¦óÅý¥¨¶°¡u¦Û°Ê¡v°õ¦æ¡H

ÄÉ¡C

¦U¦ì°ª¤â­Ì¦n
¤p©f¤µ¤Ñ·Q¸ß°Ý¤@¤U¡u«Ý¿ì¨Æ¶µ¡v§Ú¦³¿ý»s¥¨¶°¡AÅý¡u§¹¦¨/¥¼§¹¦¨¡v±N¥¼§¹¦¨¤ÎªÅ¥Õ¯d¤U¡K
¦ý¥Ø«e³£¥²¶·¤â°Ê¾Þ§@¤~¥i¥H¡A­Y·Q§â¥¨¶°§ï¬°¦Û°Ê¥´¤W¡u§¹¦¨¡v«á¡A´N¤£¨£ªº¸Ü¡AÀ³¦p¦ó­×§ï¡H
ÁÂÁ°ª¤â~

¥¨¶°¤º®e¦p¤U¡G
Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'

'
    ActiveSheet.Range("$A$3:$H$41").AutoFilter Field:=4, Criteria1:="=¥¼§¹¦¨", _
        Operator:=xlOr, Criteria2:="="
End Sub

n7822123

¦^´_ 1# ÄÉ¡C


·Q­nÅý¥¨¶°¦Û°ÊIJµo¡A­n¥Î¤u§@ªí¨Æ¥ó
¥H¤Uªþ¥ó¡A·íCÄ檺"§¹¦¨¤é"¿é¤J¤§«á¡A·|¦Û°ÊÁôÂøӦC
³o¸Ì¦³¨Ç¤HÁÙ¬O¥Îª©excel¡A©Ò¥H¦s¨â­ÓÀÉ®×

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)

¤U¸ü¦¸¼Æ: 6

2018-10-31 23:11

rouber590324

Sub ¦C¦Û°ÊÁôÂÃ()
    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