VBA函數(shù)批量將將字符由全角轉為半角,或由半角轉為全角-同時適用Excel Access
- 2017-09-08 10:49:00
- zstmtony 原創(chuàng)
- 20611
VBA函數(shù)批量將將字符由全角轉為半角,或由半角轉為全角,及如何判斷一串字符里面含有全角的英文數(shù)字符號
Excel微信群中有網友有不少表格是全角,希望使用VBA批量轉換為半角。
嘗試用Access寫了一個,在Excel VBA里也通用。
'VBA將字符由全角轉為半角 '調用方法 gf_WideToNarrow("Excel交流網2016") Public Function gf_WideToNarrow(strSrc As String) As String Dim strResult As String '通過StrConv及 vbNarrow參數(shù)轉換 strResult = StrConv(strSrc, vbNarrow) gf_WideToNarrow = strResult End Function
'VBA將字符由半角轉為全角 Public Function gf_NarrowToWide(strSrc As String) As String Dim strResult As String '通過StrConv及 vbWide參數(shù)轉換 strResult = StrConv(strSrc, vbWide) gf_NarrowToWide = strResult End Function
另判斷 字符串中是否含有全角符號的函數(shù)
'判斷字符串有否包含全角 '調用方法:gf_IncludeWideChar("Excel交流網2016") Public Function gf_IncludeWideChar(strSrc As String) As Boolean gf_IncludeWideChar = (strSrc = StrConv(strSrc, vbNarrow)) End Function '單個字符判斷,也可使用 AscB(Mid(字符串, i, 1)) = Asc(Mid(字符串, i, 1))
網絡上Rubi的專欄 還有另一種VBA 全角轉半角的方法 是使用逐個對應的方法,不夠靈活,但可以按自己的方式來定義
Option Explicit Sub BatchReplace() Dim oDict, strKey Set oDict = CreateObject("Scripting.Dictionary") '全角數(shù)字轉換為半角 oDict.Add "1", "1" oDict.Add "2", "2" oDict.Add "3", "3" oDict.Add "4", "4" oDict.Add "5", "5" oDict.Add "6", "6" oDict.Add "7", "7" oDict.Add "8", "8" oDict.Add "9", "9" oDict.Add "0", "0" '小寫全角轉換 oDict.Add "a", "a" oDict.Add "b", "b" oDict.Add "c", "c" oDict.Add "d", "d" oDict.Add "e", "e" oDict.Add "f", "f" oDict.Add "g", "g" oDict.Add "h", "h" oDict.Add "i", "i" oDict.Add "j", "j" oDict.Add "k", "k" oDict.Add "l", "l" oDict.Add "m", "m" oDict.Add "n", "n" oDict.Add "o", "o" oDict.Add "p", "p" oDict.Add "q", "q" oDict.Add "r", "r" oDict.Add "s", "s" oDict.Add "t", "t" oDict.Add "u", "u" oDict.Add "v", "v" oDict.Add "w", "w" oDict.Add "x", "x" oDict.Add "y", "y" oDict.Add "z", "z" '大寫全角轉換 oDict.Add "A", "A" oDict.Add "B", "B" oDict.Add "C", "C" oDict.Add "D", "D" oDict.Add "E", "E" oDict.Add "F", "F" oDict.Add "G", "G" oDict.Add "H", "H" oDict.Add "I", "I" oDict.Add "J", "J" oDict.Add "K", "K" oDict.Add "L", "L" oDict.Add "M", "M" oDict.Add "N", "N" oDict.Add "O", "O" oDict.Add "P", "P" oDict.Add "Q", "Q" oDict.Add "R", "R" oDict.Add "S", "S" oDict.Add "T", "T" oDict.Add "U", "U" oDict.Add "V", "V" oDict.Add "W", "W" oDict.Add "X", "X" oDict.Add "Y", "Y" oDict.Add "Z", "Z" '標點符號 oDict.Add ",", "," oDict.Add ":", ":" oDict.Add ";", ";" oDict.Add "(", "(" oDict.Add ")", ")" oDict.Add "[", "[" oDict.Add "]", "]" oDict.Add ".", "." oDict.Add "+", "+" oDict.Add "%", "%" oDict.Add "/", "/" ' ...... ' 在這里可以根據(jù)需要增加更多的替換規(guī)則 ' ...... For Each strKey In oDict.Keys Selection.Find.Execute FindText:=strKey, ReplaceWith:=oDict(strKey), Replace:=wdReplaceAll Selection.StartOf wdStory Next MsgBox "完成!" End Sub
另Excel還可試下 =widechar(a1)
Unicode編碼判斷,全角標點/數(shù)字及英文字母范圍:FE30--FFE5
全角與半角的區(qū)別及相關知識
全角指一個字符占用兩個標準字符位置的狀態(tài)。漢字字符和規(guī)定了全角的英文字符及國標GB2312-80中的圖形符號和特殊字符都是全角字符。
一般的系統(tǒng)命令是不用全角字符的,只是在作文字處理時才會使用全角字符。
全角是一種電腦字符,且每個全角字符占用兩個標準字符(或半角字符)位置。
每個普通字符(或半角字符)只占用一字節(jié)的空間(一字節(jié)有8位,共256個編碼空間),而漢語、日語、及朝鮮文等文字語言的字庫量遠大于256個,所以改用兩個字節(jié)來儲存。同時,也是因為中日韓等文字的書寫習慣,如果統(tǒng)一使用全角字符的話,排列起來也顯得整齊。
為了排列整齊,英文和其它拉丁文的字符和標點也提供了全角格式。
通常的英文字母、數(shù)字鍵、符號鍵都是半角的,半角的顯示內碼都是一個字節(jié)。在系統(tǒng)內部,以上三種字符是作為基本代碼處理的,所以用戶輸入命令和參數(shù)時一般都使用半角。
全角與半角有什么區(qū)別?各在什么情況下使用?
全角占兩個字節(jié),半角占一個字節(jié)。
半角全角主要是針對標點符號來說的,全角標點占兩個字節(jié),半角占一個字節(jié),而不管是半角還是全角,漢字都還是要占兩個字節(jié)。
在不支持漢字等語言的計算機上只能使用半角標點(其實這種情況根本就不存在半角全角的概念) 。
,.?\'! ……這些是半角的
,。?‘! ……這些是全角的
對于大多數(shù)字體來說,全角看起來比半角大,當然這不是本質區(qū)別。
在中文輸入法中,切換全角和半角格式的快捷鍵為SHIFT+空格。
全角和半角區(qū)別
全角就是字母和數(shù)字等與漢字占等寬位置的字。
半角就是ASCII方式的字符,在沒有漢字輸入法起作用的時候輸入的字母數(shù)字和字符都是半角的。
示例如下:(鍵盤的輸入是一樣的,輸入法的設置不同)
在漢字輸入法出現(xiàn)的時候,輸入的字母數(shù)字默認為半角,但是標點則是默認為全角(如下圖)可以通過鼠標點擊輸入法工具條上的相應按鈕來改變,輸入法名字左邊的按鈕是改變中文和英文輸入的,右邊的圓和半圓是改變字母和數(shù)字的全角半角的,再右邊的“.,”或者"。,"是用來改變標點符號的中英文設置(中文標點即是全角,英文標點即是半角),最右邊的鍵盤圖標是顯示軟鍵盤用的,可以輸入一些特殊字符或者其它語言里面的字母。
- office課程播放地址及課程明細
- Excel Word PPT Access VBA等Office技巧學習平臺
- 將( .accdb) 文件格式數(shù)據(jù)庫轉換為早期版本(.mdb)的文件格式
- 將早期的數(shù)據(jù)庫文件格式(.mdb)轉換為 (.accdb) 文件格式
- KB5002984:配置 Jet Red Database Engine 數(shù)據(jù)庫引擎和訪問連接引擎以阻止對遠程數(shù)據(jù)庫的訪問(remote table)
- Access 365 /Access 2019 數(shù)據(jù)庫中哪些函數(shù)功能和屬性被沙箱模式阻止(如未啟動宏時)
- Access Runtime(運行時)最全的下載(2007 2010 2013 2016 2019 Access 365)
- Activex控件或Dll 在某些電腦無法正常注冊的解決辦法(regsvr32注冊時卡?。?/a>
- office使用部分控件時提示“您沒有使用該ActiveX控件許可的問題”的解決方法
- RTF文件(富文本格式)的一些解析
- Access樹控件(treeview) 64位Office下出現(xiàn)橫向滾動條不會自動定位的解決辦法
- Access中國樹控件 在win10電腦 節(jié)點行間距太小的解決辦法
- EXCEL 2019 64位版(Office 2019 64位)早就支持64位Treeview 樹控件 ListView列表等64位MSCOMMCTL.OCX控件下載
- VBA或VB6調用WebService(直接Post方式)并解析返回的XML
- 早期PB程序連接Sqlserver出現(xiàn)錯誤
- MMC 不能打開文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由于文件不存在,不是一個MMC控制臺,或者用后來的MMC版
- sql server連接不了的解決辦法
- localhost與127.0.0.1區(qū)別
- Roych的淺談數(shù)據(jù)庫開發(fā)系列(Sql Server)
- sqlserver 自動備份對備份目錄沒有存取權限的解決辦法
- 安裝Sql server 2005 express 和SQLServer2005 Express版企業(yè)管理器 SQLServer2005_SSMSEE
聯(lián)系人: | 王先生 |
---|---|
Email: | 18449932@qq.com |
QQ: | 18449932 |
微博: | officecn01 |