呵呵,數據放在表格中,更好一些,否則,即便使用書簽域,也不太好。
以下是我正在著手編寫的書中的案例,摘錄如下,供樓主參考:小寫(C26單元格):域代碼為: { =sum(O3,O8,O13,O18,O23) \#"0.0" }
大寫(D28單元格):域代碼為:{ IF { =INT(C26) } { =C26 } "{ =INT(C26) \* }元{ =({ =C26 } - { =INT(C26) }) *10 \* }角" "{ =C26 \* }元" }
對于這個大寫的域代碼,你也許感到有些繁,其實它是基于如果C26單元格的金額與其取整數據不等,則說明有角的存在(注意,本示例所有數據均精確到小數點后一位),因此,其數值應為取整后的C26單元格(元)和(C26值減去取整后的C26單元格數據)的10倍數的中文大寫值(\* 角),反之word里的數字如何轉換金額,則直接為C26的中文大寫數值。
注意IF域的寫法,INT函數的寫法,比較運算符的寫法,以及IF 域中夾帶文本和域的寫法。
這是另一章中關于復雜域計算中的案例:
如取得輸入數據的人民大寫數據的域代碼如下:
域代碼為: { ASK RMB "請輸入金額小寫數據" }'人機交互word里的數字如何轉換金額,手動輸入金額數據
{ SET RMB1 { =INT({ RMB }) } }'對金額取整
{ SET RMB2 { RMB \#"0.00" } }'對輸入數據截取到小數點后兩位數
{ SET Jiao { =INT(({ RMB2 }-{ RMB1 })*10) } }'定義角書簽"jiao"
{ SET fen { =({ RMB2 }-{ RMB1 }-{ JIAO }/10)*100 } }'定義分書簽"fen"
{ RMB1 }'察看取整金額,可省略
{ RMB2 }'察看截取的金額數據,可省略
{ JIAO }'察看角值,可省略
{ fen }'察看分值,可省略
{ IF { RMB2 } = { RMB1 } "{ RMB \* }圓整" { IF { fen } = 0 "{ RMB1 \* }圓{ jiao \* }角" "{ RMB1 \* }圓{ jiao \* }角{ fen \* }分"} }
[此貼子已經被作者于2005-10-21 7:10:44編輯過]