Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教表格线


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

主题：请教表格线
帅哥哟，离线，有人找我吗？
hbhb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5055 积分：13047 威望：0 精华：0 注册：2014/5/15 21:34:00 		请教表格线  发帖心情 Post By：2016/11/1 21:59:00 [只看该作者]

大师：请问如何将帮助中的下列代码修改为导出后的表格线为例子的样色？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:book1.zip
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5055 积分：13047 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2016/11/1 21:59:00 [只看该作者]

Dim Book As New XLS.Book() '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.BorderColorTop = Color.Red
Style.BorderColorBottom = Color.Red
Style.BorderColorLeft = Color.Red
Style.BorderColorRight = Color.Red
For r As Integer = 1 to 5
    For c As Integer =1 To 5
        Sheet(r,c).Style = Style
    Next
Next
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim Book As New XLS.Book() '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.BorderTop = XLS.LineStyleEnum.Double

Dim Style2 As XLS.Style = Book.NewStyle() '定义新样式
Style2.BorderLeft = XLS.LineStyleEnum.Thin

Dim Style3 As XLS.Style = Book.NewStyle() '定义新样式
Style3.BorderRight = XLS.LineStyleEnum.Thin

For r As Integer = 1 To 5
    Sheet(r,1).Style = Style2
    Sheet(r,6).Style = Style2
    Sheet(1,r).Style = Style
    Sheet(6,r).Style = Style
Next
Sheet(1,0).Style = Style3
Book.Save("D:\问题\test.xls")
Dim Proc As New Process
Proc.File = "D:\问题\test.xls"
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5055 积分：13047 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2016/11/1 22:28:00 [只看该作者]

谢谢！请问用以上方法与excelvba哪个效率高？

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


加好友 发短信
等级：狐神 帖子：5055 积分：13047 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2016/11/1 22:48:00 [只看该作者]

没有实现呀，中间的虚线没有？

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


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

没有做过测试，我猜是vba效率高点

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2016/11/2 8:36:00 [只看该作者]

以下是引用hbhb在2016/11/1 22:48:00的发言：
没有实现呀，中间的虚线没有？

 

建议直接用vba来做吧，通过excel的录制宏功能，得到一段代码，再改写到foxtable里面，就编写代码而言，效率高很多。

 

http://www.foxtable.com/webhelp/scr/2121.htm

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询