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

[µo°Ý] ·í¨S¤Ä¿ï«hÁôÂÃ

[µo°Ý] ·í¨S¤Ä¿ï«hÁôÂÃ

½Ð°Ý°²³]Sheet AÁ`¦@¦³5­Ó¶µ¥Ø¡A¦³¤Ä¿ïªº¶µ¥ØÅã¥Ü¡A¨S¤Ä¿ïªº¶µ¥ØÁôÂÃ
¸Ó¦p¦ó°µ¨ì?

  

Sub ¦C¦Û°ÊÁôÂÃ()
    Sheet2.Select
    Range("A1").Select
    For i = 2 To 6
    With Sheet2
    If Not (Trim(Sheet1.Cells(i, 2)) = "V") Then
    .Rows(i).Hidden = True
    Else
    .Rows(i).Hidden = False
    End If
    End With
    Next
End Sub
ù

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD