編按：

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

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

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

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

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

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

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

5月13日加6天，是5月19日。為什么要提前一天？因為我不愿意遲到。

【制法】

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

STEP2：合并C7:G14單元格，輸入函數：

=DATEDIF(D4,DATE(IF(D4

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

接著調整字號和顏色，將其居中顯示。

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

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

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

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

【制法】

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

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

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

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

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

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

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

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

【制法】

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

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

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

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

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

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

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

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

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

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

【制法】

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

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

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，步長為0.1；

Line2：利用計數器原理，給變量k賦值，作為“行號”使用；

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

Line4：利用計數器原理，給變量l賦值，作為“列號”使用；

Line5：這是一個心形函數表達式，如果表達式的值滿足小于等于-9的條件時；

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

Line7：判斷語句結束語句；

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

Line9：重新定義l為0，準備進行下一個i變量的循環(huán)繼續(xù)得到對應的列號；

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

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

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

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

今天我用VBA代碼和圖表 ，結合一個函數，讓我們的心一起跳動，越來越近……

【制法】

SETP1：確定兩個桃心的坐標，分別為大桃心的x1和y1，小桃心的x2和y2；

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

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

STEP4：在C4單元格輸入函數=(A4+2)/2，將小桃心的x軸坐標以大桃心為基準偏移并縮?。?/span>

STEP5：在D4單元格輸入函數=B4/2，以大桃心的y軸坐標為基準縮小；

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

STEP7：選中圖表區(qū)，單擊鼠標右鍵，在彈出的菜單中點擊“選擇數據”。點擊“添加”按鈕，選擇“編輯”，按下圖添加數據區(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

代碼比較簡單，主要是對B2單元格的賦值操作。

DoEvents是“轉讓控制權”的作用語句，便于用按鈕隨時操作“開始和停止”。

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

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

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

【沒有結束的結束語】

上面所有的藍色字，你可以連起來看一下，是我做人和愛你的品質；

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

上面所有的【制法】，是我現在創(chuàng)造未來的技能總結，你可以不看，因為有我。

5月20日，520“我愛你”，我的計時器此時又是一個新的365天。

曾經，我為《西雅圖夜未眠》 而感動；今夜，請為我，請為所有的“520，我為你今夜不眠”的技術直男多停留那么一會兒……

本文配套的練習課件請加入QQ群：1043683754下載。

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

掃下方二維碼關注公眾號，可隨時隨地學習Excel：

相關推薦：

VBA基礎教程②《VBA系列基礎教程（二）：使用RANGE對象實現單元格偏移及確定首末行列號》

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

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

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