白话Excel函数公式 Office易学宝微视频教程合集(Excel+Word+PPT)
笨办法学VBA(从入门到精通) 高效办公必会的Office实战技巧
财务总监的Excel私房课 Excel数据透视表实战秘技
Excel图表神技
楼主: wudixin96

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

[复制链接]
发表于 2011-9-27 11:08:06 | 显示全部楼层
本帖最后由 wudixin96 于 2011-9-27 16:28 编辑
shelly_627 发表于 2011-9-23 18:30
交练习了。。。不知道是不是错的。。哈哈

这样的代码对吗?呵呵,第一次做
Sub Macro6()
'
' Macro6 Macro
' 将B2:F20区域所有数值为6的单元格替换为15
'

'
    Selection.Replace What:="6", Replacement:="15", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
End Sub
1.gif

点评

以后提交代码,请用[code] 代码[/code]形式提交  发表于 2011-10-7 09:54
代码错误,少了一句选定区域的代码Range("B2:F20").Select  发表于 2011-10-7 09:54
可以编辑原帖了,不要重新发帖  发表于 2011-9-27 11:43

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 11:14:45 | 显示全部楼层
老师我做好了,麻烦请看下
  1. Sub Macro2()
  2. '
  3. ' Macro2 Macro
  4. ' 宏由 微软用户 录制,时间: 2011-9-27
  5. '

  6. '
  7.     Range("B2:F20").Select
  8.     ActiveCell.Replace What:="6", Replacement:="15", LookAt:=xlPart, _
  9.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  10.         ReplaceFormat:=False
  11.     Selection.Find(What:="6", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
  12.         :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  13.         False, MatchByte:=False, SearchFormat:=False).Activate
  14.     ActiveCell.Replace What:="6", Replacement:="15", LookAt:=xlPart, _
  15.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  16.         ReplaceFormat:=False
  17.     Selection.FindNext(After:=ActiveCell).Activate
  18. End Sub
复制代码

点评

代码错误  发表于 2011-10-7 09:55

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 14:19:32 | 显示全部楼层
本帖最后由 11005046 于 2011-9-29 08:28 编辑
  1. Sub 替换6为15()
  2. '
  3. ' 替换6为15 Macro
  4. '

  5. '
  6.     Range("B2:F20").Select
  7.     Range("D11").Activate
  8.     Selection.Replace What:="6", Replacement:="15", LookAt:=xlPart, _
  9.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  10.         ReplaceFormat:=False
  11. End Sub
复制代码
冒是这题在考基础操作,数值为6{:soso_e120:}

点评

嘿嘿,还是没看对。  发表于 2011-9-29 22:53

评分

参与人数 1登攀 +5 收起 理由
apirl2008 + 5 感谢支持,代码不完全正确

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-27 15:38:29 | 显示全部楼层
  1. Sub 宏1()
  2. '
  3. ' 宏1 宏
  4. '

  5. '
  6.     Range("B2:F20").Select
  7.     Selection.Replace What:="6", Replacement:="15", LookAt:=xlWhole, _
  8.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  9.         ReplaceFormat:=False
  10. End Sub
复制代码
这个是我录的,嘿嘿
另,我自己写了一个,不是很好
  1. Sub aa()
  2. For i = 2 To 6
  3. For j = 2 To 20
  4. If Cells(j, i) = 6 Then Cells(j, i) = 15
  5. Next
  6. Next
  7. End Sub
复制代码

评分

参与人数 1登攀 +11 收起 理由
apirl2008 + 11 正确,能够自己写出来,不错,继续努力

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-28 11:41:53 | 显示全部楼层

sorry,没看要求,现在改过来了

本帖最后由 buchihuluobo 于 2011-9-29 09:23 编辑

  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:58
本题要求录的宏哦。  发表于 2011-9-28 12:28

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-29 20:15:32 | 显示全部楼层
本帖最后由 yimulinchong 于 2011-10-6 22:50 编辑

  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' 宏由 微软用户 录制,时间: 2011-10-6
  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
复制代码

点评

代码不完全正确  发表于 2011-10-7 09:58
不按要求提交答案,将不予评分,谢谢 且重复提交了  发表于 2011-9-29 22:52

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-30 13:16:27 | 显示全部楼层
本帖最后由 wudixin96 于 2011-10-3 21:31 编辑
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. '

  5. '
  6.     Selection.Replace What:="6", Replacement:="15", LookAt:=xlPart, _
  7.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  8.         ReplaceFormat:=False
  9. End Sub
复制代码
录制简单的宏.gif

点评

代码不正确,代码中缺少区域代码, Range("B2:F20").Select  发表于 2011-10-7 10:00
依旧没有按要求提交。  发表于 2011-9-30 15:37

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-30 15:01:32 | 显示全部楼层
本帖最后由 篮板球 于 2011-9-30 15:54 编辑
  1. Sub 录制简单的宏()
  2.     Range("B2:F20").Replace What:="6", Replacement:="15"
  3. End Sub
复制代码

点评

1、要求是录制代码;2、代码不完全正确  发表于 2011-10-7 10:02

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-9-30 16:14:39 | 显示全部楼层
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' 宏由 灰兰色 录制,时间: 2011/9/30
  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
复制代码
折腾了几天,终于折腾出来了

点评

BingGo  发表于 2011-9-30 21:58

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2011-10-2 14:28:37 | 显示全部楼层
本帖最后由 tianti 于 2011-10-6 08:46 编辑

  1. Sub 宏1()
  2. '
  3. ' 宏1 宏
  4.     Range("B2:F20").Select
  5.     Selection.Replace "6", "15"
  6. End Sub
复制代码

点评

不完全正确  发表于 2011-10-7 12:50

评分

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

查看全部评分

回复 支持 反对

使用道具 举报

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

本版积分规则

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