excel导出内容居中大师帮忙看看

陈先生的

.版本 2
.支持库 eExcel2000

    Excel工作簿1.内容格式 ＝ “@”
    Excel工作簿1.字体大小 ＝ 14
    Excel工作簿1.列宽 ＝ 14


现在导出来是这样的，请问一下可以自适应列宽    跟内容居中吗

cobi

陈先生的 发表于 2024-11-9 14:32
大哥要是有空就帮我顺便修复一下超表双击编辑问题，现在框会跑来跑去
...

没问题啊，不过看你这些代码有点乱，执行效率不高，可以给点建议，比如 如果 (选择夹1.现行子夹 ＝ 0) 判断一次就行了，无需多次判断又执行，下面判断的也可以一同加入在这一个判断里面执行。
有些单判断的 如果 (选择夹1.现行子夹 ＝ 0) 可以直接改为  如果真 (选择夹1.现行子夹 ＝ 0) ，还有那个 超级列表框_保存配置 () 我没这个模块，如果要多地方重复使用的话可以添加一个子程序，把这些重复使用的代码放进去，需要用就直接用这个子程序执行一次就行了。
个别的比如 保存为EXCEL文件 你可以添加通用对话框让用户选择一个路径来保存(这个路径可以用配置项或注册表每次选择自动保存，然后每次打开都能选定这个路径)，而不是直接设定到了运行目录，那样用户找文件也麻烦。
至于那个双击超级列表框显示修改的“列表框”：
先设置这个 编辑框2 的属性：
编辑框2.高度 = 19
编辑框2.边框 = 0 ’无边框
然后 列表框 子程序内：
编辑框2.左边 ＝ 2 ＋ 列宽 － 抛出位置  ' 这个2可微调
编辑框2.顶边 ＝ 超级列表框1.现行选中项 × 14 ＋ 48 ' 这个48可微调
这个功能其实还有一些鸡肋，就是当超级列表框滚动的时候会有意想不到的效果.......所以你可以在双击显示这个编辑框时设置一下：
超级编辑框1.禁止 = 真
当这个编辑框失去焦点后：
超级编辑框1.禁止 = 假

好了，你这10精币太难赚了


补充内容 (2024-11-9 16:46):
后面的打错了是 超级列表框1 不是 超级编辑框1

147888123

用虫子哥的模块https://bbs.125.la/thread-14651601-1-1.html

cobi

加入：
Excel工作簿1.是否适应列宽 ＝ 真
Excel工作簿1.水平对齐方式 ＝ -4108

补充内容 (2024-11-9 11:13):
在你的代码 Excel工作簿1.列宽 ＝ 14 下一行加入即可。

陈先生的

cobi 发表于 2024-11-9 11:11
加入：
Excel工作簿1.是否适应列宽 ＝ 真
Excel工作簿1.水平对齐方式 ＝ -4108

变成这样了

cobi

陈先生的 发表于 2024-11-9 12:19
变成这样了

Excel工作簿1.是否适应列宽，这个影响了字体大小。

cobi

陈先生的 发表于 2024-11-9 12:19
变成这样了

加入：
Excel工作簿1.列宽 ＝ 20 '可自行调整数值

补充内容 (2024-11-9 13:13):
Excel工作簿1.置单元格边框 (1, 2, 0)
这个可以设置单元格边框，可按单个首单元格、尾单元格设置

陈先生的

cobi 发表于 2024-11-9 13:07
加入：
Excel工作簿1.列宽 ＝ 20 '可自行调整数值

好的，谢谢大哥

cobi

陈先生的 发表于 2024-11-9 13:29
好的，谢谢大哥

不客气，记得回来采纳哈~

陈先生的

cobi 发表于 2024-11-9 13:39
不客气，记得回来采纳哈~

边框没有效果