作者frank082474 (心情好坏牵动ㄧ切)
看板Visual_Basic
标题Re: [VBA ] 不好意思问个问题
时间Tue Dec 15 00:55:17 2009
※ 引述《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
1F：推 meto000:两两求距离的话，自己跟自己应该不用算吧？然後重复的也可 12/16 11:43
2F：→ meto000:以省掉，时间可以省一半以上 12/16 11:43
3F：→ frank082474:我不知道唷 我只是依据上篇大大的要求做出来的 12/19 00:12
4F：推 meto000:只是要「做出来」当然没问题，是说这样可以做得快一点 12/21 11:30
5F：→ meto000:当然你若觉得那不重要就没关系了 12/21 11:31