Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3916|回复: 13

[已解决]请问些VBA的基础问题

[复制链接]
发表于 2014-4-5 16:46 | 显示全部楼层 |阅读模式
本帖最后由 ymdhy 于 2014-4-6 09:47 编辑

用一个数字替换区域中的某个数,比如把下图的4替换成11,用VBA要怎么写?
。.JPG

V白一个,先谢谢各位老师了!


最佳答案
2014-4-5 17:13
蓝粆 发表于 2014-4-5 16:53
我也V白 凑热闹

录制宏后精简代码
  1. Sub Macro2()
  2. [a1:d4].Replace 4, 11
  3. End Sub
复制代码
·.JPG
发表于 2014-4-5 16:51 | 显示全部楼层
回复

使用道具 举报

发表于 2014-4-5 16:53 | 显示全部楼层
我也V白 凑热闹
  1. Sub a()
  2. Dim rng As Range
  3. For Each rng In Range("a1:d4")
  4. If rng = 4 Then rng.Value = 11
  5. Next
  6. End Sub
复制代码

评分

参与人数 4 +20 金币 +10 收起 理由
ghostjiao + 6 蓝妹儿VBA毕业了
ymdhy + 1
qh8600 + 3 很给力!
雪舞子 + 10 + 10 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-4-5 16:56 | 显示全部楼层
鼠标选中标题栏可以拖动工程资源管理器和属性窗口
回复

使用道具 举报

发表于 2014-4-5 17:13 | 显示全部楼层    本楼为最佳答案   
蓝粆 发表于 2014-4-5 16:53
我也V白 凑热闹

录制宏后精简代码
  1. Sub Macro2()
  2. [a1:d4].Replace 4, 11
  3. End Sub
复制代码

评分

参与人数 2 +4 收起 理由
ymdhy + 1 赞一个!
qh8600 + 3 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-4-5 17:20 | 显示全部楼层
dsmch 发表于 2014-4-5 17:13
录制宏后精简代码

大师~自己刚刚开始摸索学习~求教~~!扣扣:490853000
回复

使用道具 举报

发表于 2014-4-5 17:23 | 显示全部楼层
dsmch 发表于 2014-4-5 17:13
录制宏后精简代码

学习了  单元格区域还可以这样表示   还有replace方法~!谢谢~!
回复

使用道具 举报

 楼主| 发表于 2014-4-5 17:28 | 显示全部楼层
蓝粆 发表于 2014-4-5 16:56
鼠标选中标题栏可以拖动工程资源管理器和属性窗口

我拖拽半天也没达到图片效果,每个窗口都是活动的,要么工程和属性就层叠在一起
b.JPG

a.JPG



回复

使用道具 举报

发表于 2014-4-5 17:38 | 显示全部楼层
窗口可以改变大小的呢~
回复

使用道具 举报

 楼主| 发表于 2014-4-5 17:46 | 显示全部楼层
蓝粆 发表于 2014-4-5 17:38
窗口可以改变大小的呢~

代码窗口放大后好像调节不l了了,怎么让各个窗口衔接在一起呢


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 21:26 , Processed in 0.477159 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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