VBA跨表取3列数据复制到另外一个工作表

中华美德 · 发表于 2019-12-2 00:26

2019.11.29每天更新中明天2019.11.30 后天2019.12.1

liulang0808 · 发表于 2019-12-2 07:36

欢迎新朋友，建议结合内容举例描述具体需求吧

拼音佳佳 · 发表于 2019-12-2 08:15

位置固定的录下来,位置不固定的改成动态代码...

中华美德 · 发表于 2019-12-2 11:14

w = Array("代码", "名称", "1部门金额(元)2019.11.29", "2部门金额(元)2019.11.29", "比(%)2019.11.29", "结账时间2019.11.29", "离开时间2019.11.30", "连续(天）2019.11.29") 中2019.11.29随每天的日期在变化

中华美德 · 发表于 2019-12-2 11:27

要达到：2当日结账整理工作表2的效果

中华美德 · 发表于 2019-12-2 11:39

本帖最后由中华美德于 2019-12-2 12:30 编辑

liulang0808 发表于 2019-12-2 07:36
欢迎新朋友，建议结合内容举例描述具体需求吧

w = Array("代码", "名称", "1部门金额(元)2019.11.29", "2部门金额(元)2019.11.29", "比(%)2019.11.29", "结账时间2019.11.29", "离开时间2019.11.30", "连续(天）2019.11.29") 中2019.11.29随每天的日期在变化。

目前用VBA执行时只能在天天修改2019.11.29变成2019.11.30

liulang0808 · 发表于 2019-12-2 12:40

str1 = "代码,名称,1部门金额(元)2019.11.29,2部门金额(元)2019.11.29,比(%)2019.11.29,结账时间2019.11.29,离开时间2019.11.30,连续(天）2019.11.29"
str1 = Replace(str1, , Format(Date, "yyyy.mm.dd"), Format(Date + 1, "yyyy.mm.dd"))
str1 = Replace(str1, , Format(Date - 1, "yyyy.mm.dd"), Format(Date, "yyyy.mm.dd"))
w = Split(str1, ",")

针对那段代码的做的处理。楼主测试看看吧

中华美德 · 发表于 2019-12-2 13:16

本帖最后由中华美德于 2019-12-2 13:22 编辑

liulang0808 发表于 2019-12-2 12:40
str1 = "代码,名称,1部门金额(元)2019.11.29,2部门金额(元)2019.11.29,比(%)2019.11.29,结账时间2019.1 ...

老师加油，多分析一下吧：就差一点了，比如今天：1结账数据源中的日期会变成2019.12.2，用VBA就不能执行！
出错点：缺少语句结束

liulang0808 · 发表于 2019-12-2 19:45

中华美德发表于 2019-12-2 13:16
老师加油，多分析一下吧：就差一点了，比如今天：1结账数据源中的日期会变成2019.12.2，用VBA就不能执行 ...

楼主核对下代码吧，跟楼上有无出入的

中华美德 · 发表于 2019-12-2 20:10

出错点：缺少语句结束

		自动登录	找回密码
密码			免费注册