sunnyso

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-4-8 20:15 | 只看該作者

[發問] 如何判斷是否全形字?

本帖最後由 sunnyso 於 2013-4-8 20:17 編輯

如何判斷是否全形字? 有沒有用 VBA 和不用VBA的方法. 謝謝

用=CODE() 對"氹" 字沒有用

字 is全形
氹 TRUE
仔 TRUE
澳 TRUE
A FALSE
1 FALSE
１ TRUE
? FALSE
？ TRUE
. FALSE
。 TRUE

複製代碼

q.rar (6.22 KB)

樓主熱帖

ss

linyancheng

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 219
主題: 69
精華: 2
積分: 320
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2024-3-4

29^#

發表於 2014-2-10 17:33 | 只看該作者

現在Unicode碼應用很廣，Excel對Unicode碼支援不全（至少不便），尤其是VBA。還有也不支援Unicode碼的CSV檔。

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

28^#

發表於 2013-6-29 23:54 | 只看該作者

回復 27# cbl0924

BIG5對特殊字無效（例如氹）

ss

TOP

cbl0924

中學生 Rank: 2

帖子: 75
主題: 20
精華: 0
積分: 89
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 女
註冊時間: 2011-3-11
最後登錄: 2019-7-25

27^#

發表於 2013-6-29 22:30 | 只看該作者

可不可以乾脆全部都用 =BIG5(數值/文字)
全部統一變成全形
或 =ASC(數值/文字) 全部變成半形

這樣會不會比較簡單??

若無閑事掛心頭
便是人間好時節

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

26^#

發表於 2013-5-31 01:10 | 只看該作者

回復 2# Hsieh 回復 21# Bodhidharma 回復 22# ML089 回復 24# 准提部林

終於想到一個簡潔的方法，用 “正規表示式”

不知各位大大們是否再提供更的精闢解法！

Function CountDblChr(ByVal sCh As String) As Integer
Set re = CreateObject("vbscript.regexp")
're.Pattern = "[\u4e00-\u9fa5]" '判斷中文字(包括特殊字，但不包括符號。和數字如１）
re.Pattern = "[^\x00-\xff]" '判斷所有的全形字
re.Global = True
re.IgnoreCase = True
Set matches = re.Execute(sCh)
CountDblChr = matches.Count
Set re = Nothing
End Function

複製代碼

ss

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

25^#

發表於 2013-5-31 00:49 | 只看該作者

回復 24# 准提部林

若不考慮〔特殊字〕

DblChrCount = LenB(StrConv([D3], vbFromUnicode)) - Len([D3])

ss

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

24^#

發表於 2013-5-27 22:56 | 只看該作者

回復 23# sunnyso

～～LeftB( , 1) 在VBA好像不能用＿＿＿〔LeftB〕在工作表函數與VBA函數作用不同，只能使用〔Evaluate〕來帶！

Ａ１文字：氹仔堃澳A1??2135Ｈ？Ｖ

１．以MID跑迴圈取字，再逐一比對：
　　Sub 全型字元數1()
　　Dim j%, Jm%, T$
　　For j = 1 To Len([A1])
　　　　T = Mid([A1], j, 1)
　　　　If T <> Evaluate("LeftB(""" & T & """,1)") Then Jm = Jm + 1
　　Next j
　　MsgBox "全型字共有：" & Jm & " 個"
　　End Sub
　
２．不用迴圈：
　　Sub 全型字元數2()
　　Dim X1%, X2%
　　X1 = Len([A1])
　　X2 = Evaluate("Len(LeftB(""" & [A1] & String(X1, "1") & """," & X1 * 2 & "))")
　　MsgBox "全型字共有：" & X1 * 2 - X2 & " 個"
　　End Sub
　
　　公式演示：
　　Ｂ１：=LEN(A1)*2-LEN(LEFTB(A1&REPT(1,LEN(A1)),LEN(A1)*2))
　
　　其他參考：文字若超過９９字，請自行調整
　　=LEN(A1)*2-LEN(LEFTB(A1&REPT(1,99),LEN(A1)*2))　
　　=FREQUENCY(LEN(LEFTB(MID(A1,ROW(1:99),1)&"TT",2)),{1,0})
　　=SUMPRODUCT(N(LEN(LEFTB(MID(A1,ROW(1:99),1)&"TT",2))=1))
　　
　　若不考慮〔特殊字〕應會單純些，以上粗略程式碼及公式供參考，看版主們是否再提供較正規的精闢解法！

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

23^#

發表於 2013-5-26 21:50 | 只看該作者

回復 2# Hsieh
回復 13# ML089
回復 19# 准提部林
回復 21# Bodhidharma

Left( ,1) <> LeftB( , 1) 在VBA好像不能用

附註 LeftB 函數是使用在位元組資料字串上。所以 LeftB 傳回的是位元組數，而非字元數。

請問各位大大, 如何用VBA來判斷（不使用Application.WorksheetFunction）？

ss

TOP

ML089