[原创]Excel VBA 快速上手之宝典

青青

慢慢学习，谢谢。[em17]

micheal_chan

谢谢！

挺一下

zhoujibin1

QUOTE:

以下是引用aqiang117在2007-8-15 16:45:14的发言：

非常感谢你的辛勤耕耘,使我受益蜚浅,你能帮我看看下面的程序那里的问题呢

Sub text()
Dim DM As Single    '大截面线芯的直径'
Dim DN As Single  '小截面线芯的直径'
Dim M As Integer  '大截面线芯的个数'
Dim N As Integer '小截面线芯的个数'
Dim a As Single   '大截面线芯之间的夹角'
Dim r As Single  '大截面与小截面线芯之间的夹角'
Dim b As Single '小截面线芯之间的夹角'
Dim D As Single  '成缆直径'
Dim Dmax As Single
Dim Dmin As Single

Dim y As Single

M = Worksheets("sheet159").Range("u159")
N = Worksheets("sheeet159").Range("v159")
Pi = 3.1415926
DM = Worksheets("sheeet159").Range("m159")
DN = Worksheets("sheet159").Range("p159")
 Dmax = DM + DM / Sin(Pi / (M + N))
Dmin = DM + DM / Sin(Pi / M)
If N = 0 Then
D = Dmin
End If
int1 = 0
 Do

 int1 = int1 + 1
 D = (Dmax + Dmin) / 2
 a = (1 - 2 * DM ^ 2 / (D - DM) ^ 2)
 r = (1 - 2 * DM * DN / (D - DM) / (D - DN))
 b = (1 - 2 * DN ^ 2 / (D - DN) ^ 2)
 y = (M - 1) * a + (N - 1) * b + 2 * r
 If y < 2 * Pi Then
 Dmax = D
 Else:
 Dmin = D
 End If
 Loop While y - 2 * Pi < 0.0001

Worksheets("sheeet159").Cells(159, 27) = D

End Sub

红色字体提示出错,然后就是下标越界,请指点,谢谢

对象定义问题，M是单精度变量，N是整数型变量。

下面你M = Worksheets("sheet159").Range("u159")
类型不对

andcdavid

谢xie

hevy2007

我们永远支持你！

[em02][em02][em02]

zhouyq0706

楼主无私的奉献，向你致敬！

laijianhui

see see

thanks

57wk

  楼主辛苦了！衷心感谢楼主的无私奉献精神！！向版主致敬！！！[em27][em22]

  我在学VBA时遇到了一些问题（详见附件），这些问题已困扰了我i近两月的时间了，在楼主有空时请帮助帮助。我在此表示感谢了！

rrAL14cp.zip (29.7 KB, 下载次数: 22)

2007-9-24 21:44 上传

点击文件名下载附件

[此贴子已经被作者于2007-9-24 21:44:35编辑过]

玉米飘香

敬佩楼主,知识产权,无私奉献.

hangtian2006

无论什么时候看,都让人受益