Sub a()
Dim myRange1 As Range
Set myRange1 = Worksheets("Sheet1").Range("d12:d50")
s2.Cells(1, 1) = Application.WorksheetFunction.Min(myRange1)
Dim myRange2 As Range
Set myRange2 = Worksheets("Sheet1").Range("e12:e50")
s2.Cells(2, 1) = Application.WorksheetFunction.Min(myRange2)
For i = 1 To n
s2.Cells(i, 3) = s1.Cells(11 + i, 5) - s2.Cells(2, 1)
s2.Cells(i, 4) = s1.Cells(11 + i, 4) - s2.Cells(1, 1)
Next i
Dim mn(1 To 50, 1 To 2) As Single
For i = 1 To n
mn(i, 1) = s2.Cells(i, 3)
mn(i, 2) = s2.Cells(i, 4)
Next i
Dim xy(1 To 50, 1 To 2) As Single
For i = 1 To n
xy(i, 1) = mn(i, 1) * z + c
xy(i, 2) = b - c - mn(i, 2) * z
Next i
For i = 1 To n - 1
s3.Select
ActiveSheet.Shapes.AddLine(xy(i, 1), xy(i, 2), xy(i + 1, 1), xy(i + 1, 2)).Select
Next i
s3.Select
ActiveSheet.Shapes.AddLine(xy(n, 1), xy(n, 2), xy(1, 1), xy(1, 2)).Select
For i = 1 To n
ActiveSheet.Shapes.AddShape(msoShapeOval, xy(i, 1) - 2, xy(i, 2) - 2, 4, 4).Select
Next i
End Sub
这个运行错误424
|