大家好,今天是5月20號,日常打開 Excel,結果它給我顯示這個東西:
哈哈哈,開個玩笑,其實Excel當中的對象主要是指圖片/圖表、文本框/藝術字、控件等浮在Excel單元格上的東西,我們統一稱之為對象。
那麼如何查找Excel當中的對象?
Ctrl+G——定位條件,勾選「對象」,點擊【確定】。
如果你的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沒有啟用過宏,所以第一次打開這個表格的時候,會被自動禁用:
這時需要手動點擊「啟用內容」即可。
快去試試吧~
評論列表
有時侯自己陷進去出不了只能找專業的人士幫忙,我覺得挺不錯的,推薦!
如果發信息,對方就是不回復,還不刪微信怎麼挽回?
求助