合并单元格自动调整行高小工具【加载宏】 更新2018-1-4

ggmmlol

zhy9086 发表于 2018-11-21 15:32
如何设置为默认开启状态，楼主能否帮个忙，谢谢了！VBA不太懂。

从你第一个回复就看到了，但不回复是因为你的这个要求是没有道理的：
第一、手动开启本它，并不复杂；
第二、此自动工具开启后，只要你不关闭它，就一直自动运行。但是，由于没有设计恢复、撤销功能，它可能导致你此前的编辑步骤不能恢复、撤销。因此，建议只在需要的时候手动开启它，用完立即关闭。

第三、最好的方式，是先输入完成数据，并且设置好合并单元格，然后再选中含有合并单元格的整个区域，全部替换逗号为逗号（即替换成原样），这种替换，相当于对该区域的单元格全部进行了一次编辑，而此自动工具在替换的过程中将会对应批量调整行高。

zhy9086

ggmmlol 发表于 2018-11-21 16:16
从你第一个回复就看到了，但不回复是因为你的这个要求是没有道理的：
第一、手动开启本它，并不复杂；
...

谢谢回复！我理解你的意思，在excel启动后打开自动行高的开关，在这个程序下编辑表格时，这个功能是一直开启的；但当我把excel软件关闭后打开另外一个文件时又需要重新开启这个功能。
另外，我想试试我们DPM反写excel表格时，内容填写完成后能否自动调整行高，因为我们的PDM每反写完一个表格就会关闭软件并重启excel反写另外一个，而且启动和关闭都是自动的，我没办法手动去打开这个开关，我们的表格内容不多，但文件数量不少。用上一个版本的宏会出错（同一合并单元格中有不同字符）。再次感谢!

zhy9086

ggmmlol 发表于 2018-11-21 16:16
从你第一个回复就看到了，但不回复是因为你的这个要求是没有道理的：
第一、手动开启本它，并不复杂；
...

如果这个开关能记忆上一次关闭软件时的状态那就非常好了。

ksec_zc

ggmmlol 发表于 2018-1-4 16:32
关于加载宏文件的使用，这里简单介绍一下：
复制以下内容，按 Windows键+R键，打开“运行”对话框，按Ctrl ...

你好，该vba宏，能不能仅仅针对某个excel加载

ggmmlol

ksec_zc 发表于 2018-11-23 08:17
你好，该vba宏，能不能仅仅针对某个excel加载

自己改一下代码，当然可以就可以。
工具本来就有手动开关，你只需要再加上一道“自动”开关。
比如以活动工作簿的名称为条件（以下例子，使原代码只在工作簿名称中包含“销售”两个字符时，才会运行。

if ActiveWorkbook.Name like "*销售*"表 then
     原代码
end if

而前面53楼的朋友与你的想法相反，他希望工具总是自动运行，那就把原代码中的 "If 条件 then (执行部分）……end if"条件语句去掉，只保留 执行部分 的语句， 就成为无条件运行了。

总之，VBA并不难，自己动手修改一下，就可以满足自己的特殊要求。这和抄公式，没有什么两样。

zhy9086

多谢楼主！                    

zhy9086

楼主，请问有些单元格自动调整后打印预览显示不全，如何解决呢？还是只能再次手动调整。

旺旺旺旺旺旺wh

天涯有蔷薇 发表于 2018-11-13 23:20
通过添加ActiveWorkbook.ActiveSheet.Range仍无法解决前述问题

我也遇到相同的问题，你的解决了吗？怎么解决的？谢谢。我也是EXCEL2010

s52496240

加载宏以后表格里的复制粘贴功能失效了？ 关闭就恢复正常，哪里冲突了吗？

riataho

ggmmlol 发表于 2018-1-13 19:22
谢谢反馈。
64位EXCEL中，在VBA里调用32位的API时，需要 在Declare 后面添加 一个关键词 PtrSafe。

您好，请问这个加载宏适用于365版本吗？我刚才依据您的方法添加宏后，未能看到合并单元格能自动调整行高，不晓得是否我操作有误。