【WORD VBA】表格加邊框線條加黑網底變白
閱讀時間約 2 分鐘
Sub 表格加邊框線條加黑網底變白()
Dim borderLoop As Border
Dim i, s As Integer
i = ActiveDocument.Tables.Count
For s = 1 To i
If ActiveDocument.Tables.Count >= 1 Then
For Each borderLoop In ActiveDocument.Tables(s).Borders
With borderLoop
.ColorIndex = wdBlack '將框線設定為黑色。
.LineStyle = wdLineStyleNone '消除原有框線設定。
End With
Next borderLoop
End If
Next s
For s = 1 To i
If ActiveDocument.Tables.Count >= 1 Then
Set mytable = ActiveDocument.Tables(s)
mytable.Borders.OutsideLineStyle = wdLineStyleSingle
mytable.Borders.OutsideLineWidth = wdLineWidth150pt '將外部框線設定為1.50pt。
mytable.Borders.InsideLineStyle = wdLineStyleSingle
mytable.Borders.InsideLineWidth = wdLineWidth075pt '將內部框線設定為0.75pt。
mytable.Shading.BackgroundPatternColor = wdColorWhite '將表格網底設定為白色。
End If
Next s
End Sub
-----
親愛的讀者，感謝您耐心閱讀本篇文章。在接近閱讀結束之際，我誠摯邀請您繼續探索更多我之前所撰寫的文章，相信這些內容將為您帶來更多啟發和收穫。在下方，您可以找到一系列豐富多彩的主題，每篇都充滿了精彩的知識和見解。
我深知您抽出寶貴時間閱讀這些文字，對我來說是非常暖心的支持和鼓勵。您的關注是我創作的動力，每一次的閱讀都讓我更有動力將更多的內容呈現給您。
為使我們更靠近，一些交流互動的方式：
❤️點愛表心｜💬留言相伴｜✏️追蹤大叔｜🔗分享此文｜☕贊助咖啡
為什麼會看到廣告
192會員
231內容數
投行大叔想告訴你的一些事是一個以分享業內觀點和實際工作狀況為主題的專欄。希望透過投行大叔碎碎念，你可以獲得寶貴的行業內幕，了解投資銀行的實際運作方式和挑戰，並提供了深入的分析和洞察力，涵蓋了企業融資、併購和重組、資本市場交易等各個方面。這些業內觀點和實際案例將幫助你更好地理解投資銀行業務，從而在自己的工作中更具競爭力。
留言0
查看全部
你可能也想看
Google News 追蹤
嘿，大家新年快樂~ 新年大家都在做什麼呢？
跨年夜的我趕工製作某個外包設計案，在工作告一段落時趕上倒數。
然後和兩個小孩過了一個忙亂的元旦。在深夜時刻，看到朋友傳來的解籤網站，興致勃勃熬夜體驗了一下，覺得非常好玩，或許有人玩過了，但還是想寫上來分享紀錄一下~
這篇文章探討如何使用 VBA 來設計一個隨機生成不重覆的排班表，解決依據每日、每站、每人進行的排班需求。文章分享了設定人員、站點及工作日的基本步驟，並使用 AI - ChatGPT 4o 做為互動，最終產生了滿意的結果，並提供了一個 VBA設計完成 的影片 以及 免費的檔案下載。
【特殊圖表教學目錄傳送門 : EXCEL特殊圖表大合輯 | 持續更新中】
看膩了一般常見的目標直條圖，今天來教學把這個死板板的圖表變得更加活潑。
有多活潑?看到封面圖片就知道了吧🤣
【🎗️範例展示】
把目標與實際用不同的形狀加以詮釋，並且把資料標籤改成圓形滑珠的形式，顏色
只要會用鍵盤的人，人人都會做EXCEL表格。但是，如果你仔細研究，你或許會發現，工作是否有效率其實可以從一張EXCEL表裡看出來。這篇文章分享幾幾簡單的檢查方法與製作技巧。
這篇文章介紹如何使用VBA程式碼將【包含備註】的Excel檔案轉換為PDF檔。在研究這個問題時，作者花了3個小時多的時間，但後來發現了一個更簡單的方法，這讓作者感到震驚和懷疑人生。最後，作者強調使用他人的智慧來提高自己的能力。文章提供了相關參考文獻和圖片。
Visual Basic for Applications（VBA）是一種功能強大的程式語言，廣泛用於自動化 Microsoft Office 應用程式中的重複性任務。在這篇教學文章中，我們將介紹如何使用 VBA 來新增、刪除和移動檔案。
Excel好好玩VBA-菜緒 (https://portaly.cc/ezyvba)
VBE輔助工具一個針對Excel VBA撰寫的輔助工具
代碼對齊排版、排序、刪空行、刪註解、簡易VBA收集(可新增、刪除)..
如何運用函數來讓資料產生空白列，而且當輸入多少數字，就會插入多少空白列。
<插入空白列>
E5=TOCOL(EXPAND(B5:B9,,C3+1,""))
📝函數說明
✍🏾EXPAND陣列擴展函數
函數說明=EXPAND(範圍,展開的列,展開的欄,要展開的內容)
在工作中，我們經常需要處理各種報表，而其中一項任務就是每天手動更新報表。這可能是一個繁瑣且容易被遺忘的工作，但有幸的是，我們可以利用VBA（Visual Basic for Applications）和Windows工作排程器來自動化這個過程，讓我們在不知不覺中完成這項任務。
本篇主要是設計，當【沒有任何數值】與【原本就有數值】這兩種情況結合在一起時的 VBA 解決方案。分享內容包括張忍大師的函數解決方法。文章中包含影片檔案下載以及參考文獻連結。
這篇文章介紹瞭如何使用VBA來控制Powerpoint，以及透過VBA控制Powerpoint的好處，包括動態資料的圖表簡報、改變表格底色、串接API等。文章強調了了解物件和屬性的關係後，就可以開始探索VBA控制Powerpoint的各種可能性。
嘿，大家新年快樂~ 新年大家都在做什麼呢？
跨年夜的我趕工製作某個外包設計案，在工作告一段落時趕上倒數。
然後和兩個小孩過了一個忙亂的元旦。在深夜時刻，看到朋友傳來的解籤網站，興致勃勃熬夜體驗了一下，覺得非常好玩，或許有人玩過了，但還是想寫上來分享紀錄一下~
這篇文章探討如何使用 VBA 來設計一個隨機生成不重覆的排班表，解決依據每日、每站、每人進行的排班需求。文章分享了設定人員、站點及工作日的基本步驟，並使用 AI - ChatGPT 4o 做為互動，最終產生了滿意的結果，並提供了一個 VBA設計完成 的影片 以及 免費的檔案下載。
【特殊圖表教學目錄傳送門 : EXCEL特殊圖表大合輯 | 持續更新中】
看膩了一般常見的目標直條圖，今天來教學把這個死板板的圖表變得更加活潑。
有多活潑?看到封面圖片就知道了吧🤣
【🎗️範例展示】
把目標與實際用不同的形狀加以詮釋，並且把資料標籤改成圓形滑珠的形式，顏色
只要會用鍵盤的人，人人都會做EXCEL表格。但是，如果你仔細研究，你或許會發現，工作是否有效率其實可以從一張EXCEL表裡看出來。這篇文章分享幾幾簡單的檢查方法與製作技巧。
這篇文章介紹如何使用VBA程式碼將【包含備註】的Excel檔案轉換為PDF檔。在研究這個問題時，作者花了3個小時多的時間，但後來發現了一個更簡單的方法，這讓作者感到震驚和懷疑人生。最後，作者強調使用他人的智慧來提高自己的能力。文章提供了相關參考文獻和圖片。
Visual Basic for Applications（VBA）是一種功能強大的程式語言，廣泛用於自動化 Microsoft Office 應用程式中的重複性任務。在這篇教學文章中，我們將介紹如何使用 VBA 來新增、刪除和移動檔案。
Excel好好玩VBA-菜緒 (https://portaly.cc/ezyvba)
VBE輔助工具一個針對Excel VBA撰寫的輔助工具
代碼對齊排版、排序、刪空行、刪註解、簡易VBA收集(可新增、刪除)..
如何運用函數來讓資料產生空白列，而且當輸入多少數字，就會插入多少空白列。
<插入空白列>
E5=TOCOL(EXPAND(B5:B9,,C3+1,""))
📝函數說明
✍🏾EXPAND陣列擴展函數
函數說明=EXPAND(範圍,展開的列,展開的欄,要展開的內容)
在工作中，我們經常需要處理各種報表，而其中一項任務就是每天手動更新報表。這可能是一個繁瑣且容易被遺忘的工作，但有幸的是，我們可以利用VBA（Visual Basic for Applications）和Windows工作排程器來自動化這個過程，讓我們在不知不覺中完成這項任務。
本篇主要是設計，當【沒有任何數值】與【原本就有數值】這兩種情況結合在一起時的 VBA 解決方案。分享內容包括張忍大師的函數解決方法。文章中包含影片檔案下載以及參考文獻連結。
這篇文章介紹瞭如何使用VBA來控制Powerpoint，以及透過VBA控制Powerpoint的好處，包括動態資料的圖表簡報、改變表格底色、串接API等。文章強調了了解物件和屬性的關係後，就可以開始探索VBA控制Powerpoint的各種可能性。