如何能使小写金额数字每位落在元角分并实现基本信息的模糊查找！

wjh2227995 · 发表于 2006-7-20 18:40

现在主要的问题是实现商品信息的模糊查找功能，如何是附件EXCEL表实现如下GIF的体现的功能？

MILCbJkN.rar (101.28 KB, 下载次数: 15)

[此贴子已经被作者于2006-8-7 12:51:27编辑过]

qian_zzk · 发表于 2006-7-21 06:46

假设 数字输入A7单元格， 在H7单元格自动生成中文大写金额 侧在H7单元格输入公式： =IF((A7-INT(A7))=0,TEXT(A7,"[DBNUM2]")&"元整",IF(INT(A7*10)-A7*10=0,TEXT(INT(A7),"[DBNUM2]")&"元"&TEXT((INT(A7*10)-INT(A7)*10),"[DBNUM2]")&"角整",TEXT(INT(A7),"[DBNUM2]")&"元"&IF(INT(A7*10)-INT(A7)*10=0,"零",TEXT(INT(A7*10)-INT(A7)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A7,1),"[DBNUM2]")&"分"))

wjh2227995 · 发表于 2006-7-21 13:22

我并不是要实现小写转大写,而是要实现他如何落在“元”、“角”、“分”等金额上请务必下载该EXCEL文件(附件)才能全面体会我的要求！

[此贴子已经被作者于2006-7-21 13:23:28编辑过]

sjs2001aq · 发表于 2006-7-21 18:20

下载了也还是没看懂，居中对其不就ok了噻！

dgsun · 发表于 2006-7-21 20:30

好好学习

wjh2227995 · 发表于 2006-7-22 10:20

我不是要小写转大写,而是要小写金额单独并分别落在不同的单元格阿!根居不居中有什么关系阿!这个表要用的宏,不是一两句就摆平的!我这里有一个朋友帮我作了一个,不是用宏,但是我感觉比较繁琐,你看一下,就知道为什么!你根本都没有理解!

1C1AFMPg.rar (11.34 KB, 下载次数: 33)

gstscmh · 发表于 2006-7-22 11:36

我有这样一个程序,太大无法上传,你想要看的话请联系<a href="mailto:tscmh@vip.sina.com">tscmh@vip.sina.com</a>QQ:495651568

gly1126 · 发表于 2006-7-23 21:57

'数值解析 '默认总位数为7,即百万元 '该公式为区域公式,返回值为数组,输入时按数组公式输入计算'可解决元角分分位填列问题 Function szjx(数值 As Double, Optional 总位数 As Integer = 7)     temp = Application.Text(Round(数值 + 0.000001, 2), "0.00")     temp = Replace(temp, ".", "")     nws = 总位数 - Len(temp) + 2     For i = 1 To Len(temp)         strtemp = strtemp & Mid(temp, i, 1) & ","     Next i     temp = Left(strtemp, Len(strtemp) - 1)     temp = String(nws, ",") & temp     temp = Split(temp, ",")     szjx = temp End Function

qiyue_777 · 发表于 2006-7-24 13:39

好像不用宏也能做吧使用rept函数就可以了阿，假设A1 为小写金额，最大位在千万=MID（REPT（“ ”，10-LEN（$A$1*100))&$A$1*100,COLUMN(A1),1)就OK了

[此贴子已经被作者于2006-7-24 13:52:51编辑过]

qiyue_777 · 发表于 2006-7-24 13:54

刚才没能上传

2ML80mOB.rar (14.14 KB, 下载次数: 46)

		自动登录	找回密码
密码			免费注册

[求助] 如何能使小写金额数字每位落在元角分并实现基本信息的模糊查找！