Foxtable(狐表)用户栏目专家坐堂 → excel表单元格如何换行


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

主题:excel表单元格如何换行

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


加好友 发短信
等级:狐神 帖子:6911 积分:43773 威望:0 精华:0 注册:2009/3/2 14:07:00
excel表单元格如何换行  发帖心情 Post By:2017/8/19 21:39:00 [只看该作者]

数据库字段值为“a_b_c",在excel报表中,如何在模板中或代码实现在excel表同一单元格三行显示
a
b
c


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


加好友 发短信
等级:狐神 帖子:6911 积分:43773 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/8/19 21:49:00 [只看该作者]

在数据库同一字段中分成a、b、c三行,但excel报表中又在同一行了。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/20 13:40:00 [只看该作者]

比如,你excel模板可以这样写

 

<Replace([第一列],"_",vbcrlf)>

 

生成报表后,你要刷新一下,才能正常显示的

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\预计利润表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\预计利润表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook =App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Formula = rg.Formula
app.visible = True

[此贴子已经被作者于2017/8/20 17:03:09编辑过]

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


加好友 发短信
等级:狐神 帖子:6911 积分:43773 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/8/20 17:01:00 [只看该作者]

刷新是什么样的操作方法^

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/20 17:07:00 [只看该作者]

以下是引用lihe60在2017/8/20 17:01:00的发言:
刷新是什么样的操作方法^

 

看3楼红色代码。


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


加好友 发短信
等级:狐神 帖子:6911 积分:43773 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/8/20 17:08:00 [只看该作者]

是电子表中,双击单位格再按回车的意思吗?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/20 17:10:00 [只看该作者]

以下是引用lihe60在2017/8/20 17:08:00的发言:
是电子表中,双击单位格再按回车的意思吗?

 

差不多。


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


加好友 发短信
等级:狐神 帖子:6911 积分:43773 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/8/20 18:54:00 [只看该作者]

三楼红色代码也不能换行

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/20 19:48:00 [只看该作者]

以下是引用lihe60在2017/8/20 18:54:00的发言:
三楼红色代码也不能换行

 

我测试没问题,实例发上来。


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


加好友 发短信
等级:狐神 帖子:6911 积分:43773 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/8/20 20:51:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb

[此贴子已经被作者于2017/8/20 20:52:47编辑过]

 回到顶部
总数 18 1 2 下一页