excel 22:45改成贰拾贰时肆拾伍分_百度知道
excel 22:45改成贰拾贰时肆拾伍分
提问者采纳
设置单元格格式，就行了，自定义，框中输入[DBNum2]hh时mm分确定如果22，选中A1，右击:45在A1单元格
提问者评价
其他类似问题
按默认排序
其他4条回答
&quot,&通用格式&点&分&[DBNUM2]G/通用格式&&TEXT(MINUTE(a1);&&&&[DBNUM2]G&#47如果数据在a1则在b1中输入=TEXT(HOUR(a1)
你的当前单元格格式是EXCEL默认的单元格格式，选中该单元格,右击→设置单元格格式,选择你所需要的格式，确定就行了。
你是做会计的吧,我告诉你吧，你把分给我，详细如下： 如果单元格H14是小写在Excel中先写上123.45，右键，设置单元格格式，数字 ，特殊.
我试了，楼上山桑弓的方法能行。
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb怎样小写人民币转大写,例如:28.30转换为零仟零伯贰拾捌圆叁角零分_百度知道
vb怎样小写人民币转大写,例如:28.30转换为零仟零伯贰拾捌圆叁角零分
提问者采纳
拾&0&quot, 4)
zhengshu = zhengshu & shuduantoCharacter(shuduan) & &没有小数点：Option ExplicitPublic Function NumberToCharacter(number As String) As String
NumToChr = &有千位
answer = NumToChr(Left(
If Pos_Point &零&&
Case &&0& Then
answer = Left(
NumToChr = &处理小数部分
If Pos_Point = 0 Then
' &佰&拾&quot, Len(answer) - 1)
ElseIf Len(duan) = 1 Then
'2&&零&
NumToChr = & &quot, 1)) & & Then
NumberToCharacter = &零&
' Then
answer = answer & & &圆& Then
answer = Left(
answer = answer & &7&quot，1234;& 14 Then
If curNum &lt, 1) &零& Then
answer = answer & NumToChr(curNum) & &万&零&quot, 1)
If curNum & &有个位
answer = NumToChr(Left(
Case &取第一位
curNum = Right(&gt，不作处理
ElseIf Len(number) = Pos_Point + 1 Then
NumToChr = & Then
answer = answer & NumToChr(curNum)
If Right(answer, Len(answer) - 1)
ElseIf Len(duan) = 4 Then
&#39, 1)) & & Then
answer = Left(
Case &取第二位
curNum = Left(Right(角&quot, 4)
zhengshu = zhengshu & shuduantoCharacter(shuduan) & & &柒&参&零&一位小数;零&&gt，否则译为“角”
If curNum &&例如;零&quot，你可以再做一些修整;仟&quot, 1) = &quot我见过这样的程序; Then
answer = answer & &拾&quot, 1)
If curNum & Then
answer = answer & NumToChr(curNum)
If Right(圆&0&分& Then
answer = answer & &
';拾&quot, 1) &0&0& &捌& &
Case &quot。源程序如下;0&
&#39，1234Public Function shuduantoCharacter(duan As String) As String
Dim curNum As String
Dim answer As String
answer = &仟&&完成转换的主函数
Dim Pos_Point As Long
'肆&quot, 1)
If curNum &lt, 2);万位以下部分
shuduan = Right(Left(大于 9 的数据不转换
MsgBox &该数据无法转换&圆&quot, 3), 1)) & &玖&若第二为零;&
&#39, 1) = & Then
NumberToCharacter = NumToChr(curNum) & &有万位
answer = NumToChr(Left(duan, &零&万&quot，' Then
answer = answer & NumToChr(curNum) & &
'5&以小数点结尾;十位
curNum = Left(Right(零&quot。命名可能不是太规范，特殊处理
If NumberToCharacter = &quot, 2); &
Case &quot, 1)
If curNum &佰&圆&quot，直接翻译为角
curNum = Right(number, 1)
If curNum &lt，则不作处理;
Case &quot, 1) = &quot, 1) & Then
answer = answer & &记录当前处理的数字
Dim zhengshu As String
NumToChr = &亿位以上的部分
shuduan = Left(
Exit Function
ElseIf Pos_Point &伍&零&
Case &quot, 1)
If curNum &lt，可用;
If Right( Then
answer = answer & NumToChr(curNum) & &quot, &quot, 1) &个位
curNum = Right(duan, Pos_Point - 5).&quot, 2), 1)) & &
NumberToCharacter = zhengshu & NumberToCharacter
If Len(duan) = 5 Then
NumToChr = &
'8&quot，否则译为“分”
If curNum &lt, Pos_Point - 9)
zhengshu = shuduantoCharacter(shuduan) & zhengshu
'万位以上的部分
shuduan = Right(Left(number, 2);0&零圆&
NumToChr = &若第一位为零, 4)
zhengshu = zhengshu & shuduantoCharacter(shuduan) & &quot，不作处理; Then
answer = answer & NumToChr(curNum) & &佰&万位以上的部分
shuduan = Right(Left( Then
answer = answer & NumToChr(curNum) & &0&quot, Pos_Point - 5); &零& &quot, Pos_Point - 1);零&截取某一个数据段
' & NumberToCharacter
'角&检索小数点的位置
Pos_Point = InStr(有百位
answer = NumToChr(Left(duan, 4);
NumToChr = &处理整数
zhengshu = &有十位
answer = NumToChr(Left(duan, 1)
If curNum &
If Right(answer, 1)
NumberToCharacter = NumToChr(curNum) & &陆&)
'& Then
answer = answer & NumToChr(curNum)
If Right( & 9 Then
zhengshu = &金额转换&百位
curNum = Left(Right(零& Then
answer = answer & NumToChr(curNum)
If Right(answer: 4被分为12345，将小数点设置在最末尾
Pos_Point = Len(number)
ElseIf Len(number) = Pos_Point Then
'9&quot, Len(answer) - 1)
ElseIf Len(duan) = 3 Then
'数字转化为对应的中文
Select Case num
Case &个位
curNum = Right(
If Right(记录小数点的位置
Dim curNum As String
curNum = Right(Left( & &quot, Pos_Point - 1), 1)
If curNum &lt, 4)
zhengshu = zhengshu & shuduantoCharacter(shuduan) & & Then
answer = answer & & &
NumToChr = &百位
curNum = Right(Left(&gt, 1) &lt, 1) = &
If Right(answer, 1)
' 5 Then
&#39, Pos_Point - 1);零&quot, 4)
zhengshu = zhengshu & shuduantoCharacter(shuduan) & & &万位以下部分
shuduan = Right(Left(输入为“0”;
'0& Then
NumberToCharacter = NumToChr(curNum) & &
End FunctionPublic Function NumToChr(num As String) As String
NumToChr = &贰&&
ElseIf Len(number) = Pos_Point + 2 Then
&#39, Len(answer) - 1)
ElseIf Len(duan) = 2 Then
'&零&1&万位以下
shuduan = Right(Left(
End Select
End Function'个位
curNum = Right(0&亿& Then
answer = answer & NumToChr(curNum) & &;万&quot, 1)
If curNum &&对分节后的每一节数据进行翻译;0&quot, vbOKOnly + vbI &十位
curNum = Left(Right( &壹&& Then
answer = Left(3&
'&gt，所以自己写了一个;
Case &个位
curNum = Right(duan, 3);千位
curNum = Right(Left(
&#39，已经测试;
ElseIf Pos_Point &记录整数部分
Dim shuduan As String
'6&&gt，等找到了再回答你一时找不到那本书了
提问者评价
很感谢！！！
其他类似问题
按默认排序
其他1条回答
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁肆拾柒万玖仟玖佰柒拾壹元贰角整的小写怎么表示？_百度知道
肆拾柒万玖仟玖佰柒拾壹元贰角整的小写怎么表示？
肆拾柒万玖仟玖佰柒拾壹元贰角整的小写怎么表示？用阿拉伯数字表示的，单位是元
我有更好的答案
按默认排序
楼主你好，换成阿拉伯数字是
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁第一章 在填写月、日时，月为壹、贰和壹拾的，日为壹至玖和壹拾、贰拾和叁拾的，应..
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
第一章 在填写月、日时，月为壹、贰和壹拾的，日为壹至玖和壹拾、贰拾和叁拾的，应在其前加零；日为拾壹至拾玖的，应在其前面加壹。票据出票日期使用小写填写的，银行不
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口北京工业大学2013年专用教学设备政府采购项目（第9、14、17~20、22、23、25~34包）中标公告
201391417~20222325~34BJJQ-1417~20222325~341003B/823（详见招标文件）。/.2013091220131015967B603-B604 1488810 1718B 18128416
20113A411222217D23128416 2521161 262217D 2712841628562-607 298302217D31W21132128416 331284163467B603-B604 [ /823&http://www.http://www./zfcg/index.htmhttp://www.hcjq.net/&20131015