[VBA] 神秘數字9527

更新 發佈閱讀 4 分鐘

問題:


前幾天,LINE Meiko微課頻道 社群網友問到一個【數值加總】顯示的問題,但網友因為機敏資料的問題,無法提供檔案。



靈感:


使用【函數】方法,請參考:

此篇的 VBA 方法,需將時間點回溯到 2023/7/27,當時群裡大家剛好在討論如何刪除不可見的空白,當時寫的 Excel VBA 雖然可以順利解決問題(只限儲存格內,存在單一個數值時),但好心的奇大哥還是點出這個程式的一個問題點,那就是無法在【一個句子 或 多個換行的句子】的頭尾做判斷。


時隔一年半之久,藉由社群網友的提問,再出發! (OS:再出發啦~ 溫系勇敢ㄟ小飛俠~)

再次將 VBA 程式修改成也能用在【一個句子 或 多個換行的句子】的頭尾,來判斷是否有空白,如果有空白就自動移除,而句子內的空白,則不做移除。



以下是兩個情境的 VBA 基礎版 和 VBA 進階版 兩者的執行結果:


(情境一)、單行文字內容的【前、中、後】空白處理

原始狀況:
英文:句首有 1 個空白;句中有 5 個空白;句尾有 2 個空白。
中文:句首有 1 個空白;句中有 0 個空白;句尾有 2 個空白。

(情境一)、原始狀況

(情境一)、原始狀況


VBA 基礎版 的執行結果:【只要有空白的地方就全部刪除。】
英文:句首有 0 個空白;句中有 0 個空白;句尾有 0 個空白。
中文:句首有 0 個空白;句中有 0 個空白;句尾有 0 個空白。

(情境一)、VBA 基礎版 的執行結果

(情境一)、VBA 基礎版 的執行結果


VBA 進階版 的執行結果:【只刪除頭尾的空白,中間的空白不會刪除。】
英文:句首有 0 個空白;句中有 5 個空白;句尾有 0 個空白。
中文:句首有 0 個空白;句中有 0 個空白;句尾有 0 個空白。

(情境一)、VBA 進階版 的執行結果

(情境一)、VBA 進階版 的執行結果


(情境二)、多行文字內容的【前、中、後】空白處理

原始狀況:
英文 + 中文:句首總共有 40 個空白;句中總共有 54 個空白;句尾總共有 22 個空白。

(情境二)、原始狀況

(情境二)、原始狀況


VBA 基礎版 的執行結果:【單一個儲存格內,多行的所有空白全部刪除。】
英文 + 中文:句首總共有 0 個空白;句中總共有 0 個空白;句尾總共有 0 個空白。

(情境二)、VBA 基礎版 的執行結果

(情境二)、VBA 基礎版 的執行結果


VBA 進階版 的執行結果:【單一儲存格內,多行的前、後空白都刪除,中間保留。】
英文 + 中文:句首總共有 0 個空白;句中總共有 54 個空白;句尾總共有 0 個空白。

(情境二)、VBA 進階版 的執行結果

(情境二)、VBA 進階版 的執行結果



VBA 基礎版 vs. VBA 進階版 功能比較:

功能比較

功能比較




VBA 基礎版 - 檔案下載


VBA 進階版 - 檔案下載




彩蛋

艾爾伯特‧愛因斯坦(Einstein, Albert) 說:

“Imagination is more important than knowledge.”
「想像力比知識更重要。」




參考文獻:

  1. 奇大哥
  2. Facebook




【opa 沙龍】的 GPT NamiKo 助理 ( 使用舊版 ChatGPT DALL-E ):
https://chatgpt.com/g/g-slUIye2q5-namiko

最近 ChatGPT 4o 的新圖像模型很流行【吉卜力】畫風,所以再拿出塵封以久,
使用 ChatGPT 舊版 DALL-E 製做的 NamiKo GPT 助理來跟大家打聲招呼 ~~








以上就是這次的分享,請持續關注  和 Meiko微課頻道,謝謝大家 ~


有任何問題,請到【opa的沙龍】【Excel VBA 情境學習】一起討論有關 函數 的基本問題,或加入 LINE社群 Meiko微課小綠群(粉絲交流群),歡迎您的加入。



opa_AI生圖館

LINE Bot:@634apgbp

不定期推送當下最流行的圖片,您也可以許願~ 但請注意個資不要輸入到給此LINE機器人 ! 因為大家都會看到喔 !



留言
avatar-img
Meiko微課頻道的沙龍
177會員
51內容數
Meiko微課頻道主要以辦公室應用為出發點,針對上班族群所遇到的問題進行分享
2025/01/08
本篇文章提供一個利用 Excel VBA 和 Google Map API,自動計算起迄地址里程數的解決方案。分享開發過程的心路歷程,以及如何克服使用Google Map API的挑戰,並感謝 Meiko老師 的教學 和 ChatGPT o1 pro 的協助,並提供檔案免費下載。
Thumbnail
2025/01/08
本篇文章提供一個利用 Excel VBA 和 Google Map API,自動計算起迄地址里程數的解決方案。分享開發過程的心路歷程,以及如何克服使用Google Map API的挑戰,並感謝 Meiko老師 的教學 和 ChatGPT o1 pro 的協助,並提供檔案免費下載。
Thumbnail
2024/11/29
在 Excel VBA 中,使用 ActiveSheet.ShowAllData 方法顯示篩選過的數據時,可能會遇到錯誤。如果當前沒有篩選條件而直接調用此方法,將導致執行錯誤。本文介紹檢查篩選狀態,來安全地使用 ShowAllData。還探討了使用 On Error Resume Next 的風險。
Thumbnail
2024/11/29
在 Excel VBA 中,使用 ActiveSheet.ShowAllData 方法顯示篩選過的數據時,可能會遇到錯誤。如果當前沒有篩選條件而直接調用此方法,將導致執行錯誤。本文介紹檢查篩選狀態,來安全地使用 ShowAllData。還探討了使用 On Error Resume Next 的風險。
Thumbnail
2024/10/24
在這篇文章中,探討 Meiko 老師如何使用 Power Query 在 Excel 中自動篩選非重複記錄。從早期的 Excel 2003 版本到今天的 Office 365,讓效率提高。分享了創新思維的培養以及使用 ChatGPT 來開發 Excel VBA 的優勢並提供了寶貴的見解和檔案下載。
Thumbnail
2024/10/24
在這篇文章中,探討 Meiko 老師如何使用 Power Query 在 Excel 中自動篩選非重複記錄。從早期的 Excel 2003 版本到今天的 Office 365,讓效率提高。分享了創新思維的培養以及使用 ChatGPT 來開發 Excel VBA 的優勢並提供了寶貴的見解和檔案下載。
Thumbnail
看更多
你可能也想看
Thumbnail
vocus 慶祝推出 App,舉辦 2026 全站慶。推出精選內容與數位商品折扣,訂單免費與紅包抽獎、新註冊會員專屬活動、Boba Boost 贊助抽紅包,以及全站徵文,並邀請你一起來回顧過去的一年, vocus 與創作者共同留下了哪些精彩創作。
Thumbnail
vocus 慶祝推出 App,舉辦 2026 全站慶。推出精選內容與數位商品折扣,訂單免費與紅包抽獎、新註冊會員專屬活動、Boba Boost 贊助抽紅包,以及全站徵文,並邀請你一起來回顧過去的一年, vocus 與創作者共同留下了哪些精彩創作。
Thumbnail
本文介紹瞭如何將Excel圖表轉成圖片,並解決了圖表資料量大時可能出現的錯誤訊息。此外,還分享了ChatGPT 4o (訂閱付費版) 的幫助與成功轉換圖片的經驗。 還有周杰倫關於一技之長的觀點分享,激勵讀者找到自己的優勢和興趣。並提供了相關參考文獻,讓讀者進一步深入瞭解主題。
Thumbnail
本文介紹瞭如何將Excel圖表轉成圖片,並解決了圖表資料量大時可能出現的錯誤訊息。此外,還分享了ChatGPT 4o (訂閱付費版) 的幫助與成功轉換圖片的經驗。 還有周杰倫關於一技之長的觀點分享,激勵讀者找到自己的優勢和興趣。並提供了相關參考文獻,讓讀者進一步深入瞭解主題。
Thumbnail
在Excel中實作使用者介面(UI)是一個有趣且實用的技能,能夠幫助你更好地呈現資料、提供功能並增強使用者體驗。本文將逐步介紹如何在Excel中建立基本的UI元素,例如按鈕、下拉式選單和文字框,並擴展功能,例如資料驗證和動態更新。
Thumbnail
在Excel中實作使用者介面(UI)是一個有趣且實用的技能,能夠幫助你更好地呈現資料、提供功能並增強使用者體驗。本文將逐步介紹如何在Excel中建立基本的UI元素,例如按鈕、下拉式選單和文字框,並擴展功能,例如資料驗證和動態更新。
Thumbnail
Excel好好玩VBA-菜緒 (https://portaly.cc/ezyvba) VBE輔助工具一個針對Excel VBA撰寫的輔助工具 代碼對齊排版、排序、刪空行、刪註解、簡易VBA收集(可新增、刪除)..
Thumbnail
Excel好好玩VBA-菜緒 (https://portaly.cc/ezyvba) VBE輔助工具一個針對Excel VBA撰寫的輔助工具 代碼對齊排版、排序、刪空行、刪註解、簡易VBA收集(可新增、刪除)..
Thumbnail
本文介紹瞭如何使用 Excel VBA 解決規劃求解問題的實際案例,並展示了「回溯算法」(Backtracking) 的應用。通過此案例,專業人士可以更好地理解並利用數據,進而在商業環境中做出更精確的決策。
Thumbnail
本文介紹瞭如何使用 Excel VBA 解決規劃求解問題的實際案例,並展示了「回溯算法」(Backtracking) 的應用。通過此案例,專業人士可以更好地理解並利用數據,進而在商業環境中做出更精確的決策。
Thumbnail
如何運用函數來讓資料產生空白列,而且當輸入多少數字,就會插入多少空白列。 <插入空白列> E5=TOCOL(EXPAND(B5:B9,,C3+1,"")) 📝函數說明 ✍🏾EXPAND陣列擴展函數 函數說明=EXPAND(範圍,展開的列,展開的欄,要展開的內容)
Thumbnail
如何運用函數來讓資料產生空白列,而且當輸入多少數字,就會插入多少空白列。 <插入空白列> E5=TOCOL(EXPAND(B5:B9,,C3+1,"")) 📝函數說明 ✍🏾EXPAND陣列擴展函數 函數說明=EXPAND(範圍,展開的列,展開的欄,要展開的內容)
Thumbnail
本篇主要是設計,當【沒有任何數值】與【原本就有數值】這兩種情況結合在一起時的 VBA 解決方案。分享內容包括張忍大師的函數解決方法。文章中包含影片檔案下載以及參考文獻連結。
Thumbnail
本篇主要是設計,當【沒有任何數值】與【原本就有數值】這兩種情況結合在一起時的 VBA 解決方案。分享內容包括張忍大師的函數解決方法。文章中包含影片檔案下載以及參考文獻連結。
追蹤感興趣的內容從 Google News 追蹤更多 vocus 的最新精選內容追蹤 Google News