使用域自动填充功能完成人民币金额大写.doc

1使用域自动填充功能完成人民币金额大写使用域自动填充功能完成人民币金额大写By：守柔 金额大写中，对于整数金额，可以直接通过【插入】/【数字】命令，在打开的【数字】对话 框中选取为“壹，贰，叁…”数字类型（设置数字格式）即可实现对于小数部分，原理也是设 置数字格式，只是把角分数据提取出来后再设置其格式 说明： ①可以将该嵌套域代码保存于自动图文集中以方便调用 ②可在单元格中填充该域代码 ③具有正负数自动识别功能 ④自动四舍五入 ⑤最大金额绝对值为 214,748,364,7金额数据金额数据千分位分隔样式千分位分隔样式金额大写金额大写0￥ 0.00零圆整10000￥10,000.00壹万圆整2006.48￥2,006.48贰仟零陆圆肆角捌分2006.489￥2,006.49贰仟零陆圆肆角玖分2006.048￥2,006.05贰仟零陆圆伍分2006.40￥2,006.40贰仟零陆圆肆角整2006.999￥2,007.00贰仟零柒圆整-2006(￥2,006.00)负贰仟零陆圆整-2006.48(￥2,006.48)负贰仟零陆圆肆角捌分{ SET Data { ={ Quote “A{ ={ SEQ Z }+1 }“ } } }{ SET JinE { =ABS(Data) \#“0.00“ } }{ SET Yuan { =INT(JinE) } }{ SET Jiao { =INT(JinE*10-Yuan*10) } }{ SET Fen { =INT(JinE*100- Yuan*100-Jiao*10) } }{ IF Data < 0 “负“ ““ }{ IF Yuan = JinE “{ =Yuan \*CHINESENUM2 }圆整 “ { IF Fen = 0 “{ =Yuan \*CHINESENUM2 }圆{ =Jiao \*CHINESENUM2 }角整“ { IF Jiao = 0 “{ =Yuan \*CHINESENUM2 }圆{ =Fen \*CHINESENUM2 }分“ “{ =Yuan \*CHINESENUM2 }圆{ =Jiao \*CHINESENUM2 }角{ =Fen \*CHINESENUM2 }分“ }} }为便于大家学习，我来给守柔的域代码注释一下：{ SEQ Z }取得一个以“Z”为标签的编号域{ ={ SEQ Z }+1 }为编号域起始数+1，单元格计算从第 2 行开始A{ ={ SEQ Z }+1 }2转换为单元格地址 A2，如果单元格不在 A 列则将 A 改为其他列号{ Quote “A{ ={ SEQ Z }+1 }“ }动态引用行标{ ={ Quote “A{ ={ SEQ Z }+1 }“ } }取得对于该单元格地址数据的引用{ SET Data { ={ Quote “A{ ={ SEQ Z }+1 }“ } } }将动态单元格数据赋值给“Data”书签域或称为变量名{ =ABS(Data) \#“0.00“ }为“Data”取绝对值并设置数据格式为保留两位小数，自动四舍五入{ SET JinE { =ABS(Data) \#“0.00“ } }将{ =ABS(Data) \#“0.00“ }的结果赋值给“JinE”书签域{ SET Yuan { =INT(JinE) } }将取整后的金额数据赋值给“Yuan”书签域{ SET Jiao { =INT(JinE*10-Yuan*10) } }将金额的角值赋于“Jiao”书签域{ SET Fen { =INT(JinE*100-Yuan*100-Jiao*10) } }将金额的分值赋于“Fen”书签域{ IF Data < 0 “负“ ““ }如果“Data”值（即单元格数据）小于 0，显示为“负” ，否则为“” （空空）{ IF Yuan = JinE “{ =Yuan \*CHINESENUM2 }圆整“ }如果没有角分，即数据取整前后相等，则为“圆整”形式{ IF Fen = 0 “{ =Yuan \*CHINESENUM2 }圆{ =Jiao \*CHINESENUM2 }角整“ }如果分值为 0，则域结果为“圆角整”形式{ IF Jiao = 0 “{ =Yuan \*CHINESENUM2 }圆{ =Fen \*CHINESENUM2 }分“ “{ =Yuan \*CHINESENUM2 }圆{ =Jiao \*CHINESENUM2 }角{ =Fen \*CHINESENUM2 }分“ }如果角值为 0，则域结果为“圆分”形式，否则为“圆角分”形式如果说人民币金额大写本身不是特别难，只是繁些而已，而域代码如果说人民币金额大写本身不是特别难，只是繁些而已，而域代码{ { ={={ QuoteQuote “A{“A{ ={={ SEQSEQ Z Z }+1}+1 }“}“ } } } } 则是整则是整个代码的灵魂和精华所在，通过它，用户可以直接复制整个域代码，更新后将自动取得所有相应单元格的大写数据，个代码的灵魂和精华所在，通过它，用户可以直接复制整个域代码，更新后将自动取得所有相应单元格的大写数据，即自动动态填充单元格域代码（动态引用单元格地址）即自动动态填充单元格域代码（动态引用单元格地址） 。

Word 中动态引用单元格地址，我只看到守柔有两个贴子中，而这个更全面到位，应该是首创，所以，支持一下守柔。