如何在EXCEL中设置金额大写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

{" ㈠、委托房产于认证基准日按同地段普通商品住房计算认证价格（大写）："&CUMoney([商品房价格])}

CUMONEY不能被识别？

晕怎么办？在这卡住了！有什么变通的办法吗？如增加一个列，直接将它变成金额大写后再引用？可是我在表属性中设置了某一列内容变化后执行事件不行啊！

if e.datacol.name="商品房单价" then
e.datarow("商大写")=CUMoney("商品房价格")
e.datarow("差大写")=CUMoney("认证差价")
end if

[此贴子已经被作者于2008-10-15 8:30:55编辑过]

另外日期转中文大写也不行，可否提供相应函数？如：二○○八年十二月二十日

㈠、委托房产于认证基准日按同地段普通商品住房计算认证价格（大写）："&CUMoney([商品房价格])

：号前的文字是固定的，但大写金额不是固定的，且要紧跟：号后面，还要加上（￥0.000）这样的标记，在单元格中如何实现。建议增加以上两个函数。

[此贴子已经被作者于2008-10-15 9:43:52编辑过]

Vars.Add("商大写",GetType(string),CUMoney("商品房价格"))
Vars.Add("差大写",GetType(string),CUMoney("认证差价"))

这样写对吗？

然后：

{" ㈠、委托房产于认证基准日按同地段普通商品住房计算认证价格（大写）："&[!商大写]}

是吗？

此主题相关图片如下：qq截图未命名.jpg

以下是引用狐狸爸爸在2008-10-15 10:21:00的发言：
你完全乱套了，强烈建议你重新复习两次帮助！

在afteropenproject事件中增加两个变量:
Vars.Add("商大写",GetType(string))
Vars.Add("差大写",GetType(string))

自己一个打印报表的按钮：

Vars("商大写")= CUMoney(CurrentTable.Current("商品房价格"))
Vars("差大写")= CUMoney(CurrentTable.Current("认证差价"))

Dim Book As New XLS.Book(ProjectPath & "Attachments\文件名.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()

[此贴子已经被作者于2008-10-15 10:21:30编辑过]

该代码使用后，当商品房价格变动后，但变量没变，第一次用行，变动后不行了，如我改动单价后，商品房价格就变了，但生成的报表还是没改动之前的金额。

[商品房价格]是公式列。

[此贴子已经被作者于2008-10-15 14:17:34编辑过]

此主题相关图片如下：qq截图未命名.jpg

[此贴子已经被作者于2008-10-16 10:54:56编辑过]

主题：如何在EXCEL中设置金额大写？