½Ð°Ý¦U¦ì¤j¤j ¦bexcel¤¤¦p¦ó¥H¼¶¼gVBA¨Ï±o¦Û°Ê¥H¬Y¯S©wÀx¦s®æ¤º®e©R¦W¨Ã¥t¦s·sÀÉ
- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 2
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-9-9
- ³Ì«áµn¿ý
- 2010-9-16
|
½Ð°Ý¦U¦ì¤j¤j ¦bexcel¤¤¦p¦ó¥H¼¶¼gVBA¨Ï±o¦Û°Ê¥H¬Y¯S©wÀx¦s®æ¤º®e©R¦W¨Ã¥t¦s·sÀÉ
¦U¦ì¤j¤j
¤p©f¹Á¸Õ¦h¦¸¨ÌµM¥¢±Ñ·Q½Ð°Ý¦p¦ó±NªþÀɤ¤¨Ì§Ç±N¤CÓ¿¤¥«(Sheet1)¤¤ªº¸g½n«×(X, YÄæ)¦U§O¹ï¤CÓºô®æ(Sheet2)¤¤ªº¤¤¤ßÂI¸g½n«×(X,YÄæ)§Q¥Î²¦¤ó©w²z¨D¶ZÂ÷¡A±µµÛÂà´«¦¨¤½¨½¨Ã¥t¦s¦¨¤@Ó·sÀÉ
¤]´N¬O³Ì«á·|¦³¤CÓÀÉ¡A¦ý¦]¬°¹ê»Ú¤W¦³¤@¤d¦hÓ¿¤¥«¡A§Æ±æ¯à°÷§Q¥Î¥¨¶°©ÎVBAµ{¦¡¤@¦¸°õ¦æ¤@¤d¦hµ§¸ê®Æ¤£¥Î¤@ÓÓ°õ¦æµ{¦¡¦sÀÉ¡A¤p©f²{¦b¥Îªºµ{¦¡¬°
1.
Public Function slength(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)
slength = ((x1 - x2) ^ 2 + (y1 - y2) ^ 2) ^ 0.5 '²¦¤ó©w²z
End Function
2.
Public Function km(degree)
km = degree * 110 '¸g½n«×¶ZÂ÷Âऽ¨½
End Function
§Æ±æ¯à°÷Àò±o¸Ñµª ÁÂÁ |
-
-
¿¤¥«¸ê®Æ.rar
(7.19 KB)
excelªí³æ
|
|
|
|
|
|