[已解决]查找第一个有边框设置的单元格

爱疯

查找第一个有边框设置的单元格

如果如上图仅3个单元格有设置，那么结果应是D4单元格。即先行再列，在CELLS中查找第1个边框有设置的单元格。

请问怎么写？谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2010-5-5 09:10

Sub 查找边框()
    Application.FindFormat.Borders.LineStyle = xlContinuous
    MsgBox Cells.Find(what:="", SearchOrder:=xlByRows, SearchFormat:=True).Address
End Sub

跳转到最佳答案楼层

爱疯

通过录制宏发现，需两步：

1. 设置Application.FindFormat
2. 查找

可第1步，它是列举了查找格式。而我需要找出，只要有设置边框的，都算。

所以[em11]

军悟居士

好像定义名称就能解决……

爱疯

QUOTE:

以下是引用军悟居士在2010-5-4 17:40:00的发言：
好像定义名称就能解决……

谢谢军悟居士！

主要是想知道，而且实际是先判断、再选择的。

 

 

[em04]

amulee

Sub 查找边框()
    Application.FindFormat.Borders.LineStyle = xlContinuous
    MsgBox Cells.Find(what:="", SearchOrder:=xlByRows, SearchFormat:=True).Address
End Sub

爱疯

谢谢阿木！

 

[em27][em27]