各位帮忙给个免费的评分和打赏呗。祝大家新年快乐！！

理论优化~

  

子程序名	返回值类型	公开	备 注
取文字存于一行的长度	双精度小数型
参数名	类 型	参考	可空	数组	备 注
行号	整数型
列号	整数型

' 数学拟合函数计算长度（高级表格1.取字体名 (行号, 列号)，高级表格1.取字体尺寸 (行号, 列号)，高级表格1.取字体属性 (行号, 列号)）
' 需综合考虑以下情况：
' 1.字体名，不同的字体不知是否等宽，是否线性。
' 2.字体大小，这个不用多说，字体越大，占宽越大
' 3.字体属性（是否加粗，是否斜体）
' 4.文字实际长度
' 下面仅考虑了文字实际长度，是粗糙的，局限的函数
返回 (取文本长度 (高级表格1.取数据 (行号, 列号)) × 8)

子程序名	返回值类型	公开	备 注
_高级表格1_结束编辑

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
当前最大长度	双精度小数型		0
文字长度	双精度小数型

重定义数组 (当前最大长度, 假, 高级表格1.列数)
变量循环首 (1, 高级表格1.行数 － 1, 1, i)
变量循环首 (0, 高级表格1.列数 － 1, 1, j)
文字长度 ＝ 取文字存于一行的长度 (i, j)
如果真 (文字长度 ＞ 当前最大长度 [j ＋ 1])
当前最大长度 [j ＋ 1] ＝ 文字长度

变量循环尾 ()
变量循环尾 ()
变量循环首 (0, 高级表格1.列数 － 1, 1, j)
高级表格1.置列宽 (j, 当前最大长度 [j ＋ 1])
变量循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 取文字存于一行的长度, 双精度小数型<br /> .参数 行号, 整数型<br /> .参数 列号, 整数型<br /> <br /> <br /> ' 数学拟合函数计算长度（高级表格1.取字体名 (行号, 列号)，高级表格1.取字体尺寸 (行号, 列号)，高级表格1.取字体属性 (行号, 列号)）<br /> <br /> ' 需综合考虑以下情况：<br /> ' 1.字体名，不同的字体不知是否等宽，是否线性。<br /> ' 2.字体大小，这个不用多说，字体越大，占宽越大<br /> ' 3.字体属性（是否加粗，是否斜体）<br /> ' 4.文字实际长度<br /> <br /> ' 下面仅考虑了文字实际长度，是粗糙的，局限的函数<br /> 返回 (取文本长度 (高级表格1.取数据 (行号, 列号)) × 8)<br /> <br /> .子程序 _高级表格1_结束编辑<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 当前最大长度, 双精度小数型, , "0"<br /> .局部变量 文字长度, 双精度小数型<br /> <br /> <br /> 重定义数组 (当前最大长度, 假, 高级表格1.列数)<br /> <br /> .变量循环首 (1, 高级表格1.行数 － 1, 1, i)<br />     .变量循环首 (0, 高级表格1.列数 － 1, 1, j)<br />         文字长度 ＝ 取文字存于一行的长度 (i, j)<br />         .如果真 (文字长度 ＞ 当前最大长度 [j ＋ 1])<br />             当前最大长度 [j ＋ 1] ＝ 文字长度<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> <br /> .变量循环首 (0, 高级表格1.列数 － 1, 1, j)<br />     高级表格1.置列宽 (j, 当前最大长度 [j ＋ 1])<br /> .变量循环尾 ()

支持开源~！感谢分享

看看哈~不知道有帮助吗

支持开源~！感谢分享

支持开源~！感谢分享

真值得学习，感谢！......

感谢分享，很给力！~

感谢分享!

谢谢楼主，学习下！

感谢分享