[原创+方法]高级表格自动调整列宽 完美显示效果

josn

真的超好用哦，这个是高级表格的自动调列宽，不是超级列表框。


所谓的自动调列宽，就是将单元框的列宽度，根据文本的长度自动调整到宽度相同，将文字全部显示出来。

如果文本很长的话，可以加个判断，限制住最大的列宽就行了。
将所有单元格的文本长度加入数组进行排序，取最大的一个。


更详细的说明：
.版本 2
.支持库 eGrid

.子程序 _高级表格1_结束编辑
.局部变量 循环次数, 整数型
.局部变量 a, 整数型
.局部变量 列宽数组1, 整数型, , "0", 第一列
.局部变量 列宽数组2, 整数型, , "0", 第二列


数组清零 (列宽数组1)  ' 数组初始化
数组清零 (列宽数组2)  ' 数组初始化

循环次数 ＝ 高级表格1.行数 － 1  ' 除去第一行的表头

.计次循环首 (循环次数, a)
    加入成员 (列宽数组1, 取文本长度 (高级表格1.取数据 (a, 0)))
    加入成员 (列宽数组2, 取文本长度 (高级表格1.取数据 (a, 1)))
.计次循环尾 ()

数组排序 (列宽数组1, 假)  ' 以大到小的方式排列数组
数组排序 (列宽数组2, 假)  ' 以大到小的方式排列数组

高级表格1.置列宽 (0, 列宽数组1 [1] × 8)  ' 获取数组首个成员放大8倍，可以自己调整自己喜欢的。
高级表格1.置列宽 (1, 列宽数组2 [1] × 8)  ' 获取数组首个成员放大8倍，可以自己调整自己喜欢的。

josn

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

明天自然醒

理论优化~

  

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

' 数学拟合函数计算长度（高级表格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 /> .变量循环尾 ()

q183550659

支持开源~！感谢分享

yongxuan

看看哈~不知道有帮助吗

emugba

支持开源~！感谢分享

六先生

支持开源~！感谢分享

396384183

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

一指温柔

感谢分享，很给力！~

shj0205

感谢分享!

治愈勇者

谢谢楼主，学习下！

1347379245

感谢分享