| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 680 人关注过本帖
标题:求助如何编辑一个宏代码解决以下问题?
只看楼主 加入收藏
黑与白的我
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2023-4-9
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
求助如何编辑一个宏代码解决以下问题?
图片附件: 游客没有浏览图片的权限,请 登录注册

如图,在H1列的公式是=today,只会显示今天的日期。如何创造一个宏代码,在点击“命令”按钮后让下面项目的数据按照日期和顺序复制到边上员工工作量内?比方说4.1日时将数据自动复制到C2到C11,在4.2日自动复制到D2到D11?
搜索更多相关主题的帖子: 代码  编辑 复制 日期 
2023-04-09 21:14
厨师王德榜
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:199
帖 子:995
专家分:4966
注 册:2013-2-16
收藏
得分:10 
取H列的值到数组A
从C1/D1/E1 ... 开始循环查找日期值,看哪一列的日期值与数组A(1,1)的值相等?
若找到日期值相等的格子,则可以确定:把数据输出到哪一列 ?
再用resize()方法,把数组的内容输出到这一列.

大致思路就是这样.有了思路,代码不难写.
2023-04-10 12:22
东海ECS
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:Python
等 级:版主
威 望:32
帖 子:412
专家分:1646
注 册:2023-1-24
收藏
得分:10 
以下是示例代码,请根据实际情况进行修改并运行宏:

程序代码:
Sub CopyData()

    ' Define source and destination ranges
    Dim sourceRange As Range
    Dim destRange As Range
    Set sourceRange = Range("A2:A11")
    Set destRange = Range("C2:C11").Offset(0, ActiveSheet.Range("H1").Value - Date)
    
    ' Copy data from source to destination
    destRange.Value = sourceRange.Value

End Sub

代码说明:

宏定义了一个名为"CopyData"的子程序。

通过定义源范围和目标范围变量来指定要进行复制的数据。

获取 H1 单元格的日期值并计算出相对偏移量。

复制数据从源范围到目标范围,并将值覆盖目标范围中的任何现有值。

点击“命令”按钮时,该宏会在活动工作表中执行,将数据按日期复制到相应的列中。

会当凌绝顶,一览众山小.
2023-04-15 14:05
快速回复:求助如何编辑一个宏代码解决以下问题?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026530 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved