以下皆為我平時在學習的過程中從網絡多方收集到的一些比較有趣的代碼，拿來即用。但請注意，在使用或分享的過程中，請大家切記做個講武德的好孩子，切勿用來在別人的電腦，尤其是工作和學習的電腦上搞惡作劇，否則由此帶來的一切損失，后果自負，警此。
一、動態時鐘
1.? 該段代碼來源于網絡(百度搜索引擎返回的信息檢索結果)。可結合中的today(),now()和text()函數，以及自定義格式，編寫、設置出各種顯示格式的動態電子時鐘(最小跨度為秒)。Sub?哈佛在等我呢()ActiveSheet.Range("A8888").Value?=?TimeApplication.OnTime?Time?+?TimeSerial(0,?0,?1),?"哈佛在等我呢"End?Sub
2.? 這段代碼是在我的微信好友VBA高手"熊貓俠"的幫助下，基于上一段代碼改良而來的。上一段代碼在運行前，若不把其它Microsoft Office Excel工作簿關閉掉，則可能會影響到其它工作表與工作簿信息的準確性，甚至在強制中斷該代碼運行進程之前，關閉其它工作簿的操作會失效。
'Option?Explicit'Public?Time?As?Date'Sub?哈佛在等我呢()'ThisWorkbook.ActiveSheet.Calculate'Time?=?Now?+?TimeValue("00:00:1")'Application.OnTime?Time,?"哈佛在等我呢"'End?Sub
二、返回目錄
該代碼來源于我一學妹分享的袁竹平工作筆記。設置好起始值為2，并且添加好"開發工具"菜單下的相關控件，之后，不管從首頁之外的哪一頁任意點擊，均可將工作簿從最后一頁到順數第2頁(目錄首頁相鄰的那一頁)依次折疊起來，并返回到工作簿目錄首頁。這過程類似收折扇的視覺效果，頗有幾分逼格。
Public?Sub?返回目錄()
Dim?X?As?ByteSheet1.Visible?=?TrueFor?X?=?2?To?Sheets.CountSheets(X).Visible?=?2NextEnd?Sub
三、顯示所有工作表
同上，皆為袁竹平作品。但功能與上述"返回"目錄的代碼恰恰相反。若兩者結合起來使用，界面視覺效果更為壯觀。
Public?Sub?顯示所有工作表()Dim?X?As?ByteSheet1.Visible?=?TrueFor?X?=?2?To?Sheets.CountSheets(X).Visible?=?1Next
End?Sub
四、會說話的表格
該代碼來源于我要自學網曾賢志的《 Excel VBA 2013視頻教程》。該代碼的引用單元格區域可以任意改變，點擊運行后，則會有一個比較機械的女聲對該區域內單元格的內容逐一進行毫無感情的大聲朗讀。
Sub?朗讀()[a1:a9].SpeakEnd?Sub
五、定時關閉電腦
該代碼來源于袁竹平作品。平時我們通常是通過手工來關閉電腦，也可以使用某些封裝好的小工具，或優酷、酷狗這類客戶端進行任務結束后執行電腦關機的操作，或者也可以使用Python腳本來對電腦作進程控制，同理，我們亦可使用VBA來完成這一任務。
Option?ExplicitSub?TimingOff()????Shell?("at?20:09?Shutdown.exe?-s")End?Sub
六、關不掉的工作簿
來源于袁竹平作品。添加上該段VBA代碼之后，再設置好禁止訪問VBA代碼事件，則無論對方(除非遇到會暴力破解的高手，或對方讓電腦強制關機/重啟，否則該加了VBA的Excel工作簿是關不掉的)怎么費盡腦筋，都不能通過正常渠道來正常關閉當前工作簿。
Option?ExplicitDim?WbClose?As?BooleanPrivate?Sub?Workbook_BeforeClose(Cancel?As?Boolean)????If?WbClose?=?False?Then????????Cancel?=?True????????MsgBox?"請使用""關閉""按鈕關閉工作簿!",?48,?"提示"????End?IfEnd?SubPublic?Sub?CloseWb()????WbClose?=?True????ThisWorkbook.CloseEnd?Sub
七、實用的Excel技巧
1.?Excel比率可視化
https://www.bilibili.com/video/BV1NU4y1d7EZ?spm_id_from=333.999.0.0
2.?怎么制作可篩選的Excel折線圖
https://www.bilibili.com/video/BV1Ju411X7Kw?spm_id_from=333.999.0.0
3.?怎么用隔行填充來美化Excel表格
https://www.bilibili.com/video/BV1Q34y1m756?spm_id_from=333.999.0.0
4.?用剪切板制作出好看的Excel可視化
https://www.bilibili.com/video/BV12q4y1P72X?spm_id_from=333.999.0.0
5.?如何做出好看的Excel可視化圖表
https://www.bilibili.com/video/BV11Q4y1f7VH?spm_id_from=333.999.0.0
6.?解除工作簿密碼保護
https://www.bilibili.com/video/BV1uM4y137JN?spm_id_from=333.999.0.0
7.?如何用VBA代碼移除工作表密碼
https://www.bilibili.com/video/BV1144y187bw?spm_id_from=333.999.0.0
8.?在Excel中怎么用控件制作出具有交互性的可視化圖表
https://www.bilibili.com/video/BV1Y44y1C7Lc?spm_id_from=333.999.0.0
9.?制作可控制開關的數據條
https://www.bilibili.com/video/BV19q4y1H7yV?spm_id_from=333.999.0.0
10.?如何用Excel制作一個“動態電子表”
https://www.bilibili.com/video/BV1J44y1m7CP?spm_id_from=333.999.0.0
11.?會說話的Excel表格
https://www.bilibili.com/video/BV1qB4y1N7Q2?spm_id_from=333.999.0.0
12.?切片器的應用
https://www.bilibili.com/video/BV1hT4y197G8?spm_id_from=333.999.0.0
13.?Excel字符串函數玩法集錦
https://www.bilibili.com/video/BV19o4y1m7aE?spm_id_from=333.999.0.0
14.?如何在Excel中重置索引
https://www.bilibili.com/video/BV1LK4y1N7TM?spm_id_from=333.999.0.0
15.?條件格式+函數的妙用
https://www.bilibili.com/video/BV1ab4y1Z7Ns?spm_id_from=333.999.0.0
16.?Excel中的字符串拼接
https://www.bilibili.com/video/BV1of4y1h7iy?spm_id_from=333.999.0.0
17.?空白內容錯列填充
https://www.bilibili.com/video/BV1yq4y1j7XK?spm_id_from=333.999.0.0
18.?用Excel函數制作工資條
https://www.bilibili.com/video/BV1YA41137c7?spm_id_from=333.999.0.0
19.?在Excel表格中用Power Query 做聚合運算
https://www.bilibili.com/video/BV1A64y1o7Cc?spm_id_from=333.999.0.0
20.?vlookup函數的那些坑
https://www.bilibili.com/video/BV1Df4y187aP?spm_id_from=333.999.0.0
