[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
留言分享你的想法!
avatar-img
Meiko微課頻道的沙龍
146會員
47內容數
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
「欸!這是在哪裡買的?求連結 🥺」 誰叫你太有品味,一發就讓大家跟著剁手手? 讓你回購再回購的生活好物,是時候該介紹出場了吧! 「開箱你的美好生活」現正召喚各路好物的開箱使者 🤩
Thumbnail
「欸!這是在哪裡買的?求連結 🥺」 誰叫你太有品味,一發就讓大家跟著剁手手? 讓你回購再回購的生活好物,是時候該介紹出場了吧! 「開箱你的美好生活」現正召喚各路好物的開箱使者 🤩
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