前言
上节课我们讲了直线的画法、命令和关于坐标系的知识，新来的同学可以参考：线表入门-如何画一条直线，并且进行了一个简单的练习。
我们复习一下昨天的代码：
Sub drawline()
For i = 2 To 4
Start_x = Cells(i,Cells(i, 4)).Left
Start_y = Cells(i,Cells(i, 4)).Top + Rows(i).Height / 2
Finish_x =Cells(i, Cells(i, 5)).Left + Cells(i, Cells(i, 5)).Width
Finish_y = Start_y
ActiveSheet.Shapes.AddLine(Start_x, Start_y, Finish_x, Finish_y).Select
WithSelection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB= vbRed
End With
Next
End Sub
按F5运行代码，结果如下：
不知道大家注意到没有？我为了简化，把右边的日期刻度都简化成了每天，所以每条线都是充满整个单元格的，但事实上对于一个较长的项目，我们不可能按天去显示，我们经常按月显示刻度，那么开始日期和结束日期不是在月初或月末的就会出现问题。
如下图所示：
我们把刻度改称按月显示，画线的代码不变，画出来的结果还是把整个单元格填充了。
探究
那怎么解决呢，我们还是从原理上来讲，如下图为正确的姿势
首先确定开始点所在的单元格为第6列，首先计算出该单元格左上角的X坐标：CELLS(2,6).LEFT，然后将坐标向右偏移4天，那么4天的距离是多少，很显然4天应该占用该单元格的4/30的宽度，因为6月份有30天
那么
Start_x=cells(2,6).left+(day(cells(2,2))-1)/day(worksheetfunction.eomonth(cells(2,2),0))*cells(2,6).width
公式有点长，分开来讲：
cells(2,6).left：单元格左上角的X坐标
day(cells(2,2))：计算开始日期的天数，返回值为5
day(cells(2,2))-1：开始日期要减1，返回值为4，结束日期不用减1
worksheetfunction.eomonth(cells(2,2),0)：计算开始日期所在的月份最后一天的日期
day(worksheetfunction.eomonth(cells(2,2),0))：计算开始日期所在的月一共有几天
cells(2,6).width：单元格的宽度
(day(cells(2,2))-1)/day(worksheetfunction.eomonth(cells(2,2),0))：4天占整月的比例
(day(cells(2,2))-1)/day(worksheetfunction.eomonth(cells(2,2),0))*cells(2,6).width：4天的偏移量
其他同理
代码练习
我们上一下完整的代码
Sub drawlineR1()
For i = 2 To 4
Start_x = Cells(i,Cells(i, 4)).Left + (Day(Cells(i, 2)) - 1) /Day(WorksheetFunction.EoMonth(Cells(i, 2), 0)) * Cells(i, Cells(i, 4)).Width
Start_y = Cells(i,Cells(i, 4)).Top + Rows(i).Height / 2
Finish_x =Cells(i, Cells(i, 5)).Left + Day(Cells(i, 3)) / Day(WorksheetFunction.EoMonth(Cells(i,3), 0)) * Cells(i, Cells(i, 5)).Width
Finish_y = Start_y
ActiveSheet.Shapes.AddLine(Start_x, Start_y, Finish_x, Finish_y).Select
WithSelection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = vbRed
End With
Next
End Sub
运行代码：是不是很神奇？
为了更加清晰明了，可以把D、E列隐藏掉，日期刻度栏可以设置自定义格式为：“YYYYMM”只显示年和月。
最后结果如下：
知识点
不要小看一条直线，这里面的知识点,很多在你的职业生涯里都是第一次出现，如：
这些函数：
Day(日期)：取出日期中的日
Eomonth(日期,间隔月数)：返回某个日期前后几个月的最后一天
Worksheetfunction是vba的函数库，有的函数在VBA不能直接使用，需要调用此函数库
自定义格式
话说知识就是生产力，学再多理论知识，如果不能在实际工作中发挥作用，都是低级的被动学习。
网友评论