Re: [VBA ] 不好意思問個問題

看板Visual_Basic作者frank082474 (心情好壞牽動ㄧ切)時間16年前 (2009/12/15 00:55)推噓2(2推 0噓 3→)

留言5則, 2人參與討論串2/2 (看更多)

※ 引述《kinbaku1 (~GUCCI BOY~)》之銘言： : ex: : A B : 1 111 444 : 2 222 555 : 3 333 666 : A代表的是x座標,B代表的是y座標 : 也就是有三個點P1(111,444),P2(222,555),P3(333,666) : 現在想要求相對的三個點的距離 : 我想要從P1-P1,P1-P2,P1-P3 : P2-P1,P2-P2,P2-P3 : P3-P1,P3-P2,P3-P3 : 分別去求,然後寫迴圈出來 : 請問板上的強者 : 有人會寫的嗎?謝謝~~ For i = 1 To 3 For j = 1 To 3 If Cells(j + 1, 1) = "" And j <> 3 Then Seg = ((Cells(j, 1).Value - Cells(1, 1).Value) ^ 2 + (Cells(j, 2).Value - Cells(1, 2).Value) ^ 2) ^ (1 / 2) Sheet2.Cells(i, j) = Seg Else Seg = ((Cells(i, 1).Value - Cells(j, 1).Value) ^ 2 + (Cells(i, 2).Value - Cells(j, 2).Value) ^ 2) ^ (1 / 2) Sheet2.Cells(i, j) = Seg End If Next Next 如果不對，請各位高手指教 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 122.117.75.30

推

meto000

12/16 11:43, , 1^F

12/16 11:43, 1^F

→

meto000

12/16 11:43, , 2^F

12/16 11:43, 2^F

→

frank082474

12/19 00:12, , 3^F

12/19 00:12, 3^F