学VBA的高手请进。初学VBA不希望走弯路。
希望有VBA的热心人支招。现在迷上VBA啦。现在还停留在对宏特别感兴趣的阶段。但VBA语言都看不懂。我是学英文专业的。麻烦了。QQ:529521384邮箱:5295213...
希望有VBA的热心人支招。现在迷上VBA啦。现在还停留在对宏特别感兴趣的阶段。但VBA语言都看不懂。
我是学英文专业的。麻烦了。
QQ:529521384
邮箱:529521384@qq.com
希望能发点资料给我学习,感谢啦! 展开
我是学英文专业的。麻烦了。
QQ:529521384
邮箱:529521384@qq.com
希望能发点资料给我学习,感谢啦! 展开
展开全部
其实我一直觉得大学的编程课应该改一改,先学习VBA,因为VBA可以马上体现出编程的效果
这个东西会越学越感兴趣的,建议先从EXCEL中开始VBA的学习
关于EXCEL的VBA课程很多,在网上能下载到一个翻译过来的WORD版的EXCEL VBA教程,相当不错
另外,学习VBA可以自学的,因为你会英语,应该能看懂录制宏后出来的代码,照葫芦画瓢就可以了
这个东西会越学越感兴趣的,建议先从EXCEL中开始VBA的学习
关于EXCEL的VBA课程很多,在网上能下载到一个翻译过来的WORD版的EXCEL VBA教程,相当不错
另外,学习VBA可以自学的,因为你会英语,应该能看懂录制宏后出来的代码,照葫芦画瓢就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-05-05
展开全部
试试吧
Sub getRadom()
Dim i As Integer, j As Integer, iMaxLine As Integer, iMinLine As Integer
Dim sngMax As Single, sngMin As Single, sngCMax As Single, sngCMin As Single, sngCDif As Single
sngMax = [b1].Value * 1000000
sngMin = [a1].Value * 1000000
For i = 1 To 5
sngCDif = Cells(8, i).Value * 1000000
getmax:
sngCMax = Int((sngMax - sngMin + 1) * Rnd + sngMin)
sngCMin = sngCMax - sngCDif
If sngCMin < rngMin Then GoTo getmax
iMaxLine = Int(6 * Rnd + 2)
iMinLine = Int(6 * Rnd + 2)
Do While iMinLine = iMaxLine
iMinLine = Int(6 * Rnd + 1)
Loop
Cells(iMaxLine, i) = sngCMax / 1000000
Cells(iMinLine, i) = sngCMin / 1000000
For j = 2 To 7
If Cells(j, i) = "" Then Cells(j, i) = Int((sngCMax - sngCMin + 1) * Rnd + sngCMin) / 1000000
Next j
Next i
End Sub
另外,站长团上有产品团购,便宜有保证
Sub getRadom()
Dim i As Integer, j As Integer, iMaxLine As Integer, iMinLine As Integer
Dim sngMax As Single, sngMin As Single, sngCMax As Single, sngCMin As Single, sngCDif As Single
sngMax = [b1].Value * 1000000
sngMin = [a1].Value * 1000000
For i = 1 To 5
sngCDif = Cells(8, i).Value * 1000000
getmax:
sngCMax = Int((sngMax - sngMin + 1) * Rnd + sngMin)
sngCMin = sngCMax - sngCDif
If sngCMin < rngMin Then GoTo getmax
iMaxLine = Int(6 * Rnd + 2)
iMinLine = Int(6 * Rnd + 2)
Do While iMinLine = iMaxLine
iMinLine = Int(6 * Rnd + 1)
Loop
Cells(iMaxLine, i) = sngCMax / 1000000
Cells(iMinLine, i) = sngCMin / 1000000
For j = 2 To 7
If Cells(j, i) = "" Then Cells(j, i) = Int((sngCMax - sngCMin + 1) * Rnd + sngCMin) / 1000000
Next j
Next i
End Sub
另外,站长团上有产品团购,便宜有保证
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你到我百度空间看一,有一点资料,也有链接,我也初学,一起学习吧。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
给你介绍一个不错的网站,EXCELHOME,绝对经典,微软半官方性质,让你不后悔。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询