免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

 前言

上節(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天的偏移量

其他同理

 代碼練習(xí)

我們上一下完整的代碼

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)

不要小看一條直線，這里面的知識(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í)。