彰化一整天的論壇

 找回密碼
 立即註冊
查看: 162|回復: 2

vba求圓上任一點座標?

[複製鏈接]
發表於 2018-5-12 10:40:39 | 顯示全部樓層 |閱讀模式
你好:
在excel2007上以[K3].Left,[K3].Top為圓心,r=10為圓
如果用(r*sin(角度),r*cos(角度))求取圓上座標
結果出現的順序好像跟我們想要的不一樣??
如附件
謝謝!

circle.xlsm

34.31 KB, 下載次數: 22

回復

使用道具 舉報

發表於 2018-5-12 23:44:46 | 顯示全部樓層
您好,
     您的角度忘了要乘上3.14159/180.
  1. Private Sub CommandButton1_Click()
  2. '清除線條
  3. mapcount = ActiveSheet.Shapes.Count
  4. If mapcount >= 1 Then
  5.    For j = mapcount To 1 Step -1
  6.       ActiveSheet.Shapes(j).Delete
  7.    Next
  8. End If

  9. '
  10. For h = 0 To 360 Step 10

  11.   With ActiveSheet.Shapes.AddLine([K3].Left, [K3].Top, [K3].Left + 10 * Cos(h * 3.14159 / 180), [K3].Top + 10 * Sin(h * 3.14159 / 180)).Line
  12.     .DashStyle = msoLineSolid
  13.     .Weight = 1.5
  14.   End With

  15. Next

  16. End Sub
複製代碼


circle.xlsm

28.17 KB, 下載次數: 0

售價: 2 金錢  [記錄]  [購買]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2018-5-13 17:37:27 | 顯示全部樓層
非常感謝你的幫忙
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-9-22 12:50 , Processed in 0.106796 second(s), 22 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表