上節(jié)課我們講了直線的畫法、命令和關(guān)于坐標(biāo)系的知識(shí),新來的同學(xué)可以參考:線表入門-如何畫一條直線,并且進(jìn)行了一個(gè)簡(jiǎn)單的練習(xí)。
我們復(fù)習(xí)一下昨天的代碼:
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運(yùn)行代碼,結(jié)果如下:
不知道大家注意到?jīng)]有?我為了簡(jiǎn)化,把右邊的日期刻度都簡(jiǎn)化成了每天,所以每條線都是充滿整個(gè)單元格的,但事實(shí)上對(duì)于一個(gè)較長(zhǎng)的項(xiàng)目,我們不可能按天去顯示,我們經(jīng)常按月顯示刻度,那么開始日期和結(jié)束日期不是在月初或月末的就會(huì)出現(xiàn)問題。
如下圖所示:
我們把刻度改稱按月顯示,畫線的代碼不變,畫出來的結(jié)果還是把整個(gè)單元格填充了。
那怎么解決呢,我們還是從原理上來講,如下圖為正確的姿勢(shì)
首先確定開始點(diǎn)所在的單元格為第6列,首先計(jì)算出該單元格左上角的X坐標(biāo):CELLS(2,6).LEFT,然后將坐標(biāo)向右偏移4天,那么4天的距離是多少,很顯然4天應(yīng)該占用該單元格的4/30的寬度,因?yàn)?/span>6月份有30天
那么
Start_x=cells(2,6).left+(day(cells(2,2))-1)/day(worksheetfunction.eomonth(cells(2,2),0))*cells(2,6).width
公式有點(diǎn)長(zhǎng),分開來講:
cells(2,6).left:?jiǎn)卧褡笊辖堑?/span>X坐標(biāo)
day(cells(2,2)):計(jì)算開始日期的天數(shù),返回值為5
day(cells(2,2))-1:開始日期要減1,返回值為4,結(jié)束日期不用減1
worksheetfunction.eomonth(cells(2,2),0):計(jì)算開始日期所在的月份最后一天的日期
day(worksheetfunction.eomonth(cells(2,2),0)):計(jì)算開始日期所在的月一共有幾天
cells(2,6).width:?jiǎn)卧竦膶挾?/span>
(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
運(yùn)行代碼:是不是很神奇?
為了更加清晰明了,可以把D、E列隱藏掉,日期刻度欄可以設(shè)置自定義格式為:“YYYYMM”只顯示年和月。
最后結(jié)果如下:
不要小看一條直線,這里面的知識(shí)點(diǎn),很多在你的職業(yè)生涯里都是第一次出現(xiàn),如:
這些函數(shù):
Day(日期):取出日期中的日
Eomonth(日期,間隔月數(shù)):返回某個(gè)日期前后幾個(gè)月的最后一天
Worksheetfunction是vba的函數(shù)庫,有的函數(shù)在VBA不能直接使用,需要調(diào)用此函數(shù)庫
自定義格式
話說知識(shí)就是生產(chǎn)力,學(xué)再多理論知識(shí),如果不能在實(shí)際工作中發(fā)揮作用,都是低級(jí)的被動(dòng)學(xué)習(xí)。
聯(lián)系客服