一段会计表格设计专用的神奇代码 - 分享给大家 【来自无名Xx】

王者路太艰难

  

子程序名	返回值类型	公开	备 注
高级表格初始

变量名	类 型	静态	数组	备 注
i	整数型

高级表格1.列数 ＝ 42
高级表格1.置列宽 (0, 50)
高级表格1.置列宽 (1, 40)
高级表格1.置列宽 (2, 30)
高级表格1.置列宽 (3, 30)
高级表格1.置列宽 (4, 60)
高级表格1.置列宽 (5, 100)
高级表格1.置列宽 (6, 200)
高级表格1.置列宽 (29, 50)
高级表格1.置数据 (1, 0, 1, “ 序 号 ”)
高级表格1.置数据 (1, 1, 1, “  年  ”)
高级表格1.置数据 (1, 2, 1, “ 月 ”)
高级表格1.置数据 (1, 3, 1, “ 日 ”)
高级表格1.置数据 (1, 4, 1, “子  目”)
高级表格1.置数据 (1, 5, 1, “ 号数 ”)
高级表格1.置数据 (1, 6, 1, “    摘    要    ”)
高级表格1.置数据 (1, 7, 1, “亿”)
高级表格1.置数据 (1, 8, 1, “千”)
高级表格1.置数据 (1, 9, 1, “百”)
高级表格1.置数据 (1, 10, 1, “十”)
高级表格1.置数据 (1, 11, 1, “万”)
高级表格1.置数据 (1, 12, 1, “千”)
高级表格1.置数据 (1, 13, 1, “百”)
高级表格1.置数据 (1, 14, 1, “十”)
高级表格1.置数据 (1, 15, 1, “元”)
高级表格1.置数据 (1, 16, 1, “角”)
高级表格1.置数据 (1, 17, 1, “分”)
高级表格1.置数据 (1, 18, 1, “亿”)
高级表格1.置数据 (1, 19, 1, “千”)
高级表格1.置数据 (1, 20, 1, “百”)
高级表格1.置数据 (1, 21, 1, “十”)
高级表格1.置数据 (1, 22, 1, “万”)
高级表格1.置数据 (1, 23, 1, “千”)
高级表格1.置数据 (1, 24, 1, “百”)
高级表格1.置数据 (1, 25, 1, “十”)
高级表格1.置数据 (1, 26, 1, “元”)
高级表格1.置数据 (1, 27, 1, “角”)
高级表格1.置数据 (1, 28, 1, “分”)
高级表格1.置数据 (1, 29, 1, “借或贷”)
高级表格1.置数据 (1, 30, 1, “亿”)
高级表格1.置数据 (1, 31, 1, “千”)
高级表格1.置数据 (1, 32, 1, “百”)
高级表格1.置数据 (1, 33, 1, “十”)
高级表格1.置数据 (1, 34, 1, “万”)
高级表格1.置数据 (1, 35, 1, “千”)
高级表格1.置数据 (1, 36, 1, “百”)
高级表格1.置数据 (1, 37, 1, “十”)
高级表格1.置数据 (1, 38, 1, “元”)
高级表格1.置数据 (1, 39, 1, “角”)
高级表格1.置数据 (1, 40, 1, “分”)
高级表格1.置数据 (1, 41, 1, “√”)
高级表格1.置对齐方式 (0, 0, 高级表格1.行数, 高级表格1.列数, #表格常量 .居中对齐)
' 高级表格1.合并 (0, 0, 0, 6)
' 高级表格1.置数据 (0, 0, 1, “  凭  证  信  息  ”)
高级表格1.合并 (0, 0, 0, 3)
高级表格1.置数据 (0, 0, 1, “会计科目:”)
高级表格1.置对齐方式 (0, 0, 0, 3, #表格常量 .左对齐)
高级表格1.合并 (0, 4, 0, 5)
高级表格1.置数据 (0, 4, 1, “明细科目:”)
高级表格1.置对齐方式 (0, 4, 0, 5, #表格常量 .左对齐)
' 高级表格1.合并 (0, 6, 0, 6)
高级表格1.置数据 (0, 6, 1, “子目:”)
高级表格1.置对齐方式 (0, 6, 0, 6, #表格常量 .左对齐)
高级表格1.合并 (0, 7, 0, 17)
高级表格1.置数据 (0, 7, 1, “  借  方  金  额  ”)
高级表格1.合并 (0, 18, 0, 28)
高级表格1.置数据 (0, 18, 1, “  贷  方  金  额  ”)
高级表格1.合并 (0, 29, 1, 29)
高级表格1.置数据 (0, 29, 1, “借或贷”)
高级表格1.合并 (0, 30, 0, 40)
高级表格1.置数据 (0, 30, 1, “    余      额    ”)
高级表格1.合并 (0, 41, 1, 41)
高级表格1.置数据 (0, 41, 1, “√”)
高级表格1.置单元格文字颜色 (0, 7, 高级表格1.行数, 17, #红色 )
高级表格1.置单元格文字颜色 (0, 18, 高级表格1.行数, 28, #蓝色 )
调试输出 (到文本 (高级表格1.取数据 (3, 29)))
高级表格1.表格线颜色 ＝ #墨绿
高级表格1.置行高 (0, 35)
高级表格1.置行高 (1, 30)
计次循环首 (高级表格1.行数, i)
如果 (到文本 (高级表格1.取数据 (i, 29)) ＝ “借”)
高级表格1.置单元格文字颜色 (i, 29, i, 29, #红色 )
高级表格1.置单元格文字颜色 (i, 29, i, 29, #蓝色 )

计次循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .子程序 高级表格初始<br /> .局部变量 i, 整数型<br /> <br /> 高级表格1.列数 ＝ 42<br /> <br /> 高级表格1.置列宽 (0, 50)<br /> 高级表格1.置列宽 (1, 40)<br /> 高级表格1.置列宽 (2, 30)<br /> 高级表格1.置列宽 (3, 30)<br /> 高级表格1.置列宽 (4, 60)<br /> 高级表格1.置列宽 (5, 100)<br /> 高级表格1.置列宽 (6, 200)<br /> 高级表格1.置列宽 (29, 50)<br /> 高级表格1.置数据 (1, 0, 1, “ 序 号 ”)<br /> 高级表格1.置数据 (1, 1, 1, “  年  ”)<br /> 高级表格1.置数据 (1, 2, 1, “ 月 ”)<br /> 高级表格1.置数据 (1, 3, 1, “ 日 ”)<br /> 高级表格1.置数据 (1, 4, 1, “子  目”)<br /> 高级表格1.置数据 (1, 5, 1, “ 号数 ”)<br /> 高级表格1.置数据 (1, 6, 1, “    摘    要    ”)<br /> 高级表格1.置数据 (1, 7, 1, “亿”)<br /> 高级表格1.置数据 (1, 8, 1, “千”)<br /> 高级表格1.置数据 (1, 9, 1, “百”)<br /> 高级表格1.置数据 (1, 10, 1, “十”)<br /> 高级表格1.置数据 (1, 11, 1, “万”)<br /> 高级表格1.置数据 (1, 12, 1, “千”)<br /> 高级表格1.置数据 (1, 13, 1, “百”)<br /> 高级表格1.置数据 (1, 14, 1, “十”)<br /> 高级表格1.置数据 (1, 15, 1, “元”)<br /> 高级表格1.置数据 (1, 16, 1, “角”)<br /> 高级表格1.置数据 (1, 17, 1, “分”)<br /> 高级表格1.置数据 (1, 18, 1, “亿”)<br /> 高级表格1.置数据 (1, 19, 1, “千”)<br /> 高级表格1.置数据 (1, 20, 1, “百”)<br /> 高级表格1.置数据 (1, 21, 1, “十”)<br /> 高级表格1.置数据 (1, 22, 1, “万”)<br /> 高级表格1.置数据 (1, 23, 1, “千”)<br /> 高级表格1.置数据 (1, 24, 1, “百”)<br /> 高级表格1.置数据 (1, 25, 1, “十”)<br /> 高级表格1.置数据 (1, 26, 1, “元”)<br /> 高级表格1.置数据 (1, 27, 1, “角”)<br /> 高级表格1.置数据 (1, 28, 1, “分”)<br /> 高级表格1.置数据 (1, 29, 1, “借或贷”)<br /> 高级表格1.置数据 (1, 30, 1, “亿”)<br /> 高级表格1.置数据 (1, 31, 1, “千”)<br /> 高级表格1.置数据 (1, 32, 1, “百”)<br /> 高级表格1.置数据 (1, 33, 1, “十”)<br /> 高级表格1.置数据 (1, 34, 1, “万”)<br /> 高级表格1.置数据 (1, 35, 1, “千”)<br /> 高级表格1.置数据 (1, 36, 1, “百”)<br /> 高级表格1.置数据 (1, 37, 1, “十”)<br /> 高级表格1.置数据 (1, 38, 1, “元”)<br /> 高级表格1.置数据 (1, 39, 1, “角”)<br /> 高级表格1.置数据 (1, 40, 1, “分”)<br /> 高级表格1.置数据 (1, 41, 1, “√”)<br /> 高级表格1.置对齐方式 (0, 0, 高级表格1.行数, 高级表格1.列数, #表格常量.居中对齐)<br /> ' 高级表格1.合并 (0, 0, 0, 6)<br /> ' 高级表格1.置数据 (0, 0, 1, “  凭  证  信  息  ”)<br /> <br /> 高级表格1.合并 (0, 0, 0, 3)<br /> 高级表格1.置数据 (0, 0, 1, “会计科目:”)<br /> 高级表格1.置对齐方式 (0, 0, 0, 3, #表格常量.左对齐)<br /> <br /> 高级表格1.合并 (0, 4, 0, 5)<br /> 高级表格1.置数据 (0, 4, 1, “明细科目:”)<br /> 高级表格1.置对齐方式 (0, 4, 0, 5, #表格常量.左对齐)<br /> <br /> ' 高级表格1.合并 (0, 6, 0, 6)<br /> 高级表格1.置数据 (0, 6, 1, “子目:”)<br /> 高级表格1.置对齐方式 (0, 6, 0, 6, #表格常量.左对齐)<br /> <br /> <br /> 高级表格1.合并 (0, 7, 0, 17)<br /> 高级表格1.置数据 (0, 7, 1, “  借  方  金  额  ”)<br /> 高级表格1.合并 (0, 18, 0, 28)<br /> 高级表格1.置数据 (0, 18, 1, “  贷  方  金  额  ”)<br /> 高级表格1.合并 (0, 29, 1, 29)<br /> 高级表格1.置数据 (0, 29, 1, “借或贷”)<br /> 高级表格1.合并 (0, 30, 0, 40)<br /> 高级表格1.置数据 (0, 30, 1, “    余      额    ”)<br /> 高级表格1.合并 (0, 41, 1, 41)<br /> 高级表格1.置数据 (0, 41, 1, “√”)<br /> 高级表格1.置单元格文字颜色 (0, 7, 高级表格1.行数, 17, #红色)<br /> 高级表格1.置单元格文字颜色 (0, 18, 高级表格1.行数, 28, #蓝色)<br /> <br /> 调试输出 (到文本 (高级表格1.取数据 (3, 29)))<br /> 高级表格1.表格线颜色 ＝ #墨绿<br /> 高级表格1.置行高 (0, 35)<br /> 高级表格1.置行高 (1, 30)<br /> .计次循环首 (高级表格1.行数, i)<br />     .如果 (到文本 (高级表格1.取数据 (i, 29)) ＝ “借”)<br />         高级表格1.置单元格文字颜色 (i, 29, i, 29, #红色)<br />     .否则<br />         高级表格1.置单元格文字颜色 (i, 29, i, 29, #蓝色)<br />     .如果结束<br /> <br /> .计次循环尾 ()

我自己觉得很有用，分享给大家一起保留着这份代码，万一有天用到就方便了许多

y2j423633

#表格常量  的内容是什么呢

信易达

266558

年月日上面的线不应该要的吧，那里是不是应该显示的会计科目名称？

鹏鹏2014

学习一下谢谢！

kyo9766

非常不错，也很漂亮，感谢分享

yuyang508

感谢分享 学习一下

78012342

感谢分享 学习一下

sampo

感谢楼主分享

f100long

努力学习 天天向上