編按：

在EXCEL日常工作中，如果需求中帶有“自動(dòng)”字樣，往往都會(huì)用到VBA，今天就來(lái)給大家講一講，如果不會(huì)VBA那該如何處理呢？比如下面這個(gè)通過(guò)起始時(shí)間、周期，來(lái)計(jì)算結(jié)束日期，以及還有多少天結(jié)束的情況！

最近看到一份有意思的需求，拿出來(lái)給大家分享一下。

需求如下：

1、在A列、B列填入內(nèi)容后，C列自動(dòng)計(jì)算，但是“日”要是A列“日”的前一天。例如：A2=2021-08-06，B2=10，那么C2=2022-06-05；

2、根據(jù)C列內(nèi)容，自動(dòng)計(jì)算從今天算起還有幾天到結(jié)束日期，今天也算1天。例如：C2=2022-06-05，那么D2=52；

3、D列字體需要自動(dòng)有“變色功能”，大于30天為【黑色】，小于等于30天為【紅色】；

4、按照D列的天數(shù)，把A、B、C三列自動(dòng)填充背景色，7天以內(nèi)（含7天）為【紅色】，8至15天（含15天）為【黃色】，16至30天（含30天）為【藍(lán)色】，31至60天（含60天）為【綠色】，60天以上不標(biāo)記顏色；

5、自動(dòng)按照D列的天數(shù)升序排列。

初看需求以為是個(gè)“青銅”，細(xì)一看才發(fā)現(xiàn)原來(lái)是個(gè)“王者”。

基本每一個(gè)需求都有【自動(dòng)】?jī)蓚€(gè)字，那我們先給大家展示一下，如何在不使用VBA的情況下實(shí)現(xiàn)“自動(dòng)”？

C列“預(yù)埋”函數(shù)，因?yàn)椴恢酪斎攵嗌傩袃?nèi)容，10行？100行？….10000行？好吧，預(yù)埋到20000行也就是了。

首先，在名稱框中輸入單元格區(qū)域C2:C20000，然后按回車鍵；

此時(shí)就選中了C2:C20000單元格區(qū)域，然后輸入函數(shù)

=IF(AND(A2<>"",B2<>""),EDATE(A2,B2)-1,"")

按CTRL+ENTER組合鍵結(jié)束錄入，此時(shí)C2:C20000就有了“預(yù)埋”函數(shù)。

在D2單元格輸入函數(shù)=IF(C2="","",DATEDIF(TODAY(),C2,"d"))

注意一點(diǎn)：需求中沒(méi)有說(shuō)結(jié)束日期小于當(dāng)前日期的情況，所以我們可以給個(gè)提示詢問(wèn)一下，或者直接用IFERROR函數(shù)容錯(cuò)也可以。

然后選中D2單元格，使用“條件格式”設(shè)置字體顏色，如下圖所示：

再雙擊D2單元格的填充柄，填充至D20000單元格。

選中A2:C2單元格區(qū)域，根據(jù)需求使用“條件格式”依次新增4個(gè)條件格式規(guī)則，為每個(gè)規(guī)則設(shè)置不同的填充背景色。注意公式中需要鎖定列，如下圖所示：

然后我們?cè)侔选皸l件格式”中的【應(yīng)用于】參數(shù)的單元格區(qū)域改成【=$A$2:$C$20000】。

及此，“可以自動(dòng)的需求部分”就給大家分享完了，我們來(lái)看看效果吧！

至于最后一個(gè)需求：自動(dòng)排序，常規(guī)的操作下，排序是沒(méi)有“自動(dòng)”功能的。

今天我們分享個(gè)簡(jiǎn)單的VBA代碼，可以實(shí)現(xiàn)一鍵排序，如下：

Sub 排序()

  With Sheets(1)

    Set rg = .Range("A1:D" & .[B65000].End(3).Row)

    rg.Sort key1:="還有幾天結(jié)束", order1:=xlAscending, Header:=xlYes

  End With

End Sub

按ALT+F11，打開(kāi)VBE界面，在左側(cè)工程欄，鼠標(biāo)右鍵——插入——模塊，然后在代碼區(qū)，輸入上面的代碼。

回到工作表界面，在工具欄——“開(kāi)發(fā)工具”——插入——表單控件——按鈕控件，插入一個(gè)按鈕控件，按下圖設(shè)置內(nèi)容。

及此，此需求就全部完成了，我們看看排序的效果吧！

特別提醒：使用VBA后，一定要把文件另存為.XLSM格式的文件喲！

好啦，以上就是今天的所有內(nèi)容，感謝你的觀看！

本文配套的練習(xí)課件請(qǐng)加入QQ群：902294808下載。

做Excel高手，快速提升工作效率，部落窩教育《一周Excel直通車》視頻和《Excel極速貫通班》直播課全心為你！

掃下方二維碼關(guān)注公眾號(hào)，可隨時(shí)隨地學(xué)習(xí)Excel：

相關(guān)推薦：

如何提取唯一值？試試TEXTJOIN函數(shù)搭配VBA自定義！

別怕，VBA入門(mén)級(jí)教程來(lái)了，條件語(yǔ)句很簡(jiǎn)單！

如何在特定位置批量插入空行等12種實(shí)用辦公技巧

工資表轉(zhuǎn)工資條，VLOOKUP有絕招！

版權(quán)申明：

本文作者E圖表述；同時(shí)部落窩教育享有專有使用權(quán)。若需轉(zhuǎn)載請(qǐng)聯(lián)系部落窩教育。