Foxtable(狐表)用户栏目专家坐堂 → excel报表自动行高


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

主题:excel报表自动行高

帅哥哟,离线,有人找我吗?
qaz17909
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:772 积分:8802 威望:0 精华:0 注册:2017/1/26 14:38:00
excel报表自动行高  发帖心情 Post By:2020/1/6 13:40:00 [只看该作者]

excel报表自动行高可以用Rg.EntireRow.AutoFit来实现,但有个问题,这个方法是对所有行都自动行高,现在仅希望对细节区的行自动行高,其他行固定行高,如何实现?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106298 积分:540619 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/6 14:22:00 [只看该作者]

Rg设置为细节区,如:Rg = Ws.Range("A3:B5") 'a3为细节区起始单元格,B5为细节区结束单元格

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


加好友 发短信
等级:三尾狐 帖子:772 积分:8802 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2020/1/7 14:27:00 [只看该作者]

已上传实例,希望仅对订单细节区自动行高,产品名称和产品ID两行固定行高
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动行高.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106298 积分:540619 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 14:44:00 [只看该作者]

Dim Rg As MSExcel.Range = Ws.Range("B4")

 回到顶部
帅哥哟,离线,有人找我吗?
qaz17909
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:772 积分:8802 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2020/1/7 16:16:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自动行高.rar

这样只有第一条记录自动行高,后面两条记录没能自动行高,而且用自动行高每次都会弹出这个错误提示,为什么?
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20200107135712.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106298 积分:540619 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 16:23:00 [只看该作者]

要自己计算总共生成了几行明细:    Dim Rg As MSExcel.Range = Ws.Range("B4:B" & Ws.Rows.Count - 4)

我测试没有提示上面的错误

 回到顶部
帅哥哟,离线,有人找我吗?
qaz17909
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:772 积分:8802 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2020/1/7 21:45:00 [只看该作者]

可以了,就是有个小问题,这样生成后的excel文本会最小化在下面的任务栏中,可否让其最大化直接显示。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106298 积分:540619 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 22:12:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
qaz17909
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:772 积分:8802 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2020/1/8 16:16:00 [只看该作者]

如果我想生成后直接打印出来,代码应该怎么写?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106298 积分:540619 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/8 16:23:00 [只看该作者]


 回到顶部
总数 23 1 2 3 下一页