Foxtable(狐表)用户栏目专家坐堂 → EXCEL问题


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

主题:EXCEL问题

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/31 16:22:00 [显示全部帖子]

报什么错?

 

做一个对应的例子发上来测试。

[此贴子已经被作者于2018/5/31 16:22:16编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/31 16:46:00 [显示全部帖子]

sheet(7,4+3*i).Style.Font = fnt2

 

这种代码修改一下,循环之前new出来

 

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

style.font = fnt2

 

在循环里面,直接赋值

 

sheet(7,4+3*i).Style = style


 回到顶部