请各位高手帮忙解答！

smart1078

1、怎样让用户在textbox只能输入特定的字符，如只能输入数字，不能输入其它的文字将

2、怎样用VBA将数字自动转化为人民币大写，比如将1000万元转化为壹仟万元

3、怎么控制在textbox中输入的数字的格式，如小数点位数

4、怎么用程序判断用户目前在哪个textbox输入文字

先问这么多，请高手朋友指教

守柔

其实你的这些问题，可以结合起来，你上传个你应用的实例就非常清楚了其实是个简单问题。

比如你的这个思路，放在EXCEL编程中可能更好。

smart1078

cBuwN4eT.rar (10.2 KB, 下载次数: 11)

2004-10-17 12:30 上传

点击文件名下载附件
请各位高手帮忙解答！

这是我的实例，请帮忙为盼！

smart1078

我参考了一下excel里的程序写法，修改了一下后作了一个函数，可以在程序的任何地方调用，我是采用了excel板块的一个前辈修改的，在这里表示感谢，并且把他原来最高值为99999999的限制增加到了999999999999，可以上千亿了。

程序如下，拿出来分项，我提出的其他问题还请各位前辈帮忙为盼：

Public Function CCh(N1) As String Select Case N1 Case 0 CCh = "零" Case 1 CCh = "壹" Case 2 CCh = "贰" Case 3 CCh = "叁" Case 4 CCh = "肆" Case 5 CCh = "伍" Case 6 CCh = "陆" Case 7 CCh = "柒" Case 8 CCh = "捌" Case 9 CCh = "玖" End Select End Function

'名称： ChMoney ' 得到数字 N1 的汉字大写 ' 最大为 999999999999 ' O 返回 "" Public Function ChMoney(N1) As String Dim tMoney As String Dim lMoney As String Dim tn '小数位置 Dim s1 As String '临时STRING 小数部分 Dim s2 As String '9999 以内 Dim s3 As String '9999-99999999 Dim s4 As String '99999999以上

If N1 = "" Then ChMoney = "" Exit Function End If If N1 = 0 Then ChMoney = " " Exit Function End If If N1 < 0 Then ChMoney = "负" + ChMoney(Abs(N1)) Exit Function End If tMoney = Trim(Str(N1)) tn = InStr(tMoney, ".") '小数位置

'以下确定小数位 s1 = "" If tn <> 0 Then st1 = Right(tMoney, Len(tMoney) - tn) If st1 <> "" Then t1 = Left(st1, 1) st1 = Right(st1, Len(st1) - 1) If t1 <> "0" And st1 = "" Then s1 = s1 + CCh(Val(t1)) + "角整" Else s1 = s1 + CCh(Val(t1)) + "角" End If If st1 <> "" Then t1 = Left(st1, 1) s1 = s1 + CCh(Val(t1)) + "分" End If End If st1 = Left(tMoney, tn - 1) Else st1 = tMoney s1 = "整" End If

'以下确定0-9999的数值 s2 = "" If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) s2 = CCh(Val(t1)) + s2 End If

If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) If t1 <> "0" Then s2 = CCh(Val(t1)) + "拾" + s2 Else If Left(s2, 1) <> "零" Then s2 = "零" + s2 '控制不出现两个"零" End If End If

If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) If t1 <> "0" Then s2 = CCh(Val(t1)) + "佰" + s2 Else If Left(s2, 1) <> "零" Then s2 = "零" + s2 '控制不出现两个"零" End If End If

If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) If t1 <> "0" Then s2 = CCh(Val(t1)) + "仟" + s2 Else If Left(s2, 1) <> "零" Then s2 = "零" + s2 End If End If

'以下确定9999-99999999的数值 s3 = "" If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) s3 = CCh(Val(t1)) + s3 End If

If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) If t1 <> "0" Then s3 = CCh(Val(t1)) + "拾" + s3 Else If Left(s3, 1) <> "零" Then s3 = "零" + s3 End If End If

If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) If t1 <> "0" Then s3 = CCh(Val(t1)) + "佰" + s3 Else If Left(s3, 1) <> "零" Then s3 = "零" + s3 End If End If

If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) If t1 <> "0" Then s3 = CCh(Val(t1)) + "仟" + s3 Else If Left(s3, 1) <> "零" Then s3 = "零" + s3 End If End If

'以下为99999999-999999999999部分 s4 = "" If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) s4 = CCh(Val(t1)) + s4 End If

If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) If t1 <> "0" Then s4 = CCh(Val(t1)) + "拾" + s4 Else If Left(s4, 1) <> "零" Then s4 = "零" + s4 End If End If

If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) If t1 <> "0" Then s4 = CCh(Val(t1)) + "佰" + s4 Else If Left(s4, 1) <> "零" Then s4 = "零" + s4 End If End If

If st1 <> "" Then t1 = Right(st1, 1) st1 = Left(st1, Len(st1) - 1) If t1 <> "0" Then s4 = CCh(Val(t1)) + "仟" + s4 End If End If

If Right(s2, 1) = "零" Then s2 = Left(s2, Len(s2) - 1) If Len(s3) > 0 Then If Right(s3, 1) = "零" Then s3 = Left(s3, Len(s3) - 1) s3 = s3 & "万" End If If Len(s4) > 0 Then If Right(s4, 1) = "零" Then s4 = Left(s4, Len(s4) - 1) s4 = s4 & "亿" End If

ChMoney = IIf(s4 & s3 & s2 = "", s1, s4 & s3 & s2 & "元" & s1)

End Function

[此贴子已经被作者于2004-10-17 13:34:33编辑过]

守柔

yTcLbFUl.rar (13.51 KB, 下载次数: 10)

2004-10-17 17:18 上传

点击文件名下载附件
请各位高手帮忙解答！

请注意：当需要计算价值时先清空TEXT1，再更改其中之一的TEXT3、或者TEXT4，你试一下我感觉不是太好。

smart1078

你跟我的思路差不多，只是我想通过自己定义函数来解决，你是用excel的自动转化来解决，跟你的方法查不多的有一种在word域中完成计算，然后将结果应该用的目标后清楚word域，相当于word只是一个中间过程，也能达到这样的效果

守柔

有系统资源不用，这不是浪费吗？

再说了，自定义函数再好也不如程序自带的函数好何况对于容错判断数据类型等等都有一些弊端的。

放在WORD中用域计算，如果你精通EXCEL，那是肯定不会使用WORD来进行计算的。

我想问一下你看出我是用自动转化来解决，能回答我是用何方法来转化大小写的吗？

smart1078

Sub DX() If Me.TextBox1 = "" Then Exit Sub With Sheets(1) .[a2] = Me.TextBox1 * 1 Me.TextBox1 = .[b2] If .[c2] = .[b2] Then Me.TextBox2 = .[c3] & "圆整" Else Me.TextBox2 = .[c3] & "圆" & .[d3] & "角" & .[e3] & "分" End If End With End Sub 这是调用代码

=NUMBERSTRING(C2,2)

=NUMBERSTRING(D2,2)

=NUMBERSTRING(E2,2)

这分别是sheet1 [C3] [C4] [C5]单元格的函数。

以上代码有一个问题就是如果输入0.5或者0.05会出现"零圆伍角零分"“零圆零角伍分”这样的情况

[此贴子已经被作者于2004-10-18 8:36:01编辑过]

守柔

财务上的叫法我不熟,你修改一下就可以了.即判断一下如果小于一元,则以角分计 ,如果小于一角,则以分计.