白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 网易云课堂-Excel数据透视表应用大全
Excel图表神技
查看: 716|回复: 13

Excel VBA培训班免费在线培训---初级班(11127班)课时3作业提交处

[复制链接]
发表于 2015-8-16 17:41:18 | 显示全部楼层 |阅读模式
本帖最后由 cleverzhzhf 于 2015-8-25 11:27 编辑

Excel VBA培训班免费在线培训---初级班(11127班)课时3作业提交处
课程内容 修改录制宏代码进行功能扩展
发布版面 初级班(11127班) 课时
讲师 三戒 助教 开心妙妙,临时户口,cleverzhzhf
要求及说明 1、请于2015-08-24(周一)21:00之前完成并跟帖上交课后作业;
2、学习及作业中有任何疑问,请到本班版块发帖提问(http://t.excelhome.net/forum-403-1.html ),QQ群只供培训动态交流、沟通;
3、在课件发布三天内,不允许在版块讨论与作业有关的问题;提问题要针对知识点,不能笼统的说作业怎么做;
4、完成作业采取自愿的原则,不强制要求,对于按时完成作业的学员,将视完成情况,予以登攀奖励。
5、除教学人员外,学员不允许占位,否则予以删除。
回复

使用道具 举报

发表于 2015-8-22 16:28:23 | 显示全部楼层
费了半天功夫,终于听完课程,做完作业啦。{:soso_e121:} 11127-3-lilyren-homework.rar (940.64 KB, 下载次数: 6)

点评

i = Worksheets("练习3").Range("a1").End(xlDown).Row,练习3的这一句效率有些慢,可以考虑把这句写在For Each上面,在循环中用一个i=i+1  发表于 2015-8-25 10:13

评分

参与人数 1登攀 +40 收起 理由
cleverzhzhf + 40 做的很棒!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-22 16:50:36 | 显示全部楼层
提……交……作……业……

夏寂雨透-3-homework.zip

924.94 KB, 下载次数: 1

点评

练习2:Font的属性部分,也可以再使用一个With。可以参考你楼上的作业。  发表于 2015-8-25 10:25
练习1:简化和未简化的效果,都差了一句Range("A1:E1").Select。现在是单元格选择到哪里,就对哪里开始设置了。简化版的差一句:Range("A2:E2").Interior.ThemeColor = xlThemeColorAccent6  发表于 2015-8-25 10:21

评分

参与人数 1登攀 +30 收起 理由
cleverzhzhf + 30 加油!在VBA

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-23 20:35:38 | 显示全部楼层
本帖最后由 slg36 于 2015-8-23 20:41 编辑

交课时3作业
111-3-slg36-homework.rar (833.6 KB, 下载次数: 1)

点评

练习2:没有使用with的结构进行简化。练习3:建议养成代码缩进的习惯,可读性会比较好。  发表于 2015-8-25 10:46

评分

参与人数 1登攀 +28 收起 理由
cleverzhzhf + 28 加油!练习3很简练~

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-23 20:50:02 | 显示全部楼层
本帖最后由 cleverzhzhf 于 2015-8-25 11:10 编辑

第3题做不出效果,一直提示错误13-类型不匹配,请老师帮我看看第3题的代码有什么问题,谢谢!(已附上)

Sub 宏1()
'
' 宏1 宏
   Dim sht As Workbook
   Dim i As Integer
   i = 2

   For Each sht In ThisWorkbook.Worksheets
   If Sheet.Name <> "练习3" Then
    Sheets.Select
    Range("A3:F3").Select
    Selection.Copy
    Sheets("练习3").Select
    Range("A" & (i + 1)).Select
    ActiveSheet.Paste
    i = i + 1
   End If
    Next
End Sub



——cleverzhzhf编辑
在你原代码中,进行最小的改动,改动如下,可以慢慢体会下。For Each sht之后,sht已经代表各个“工作表”
Sub 宏1()
'
' 宏1 宏
'
'
   Dim sht As Worksheet
   Dim i As Integer
   i = 2
   
   For Each sht In ThisWorkbook.Worksheets
   
   If sht.Name <> "练习3" Then
    sht.Select
    Range("A3:F3").Select
    Selection.Copy
    Sheets("练习3").Select
    Range("A" & (i + 1)).Select
    ActiveSheet.Paste
    i = i + 1
   
   End If
   
    Next
   
End Sub


111-3-lierasc.rar

939.75 KB, 下载次数: 3

点评

练习2:简练的程度不够,相同的内容,比如selection,都可以用一个with selection代替。详情参考2楼作业~  发表于 2015-8-25 11:11
练习1:细节,将新录制宏改名为“jianhua”,这个没做。在前一个With不结束的时候,With Selection.Font可以改成With .Font。整体的简化不足够简练。可以参考2楼同学的答案。  发表于 2015-8-25 11:01

评分

参与人数 1登攀 +20 收起 理由
cleverzhzhf + 20 加油!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-24 13:54:02 | 显示全部楼层
11127-3-homework.rar (831.57 KB, 下载次数: 7)

评分

参与人数 1登攀 +40 收起 理由
cleverzhzhf + 40 完全正确

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2015-8-24 21:07:54 | 显示全部楼层
交作业~~~~\(≧▽≦)/~啦啦啦

11127-3-流水迢迢.rar

837.14 KB, 下载次数: 2

点评

练习1:简化的还不充分。练习2:.Font.Size = 10这句多余了  发表于 2015-8-25 11:26

评分

参与人数 1登攀 +35 收起 理由
cleverzhzhf + 35 加油!

查看全部评分

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 入学

本版积分规则

快速回复 返回顶部 返回列表