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

®æ¦¡¤Æ±ø¥ó³]©w

DEAR  SIR
1.¦p¹Ï¤@ °²³] BÄæ=10  ¸Ó¦C¨q¥X©³¦âÂÅ.

¹Ï¤@
Private Sub Worksheet_Change(ByVal Target As Range)
   X = Sheet1.[B65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 2) = "10" Then
    Rows("" & M & ":" & M & "").Select
    With Selection.Interior
        .ColorIndex = 34
        .Pattern = xlSolid
    End With
     Y = Y + 1
   End If
   Next
End Sub
ù

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD