怎样让vba识别汉字

[lingli069]

EXCEL表中怎样让vba识别汉字

[fvflove]

楼主想说什么,我不知道.
但是有个可以建议.

如果要返回字符长度.

你用 len("fvflove中国") =9 '将汉字当一个字节处理
如果你用 lenB("fvflove中国")=11 '将汉字当作二个字节处理.

还有一些
如 MidB
LEFTB
等后面带个B的.都会将汉字当二个字节处理

[lingli069]

例如 47892元 万 仟 佰 拾 元整 用大写怎么转换？写vba小程序

[_l_]

VB代码 同样 也适合vbA

Function GetChinaNum(otherNum As Double, Optional isRMB As Boolean, Optional numOption As Boolean, Optional dotNum As Integer) As String

'''t = GetChinaNum(20005.000436, , , 7) '返回 “二千零五点零零零四三六”
'''t = GetChinaNum(2005.436, True, , 7) '返回“贰仟零伍元肆角肆分”
'''t = GetChinaNum(2005.436, , True, 7) '返加“二零零五点四三六”
On Error Resume Next
Num = Trim(Str(Int(otherNum)))

If isRMB Then
numwei = "拾佰仟万拾佰仟亿拾佰仟"
numshu = "零壹贰叁肆伍陆柒捌玖拾"
Else
numwei = "十百千万十百千亿十百千"
numshu = "零一二三四五六七八九十"
End If
If otherNum < 20 And otherNum >= 10 Then
Num = right(Num, 1)
GetChinaNum = left(numwei, 1)
End If
For i = 1 To Len(Num)
bstr = Mid(Num, i, 1)
If numOption Then
GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1)

Else
GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1)
If bstr = "0" Then
If Mid(numwei, Len(Num) - i, 1) = "万" Or Mid(numwei, Len(Num) - i, 1) = "亿" Then
Do While right(GetChinaNum, 1) = "零"
GetChinaNum = left(GetChinaNum, Len(GetChinaNum) - 1)
Loop
GetChinaNum = GetChinaNum + Mid(numwei, Len(Num) - i, 1)
End If

Else

GetChinaNum = GetChinaNum + Mid(numwei, Len(Num) - i, 1)
End If
GetChinaNum = Replace(GetChinaNum, "零零", "零")
End If
Next i
If numOption = False Then
Do While right(GetChinaNum, 1) = "零"
GetChinaNum = left(GetChinaNum, Len(GetChinaNum) - 1)
Loop
End If
If isRMB Then
numrmb = "元角分"
GetChinaNum = GetChinaNum + Mid(numrmb, 1, 1)
If Val(Num) <> otherNum Then
Num = Trim(Str(Round(otherNum - Val(Num), 2)))
For i = 2 To Len(Num)
bstr = Mid(Num, i, 1)
GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1) + Mid(numrmb, i, 1)
Next i
Else
GetChinaNum = GetChinaNum + "整"
End If
Else
If Val(Num) <> otherNum Then
If dotNum = 0 Then dotNum = 4
Num = Trim(CStr(Round(otherNum - Val(Num), dotNum)))
If GetChinaNum = "" Then GetChinaNum = "零"
GetChinaNum = GetChinaNum + "点"
For i = 2 To Len(Num)
bstr = Mid(Num, i, 1)
GetChinaNum = GetChinaNum + Mid(numshu, Val(bstr) + 1, 1)
Next i
End If
End If
End Function

[fvflove]

如果是我去解决,那要做个小程序了.
但是不知VBA里面是否有现成的方法.

[zzz2121]

[Quote=引用 3 楼 _l_ 的回复:]
VB代码 同样 也适合vbA

Function GetChinaNum(otherNum As Double, Optional isRMB As Boolean, Optional numOption As Boolean, Optional dotNum As Integer) As String

'''t = GetChinaNum(20005.000436, , , 7) '返回 “二千零五点零零零四三六”
'''t = GetChinaNum(2005.436, True, , 7) '返回“贰仟零伍元肆角肆分”
'''t = GetChinaNum(2005.436, , True, 7) '返加“二零零五点四三六”
On Error Resum…
[/Quote]

好！