【VBA初级201301D组第三讲作业上交贴

冠军欧洲2010 · 发表于 2013-8-5 15:37

本帖最后由 hoogle 于 2013-8-15 20:29 编辑

D组第三讲作业上交贴
作业链接：http://www.excelpx.com/thread-306547-1-1.html
【Excel VBA初级班】第三讲作业注意事项：
   1、作业必需交完成的EXCEL文件；
   2、一楼一帖，发现原上交作业需要修改的，在原贴编辑，并标注编辑重传的时间；
   3、非V初班学委、班管、D组学员，不得交于此处，违者扣经验和 BB；
   4、不得为抢沙发而占位、不得跟灌水帖，违者扣经验和 BB；
   5、上交的作业EXCEL文件名按原文件名+学号+论坛ID 的格式保存后上传（如"第3课作业-D100-JLxiangwei"），格式不符者不予批改；
   6、满分奖励10BB，按上交作业的正确率排名前3位，额外奖励5、3、2个经验分。如多人正确率一致，按最后修改时间在先的排前面；
   7、特别优秀的，或多答案的回答的，由其他组学委或班管额外奖励BB或经验；
   8、请上传作业时，记得先杀毒。

作业上交截止日：2013年8月8日16:00

suanfeng · 发表于 2013-8-5 18:00

D09-suanfeng第三讲作业

qq1194660920 · 发表于 2013-8-5 21:22

蓝雨清 · 发表于 2013-8-7 08:43

第3课作业-D03-蓝雨清.rar (220.89 KB, 下载次数: 2)

fffox · 发表于 2013-8-7 10:26

本帖最后由 hoogle 于 2013-8-10 17:42 编辑

285528.rar

练习三的附加题没做，先上传

285571.rar
练习三的附加题做好了，再次上传。看起来不简洁，有没有好点的算法？

练习三第二部分写了个简洁点的

Sub hoogle()
Dim arr
arr = Sheet3.Range("b2", Sheet3.Cells(2, 2).End(xlDown))
arr = Split(Replace(Join(Application.Transpose(arr), ","), "/", ","), ",")
Sheet3.Range("d2").Resize(UBound(arr) + 1) = Application.Transpose(arr)
End Sub

复制代码

附加题倒着循环代码很简洁，你看下别的同学的。

--- hoogle

zhao123dq · 发表于 2013-8-7 21:46

【VBA初级201301班】作业3-d15-zhao123dq.rar (230.08 KB, 下载次数: 2)

红尘破 · 发表于 2013-8-8 00:48

本帖最后由红尘破于 2013-8-8 00:53 编辑

【VBA初级201301班】作业3-03格式 - D11 - 红尘破

coreluo · 发表于 2013-8-15 13:47

D23 CORELUO

我不得不说，我看得懂这个代码。但是自己写出来还是很难。。。

		自动登录	找回密码
密码			注册

[通知] 【VBA初级201301D组第三讲作业上交贴

相关帖子

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分