Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动行高显示不全


  共有3257人关注过本帖树形打印复制链接

主题：自动行高显示不全
帅哥哟，离线，有人找我吗？
qaz17909
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：795 积分：9037 威望：0 精华：0 注册：2017/1/26 14:38:00 		自动行高显示不全  发帖心情 Post By：2021/8/3 19:36:00 [只看该作者]

见实例，我合并单元格并且自动行高，但是发现第一列的内容显示不完全。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:自动行高.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/3 21:05:00 [只看该作者]

这种自动行高对合并单元格没有效，处理起来有点麻烦，参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70571&skin=0

 回到顶部
帅哥哟，离线，有人找我吗？
qaz17909
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：795 积分：9037 威望：0 精华：0 注册：2017/1/26 14:38:00 		  发帖心情 Post By：2021/8/3 21:44:00 [只看该作者]

参考了代码，但是运行的时候弹出两个警告窗口，可否不弹出？难道app.DisplayAlerts = False无法禁止所有的弹窗?
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:自动行高.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
……
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 6 次数据查询