|
楼主 |
发表于 2009-9-27 13:41
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
来个彩色的和部分代码:
'撰写:宏FANS
'QQ:1158268815
'日期:2009-9-27 13:33:29
001:Private Sub y画圆()
002:cls
003:Const Pi = 3.14159
004:Dim r, x, y, x0, y0
005:n = Val(InputBox("Please Input a Number"))
006:With Sheet1
007: r = .[a1] / 4
008: x0 = .[a2] / 2
009: y0 = .[a3] / 2
010:End With
011:st = Pi / n
012:For i = 0 To 2 * Pi Step st
013: x = r * Cos(i) + x0
014: y = r * Sin(i) + y0
015: ovlr x, y, r * 1.6
016:Next i
017:End Sub
|
|