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

打開APP
userphoto
未登錄

開通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服

開通VIP
線表計(jì)劃進(jìn)階-精確定位直線位置


 前言

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

其他同理

 代碼練習(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è)月的最后一天

Worksheetfunctionvba的函數(shù)庫,有的函數(shù)在VBA不能直接使用,需要調(diào)用此函數(shù)庫

自定義格式

話說知識(shí)就是生產(chǎn)力,學(xué)再多理論知識(shí),如果不能在實(shí)際工作中發(fā)揮作用,都是低級(jí)的被動(dòng)學(xué)習(xí)。

本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊舉報(bào)。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
線表入門-如何畫一條直線
Excel VBA之日期篇 4.6 臨時(shí)工結(jié)算無煩惱 月末日期是關(guān)鍵
5.6 eomonth返回某月最后一天的日期
Excel 如何在VBA中使用VLOOKUP函數(shù)?
【Excel VBA】在VBA中調(diào)用函數(shù)
EXCEL日期及時(shí)間函數(shù)看這一篇就夠——25個(gè)綜合實(shí)例應(yīng)用
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長(zhǎng)圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服