Excel說我沒對象,於是我讓它幫我找了一個

情感導師 7161

 添加導師LINE:jaqg

獲取更多愛情挽回攻略 婚姻修復技巧 戀愛脫單幹貨

大家好,今天是5月20號,日常打開 Excel,結果它給我顯示這個東西:

哈哈哈,開個玩笑,其實Excel當中的對象主要是指圖片/圖表、文本框/藝術字、控件等浮在Excel單元格上的東西,我們統一稱之為對象。

那麼如何查找Excel當中的對象?

Ctrl+G——定位條件,勾選「對象」,點擊【確定】。

Excel說我沒對象,於是我讓它幫我找了一個

如果你的Excel表中沒有圖片之類的東西,當然會顯示「找不到對象」。

既然今天是520,我們就用Excel做個表白小工具,如下圖所示:

發給對方一張表格,當對方打開時,彈出提示框,如果一直點擊【取消】,將會陷入死循環,關閉不了工作簿,只有答應你之後(點擊【確定】按鈕),才會進入Excel,並在工作表中顯示由愛心組成的520。

怎麼樣,這波強行找對象可還行?

思路

這裡主要用到兩個知識點,一個VBA,一個是條件格式。

VBA控制當用戶打開Excel表格時,彈出選項框,條件格式顯示紅色字體。

插入VBA代碼

按Alt+F11鍵,進入visual basic 界面,雙擊左側ThisWorkbook,下拉「通用」,選擇「Workbook」,右側選擇「Open」,表示當工作簿被打開時;

在下方輸入代碼:

Private Sub Workbook_Open() 1: If MsgBox("你願意做我的女朋友/男朋友嗎?", vbQuestion + vbYesNo, "來自小E的表白") = vbNo Then GoTo 1 Cells(1, 1) = 1 End Sub

代碼很簡短,表示在工作簿被打開時,執行以上代碼MsgBox表示顯示彈窗;

彈窗內容為:「你願意做我的女朋友/男朋友嗎?」 可隨意修改;

vbQuestion 顯示警告詢問,VbYesNo 顯示 「是」和「否」兩個按鈕;

「來自小E的表白」為彈窗標題,可隨意修改;

最後添加一個if語句,如果用戶點擊「否」按鈕,那麼重複顯示彈窗,直到用戶點擊「是」按鈕,結束if語句,並在單元格A1中輸入數字1,這裡主要是用來控制「520」顯示的。

插入形

插入心形,搜狗輸入法輸入拼音「xin」,會顯示形圖標,如果你沒有搜狗輸入法,也沒關係,可以打開阿里巴巴矢量庫,這裡有很多小圖標供下載。

其實Excel2019版本自帶圖標圖,可以插入各類小圖案,只不過大部分用戶沒有安裝2019版本。

接着將小愛心排布成520的形狀,如下所示:

設置條件格式

選中所有的520單元格,依次點擊【開始】—【條件格式】—【新建規則】,選擇「使用公式確定要設置格式的單元格」,輸入公式【=$A$1=1】,接着將其格式設置成字體顏色紅色。

表示當單元格A1等於1的時候,520形變成了紅色的。

設置完畢之後,選中所有形,將其顏色設置為白色,這樣在剛開始打開工作簿的時候,界面什麼也不顯示。

工作簿另存為啟用宏的工作簿

進行完以上幾步,基本算是搞定了,由於插入了VBA代碼的緣故,xlsx格式的文件無法保存,這時候需要我們將表格另存為啟用宏的工作簿,如下圖所示:

接着就可以將這個工作簿發給你要表白的對象啦~

唯一美中不足的是,很多朋友的Excel沒有啟用過宏,所以第一次打開這個表格的時候,會被自動禁用:

這時需要手動點擊「啟用內容」即可。

快去試試吧~

評論列表

頭像
2024-01-31 12:01:26

現代年輕人的情感問題很多,需要這樣的情感諮詢師,很專業

頭像
2023-12-19 03:12:48

被拉黑了,還有希望麼?

 添加導師LINE:jaqg

獲取更多愛情挽回攻略 婚姻修復技巧 戀愛脫單幹貨

發表評論 (已有2條評論)