ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3297|回复: 10

[求助] 请高手们帮帮忙呀,急用!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-9-9 11:12 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
<P>请高手们帮帮忙</P>
<P>
<TABLE  cellSpacing=0 cellPadding=0 width=266 border=0 x:str>
<COLGROUP>
<COL style="WIDTH: 35pt; mso-width-source: userset; mso-width-alt: 1504" width=47>
<COL style="WIDTH: 52pt; mso-width-source: userset; mso-width-alt: 2208" width=69>
<COL style="WIDTH: 11pt; mso-width-source: userset; mso-width-alt: 480" span=10 width=15>

<TR  height=20>
<TD class=xl30  width=47 height=39 rowSpan=2><FONT face=宋体>数量</FONT></TD>
<TD class=xl30  width=69 rowSpan=2><FONT face=宋体>单价</FONT></TD>
<TD class=xl27  width=150 colSpan=10><FONT face=宋体>金  额</FONT></TD></TR>
<TR  height=19>
<TD class=xl24  height=19><FONT face=宋体 size=2>千</FONT></TD>
<TD class=xl24 ><FONT face=宋体 size=2>百</FONT></TD>
<TD class=xl24 ><FONT face=宋体 size=2>十</FONT></TD>
<TD class=xl24 ><FONT face=宋体 size=2>万</FONT></TD>
<TD class=xl24 ><FONT face=宋体 size=2>千</FONT></TD>
<TD class=xl24 ><FONT face=宋体 size=2>百</FONT></TD>
<TD class=xl24 ><FONT face=宋体 size=2>十</FONT></TD>
<TD class=xl24 ><FONT face=宋体 size=2>元</FONT></TD>
<TD class=xl24 ><FONT face=宋体 size=2>角</FONT></TD>
<TD class=xl24 ><FONT face=宋体 size=2>分</FONT></TD></TR>
<TR  height=19>
<TD class=xl25  height=19><FONT face=宋体> </FONT></TD>
<TD class=xl25 ><FONT face=宋体> </FONT></TD>
<TD class=xl31 ><FONT face=宋体> </FONT></TD>
<TD class=xl32 ><FONT face=宋体> </FONT></TD>
<TD class=xl32 ><FONT face=宋体> </FONT></TD>
<TD class=xl32 ><FONT face=宋体> </FONT></TD>
<TD class=xl32 ><FONT face=宋体> </FONT></TD>
<TD class=xl32 ><FONT face=宋体> </FONT></TD>
<TD class=xl32 ><FONT face=宋体> </FONT></TD>
<TD class=xl32 ><FONT face=宋体> </FONT></TD>
<TD class=xl32 ><FONT face=宋体> </FONT></TD>
<TD class=xl32 ><FONT face=宋体> </FONT></TD></TR></TABLE></P>
<P>金额部分为自动计算数量和单价的乘积,请教如何把计算出来的金额自动填充到金额栏。</P>
<P>(请附代码)小弟多谢!</P>
<P>小弟电邮<a href="mailtzhoukaixia@msn.com" target="_blank" >zhoukaixia@msn.com</A></P>
<P>若不方便公开发表,小弟一定保密!</P>

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-9 11:14 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
<P>计算出的金额按(千百十万千百十元角分)格式自动填充!</P><P>小弟很着急!希望大侠们赐教!</P>

TA的精华主题

TA的得分主题

发表于 2004-9-12 16:19 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
你按照个试验一下: 例如:  A1的值8      =TEXT(TRUNC(A1,0),"[dbnum2]g/通用格式")&amp;"元"

TA的精华主题

TA的得分主题

发表于 2004-9-12 16:42 | 显示全部楼层
<P>'***********************小写金额分栏处理过程*************************
'
'Amount为金额,rngTarget为目标存放单元格区域,可选参数blnFoutou确认是否加人民币符号
'
'
Sub AmountXiaoxie(Amount As Double, rngTarget As Range, Optional blnFengTou As Boolean = False)
    '定义封头
    Const Fengtou As String = "¥"
    '最大数字位数
    Const Bigdigit = 12
    '存放小写数据区域
    Dim strXiaoxie(Bigdigit) As String
    '临时字符串
    Dim strTemp As String
    '小写位数
    Dim DigitCount As Integer
    Dim i As Integer
    '小写数字区域
    Set rngXiaoxie = rngTarget
    '临时数字字符串
    strTemp = CStr(Int(Amount * 100))
    '数字位数
    DigitCount = Len(strTemp)
    '数据位数是否超出限制
    If DigitCount &gt; Bigdigit Then
        Exit Sub
    End If
    '为数组赋值过程
    i = Bigdigit
    Do Until DigitCount = 0
        strXiaoxie(i) = Mid(strTemp, DigitCount, 1)
        DigitCount = DigitCount - 1
        i = i - 1
    Loop
    '是否添加封头
    If blnFengTou Then strXiaoxie(i) = Fengtou
    '使用formulaarray属性为单元格区域赋值
    rngTarget.FormulaArray = strXiaoxie
   
End Sub</P><P>这是我下面这个帖子中的小写处理过程</P><P><a href="http://club.excelhome.net/viewthread.php?tid=35860&amp;replyID=129293&amp;skin=1" target="_blank" >http://club.excelhome.net/viewthread.php?tid=35860&amp;replyID=129293&amp;skin=1</A></P>

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-12 23:28 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
<P>hzg7817非常感谢,说实话我一句都看不懂!不过我觉得挺有意思,我想学习,但我不知道从哪学起,我该掌握哪些基础知识?从哪学起!</P>

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-12 23:33 | 显示全部楼层
<P>hzg7818版主,能不能手把手教我呀,收了我这个徙弟吧!我的QQ为100160080</P><P>email:   zhoukaixia@msn.com</P>

TA的精华主题

TA的得分主题

发表于 2004-9-12 23:51 | 显示全部楼层
<P>把你的实际文件传上来,我给你做个实例吧,通过实例再学习</P>

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-9-13 12:15 | 显示全部楼层

HZG7818谢谢你!这里是我的实便文件

<P>好的!下面这个是实例文件,行数太多,我把相同的删了!</P> ITLVzpgn.rar (2.93 KB, 下载次数: 35)

TA的精华主题

TA的得分主题

发表于 2004-9-13 19:31 | 显示全部楼层
标题错了个字,吓得好多人都不敢进来了。

TA的精华主题

TA的得分主题

发表于 2004-9-13 20:31 | 显示全部楼层

是这个吧

8Gz1f72L.rar (7.01 KB, 下载次数: 17)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-16 07:55 , Processed in 0.038352 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表