OLE控制excel,如何改变所选单元格的背景颜色?

nnhlx 2003-11-06 05:57:40
变量定义如下:
OLEObject xlapp , xlsub, xls

xlapp = Create OLEObject
ret = xlApp.ConnectToNewObject( "Excel.Application" )
if ret < 0 then
MessageBox("Connect to Excel Failed !",string(ret))
return
end if
xls=xlapp.application.activeworkbook
xlsub=xlapp.application.activeworkbook.worksheets[1]
xlsub.Cells[1,1]='hello'
如果我想改变单元格[1,1]的背景颜色,应该怎么做?
...全文
253 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
sinkiangscorpio 2004-01-17
  • 打赏
  • 举报
回复
录制宏,就知道怎么写了。
你可以先设置为红色,然后看宏里面是怎么写的,然后引用。
cwel 2004-01-16
  • 打赏
  • 举报
回复
可以吗?
我试过了,没有效果啊!
nnhlx 2003-11-07
  • 打赏
  • 举报
回复
juwuyi(我有,我可以)
请问 Worksheets("Sheet1").Cells(5, 3).Font.BackGround = 2
'2'这个值是怎么定义的,比如说红色应该是什么呢
runsoft 2003-11-06
  • 打赏
  • 举报
回复
老天,看看OFFICE的宏跟踪,要社么样的属性页可以。
xiaoshuier 2003-11-06
  • 打赏
  • 举报
回复
顺便我想问一下,如何设置单元格的边框呢?比如要使坐标为1,1的单元格四周全为实线。怎样来设置呢?
qqjj7758 2003-11-06
  • 打赏
  • 举报
回复
呵呵
yeah!
juwuyi 2003-11-06
  • 打赏
  • 举报
回复
Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

Worksheets("Sheet1").Cells(5, 3).Font.BackGround = 2
dotnba 2003-11-06
  • 打赏
  • 举报
回复
看看MSDN

1,085

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧