以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动行高显示不全  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170663)

--  作者:qaz17909
--  发布时间:2021/8/3 19:36:00
--  自动行高显示不全
见实例,我合并单元格并且自动行高,但是发现第一列的内容显示不完全。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动行高.rar



--  作者:有点蓝
--  发布时间:2021/8/3 21:05:00
--  
这种自动行高对合并单元格没有效,处理起来有点麻烦,参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70571&skin=0
--  作者:qaz17909
--  发布时间:2021/8/3 21:44:00
--  
参考了代码,但是运行的时候弹出两个警告窗口,可否不弹出?难道app.DisplayAlerts = False无法禁止所有的弹窗?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动行高.rar



--  作者:有点蓝
--  发布时间:2021/8/3 21:53:00
--  
DisplayAlerts 放到最前面
……
Dim App As New MSExcel.Application
app.DisplayAlerts = False
try
    Dim Wb As MSExcel.WorkBook = app.WorkBooks.open(fl)
    Dim rg As MSExcel.Range
……