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

lhh 2002-08-01 09:27:36
***先来先得,发言就给分,如何在VB中控制将Excel中的某几个Cell合并为一个并设置其对齐方式,还有就是如何设置Cell的颜色以及对其方式,一个菜鸟问题,***
...全文
110 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
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,应用程序定义或对象定义错误”
大家快帮我呀!

7,785

社区成员

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

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