***先来先得,发言就给分,如何控制将Excel中的某几个Cell合并为一个,还有就是如何设置Cell的颜色以及对其方式,一个菜鸟问题,***

lhh 2002-08-01 09:27:36
***先来先得,发言就给分,如何在VB中控制将Excel中的某几个Cell合并为一个并设置其对齐方式,还有就是如何设置Cell的颜色以及对其方式,一个菜鸟问题,***
...全文
48 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wurf0 2002-08-01
给你比较完整的办法跟源码:
Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRange As Excel.Range

Set oExcel = CreateObject("Excel.Application") 'run it

Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)


Set oRange = oSheet.Range(Cells(i, j), Cells(i+2, j+2))


oRange.Borders(xlEdgeBottom).Weight = 2
oRange.Borders(xlEdgeTop).Weight = 2
oRange.Borders(xlEdgeLeft).Weight = 2
oRange.Borders(xlEdgeRight).Weight = 2
oRange.ColumnWidth = mdblcolwith
oRange.RowHeight = 8 '高度
oRange.Value="你要写的东西"
oRange.Interior.ColorIndex = 36 '颜色
oRange.HorizontalAlignment = xlRight '对齐方式

要记得多给点分哟!!!!!!!!!!!!!!!!!!!!!
回复
zhang_pi 2002-08-01
Dim Exsheet As Excel.Worksheet
Exsheet.Range(arange, vrange).Merge
回复
Jonly 2002-08-01
用EXCEL自带的宏录制功能,你将学到你想像到的东西,不信你试试
你不会告诉我录制宏都不会吧!
回复
xybzc 2002-08-01
1楼正解,你 也可以对他的代码进行改写
回复
lhh 2002-08-01
能不吝给出代码的高手必有高分相赠啊!
回复
cool_man 2002-08-01
你可以用EXCEL自带的宏录制功能,把你的操作录下来,然 后再查看一下宏里面的代码就行了。
回复
wurf0 2002-08-01
是一直不好呢,还是有时好有时不好呢?
回复
lhh 2002-08-01
多谢各位的帮助,我们一般来说是不知道什么行列用A.B.C.D...来表示的,只有数字,所以用Cells(row,col)最好了,但是我用下边的句子时
Set oRange = oSheet.Range(Cells(i, j), Cells(i+2, j+2))
VB老报告错误:“实时错误1004,应用程序定义或对象定义错误”
大家快帮我呀!
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告