จะทำการนำข้อมูลที่อยู่ใน array มาใช้ตามที่ต้องการได้ยังไงคะ

[tantanz]

คือตอนนี้ได้สร้าง array เพื่อเก็บค่า x และ y จาก sheet2แล้ว หากจะนำออกมาใช้เพื่อการคำนวณต่อจะเรียกมาใช้ได้ยังไงคะ
โดยใน sheet3 จะมีตัวเลขที่รันลงมา แล้วนำค่าจาก array มาคำนวณให้อยู่ในเซลล์ C

เช่น
A B C
1 1 =abs(x(1)-x(1))+(y(1)-y(1))
1 2 =abs(x(1)-x(2))+(y(1)-y(2))
1 3 =abs(x(1)-x(3))+(y(1)-y(3))
2 1 =abs(x(2)-x(1))+(y(2)-y(1))
2 2 =abs(x(2)-x(2))+(y(2)-y(2))
2 3 =abs(x(2)-x(3))+(y(2)-y(3))
3 1 =abs(x(3)-x(1))+(y(3)-y(1))
3 2 =abs(x(3)-x(2))+(y(3)-y(2))
3 3 =abs(x(3)-x(3))+(y(3)-y(3))

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Public Sub distance()
    Dim i As Integer, j As Integer
    Dim rAll As Range, rx As Range
    Dim ry As Range, rCal As Range
    Dim k As Integer, l As Integer
    With Sheets("Sheet2")
    Set rAll = .Range("A2", .Range("A" & Rows.Count) _
        .End(xlUp))
    j = rAll.Rows.Count
    End With
     Sheets("Sheet3").Cells.Clear
     For i = 1 To j
         With Sheets("Sheet3")
             If .Range("B1") = "" Then
                 rAll.Copy .Range("B1")
                 .Range("A1").Resize(j) = i
             Else
                 rAll.Copy .Range("B" & Rows.Count) _
                    .End(xlUp).Offset(1, 0)
               .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).Resize(j) = i
             End If
         End With
     Next i
     With Sheets("Sheet3")
        Set rx = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
        Set ry = rx.Offset(0, 1)
        Set rCal = ry.Offset(0, 1)
        k = rx.Count
     End With
    For l = 1 To k
        rCal(l) = Abs(rx(l) - ry(l) + (rx(l) - ry(l)))
    Next l
End Sub

[tantanz]

อาจจะอธิบายไม่ละเอียดมาก ^^"

คือเวลาคำนวณจะดึงค่ามาใช้ค่ะ

sheet2
เครื่อง x y
1 3 4
2 6 12
3 12 4

sheet3 (เซลล์ c) ได้ดังนี้

=abs(3-3)+(4-4) '=abs(x(1)-x(1))+(y(1)-y(1)) คือ x(1) มีค่าเท่ากับ 3 y(1) มีค่าเท่ากับ 4 เป็นต้นค่ะ
=abs(3-6)+(4-9)
=abs(3-12)+(4-4)

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่าง ปกติควรบอกผลลัพธ์ที่ต้องการมาด้วยจะเข้าใจมากขึ้นและสามารถเปรียบเทียบได้ครับ

Code: Select all

Option Explicit

Public Sub distance()
    Dim i As Integer, j As Integer
    Dim rAll As Range, rx As Range
    Dim ry As Range, rCal As Range
    Dim k As Integer, l As Integer
    With Sheets("Sheet2")
        Set rAll = .Range("A2", .Range("A" & Rows.Count) _
        .End(xlUp))
        j = rAll.Rows.Count
    End With
    Sheets("Sheet3").Cells.Clear
    For i = 1 To j
        With Sheets("Sheet3")
            If .Range("B1") = "" Then
                rAll.Copy .Range("B1")
                .Range("A1").Resize(j) = i
            Else
                rAll.Copy .Range("B" & Rows.Count) _
                    .End(xlUp).Offset(1, 0)
                .Range("A" & Rows.Count).End(xlUp) _
                    .Offset(1, 0).Resize(j) = i
            End If
        End With
    Next i
    With Sheets("Sheet2")
        Set rx = .Range("B2", .Range("B" & Rows.Count).End(xlUp))
        Set ry = rx.Offset(0, 1)
    End With
    With Sheets("Sheet3")
        Set rCal = .Range("B1", .Range("B" & Rows.Count).End(xlUp)).Offset(0, 1)
        k = rCal.Offset(0, -1).Count
    End With
    For l = 1 To k
        rCal(l) = Abs(rx(rCal(l).Offset(0, -2)) - _
            rx(rCal(l).Offset(0, -1))) + _
            (ry(rCal(l).Offset(0, -2)) - _
            ry(rCal(l).Offset(0, -1)))
    Next l
End Sub

[tantanz]

ได้ผลลัพธ์ตามที่ต้องการแล้วค่ะ ขอบคุณมาก

และขออภัยที่ไม่ได้บอกลายละเอียดให้ครบถ้วนค่ะ