2013年2月26日 - Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 And Target.Count = 1 Then Dim i As Long Dim table As New Worksheet
tw.knowledge.yahoo.com