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

课前练习I--录制简单的宏

[复制链接]
发表于 2011-9-23 09:30:24 | 显示全部楼层 |阅读模式
本帖最后由 wudixin96 于 2012-2-13 11:20 编辑

在发布导航帖之前,我们先做一些题目热热身。

本题要求录制一个宏,将B2:F20区域所有数值为6的单元格替换为15。
无版本限制,只要能达到效果即可。
注意提交时能代码形式提交(如方便也请提交GIF动画),不需要提交EXCEL文件,(不按要求提交,不进行评分)  以便评阅,谢谢!
  1. MsgBox "Hello EveryBody!"
复制代码
请大家不要急于提交练习答案,问题虽简单,但不细心是会错的。
本题来自11107班,在此向acecrazy、Leroy老师表示谢意。
截止时间:2011年10月7日
奖励:10登攀。



作业的动画效果

作业的动画效果
d.gif

录制简单的宏1.rar

3.61 KB, 下载次数: 108

回复

使用道具 举报

发表于 2011-9-23 10:17:22 | 显示全部楼层
本帖最后由 coolish97 于 2011-9-23 11:31 编辑


  
  1. Sub 替换()
  2. '
  3. ' 替换 Macro
  4. ' 宏由 梁爽 录制,时间: 2011-9-23
  5. '

  6. '
  7. Range("B2:F20").Select
  8. Selection.Replace What:="6", Replacement:="15", LookAt:=xlPart, _
  9. SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  10. ReplaceFormat:=False
  11. End Sub
复制代码



录制简单的宏以(coolish97).rar

7.92 KB, 下载次数: 22

点评

不完全正确  发表于 2011-10-7 09:39

评分

参与人数 1登攀 +5 收起 理由
apirl2008 + 5

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-23 10:18:46 | 显示全部楼层
本帖最后由 cateran 于 2011-9-23 18:56 编辑

介个俺会,抢先一步了~~~



最终修改代码
  1. Sub 替换()
  2. Selection.CurrentRegion.Select
  3. Selection.Replace What:="6", Replacement:="15", LookAt:=xlWhole, SearchOrder:=xlByRows
  4. End Sub
复制代码

替换.gif

评分

参与人数 1登攀 +10 收起 理由
apirl2008 + 10 正确

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-23 10:49:56 | 显示全部楼层
本帖最后由 hdr811003 于 2011-9-23 11:18 编辑
  1. Sub 按钮1_Click()
  2. '
  3. ' 按钮1_Click 宏
  4. '

  5. '
  6. Range("B2:F20").Select
  7. Selection.Replace What:="6", Replacement:="15", LookAt:=xlPart, _
  8. SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  9. ReplaceFormat:=False
  10. Range("I8").Select
  11. End Sub
复制代码

点评

不完全正确  发表于 2011-10-7 09:41

评分

参与人数 1登攀 +5 收起 理由
apirl2008 + 5

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-23 12:07:53 | 显示全部楼层
本帖最后由 kangyisky 于 2011-9-27 20:34 编辑

后来发现要勾选单元格匹配,不然16会变成115,题目里只有6,因此一时也没看出来~~真够陷阱的

  1. Sub Macro2()
  2. '
  3. ' Macro2 Macro
  4. ' 宏由 kangyisky 录制,时间: 2011/9/26
  5. '
  6. '
  7.     Range("B2:F20").Select
  8.     Selection.Replace What:="6", Replacement:="15", LookAt:=xlWhole, _
  9.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  10.         ReplaceFormat:=False
  11. End Sub

复制代码

11115-kangyisky.rar

63.11 KB, 下载次数: 1

评分

参与人数 1登攀 +10 收起 理由
apirl2008 + 10 正确

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-23 12:31:35 | 显示全部楼层
本帖最后由 大锚 于 2011-9-27 13:13 编辑
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' 宏由 微软用户 录制,时间: 2011-9-23
  5. '

  6. '
  7.     Range("B2:F20").Select
  8.     Selection.Replace What:="6", Replacement:="15", LookAt:=xlWhole, _
  9.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  10.         ReplaceFormat:=False
  11. End Sub
复制代码

评分

参与人数 1登攀 +10 收起 理由
apirl2008 + 10 正确

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-24 13:35:36 | 显示全部楼层
  1. Sub Macro3()
  2. '
  3. ' Macro3 Macro
  4. ' 宏由 etao 录制,时间: 2011/9/24
  5. '

  6. '
  7.     Range("B2:F20").Select
  8.     Range("D13").Activate
  9.     Selection.Replace What:="6", Replacement:="15", LookAt:=xlPart, _
  10.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  11.         ReplaceFormat:=False
  12. End Sub
复制代码

点评

不完全正确  发表于 2011-10-7 09:44

评分

参与人数 1登攀 +5 收起 理由
apirl2008 + 5

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-26 11:04:09 | 显示全部楼层
本帖最后由 huyuan851215 于 2011-9-27 11:11 编辑
  1. Private Sub CommandButton1_Click()
  2. Range("B2:F20").Select
  3. Selection.Replace What:="6", Replacement:="15", LookAt:=xlPart, _
  4. SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  5. ReplaceFormat:=False
  6. End Sub
复制代码
  1. 老师,我纠结半天自己写不出来。。。就是直接录的,录好把代码复制的。。。汗啊
复制代码
  1. Private Sub CommandButton1_Click()
  2. Range("B2:F20").Select
  3. Selection.Replace What:="6", Replacement:="15"
  4. End Sub
复制代码
是因为没有删掉多余的么?Range("B2:F20").Select应该不用删吧,我再想想,修改第一稿。

  1. Private Sub CommandButton1_Click()
  2. Range("B2:F20").Select
  3. Selection.Replace What:="6", Replacement:="15", LookAt:=xlWhole, _
  4. SearchOrder:=xlByRows
  5. End Sub
复制代码
{:soso_e121:}有成就感,修改第二稿,mark。


点评

对的,就是录的,初级班不要求会自己写的。  发表于 2011-9-27 08:44

评分

参与人数 1登攀 +10 收起 理由
apirl2008 + 10

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-26 15:44:12 | 显示全部楼层
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. '

  5. '
  6.     Range("B2:F20").Select
  7.     Selection.Replace What:="6", Replacement:="15", LookAt:=xlPart, _
  8.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  9.         ReplaceFormat:=False
  10. End Sub
复制代码

点评

不完全正确  发表于 2011-10-7 09:47

评分

参与人数 1登攀 +5 收起 理由
apirl2008 + 5

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 10:37:22 | 显示全部楼层
本帖最后由 ljtao888 于 2011-9-28 09:00 编辑
  1. Range("B2:F20").Select
  2. Selection.Replace What:="6", Replacement:="15", LookAt:=xlWhole, _
  3. SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  4. ReplaceFormat:=False
复制代码

老师,我录好了,请审批
f.gif

评分

参与人数 1登攀 +10 收起 理由
apirl2008 + 10 正确

查看全部评分

回复 支持 反对

使用道具 举报

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

本版积分规则

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