请问可以用vba判断单元格是否能显示全部内容吗

yangjxi

由于工作需要将excel的文档打印在固定格式的预印制合同上，比如某单元格（这个单元格的大小固定不变）存放的是居住地址数据，每个客户的地址长度差异很大，想要达到的目的是单元格大小不变的情况下用vba通过调整单元格字符大小以及换行实现地址打印出来是字体最大而又能在预制定合同中全部打印出来。我的想法是初始设定一个最大的字体，然后判断内容是否能在单元格中全部显示，如果不能就进行换行，如果还是不行就逐步缩小字体，直至能容纳；不过没能找到判断单元格是否能够显示内容的方法，还望赐教！

lizhipei78

设置单元格为自动换行就可以了，会根据内容改变单元格的行高

perfect131

可以判断，参考
https://club.excelhome.net/threa ... tml?_dsign=953d5959

yangjxi

lizhipei78 发表于 2024-1-7 10:06
设置单元格为自动换行就可以了，会根据内容改变单元格的行高

不行呢，因为单元格对应的是预印制合同的填写区域，大小是固定了的，只能在自动换行的基础上调整字符大小使之可以在单元格内显示

yangjxi

perfect131 发表于 2024-1-7 11:43
可以判断，参考
https://club.excelhome.net/thread-1661066-1-1.html?_dsign=953d5959

受到了启发，谢谢！

yangjxi

今天试了一下，单元格设成自动换行，然后通过统计总字数来确定字体大小来满足所有字符全部在固定的单元格显示。问题来了，当单元格引用的数据存在较长数字的时候且数字本来的行末就有可能自动放到下一行开始处，这样有可能影响到单元格后面的内容显示不全了。请问有没有好一点的解决方法。如果在vba里可以得到单元格里的字符的实际行数，这就会好办了，不过没找到相关的问题解答，或者可以像word一样可以设置“允许西文在单词中间换行”也行，不过也没找到解答。

yangjxi

求解答，因为是合同打印，如果出现部分字不能打印出来会影响合同效力，期盼、感谢！

laterite

可以用len判断输出文字的数量来设置字号，比如10个字以内，字号为9，10到20个字字号为8，以此类推，如要字数太多，缩减字号到一定程度无法辩识则提示让用户简写

边缘码农

笨办法，自己测试。某个单元格的宽度、高度已经确定，量一下是几毫米；然后设定好字体、字号，看看一行最多能容纳几个字，最多能容纳几行等数据，记录下来。最后形成一个在一定的字体、字号下，这个单元格容纳的字数的序列。

yangjxi

目前也是用这个方法设置字号，不过当单元格的内容包含文字和数字时且如果凑巧数字在行末这时本来在行末的一串数字会被安排在下一行，这样就有可能全文字可以放得下而带有部分数字的时候可能放不下。如果这时候增加一个检测如果实际行数比设想的行数多的情况下进一步缩小字体或许可以解决问题，但现在还没找到判断自动换行的单元格有多少行的办法。