单元格边框颜色

收藏

w_Range= sp.ActiveSheet.cells(2,2)
w_cBorder=New FarPoint.Win.ComplexBorder(red,red,nothing,nothing)
w_Range.Border=cBorder
这是我简单写的代码，现在出现的问题是cell（2，2）把相邻的cell（3，2）和cell（2，3）的上边框和左边框的颜色清空了。
有什么方法可以只改变我想改变的边框其他边框不变？

iceman · iceman

回复 1楼czpi的帖子

感谢你的问题反馈，我模拟你的代码如下：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim w_Range As FarPoint.Win.Spread.Cell
w_Range = Me.FpSpread1.ActiveSheet.Cells(2, 2)
Dim red As New FarPoint.Win.ComplexBorderSide(Color.Red)
Dim w_cBorder As New FarPoint.Win.ComplexBorder(red, red, Nothing, Nothing)
w_Range.Border = w_cBorder
End Sub

复制代码

实现效果图如下：

所以，请问您的问题是 Cell[2,2]的上边框遮盖住了 Cell[1,2]的下边框了吗？如果是，下面这段代码可以解决您的问题，需要设置 Cell[1，2]的下边框：

Dim w_Range As FarPoint.Win.Spread.Cell
w_Range = Me.FpSpread1.ActiveSheet.Cells(2, 2)
Dim red As New FarPoint.Win.ComplexBorderSide(Color.Red)
Dim w_cBorder As New FarPoint.Win.ComplexBorder(red, red, Nothing, Nothing)
w_Range.Border = w_cBorder
Dim green As New FarPoint.Win.ComplexBorderSide(Color.Green)
Dim w_cBorder1 As New FarPoint.Win.ComplexBorder(green, Nothing, Nothing, green)
Me.FpSpread1.ActiveSheet.Cells(1, 2).Border = w_cBorder1

复制代码

czpi · czpi

我的表述可能不是很清楚，如上图，如果原来cell（3，2）和cell（2，3）边框是有颜色的。
我把cell（2，2）设置之后cell（3，2）和cell（2，3）的上边框和左边框的颜色清空了。

我的意思是我只设置cell（2，2）的左和上边框，同时不应想其他单元格边框的颜色。

iceman · iceman

回复 3楼czpi的帖子

抱歉，我还不是特别清楚你的问题。截图中设置边框后并没有遮盖Cell[2,3]和Cell[3,2]的边框。实际上在截图中Cell[2,3]和Cell[3,2]并没有设置边框，灰色线是 gridline。

使用2#中的代码能重现你的问题吗？请您上传能重现问题的Demo 到论坛调试。最好能有设置前后对比截图。

谢谢

		自动登录	找回密码
密码			立即注册

[已处理] 单元格边框颜色

3 个回复

评分

活字格认证

微信认证勋章

元老葡萄