Sub Distance()

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim n As Integer

l = 2
j = 2
For i = 1 To 7
        n = 3
        For k = 1 To 7

        If 1# > (Worksheets("Sheet1").Cells(i, j).Value) * (Worksheets("Sheet1").Cells(i, j).Value) - (Worksheets("Sheet2").Cells(k, l).Value) * (Worksheets("Sheet2").Cells(k, l).Value) Then
        Worksheets("Sheet1").Cells(i, j + n).Value = Worksheets("Sheet2").Cells(k, 1).Value
        n = n + 1
        End If
    Next
Next

End Sub



이놈은 대체 뭐하는 놈일까요? -_-;
by snowall 2008.03.22 22:18