如何判斷是否全形字? - Excelㄧ般區

帖子: 186
主題: 6
精華: 0
積分: 218
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-11-12
最後登錄: 2014-4-15

21^# 跳轉到 »

發表於 2013-5-22 03:52 | 只看該作者

回復 20# ML089

補充一下註解，應該加一個
X：應視為是全型，但LENB()為1的特例，如「堃」
B：全型字數
S：半型字數
LEN(A1)+LENB(A1)-LENB(BIG5(A1))
=(B+S +X)+ (B*2+S+X) - (B*2 + S*2+X)
=B+X

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

22^#

發表於 2013-5-22 09:18 | 只看該作者

回復 21# Bodhidharma

沒錯，你的說明比較對，重點就是 X

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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