啊拉伯筹大学数子1到10的函意

来源：蜘蛛抓取(WebSpider) 时间：2015-11-24 05:01 标签： 啊拉伯
访问本页面，您的浏览器需要支持JavaScript查看: 3303|回复: 4
中文数字转为阿拉伯数字，下面表格函数如何变成vba？
高级二, 积分 2041, 距离下一级还需 409 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
已知：=MATCH(&二十一&,TEXT(ROW(1:100),&[dbnum1]&),0)& &（三键输入：ctrl+ shift+ enter）
& &&&我想得出一个自定义函数，用VBA计算出来，如：阿拉伯数字(&二十一&)=21
请问如何写呢？
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 227, 距离下一级还需 23 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
Function looy(a As Range)
& & Dim i As Long, b As String
& & For i = 1 To 100
& && &&&b = Application.WorksheetFunction.Text(i, &[dbnum1]&)
& && &&&If a.Value = b Then
& && && && &looy = i
& && && && &Exit For
& && &&&End If
& & Next i
End Function复制代码试试:
让我有所启发，感觉感谢！
学office，哪能不关注全网最大的Office类微博（新浪）
高级二, 积分 2041, 距离下一级还需 409 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
hopeson2010 发表于
感谢思路，但是不对：
学office，哪能不关注全网最大的Office类微博（新浪）
高级二, 积分 2041, 距离下一级还需 409 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 chenlifeng 于
08:45 编辑
抱歉，一大早来看花了头，把代码写到了thisworkbook中去了……
答案正确！
& & 不足之处是：如果数字较大，如五十亿，我们改成的for循环，也得这么大，一个是速度严重不行，二个是，无法在VBA编辑器中输入一个这么大的数字了，倍数一多，后面就变成了#号; 三是，在word中，如何修改哈？
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
谢谢补充:)
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byPHP将阿拉伯数字转化为汉字的函数
有木有遇到财务相关的开发，好端端的阿拉伯数字，非得整成汉字形式显示，这也就罢了，还得整成繁体汉字。很苦恼吧。下面将和你分享一下本人遇到需要利用PHP将阿拉伯数字转化为汉字时的处理办法，可以总结为一个函数，具体自己研究去吧。
function num2char($num,$mode=true){
$char = array('零','一','二','三','四','五','六','七','八','九');
//$char = array('零','壹','贰','叁','肆','伍','陆','柒','捌','玖);
$dw = array('','十','百','千','','万','亿','兆');
//$dw = array('','拾','佰','仟','','萬','億','兆');
$dec = '点';
//$dec = '點';
$retval = '';
if($mode){
preg_match_all('/^0*(\d*)\.?(\d*)/',$num, $ar);
preg_match_all('/(\d*)\.?(\d*)/',$num, $ar);
if($ar[2][0] != ''){
$retval = $dec . ch_num($ar[2][0],false); //如果有小数，先递归处理小数
if($ar[1][0] != ''){
$str = strrev($ar[1][0]);
for($i=0;$i&strlen($str);$i++) {
$out[$i] = $char[$str[$i]];
if($mode){
$out[$i] .= $str[$i] != '0'? $dw[$i%4] : '';
if($str[$i]+$str[$i-1] == 0){
$out[$i] = '';
if($i%4 == 0){
$out[$i] .= $dw[4+floor($i/4)];
$retval = join('',array_reverse($out)) . $
使用示例：
echo '3：'.num2char('3');//您可能感兴趣的文章转载请注明出处：本文永久地址：文章来源：-わ千与千寻上一篇：下一篇：热门文章随机文章自定义函数：阿拉伯数字转换中文大写数字_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
自定义函数：阿拉伯数字转换中文大写数字
上传于||文档简介
&&将​下​面​的​代​码​保​存​成​b​a​s​文​件​,​然​后​再​V​B​E​中​导​入​成​模​块​,​即​可​使​用​此​自​定​义​函​数​R​M​B​D​X​:​[​如​=​R​M​B​D​X​(​A)​]​
​
​也​可​以​将​下​面​的​代​码​直​接​复​制​进​模​块​里​,​只​要​把​生​成​模​块​时​的​第、、行​的​红​色​字​体​删​除​就​可​使​用​此​自​定​义​函​数​R​M​B​D​X​:​[​如​=​R​M​B​D​X​(​A)​]
大小：4.28KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢访问本页面，您的浏览器需要支持JavaScript

我要回帖

更多关于 啊拉伯 的文章

 

随机推荐