设为首页收藏本站
简字体切换切换到宽版

ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步，快速开始

快捷登录

搜索
ExcelHome技术论坛»论坛 › Excel 技术交流与问答 › Excel VBA程序开发 › 求助简化代码
EH技术汇-专业的职场技能充电站 妙哉！函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12下一页
返回列表 发新帖
查看: 1882|回复: 11

[求助] 求助简化代码

[复制链接]
阳都山泉

TA的精华主题

TA的得分主题
发表于 2020-1-10 18:06 | 显示全部楼层 |阅读模式
[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★
本帖最后由 阳都山泉 于 2020-1-10 18:08 编辑

打算做1-12月的按钮，方便查看每月数据，用下面的代码重复写1-12月份的太麻烦了，请教各位老师可以简化吗？附件中有做好的代码，不知能简化吗？
Sub 总量1月()
    Sheet3.UsedRange.Cells.Replace "'1月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'2月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'3月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'4月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'5月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'6月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'7月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'8月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'9月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'10月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'11月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'12月'!", "'1月'!"

    Sheet3.UsedRange.Cells.Replace "L1月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L2月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L3月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L4月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L5月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L6月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L7月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L8月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L9月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L10月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L11月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L12月!", "'1月'!"
End Sub


代码, 求助, 简化, 最后, 山泉

进度查看.zip

51.91 KB, 下载次数: 8
回复

举报

阳都山泉

TA的精华主题

TA的得分主题
 楼主| 发表于 2020-1-10 19:07 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
本帖最后由 阳都山泉 于 2020-1-10 19:49 编辑

各位老师，能简化吗？
1月按钮执行下面代码：
Sub 总量1月()
    Sheet3.UsedRange.Cells.Replace "'1月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'2月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'3月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'4月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'5月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'6月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'7月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'8月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'9月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'10月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'11月'!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "'12月'!", "'1月'!"

    Sheet3.UsedRange.Cells.Replace "L1月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L2月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L3月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L4月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L5月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L6月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L7月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L8月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L9月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L10月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L11月!", "'1月'!"
    Sheet3.UsedRange.Cells.Replace "L12月!", "'1月'!"
End Sub
2月按钮执行下面代码：
Sub 总量2月()
    Sheet3.UsedRange.Cells.Replace "'1月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'2月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'3月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'4月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'5月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'6月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'7月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'8月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'9月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'10月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'11月'!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "'12月'!", "'2月'!"

    Sheet3.UsedRange.Cells.Replace "L1月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L2月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L3月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L4月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L5月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L6月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L7月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L8月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L9月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L10月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L11月!", "'2月'!"
    Sheet3.UsedRange.Cells.Replace "L12月!", "'2月'!"
End Sub3-12月以此类推的修改太麻烦了，不知还有更简单的代码能实现呢？

回复

举报

阳都山泉

TA的精华主题

TA的得分主题
 楼主| 发表于 2020-1-10 19:10 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
各位老师，能有更好的方法实现该功能吗？
回复

举报

阳都山泉

TA的精华主题

TA的得分主题
 楼主| 发表于 2020-1-10 19:52 | 显示全部楼层
[广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★
请各位大神帮帮忙，感激不尽
回复

举报

ftgli

TA的精华主题

TA的得分主题
发表于 2020-1-10 19:54 | 显示全部楼层
[广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★
  1. for i = 1 to 12
  2.         Sheet3.UsedRange.Cells.Replace "'"& i & "月'!", "'1月'!"
  3.         Sheet3.UsedRange.Cells.Replace "L" & i & "月!", "'1月'!"
  4. next
复制代码

这样?
回复

举报

answer6141

TA的精华主题

TA的得分主题
发表于 2020-1-10 20:17 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
  1. Option Explicit
  2. Sub test()

  4. Dim i%, j%, arr, r
  5.     For i = 1 To 12
  6.         Sheet3.UsedRange.Cells.Replace "'" & i & "月'!", "'1月'!"
  7.         Sheet3.UsedRange.Cells.Replace "'" & "L" & i & "月'!", "'1月'!"
  8.     Next

  10. End Sub
复制代码
回复

举报

阳都山泉

TA的精华主题

TA的得分主题
 楼主| 发表于 2020-1-10 20:28 | 显示全部楼层
[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★
各位大神老师们，还有更简单的代码能实现吗？
回复

举报

kuangben8

TA的精华主题

TA的得分主题
发表于 2020-1-10 20:41 | 显示全部楼层
[广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★
2P6{)XSFHUFO4DQ~M8[R]3T.png

进度查看.zip (48.14 KB, 下载次数: 2)
回复

举报

kuangben8

TA的精华主题

TA的得分主题
发表于 2020-1-10 20:42 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
阳都山泉 发表于 2020-1-10 20:28
各位大神老师们，还有更简单的代码能实现吗？

直接使用代码添加数据有效性，公式跟随选择的改变而改变。
回复

举报

阳都山泉

TA的精华主题

TA的得分主题
 楼主| 发表于 2020-1-10 22:16 | 显示全部楼层
[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★
ftgli 发表于 2020-1-10 19:54
这样?

这样代码简化多了，功能和我以前的一样，非常感谢啦
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-20 08:07 , Processed in 0.050338 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！     本站特聘法律顾问：李志群律师

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