主题：单元格框式边框
zhengxinhai
[专家分：30] 发布于 2008-09-19 09:59:00
请问各位:
在excelk中有一个A1至C5的区域,我设的单元格框式:外边框线条样式选的(竖排)第七个实线,内框选的是无线条下的点线第二个,请问用vf怎样写这一段代码呢?(我不知道linestyle的数字该选什么?)
回复列表 （共13个回复）
沙发
cbl518 [专家分：57140] 发布于 2008-09-19 11:34:00
WITH oExcel.ActiveSheet.Range("A1:C5")
STORE 7 TO .Borders(7).LineStyle,.Borders(8).LineStyle,.Borders(9).LineStyle,.Borders(10).LineStyle
ENDWITH
板凳
cbl518 [专家分：57140] 发布于 2008-09-19 11:36:00
WITH oExcel.ActiveSheet.Range("A1:C5")
STORE 2 TO .Borders(11).LineStyle,.Borders(12).LineStyle
ENDWITH
3 楼
zhengxinhai [专家分：30] 发布于 2008-09-19 20:48:00
谢谢cb1518老师.我看资料上有列语句:
eole.ActiveSheet.Range('b3:d3').Borders(2).Weight=3 &&指定边框线宽度(Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/)
eole.ActiveSheet.Range('b3:d3').Borders(2).LineStyle=1 &&设置四个边框线条的类型 LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线)
请您给我讲讲Borders(7)至Borders(12)的含义.另外点虚线在excel中有几种,请问有别的数字可代表吗?
谢谢!!
4 楼
zhengxinhai [专家分：30] 发布于 2008-09-20 15:35:00
请各位给楼上解决问题.谢谢!!!
5 楼
zhengxinhai [专家分：30] 发布于 2008-09-21 08:10:00
请各位老师帮助!!!!
6 楼
moz [专家分：37620] 发布于 2008-09-21 08:54:00
[size=6]自己动手啊拜托[/size]
7 楼
zhengxinhai [专家分：30] 发布于 2008-09-21 12:49:00
谢谢提醒,但在excel中,点虚有几种,而我只知道2－细虚、4－点虚,其它虚用什么数字呢?
8 楼
moz [专家分：37620] 发布于 2008-09-21 15:16:00
ALT + T M R （F11）
录制宏
9 楼
zhengxinhai [专家分：30] 发布于 2008-09-21 18:26:00
moz老师,录制宏后,我水平有限有关参数对应不起来.请老师详细给解释一下吧
10 楼
moz [专家分：37620] 发布于 2008-09-21 21:38:00
哪个参数对应不起来你说啊，
难道你叫一声，我就得把饭送到你面前端起来喂你？
平时多动手，多思考。
我的宗旨就是：不能指望全靠别人。
[quote]Sub Macro1()
'
' Macro1 Macro
' 宏由 Moz 录制，时间: 2008-9-21
'
'
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub[/quote]
立即窗口中检查常量值得：
[quote]?xlDiagonalDown,xlDiagonalUp,xlEdgeLeft,xlEdgeTop,xlEdgeBottom,xlEdgeRight,xlInsideVertical,xlInsideHorizontal,xlContinuous,xlThin,xlAutomatic,xlNone
5 6 7 8 9 10 11 12 1 2 -4105 -4142 [/quote]
至于那些单词是什么意思，代表什么，
自己去琢磨揣测或翻字典。
我来回复
您所在位置：