Excel精英培训网

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

[已解决]根据下单日期与完成日期自动生成箭头

[复制链接]
发表于 2017-5-10 15:39 | 显示全部楼层 |阅读模式
根据下单日期与完成日期自动生成箭头,谢谢!{:24:}
最佳答案
2017-5-11 15:38
给你个附件吧,我做了一些虚拟数据供测试。
点击工作表内Do按钮执行。

新建 Microsoft Excel 工作表.zip

461.17 KB, 下载次数: 22

发表于 2017-5-11 09:05 | 显示全部楼层
四个项目共用一个下单日期,为什么箭头的起点不是同一个?
回复

使用道具 举报

 楼主| 发表于 2017-5-11 13:57 | 显示全部楼层
不好意思,每个工序的完成日期,隔天将是下道工序的下单日期
回复

使用道具 举报

发表于 2017-5-11 14:25 | 显示全部楼层
VBA会用吗?
  1. Sub aaa()
  2. Dim i&, Rngxd As Range, Rngwc As Range, d As Date
  3. For i = 4 To [ba65536].End(3).Row
  4.   d = Cells(i, 7)
  5.   For j = 53 To 56
  6.     Set Rngxd = Rows(2).Find(d)
  7.     Set Rngwc = Rows(2).Find(Cells(i, j))
  8.     Shapes.AddShape(msoShapeRightArrow, Rngxd.Offset(i - 2).Left, Cells(i, 1).Top, Rngwc.Offset(, 1).Left - Rngxd.Left, Cells(i, 1).Height).Select
  9.     Selection.ShapeRange.Line.Visible = msoFalse
  10.     With Selection.ShapeRange.Fill
  11.       .Visible = msoTrue
  12.       .ForeColor.RGB = Cells(2, j).Interior.Color
  13.       .Transparency = 0
  14.       .Solid
  15.     End With
  16.     d = Rngwc.Offset(, 1)
  17.   Next j
  18. Next i
  19. End Sub
复制代码
回复

使用道具 举报

发表于 2017-5-11 15:38 | 显示全部楼层    本楼为最佳答案   
给你个附件吧,我做了一些虚拟数据供测试。
点击工作表内Do按钮执行。

test.zip

35.91 KB, 下载次数: 14

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 18:47 , Processed in 0.779328 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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