学VBA的高手请进。初学VBA不希望走弯路。

希望有VBA的热心人支招。现在迷上VBA啦。现在还停留在对宏特别感兴趣的阶段。但VBA语言都看不懂。我是学英文专业的。麻烦了。QQ:529521384邮箱:5295213... 希望有VBA的热心人支招。现在迷上VBA啦。现在还停留在对宏特别感兴趣的阶段。但VBA语言都看不懂。
我是学英文专业的。麻烦了。
QQ:529521384
邮箱:529521384@qq.com
希望能发点资料给我学习,感谢啦!
展开
 我来答
xcztb
2011-05-05
知道答主
回答量:16
采纳率:100%
帮助的人:4.4万
展开全部
其实我一直觉得大学的编程课应该改一改,先学习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
另外,站长团上有产品团购,便宜有保证
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
太极健1969
2011-05-05 · TA获得超过9034个赞
知道大有可为答主
回答量:8668
采纳率:69%
帮助的人:3639万
展开全部
你到我百度空间看一,有一点资料,也有链接,我也初学,一起学习吧。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
司马子南
2011-05-05 · TA获得超过1540个赞
知道小有建树答主
回答量:513
采纳率:66%
帮助的人:295万
展开全部
给你介绍一个不错的网站,EXCELHOME,绝对经典,微软半官方性质,让你不后悔。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式