編按：

520，我為你今夜不眠！這是一名苦逼Excel技術(shù)直男的追女心聲！從5月12日開始，小伙子就在為520的表白冥思苦想，徹夜不眠。從害怕自己錯(cuò)過的倒計(jì)時(shí)設(shè)計(jì)到為她專配的告白二維碼再到一顆用代碼生成的紅心，技術(shù)直男徹底淪陷在520的焦灼之中……

2020年5月12日星期二，512。

又快到520（5月20日）了，對(duì)你的思念越來越強(qiáng)烈，但是對(duì)你的愛卻不是今天才有的，只是今年爆發(fā)了疫情，讓我們之間有了距離，不能像以前那樣的接近?？赡怯秩绾文?？起碼我的心一直在你這里，無論你感覺到?jīng)]有，我愛故我在。

今年不能帶你去看電影了，也不能帶你去唱歌了，即便帶你去吃大餐，也需要保持一定的距離，那么今年的520該給你一個(gè)什么樣的SURPRISE呢？我想了好久。

2020年5月13日星期三，513。

我想到了今年要給你一個(gè)什么驚喜了，現(xiàn)在的我沒有值得炫耀的資本，唯獨(dú)我對(duì)自己EXCEL辦公技能還有一些自信，畢竟這是我賴以生存的技能，也是我現(xiàn)在唯一可以用來創(chuàng)造你我未來的技能，那現(xiàn)在就讓我用它來對(duì)你表白吧。

首先我做了一個(gè)倒計(jì)時(shí)器，可以每天都提示我，520這個(gè)重要的日子還有幾天到來，能夠讓我做好準(zhǔn)備，我覺得一個(gè)男人一定要對(duì)自己想做的事情有規(guī)劃，才能不盲目、不被動(dòng)。

5月13日加6天，是5月19日。為什么要提前一天？因?yàn)槲也辉敢膺t到。

【制法】

STEP1：在D4單元格輸入函數(shù)：=TODAY()；

STEP2：合并C7:G14單元格，輸入函數(shù)：

=DATEDIF(D4,DATE(IF(D4

DATE(YEAR(TODAY()),5,20),YEAR(TODAY()),YEAR(TODAY())+1),5,20),"d")-1&"天"

接著調(diào)整字號(hào)和顏色，將其居中顯示。

函數(shù)意義：如果D4的日期小于今年的5月20日，則用DATEDIF函數(shù)判斷今天日期到5月20日相差的天數(shù)，否則判斷距離下一年的5月20日相差的天數(shù)。

2020年5月14日星期四，514。

還有5天，我還能做什么，雖然心里一直籌劃著那天如何和你過520。但是工作的壓力依然不肯放過我，該做的還是要做，主業(yè)不可松懈，這也應(yīng)該是我該負(fù)起的責(zé)任，不好好工作怎么能養(yǎng)家。

可是我還是忙里偷閑的默默寫下一句話：

【制法】

STEP1：在A1單元格輸入一句話“520，想你了，相識(shí)于你是緣分，希望我的真誠(chéng)，能夠打動(dòng)你? ”，這個(gè)桃心使用搜狗輸入法，輸入心字拼音，就可以得到圖形；

STEP2：在D1單元格輸入函數(shù)=IF(ROW()<=LEN($A$1),ROW(),"")，下拉函數(shù)，表示如果行號(hào)大于句子的長(zhǎng)度，那么就返回空值；

STEP3：在E1單元格輸入函數(shù)=IF(D1="","",LEFT($A$1,D1))，下拉函數(shù)，表示按照行號(hào)提取A1單元格中字符的個(gè)數(shù)，逐行多一個(gè)字符，就形成了一個(gè)像樹狀的三角形；

STEP4：插入一個(gè)圓角矩形，設(shè)置漸變色和每一個(gè)色塊的透明度，用這個(gè)圓角矩形作為一個(gè)蒙板使用。

2020年5月15日星期五，515。

今天是周五，我選擇今天去買巧克力，也預(yù)定了一個(gè)餐廳。雖然我在用我的專業(yè)技能，對(duì)你表白，但是生活還是需要物質(zhì)的，需要有儀式感，我希望不管是在精神上還是物質(zhì)上，都能滿足你。

除了給你買的禮物，我還給你也做了一個(gè)“二維碼”，用微信掃一掃，就是我想對(duì)你說的話了。

希望我給你的禮物你都能接受。

【制法】

STEP1：在功能區(qū)域的“開發(fā)工具”中，插入控件BarCode Control 16.0；

STEP2：鼠標(biāo)右鍵單擊插入的控件，選擇“Microsoft BarCode Control 16.0 對(duì)象”-“屬性”；

STEP3：在彈出的窗口中，點(diǎn)擊“樣式”的下拉菜單，選擇“11-QR Code”樣式，再點(diǎn)確定按鈕；

STEP4：在A1單元格輸入I love you；

STEP5：鼠標(biāo)右鍵單擊控件，在功能區(qū)域“開發(fā)工具”中，選擇“屬性”功能，彈出屬性菜單，在LinkedCell屬性中，輸入A1，完成二維碼制作。

2020年5月16日星期六，516。

我一直在想著還有什么方法能表達(dá)我的心意，所以今天趁你不在，在你的EXCEL上打開了“開發(fā)工具”，并且調(diào)整了宏安全性。

是的，我又要用VBA了，也許這就是我和其他職場(chǎng)人不一樣的地方吧。當(dāng)然我就是我，區(qū)別于其他人，我愛你的方式和程度也不一樣。

2020年5月17日星期日，517。

今天我寫了一段VBA代碼，你按一下按鈕，就會(huì)給你我的心。

【制法】

STEP1：選擇A:CW區(qū)域，設(shè)置列寬為2，為2的列寬和默認(rèn)的行高基本一致，單元格近似一個(gè)小正方形，作為像素塊備用；

STEP2：按ALT+F11組合鍵，打開VBE界面，插入一個(gè)模塊，輸入下面的代碼：

Sub 桃心()

  For i = -5 To 5 Step 0.1

    k = k + 1

    For j = 5 To -5 Step -0.1

      l = l + 1

      If 17 * i ^ 2 - 16 * Abs(i) * j + 17 * j ^ 2 - 225 <= -9 Then

        Cells(l, k).Interior.ColorIndex = xlNone

        Cells(l, k).Interior.ColorIndex = 3

      End If

    Next j

    l = 0

  Next i

End Sub

代碼解析：

Line1：循環(huán)變量i，循環(huán)范圍為-5到5，步長(zhǎng)為0.1；

Line2：利用計(jì)數(shù)器原理，給變量k賦值，作為“行號(hào)”使用；

Line3：循環(huán)變量j，循環(huán)范圍為5到-5，步長(zhǎng)為0.1；

Line4：利用計(jì)數(shù)器原理，給變量l賦值，作為“列號(hào)”使用；

Line5：這是一個(gè)心形函數(shù)表達(dá)式，如果表達(dá)式的值滿足小于等于-9的條件時(shí)；

Line6：此時(shí)k、l值組成的行列號(hào)，形成的單元格填充色的色號(hào)（.Interior.ColorIndex）為“無顏色xlNone”，再填充為“紅色3”；

Line7：判斷語句結(jié)束語句；

Line8：循環(huán)變量j的結(jié)束語句；

Line9：重新定義l為0，準(zhǔn)備進(jìn)行下一個(gè)i變量的循環(huán)繼續(xù)得到對(duì)應(yīng)的列號(hào)；

Line10：循環(huán)變量i的結(jié)束語句。

STEP3：用插入圖形的方法，做一個(gè)蒙板，將圖形的填充和線條都設(shè)置為“無”。插入一個(gè)文本框，輸入“520”，將其邊框設(shè)置為“無顏色”，字體為“白色、60%透明”。

STEP4：在“開發(fā)工具”下的“插入”下拉菜單中，選擇“按鈕”控件，指定宏為“桃心”，完成制作。

2020年5月18日星期一，518。

今天我用VBA代碼和圖表 ，結(jié)合一個(gè)函數(shù)，讓我們的心一起跳動(dòng)，越來越近……

【制法】

SETP1：確定兩個(gè)桃心的坐標(biāo)，分別為大桃心的x1和y1，小桃心的x2和y2；

STEP2：在A4單元格輸入-1.82，在A5單元格輸入-1.8，然后選中A4:A5單元格區(qū)域，下拉填充柄，直到數(shù)值變?yōu)?span>1.82為止，也就是A186單元格為止；

STEP3：在B4單元格輸入心形函數(shù)：=POWER(A4^2,1/3)+0.9*SQRT(ABS(3.3-A4^2))*SIN($B$2*PI()*A4)，這里需要注意的是，SQPT是開平方函數(shù)，所以在使用SIN函數(shù)時(shí)，必須將數(shù)值乘以PI（π值3.14）轉(zhuǎn)換成弧度，雙擊填充柄，填充函數(shù)；這一點(diǎn)我們?cè)谥坝萌呛瘮?shù)制圖的文章中提到過，可以點(diǎn)擊文章《奇思妙想：用excel“三角函數(shù)”制作超漂亮的環(huán)形氣泡圖！》復(fù)習(xí)一下。

STEP4：在C4單元格輸入函數(shù)=(A4+2)/2，將小桃心的x軸坐標(biāo)以大桃心為基準(zhǔn)偏移并縮??；

STEP5：在D4單元格輸入函數(shù)=B4/2，以大桃心的y軸坐標(biāo)為基準(zhǔn)縮小；

STEP6：選擇A4:B186單元格區(qū)域，插入圖表“帶平滑線和數(shù)據(jù)標(biāo)記的散點(diǎn)圖”，設(shè)置圖形格式；

STEP7：選中圖表區(qū)，單擊鼠標(biāo)右鍵，在彈出的菜單中點(diǎn)擊“選擇數(shù)據(jù)”。點(diǎn)擊“添加”按鈕，選擇“編輯”，按下圖添加數(shù)據(jù)區(qū)域；

STEP8：ALT+F11組合鍵，打開VBE界面，輸入如下代碼：

Public pp As Boolean

Sub 情人節(jié)()

  pp = Not (pp)

  For i = 0 To 1000 * 4

    If pp = False Then

      Exit Sub

    Else

      DoEvents

      [B2] = i / 5 / 4

      If i Mod 1 = 0 Then

        DoEvents

      End If

    End If

  Next i

End Sub

代碼比較簡(jiǎn)單，主要是對(duì)B2單元格的賦值操作。

DoEvents是“轉(zhuǎn)讓控制權(quán)”的作用語句，便于用按鈕隨時(shí)操作“開始和停止”。

STEP9：再做一個(gè)蒙板，排版整體圖表的配色，完成制作。

2020年5月19日星期一，519。

今天什么也不做了，只是等待變得更加煎熬，倒計(jì)時(shí)的天數(shù)已經(jīng)歸零，很緊張。不知道你會(huì)不會(huì)接受我呢？忐忑就是 “心，上上下下”。希望明天快點(diǎn)到來，又怕自己沒有準(zhǔn)備好。做最好的準(zhǔn)備，做最壞的打算，無論結(jié)果如何，如果還有機(jī)會(huì)，我都會(huì)對(duì)你一如既往。

【沒有結(jié)束的結(jié)束語】

上面所有的藍(lán)色字，你可以連起來看一下，是我做人和愛你的品質(zhì)；

上面所有的日記體，是我為了這次的表白所付出的努力；

上面所有的【制法】，是我現(xiàn)在創(chuàng)造未來的技能總結(jié)，你可以不看，因?yàn)橛形摇?/span>

5月20日，520“我愛你”，我的計(jì)時(shí)器此時(shí)又是一個(gè)新的365天。

曾經(jīng)，我為《西雅圖夜未眠》 而感動(dòng)；今夜，請(qǐng)為我，請(qǐng)為所有的“520，我為你今夜不眠”的技術(shù)直男多停留那么一會(huì)兒……

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

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

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

相關(guān)推薦：

VBA基礎(chǔ)教程②《VBA系列基礎(chǔ)教程（二）：使用RANGE對(duì)象實(shí)現(xiàn)單元格偏移及確定首末行列號(hào)》

VBA基礎(chǔ)教程①《VBA系列基礎(chǔ)教程（一）：excel中最常使用的對(duì)象——RANGE》

用VBA制作疫情地圖《用excel制作全國(guó)動(dòng)態(tài)疫情地圖（VBA篇）》

用VBA使excel自殺《靈異事件！一打開工作簿，文件就“自殺”了？？？》