kevinchan 发表于 2004-5-18 13:44:00

[VBA][求助]如果做交叉递增的圆点?

本帖最后由 作者 于 2004-5-24 20:39:57 编辑

我现在参照老大们的意思画出了递增的圆点,

kevinchan 发表于 2004-5-18 13:49:00

我原来的代码做出来的效果如下


我希望能在画红处做出圆点

kevinchan 发表于 2004-5-18 23:33:00

为什么没人帮我呀？

efan2000 发表于 2004-5-19 00:12:00

' 记录行<BR>Dim Row As Integer<BR>Row = 1<BR>Do<BR>                       Do<BR>                       Loop While centerpt(0) &lt;= Length<BR>                       ' 增加一行<BR>                       Row = Row + 1<BR>                       ' 偶数行<BR>                       If Row Mod 2 = 0 Then<BR>                                                       centerpt(0) = centerpt(1) + ptdis<BR>                       ' 奇数行<BR>                       Else<BR>                                                       centerpt(0) = 0<BR>                       End If<BR>Loop While centerpt(1) &lt;= (n * p - 1) * ptdis + ptdis / 4


增加一个判断当前行的变量。

kevinchan 发表于 2004-5-20 02:30:00

本帖最后由 作者 于 2004-5-24 20:40:56 编辑

谢谢尹凡!



参照您的建议我做
页: [1]
查看完整版本: [VBA][求助]如果做交叉递增的圆点?