7453
社区成员
- 主页
***先来先得，发言就给分，如何控制将Excel中的某几个Cell合并为一个，还有就是如何设置Cell的颜色以及对其方式，一个菜鸟问题，***
***先来先得，发言就给分，如何在VB中控制将Excel中的某几个Cell合并为一个并设置其对齐方式，还有就是如何设置Cell的颜色以及对其方式，一个菜鸟问题，***
...全文
当前发帖距今超过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 '对齐方式
要记得多给点分哟!!!!!!!!!!!!!!!!!!!!!
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
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，应用程序定义或对象定义错误”
大家快帮我呀！
Set oRange = oSheet.Range(Cells(i, j), Cells(i+2, j+2))
VB老报告错误：“实时错误1004，应用程序定义或对象定义错误”
大家快帮我呀！
