ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 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)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD