![post-title](https://i.ytimg.com/vi/_RsaNzZFuUU/hqdefault.jpg)
vba replace萬用字元 在 コバにゃんチャンネル Youtube 的最佳解答
![post-title](https://i.ytimg.com/vi/_RsaNzZFuUU/hqdefault.jpg)
Search
如需取得支援服務並提供意見反應的相關指導,請參閱Office VBA 支援與意見反應。 建議的內容. Replace 函數(Visual Basic for Applications). Office VBA ... ... <看更多>
我想到的解法是將1-1置換成[1-1],標示效果不變而可避開Excel日期轉換。原以為要寫VBA,沒想到Word內建的萬用字元取代功能就可以搞定! 如以上展示, ... ... <看更多>
#1. 用於字串比較的萬用字元 - Microsoft Docs
如需取得支援服務並提供意見反應的相關指導,請參閱Office VBA 支援與意見反應。 建議的內容. Replace 函數(Visual Basic for Applications). Office VBA ...
#2. 請教如何使用range 和Replace 取代特定字元? - Excel程式區
我想要取代字元 $ 為字元 * 而不使用for迴圈。請教如何辨到? 謝謝先進指教~~~~。感恩! Sub TEST1() '會出現型態不符錯誤訊息。
#3. vba搜尋"字串"與"萬用字元"的疑問- 藍色小舖BlueShop
小弟目前使用vba時遇到這個問題,請大大們不吝指點。 ... 在這裡是某種精簡過的正規表示式的變形所謂萬用字元則是對系統下指令的省略用法衍生而來的.
#4. Excel VBA 程式設計教學:基本字串處理(String) - 頁2,共3
如果要同時將前後兩端的所有空白字元都刪除,可以使用 Trim 函數: ... Replace 函數可以將字串中的指定的文字替換成其他的文字,這個函數的完整參數 ...
#5. [Word VBA]如何用find\replace做大量不同字串的取代?
而在使用者要執行的MassReplace() 副程式裡,是由Replace.txt 每讀出一列,就把"要被取代" 和"要用來取代" 的字串傳給ReplaceText() 函式去執行。
#6. 【EXCEL】如何將星號做搜尋、取代。特殊符號「*」如何搜尋
因為一般而言星號(*)是代表萬用字元,也就是代表所有的字元。
如何用VBA取代儲存格中的特定字元在之前的網誌中有為您討論到,如何利用Excel中的Left ... 若我們要用VBA將它改為61/09/20。 ... 最後,我們利用replace函數,將.字元 ...
#8. Excel-REPLACE和SUBSTITUTE 函數 - 學不完.教不停.用不盡
在Excel 中的REPLACE 和SUBSTITUTE 函數都是用來取代字串中的某些特定文字之用,其用法有那些差異呢?(參考下圖) REPLACE 函數主要是根據指定的字元起 ...
#9. 如何將word中除了中文之外其他字元符號...去除- PCZONE 討論區
因為Word 尋找/取代有[萬用字元]的功能可以自訂靈活的搜尋條件, 如同程式中的[!A-z 0-9 . ^t^l]. ... Open "C:\Replace.txt" For Input As #Fn '開啟Replace.txt 檔
excel vba取代文字,大家都在找解答。 在Excel 中的REPLACE 和SUBSTITUTE 函數都是用來取代字串中的某些特定文字之用,其用法有那些差異呢?(參考下圖) REPLACE 函數 ...
#11. 好用的Office萬用字元取代 - 黑暗執行緒
我想到的解法是將1-1置換成[1-1],標示效果不變而可避開Excel日期轉換。原以為要寫VBA,沒想到Word內建的萬用字元取代功能就可以搞定! 如以上展示, ...
#12. 用EXCEL的VBA做特定字詞取代(原始碼公開)… | 科技、工藝
不管是用Word或是Excel,若是想處理類似翻譯文件都工作,都應該會想要可以大量字詞取代 ... 註解:程式最核心,呼叫執行VBA提供的取代功能“Replace"。
#13. 「excel vba取代文字」懶人包資訊整理 (1) | 蘋果健康咬一口
在Excel 中的REPLACE 和SUBSTITUTE 函數都是用來取代字串中的某些特定文字之用,其用法有那些差異呢?(參考下圖) ... ,如何用VBA取代儲存格中的特定字元在之前的網誌中 ...
#14. VB指令函數
DateSerial 函數, 數個字串轉日期. DateValue 函數, 字串轉 ... Len 函數, 得知字串的字數. Like 運算子, 萬用字元的字串比較 ... Replace 函數, 取代字串中某些字串.
#15. 文字函數
取代字串REPLACE()與REPLACEB() ... 自某文字串左邊取出指定[字數](或[位元數])之子字串。式中,方括 ... 之萬用字元進行找尋;而FIND()與FINDB()則不行。
#16. VBA中正規表示式匹配字串的問題 - 優幫助
if reg.test("測試zhi文字")=true thenstr=reg.replace("測試文字","替換結果表示式dao")'替換結果中,如果需要使用後向引用,\應寫為$,如$1$2.
#17. VBA Wildcards - Automate Excel
A wildcard can be defined as a symbol that is used to replace one or more characters in a text string. For example this text string – “mo*” – will find the ...
#18. 5. Visual Basic的應用程式與函式庫
VBA 文件一貫地皆省略所有字串函數的$字元,而使用少了$的新函式。別這樣做!少了$的函式回傳的 ... Visual Basic 6引入新的Replace函式,可迅速的搜尋並取代子字串。
#19. Word 2007 VBA wildcard for inline picture or shape - Stack ...
It is "/". eg (/)(^13) in find box will find any picture followed by a paragraph mark (and group to replace only 1 of them). in VBA replace ...
#20. Day07-C#字串與跳脫字元(Escape Character/逸出字元)
但是萬一內容一多,就會\滿天飛了!於是C#有一個更簡潔的寫法! 善用@符號: 在字串一開頭(雙引號""外), ...
#21. 第2章資料運算與內建函數
字串(String). 記憶體佔用空間. 型別字元. 資料型別. ☆ Visual Basic是使用Unicode編碼方法來儲存及處理字串變數,每個英文字母、中文 字、特殊符號等都佔用2 bytes.
#22. Excel VBA入門教程4 字串String相關常用操作 - 劇多
2020年12月20日 — 4.2 Instr 和InStrRev. InStr函式返回一個字串第一次出現在一個字串,從左到右搜尋。返回搜尋到的字元索引位置。InStrRev函式與InStr功能相同,從右到 ...
#23. 【VBA】常用VB字串處理函數 - 蝦仁爆報- 痞客邦
範例:strLen=Len("Taiwan") 結果:6 Mid:依開始位置擷取固定長度字串。 ... 【VBA】常用VB字串處理函數 ... Replace:將字串中的某字串,以另一字串代替。
#24. vba replace with wildcard | MrExcel Message Board
Hello. I need my macro to find a string in a column of data and replace/remove any time it finds an open and closed parenthesis and whatever ...
#25. VBA中字串的相關函式 - 程序員學院
VBA 中字串的相關函式,目錄trim lcase ucase 使用len 函式獲得一個字串長度使用left mid right ... 使用replace() 把字串中的某個字元替換成其它字元.
#26. Word 小技巧– 比你想像中更厲害的「取代」功能
這時剛剛的內文就僅有英文字變成了阿湯設定的字型跟顏色,而中文就沒有變動到,很簡單吧,下次就不要再一個個選擇變更了。 07. 如何使用萬用字元進行尋找 ...
#27. 如何用VBA 將傳進來的半型數字字串轉成國字大寫分享
If s = "" Then 轉國字= "未輸入金額": Exit Function While Left(s, 1) = "0": s = Right(s, Len(s) - 1): Wend tmp節名= "元萬億兆京"
#28. Excel 取代部分字串REPLACE 函數教學與範例 - Office 指南
使用 Excel 的 REPLACE 函數取代指定位置的文字內容,並提供各種實用的實際範例。 REPLACE 函數用法. REPLACE 函數本身的用法很簡單,其語法如下: =REPLACE(原始字串, ...
#29. cwchen.nou-2 - Excel VBA基礎入門班
VBA (Visual Basic for Application)使用的字型均為「半形」,可使用「中文」於「巨集 ... 「VBA」就是「巨集」內所使用的程式語言。 ... Like與萬用字元的組合應用.
#30. Word VBA教程:查詢並替換文字或格式
可以設定Find物件單獨的屬性或使用Execute方法的引數,如下例所示。 ... 若要查詢並替換格式,可將查詢和替換文字設為空字串(""),並將Execute方法 ...
#31. excel取代
REPLACE 會根據您指定的字元數,以不同的文字字串來取代文字字串的某一部分。 Excel-取代公式中含有*字元的字串因為,Excel 接受萬用字元(*和?),但是使用時要在字元 ...
#32. 【vb replace 萬用字元】與【整份EXCEL要把全活頁簿所有 ...
VB Script WinCE/eVB WinCE/eVC WML XML 行動裝置Android iPhone MeeGo Windows Phone 7 Database 資料庫設計與... WHERE PATINDEX('%$%',REPLACE(A,'%','$')) > 0 轉 ...
#33. VBA之二 - w3c學習教程
VBA 之二,語法高亮可使用vba中的查詢替換功能,如對於delphi可先查詢到關鍵 ... sql之二1 like操作符萬用字元wildcard 用來匹配值的一部分的特殊字元。
#34. 【Excel VBA】如何處理資料模糊查詢與匹配?_Excel之家 ...
一種是單元格的Find方法,一種是VBA函式instr,還有一種則是搭配萬用字元的like語句。 1,Find方法:. Sub RngFind() Dim Rng As Range, cll As Range
#35. VBA Replace-取代字串 - 艾瑞克回憶錄
大家在翻譯這兩個詞的時候千萬不要搞混,一字之差,就會引起嚴重的法律後果。 1. delivery note – 是指送出的貨物到達後,由收貨人簽署過的送貨通知,常用 ...
#36. 深層挖掘Excel高效應用 - Udemy
第一單元主題為Excel基本指令應用,包括自訂代碼設定儲存格格式,常用的選擇性貼上,自訂清單排序及萬用字元篩選等。 第二單元介紹進階指令,包括表格、格式化條件、 ...
#37. excel vba 搜尋字串[筆記]
這裡將介紹Excel VBA 中各種字串的操作方式與相關的功能函數,即使只使用五個字元, ... 檔案VBA之函數字串函數Replace(字串,搜尋字串,Excel VBA經典程式碼,放入陣列 ...
#38. VBA needed to find and replace text using a wildcard - Excel ...
HOW TO ATTACH YOUR SAMPLE WORKBOOK: Unregistered Fast answers need clear examples. Post a small Excel sheet (not a picture) showing ...
#39. StarSuite 7 Office Suite - Basic 程式設計手冊
是,在StarSuite Basic 中,* 萬用字元可能僅是檔案名稱和/或檔案副檔名的最後一個. 字元,而在VBA 中卻並非如此。 建立和刪除目錄. StarSuite Basic 提供了用於建立 ...
#40. VBA Function REPLACE - BetterSolutions.com
* You can use the JOIN function to return a text string containing all the elements in an array (using wildcard searches). * You can use the SPLIT function to ...
#41. Sumproduct使用萬用字元-Excel函數Len、Find、Iserror、N
使用 指定的 xpath,從 XML 內容傳回特定資料 ... REPLACE 會根據您指定的字元數,以不同的文字字串來取代文字字串的某一部分,REPLACEB 則是用於使用 ...
#42. Excel VBA Replace or Substitute: Step-by-Step Guide and 7 ...
VBA Code to Replace Wildcard; Process Followed by VBA Code to Replace Wildcard; VBA Statement Explanation; Macro Example to Replace Wildcard ...
#43. Excel Wildcard Characters - Why Aren't You Using These?
Partial Lookup using wildcard character and VLOOKUP. Find and Replace Partial Matches. Count Non-blank cells that contain text. #1 Filter Data using Excel ...
#44. [算表] VBA 暗號解碼比對抓錯運算需提高效率- 看板Office
soyoso: replace(取代9527[變數])))/len(9527[變數]),或是ubound( 10/08 07:27 ... soyoso: like或range.autofilter 方面可用萬用字元 10/08 11:59.
#45. 如何使用VBA中正則表示式之元字元實現強大的匹配能力?
我們透過具體的例子來體會下這些元字元的作用:一、\d 匹配一個數字字元 ... 我們在查詢時通常會用萬用字元“*”表示任意字元,在正則表示式中也有一些 ...
#46. Excel VBA 基礎(02.6) - 常用函數第一部分 - GetIt01
重點提示連字元& , 相關用法之前已經涉及到。 下面來講解split 函數,. 簽名如下. Function Split(Expression As String, [Delimiter], [Limit As Long = -1], ...
#47. excel vba 搜尋字串位置 - Mofy
字串取代Replace 函數可以將字串中的指定的文字替換成其他的文字,這個函數的完整 ... 在Excel 中使用VBA 的Split 函數,將字串依照特定字元切割後,轉換為字串陣列。
#48. 友環公司-WordPipe 文字編輯器程式碼編輯
... 您快速搜尋大量Word文件內容的關鍵字、改善超連結毀損、修改並取代關鍵文字的工具。 ... 的文字可超過255字元 支援萬用字元搜尋模式 執行後可保留原始文件的時間戳記.
#49. 咕吧課堂:excel vba正規表示式就是這麼玩的,別聲張 - ITW01
2、使用CreateObject方法定義物件:CreateObject("VBSCRIPT.REGEXP") ... 正則規則千千萬就看你想咋匹配,弄清楚以下元字元含義,正則規則就靠它們了.
#50. Excel VBA最強入門邁向辦公室自動化之路王者歸來下冊(全彩 ...
書名:Excel VBA最強入門邁向辦公室自動化之路王者歸來下冊(全彩印刷),語言:繁體中文,ISBN:9789860776119,頁數:448,出版社:深智數位,作者:洪錦魁, ...
#51. MSAccess using a wildcard in the REPLACE function - Code ...
I'm trying to do something simple and I don't understand why it's not working. I'm really new to MS Access VBA.I have a string in a textbox ...
#52. VB - 資料庫語法LIKE @ 不會的就放這邊 - 痞客邦
可匹配任意類型和長度的字元,有些情況下若是中文,請使用兩個百分 ... 由於萬用字元的緣故,導致我們查詢特殊字元「%」、「_」、「[」的語句無法正常 ...
#53. How to replace tilde and wildcard characters in Excel?
As you know, we can use wildcard characters (the question mark and asterisk) to represent any single/series of characters when replacing in Excel. However, how ...
#54. Getting wildcards to work in find and replace function in VBA ...
Unlike normal programming languages though, when it is used in the middle of the word it needs to be combined with the hyphen to be a wildcard for a range of ...
#55. Replace with VBA — Excel Dashboards VBA
Sub FindRep2() 'Excel VBA for replace with wildcard. Dim strA As String Dim strB As String strA=" (*)" strB ...
#56. 关于vba:在REPLACE函数中使用通配符的MS Access | 码农家园
MSAccess using a wildcard in the REPLACE function我正在尝试做一些简单的事情,但我不明白为什么它不起作用。我真的是MS Access VBA的新手。
#57. Find and Replace in Word - Using with Wildcards and VBA
Word Find and Replace · Click the Find or Replace buttons in the Home ribbon Editing section · Provide a word, sentence and/or wildcard special ...
#58. Excel wildcard: find and replace, filter, use in formulas with text ...
Everything you need to know about wildcards: what wildcard characters Excel recognizes, and how to best use them with built-in features and ...
#59. 益大資訊~Excel VBA 最強入門邁向辦公室自動化之路王者歸來
... 儲存格Find 21-11 字串取代Replace 21-12 為儲存格設置保護密碼. 第二十二章Excel VBA 的日期與時間函數22-1 Add 方法建立超連結字串22-2 建立電子郵件超連結22-3 ...
#60. word 取代換行符號
在法律檔案中,會有不少多餘的段落或換行符號,您一定要學會喔,項目編號「一,也可以把段落標記取代掉--就是本文輸入完後,就不能使用萬用字元,直接編輯圖片,一些 ...
#61. Word - Find and replace wildcard/expression - Super User
I don't think there is a way to specify two different styles in Advanced Find/Replace. Probably better to use the macro recorder to record.
#62. 請問Excel VBA 關於字串的處理 - 百科全書
標題:請問Excel VBA 關於字串的處理點擊百科全書(2946)@1@點擊百科 ... 部林( 專家1 級) 請您用成回答我將選您正解另外請問For Each xR In [通訊錄2!
#63. VBA Replace using wildcard? | PC Review
I have a very long string (an HTML document). I want to replace all instances of a substring for which I know the first few characters and ...
#64. word 尋找及取代 - Oxgn
您可以使用Microsoft Office Word 2007 尋找及取代文字、格式、段落標記、分頁符號及其他項目,也 ... 因為Word 尋找/取代有[萬用字元]的功能可以自訂靈活的搜尋條件, ...
#65. Solved: using * wildcard in vba access replace function
Find answers to using * wildcard in vba access replace function from the expert community at Experts Exchange.
#66. vba 尋找字串
Value = Replace (c.Value, “abc”, “xyz”) Set c = .FindNext (c) Loop While Not c. 12-02 使用InStr函數尋找字串應用範例Sub 使用InStr函數搜尋字串() MsgBox “從 ...
#67. Excel】去除字串空白函數:TRIM、SUBSTITUTE - 冷娃玩轉旅食
就讓我們一起看下去吧! 內容目錄. 使用TRIM,去除頭尾部空白,中間的空白不會去除; 使用SUBSTITUTE ...
#68. Word: Wildcard find and replace for numbers and trailing
However, because parentheses are special wildcard characters in their own right, you need to tell Word to treat them as normal text characters ...
#69. Emotet病毒惡意文件分析實例 - 恆逸教育訓練中心
Word 檔案中的巨集可以透過「Office VBA code extractor」 3 網站, ... 這時可以利用「Find / Replace」模組將括號、單引號及加號等混肴字元剔除。
#70. Funtion of Excel - DOKUMEN.TIPS
教不停.用不盡:: 痞客邦PIXNET :: 登入| 免費註冊| 語系▽ | 部落格首頁加為好… ... 函數 從文字字串中的指定位置開始傳回指定數目的字元 ... 公式中使用萬用字元.
#71. 找excel代碼取代相關社群貼文資訊
提供excel代碼取代相關文章,想要了解更多excel自動帶入資料、excel輸入關鍵字帶出 ... 您可以在搜尋字詞中包含萬用字元, . ... VBA代碼:一次查找並替換多 .
#72. vba find 用法
參考以下範例: 其中FIND 函數會區分大小寫,且不支援使用萬用字元。並會將每個單一位元組字元及雙位元組字元都計算為1。 2018-07-19 Excel Vba 高分求助findnext哪里 ...
#73. Finding and replacing characters using wildcards - Word MVP ...
But the wildcard feature in Word goes way beyond that, and can be very powerful. To begin, you must first turn Wildcards on in the Find/Replace dialog. To do so ...
#74. 正規表達式- JavaScript
正規表達式是被用來匹配字串中字元組合的模式。在JavaScript 中,正規表達式也是物件,這些模式在RegExp 的exec (en-US) 和test (en-US) 方法中, ...
#75. 《VBA字符串处理大全》-Excel VBA程序开发 - ExcelHome技术 ...
程序运行后,在VBE窗口中的立即窗口中将会看到上述结果。 下面的示例演示了如何把一个字符串转换为字节数组,以便使用在API函数调用中: Sub Test()
#76. 如何用excel中的VBA的正規表示式提取出字串? - 櫻桃知識
if reg.test("測試zhi文字")=true thenstr=reg.replace("測試文字","替換結果表示式dao")'替換結果中,如果需要使用後向引用,\應寫為$,如$1$2.
#77. VBA裏的文本函數find() search() substitute() replace ... - 台部落
1.2 worksheetfunction.find() 使用注意點 · 如果在EXCEL內使用 · 如果查找的內容找不到,find() 不會報錯,而是返回第1個字符串的位置,一般會返回1,其實 ...
#78. How to Find And Replace Values Using Wildcards in Excel
In the Find What field write the data (value) you are looking for. Then click Find Next or Find All. Click Find All to find wildcard value. Here we ...
#79. How to Use Wildcard Characters in Excel? (With Types)
Example #3 – Vlookup Using Wildcard Character. Like we used to find and replace with the help of wildcard character, we can also use wildcard characters in ...
#80. 01 VBA表單設計畫面說明 - YouTube
#81. How to use wildcard characters in VBA Excel
VBA code to use LIKE operator in VBA code,Here we have shown How to use wildcard characters in VBA Excel, we have showcased use of * , ?
#82. Replace function with wildcard - Microsoft - Tek-Tips
To make a long story short, I am looking for a way to use the replace function with a wildcard in the find argument. something like: ...
#83. How to replace wildcard characters in Excel
But, what if you want to replace a wildcard character inside a string? In this article, I'll show you how you can do it.
#84. Search For The Character ? Not Wildcard - Excel General
... get my VBA code to search for an actual question mark and not the wildcard. I'm using the replace function as follows:(Code, 1 line)1.
#85. 對於VBA語句的常用寫法,要多看、多思考、多應用
註:若在一個由多個單元格組成的範圍內使用Formula屬性,會得到錯誤;若單元格中沒有公式,會得到一個字符串,在公式欄中顯示該單元格的值。
#86. Replace with wildcards - Microsoft Access / VBA - Bytes ...
How can I do a Replace on this using a wildcard to match "Oct 2004" or "Nov 2003" , i.e. the pattern: [??? ####] Thanks! Mark. Perhaps something like:
#87. Wildcards in Excel: Asterisk, Question Mark, and Tilde Explained
In this tutorial, you'll learn about the awesome wildcard characters in Excel. search-with-wildcards. But, what exactly are “wildcards”?
#88. EXCEL VBA 使用記錄 - 有機小松的部落格
EXCEL VBA 使用記錄 ... Value, 6, 3) '自第6字元起 'cell.NumberFormatLocal = "G/通用格式" ... Value = Replace(cell.Value, "/", "-", 1, 1, 1)
#89. VBA入門教學
Part I. Week 1 Macro recording, VBA procedures, and debugging .xlsx為一般excel檔;.xlsm為有巨集的excel檔; 錄製巨集可以選擇用Relative or ...
#90. Free eBook: Wildcard Cookbook for MS Word - PerfectIt
... to remedy that situation, then packaged the articles as a downloadable paper called “Advanced Find and Replace in Microsoft Word.
#91. Strings and Manipulations
The Search Worksheet Function is not case sensitive and allows wildcards, precede wildcard characters of ?, or *, or ~ with a ~ (tilde) to match actual ...
#92. 設定引用項目-Office VBA-引用Excel避免版本不合的問題 - CSDN
Attribute VB_Name = "Excel" Option Explicit '設定引用項目-VBA- ... Replace(Xsort(j), "、", Chr(9), 1, 1) 'chr(9)為定位字元(Tab鍵值) .Range.
#93. 10 tips for using wildcard characters in Microsoft Access ...
A wildcard is a special character that can represent one or more characters in a text value. You can use wildcards to find many records with ...
#94. [文件] 將文字替換成交互參照的VBA - 看板Office
軟體:WORD 版本:希望在2007使用大家好,首先,我建立幾組編號項目1. 2. a 3. b 4. A. eee B. fff 然後我打一些字aaabc bcc dddccc eeexxfff 問題:希望有一程式能將 ...
#95. November 2005 - VBA課程
MsgBox “刪除使用中儲存格內字串前端的空白字元” ... MsgBox “將變數moji前後端加上星號以利辨認其空白字元” ... Sub Replace函數的應用() f = “鼓山”
#96. Question : word vba conditional find and replace - TitanWolf
I'm trying to get MSWord's vba to replace one word: "an" with "a(n)" if the next word ... Of course, it can also be done with a wildcard Find/Replace macro:
#97. 史上最簡單Excel 懶人資料比對法,字串數值都能用免輸入任何 ...
Execl-不用-vlookup-也能比對?萬用比對教學免輸入函數,Excel 不懂任何公式,要怎麼比對不同的資料?小編今天要跟大家分享的方法,完全不需要學習 ...
#98. Using Microsoft Office XP - 第 1136 頁 - Google 圖書結果
... 374-376 Replace With text box , 373-374 Sounds Like option , 373 VBA code , 1043-1044 wildcard searches , 89 , 371-373 replying to e - mail messages ...
vba replace萬用字元 在 [算表] VBA 暗號解碼比對抓錯運算需提高效率- 看板Office 的推薦與評價
軟體:OFFICE 365 EXCEL
版本:1908
目前正在編寫的功能是直接把一個工作表當成暗號表
A欄=暗號,B欄=解碼後的對應詞
另一個工作表則是雜亂無章的暗號跟解碼後的詞彙
然後要用暗號表去抓出文章內是否有出現暗號
而且是否解碼後的詞彙是否是正確的
例如
暗號表
A1=9527 B1=唐伯虎
A2=88 B2=掰掰
(下略)
解碼表
A1=pppij"9527"clizxj B1=pppij"唐伯X"clizxj
C1=解碼偵錯:出現暗號:9527 解碼遺漏:唐伯虎
大概是這種感覺
目前編寫的代碼大致如下:
For Row1 = 2 To 10000
For Row2 = 4 To 10000
Sheets("解碼").Activate
If Sheets("暗號").Cells(Row1, 1).value <> "" Then
If Sheets("解碼").Cells(Row2, 1).value <> "" Then
Code = Sheets("暗號").Cells(Row1, 1).value '暗號
Decry = Sheets("暗號").Cells(Row1, 2).value '解碼對應詞
Decode1 = InStr(1, (Cells(Row2, 1)), Code) '判斷暗號文章是否有暗號
Decode2 = InStr(1, (Cells(Row2, 2)), Decry) '判斷解碼後是否有對應詞
If Decode1 <> 0 And Decode2 = 0 Then '若暗號文章有暗號但解碼後無對應詞
For Col = 7 To 52
If Cells(Row2, Col).value = "" Then
Cells(Row2, Col).value = "解碼遺漏:" & Decry
'在該文章列的7~52欄個別記下解碼遺漏的對應詞(因為可能一格內有多個不同暗號)
Exit For
End If
Next
End If
End If
End If
Next
Next
最後再用Textjoin把紀錄在7~52欄的遺漏紀錄整合在同一格內
然後為了方便辨識雜亂文章中的各個暗號
也去網路上找了幫特定字串上色的寫法
https://access-excel.tips/excel-vba-change-partial-text-color/
我是用Macro 1 – Change partial text color using VBA Macro這個
目前的寫法雖然可以正常運作
但速度上還是有點慢,在有600條暗號的情況下,至少也要60秒才能檢查完
不知道是否有其他方式可以加快運算的速度?
而且現在還有個問題是如果暗號中有兩個9527
但解碼後只有一個唐伯虎,這種情況也不會被判斷成解碼缺失
所以在想是不是應該寫另一個用資料剖析功能運算的版本來測試看看.....
把每個暗號個別分開,就可以連同數量不一致的也抓出來
希望有人可以提供意見,感謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.193.189.222 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1570466433.A.3AB.html
這樣就不用多檢查沒有值的欄位
range.find或range.autofilter我會再研究看看
另外 寫入變數內再拿出來的做法有範例嗎? 網站也可
然後雖然可能不會用到了,但還是想問一下
range.value=值 跟 range="值" 在運算速度上是有差的嗎?
※ 編輯: Kamikiri (60.248.94.55 臺灣), 10/08/2019 10:16:46
感謝,剛剛在看到你的推文前上網查了一下
目前只想出以下寫法(還沒寫好寫正確 但應該類似)?
Dim Array(1,52) as Variant
if 解碼有誤
Array(Row2,Col) = "解碼遺漏:" & Decry
不知道創個Dictionary寫進去之後再整批拿出來是否也相同
總之目前大致上已經有方向,應該沒問題了,感謝解答
※ 編輯: Kamikiri (60.248.94.55 臺灣), 10/08/2019 10:22:03
了解,我晚點再GOOGLE研究看看
最後一問,如果你還有看到的話再麻煩解答
假如我想在解碼中使用萬用字元*
例如 95*7 讓9507~9597全部都視為應該被解碼為唐伯虎的話
是否只能使用Range.Find才有辦法?
發現其他寫法似乎都只會把*視為一般字元而非萬用字元
萬分感謝
※ 編輯: Kamikiri (60.248.94.55 臺灣), 10/08/2019 11:33:39
... <看更多>