[求助]关于格式查找问题(FindFormat)

freewolf · 发表于 2007-7-15 10:57

4mSZk5nS.rar (4.45 KB, 下载次数: 171)

返回A列具有某种格式的起始行和终止行(连续的)

taller · 发表于 2007-7-15 13:01

Sub FindFormatDemo()
    Application.FindFormat.Interior.ColorIndex = 6
    Set cel0 = Columns(1).Find(What:="", After:=[a1], SearchDirection:=xlNext, SearchFormat:=True)
    If Not cel0 Is Nothing Then
        Set cel1 = Columns(1).Find(What:="", After:=[a1], SearchDirection:=xlPrevious, SearchFormat:=True)
    End If
    MsgBox cel0.Address & vbTab & cel1.Address
End Sub

freewolf · 发表于 2007-7-15 13:17

厉害厉害。谢谢taller

Fae · 发表于 2009-7-6 21:32

学习了！O(∩_∩)O谢谢

txbing · 发表于 2010-3-13 15:01

学一点多一点

bielei · 发表于 2011-6-8 11:54

很实用！！～～～～

		自动登录	找回密码
密码			免费注册

[求助]关于格式查找问题(FindFormat)

浏览过的版块