Excel 报表编程Style - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Excel 报表编程Style

共有2509人关注过本帖树形打印复制链接主题：Excel 报表编程Style

freeants

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00

Excel 报表编程Style 发帖心情

Post By：2014/6/10 11:13:00 [只看该作者]

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

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

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

style.Font= New Font("Arial Unicode MS",10, FontStyle.regular)

Style1=style

style2=style

style1.font=New Font("Arial Unicode MS",12, FontStyle.bold)

style2.font=New Font("Arial Unicode MS",16, FontStyle.bold)

sheet(1,1).style=style

sheet(2,1).style=style1

sheet(3,1).style=style2

最终结果是

三个单元格字体都是一样，是BUG吗

[此贴子已经被作者于2014-6-10 11:13:20编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/10 11:20:00 [只看该作者]

不能这样

Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Dim Style1 As XLS.Style = Book.NewStyle() '定义新样式
Dim Style2 As XLS.Style = Book.NewStyle() '定义新样式
style.Font= New Font("Arial Unicode MS",10, FontStyle.regular)
style1.font=New Font("Arial Unicode MS",12, FontStyle.bold)
style2.font=New Font("Arial Unicode MS",16, FontStyle.bold)

sheet(1,1).style=style
sheet(2,1).style=style1
sheet(3,1).style=style2

freeants

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00

Post By：2014/6/10 12:39:00 [只看该作者]

如果只是字体，是没有问题，如果STYLE,STYLE1,STYLE2 的共同属性比如边框，通常我们定义一次要好多代码，要是有3个STYLE ，不是要定义3边，代码会多出很多。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/10 13:56:00 [只看该作者]

看了一下，没有办法，只能这样。

[此贴子已经被作者于2014-6-10 13:57:42编辑过]

下一主题 >> << 上一主题

主题：Excel 报表编程Style