请教高手，如何用VBA发现长度超出列宽变成显示为#号的情况？

vistababy

就是列宽够的时候显示正常，宽度不够的时候显示成#号，有时候数字太多，没注意看，打出来的金额、数量什么的，全是#号。

能不能用一段代码就发现#号？
曾经用过下面这段代码查找#号，但有时候没有用，比如有些表格在打印预览前显示是数字，以为没问题，下面的代码就找不到#号。。但一打印预览就显示成了#号，预览的时候显示比例小，没注意看，打印出来还是#号。


Dim rng As Range
    For Each rng In ActiveSheet.UsedRange
    If Left(rng.Text, 1) = "#" Then
        rng.Select
        MsgBox rng.Address & " 单元格包含#号"
        Exit Sub
    End If
    Next rng

ykcbf1100

搞个自动列宽就解决问题了。

vistababy

ykcbf1100 发表于 2023-7-8 20:15
搞个自动列宽就解决问题了。

明显不适用的。对全表进行自动列宽更是完全不行啊。
有人提供一个excel文件给我，我想快速发现其中的显示不全的#号，这才是关键。

vistababy

我突然知道方法了，就是上面的代码完成后（普通视图：ActiveWindow.View = xlNormalView），
加一行：ActiveWindow.View = xlPageLayoutView切换到“页面布局”，
再查一次#号（代码重复）。
这样同时在普通视图和页面布局查找#号，只要都查不到#号，就没事，就能防止在编辑状态下看不到#号但打印预览的时候又出现#号的情况。

vistababy

我把普通视图、页面布局双重查找的代码放到了类1的WorkbookBeforePrint事件，能在打印任何文件前检查单元格是否存在#号的情况，完美！完美！

沈默00

这想法不错呀，

vistababy

现在能同时查#号、科学计数法显示的问题的，从此打印无忧。
主要是要发现它们，然后定位，手动调整才是最快的，一次调整整行或整列的宽度，就能解决无数个#号或科学计数法的问题。因为一旦表格行列数据多，自动调整将会耗费大量的时间

prome3

我还是更赞同2楼的做法。

首先，自动列宽是完全自动的、一劳永逸的方法，无需VBA或者工作表函数干预。更不需要4楼那样的切换视图什么的额外操作。

其次，如果要打印东西，那单张打印纸上的内容必定多不了，人工看打印预览效果是免不了的。针对打印预览，返回工作表对特定单元格应用自动列宽是最直接的做法。

vistababy

prome3 发表于 2024-3-16 14:23
我还是更赞同2楼的做法。

首先，自动列宽是完全自动的、一劳永逸的方法，无需VBA或者工作表函数干预。更 ...

我感觉自动列宽完全不能满足要求，应该也不可能到处适用。。用自动列宽，表格也经常不好看，而且不需要那么宽的一些列被自动拉宽。
文件都不是我自己做的，制作水平参差不齐，一些文件少则几页、多则几十页，甚至行数多、列数多，预览的时候显示非常小，没法一页一页仔细看，只是保证编辑状态拉下来看没有问题，右边没有超页，就可以打印了。

预览看不清，咋办？

prome3

vistababy 发表于 2024-3-16 15:29
我感觉自动列宽完全不能满足要求，应该也不可能到处适用。。用自动列宽，表格也经常不好看，而且不需要那 ...

预览都看不清，你打算打印出来让老板或者审计人员拿放大镜看？数据太多，就不要在单张纸上打印出来。

至于“预览看不清，咋办？”前面那些话，我就知道你会说。但现在我没兴趣去跟你争什么谁对谁错、孰优孰劣。

我自己的工作环境中，见过别人制作的表格打印出来的各种乱七八糟的格式，文字超过文本框的部分直接没有的，一张A4纸上内容太多把文字弄小以致很难看清的……当真是各种各样。

我只想强调一点：关注点放在打印的最终效果上，放在拿到手的实体打印纸上。至于是用自动列宽还是VBA还是什么花里胡哨的，最后还是得（也应该）返回去，做调整，再重新打印。