关于新版EXCEL UDF中的_Excel_RangeFind使用问题

gto250

下了最新的beta的au3，看到里面的excel udf，想到很久之前已经提问过的问题，就是使用excel的find函数，查找带颜色的单元格。所以试了下_Excel_RangeFind，但是不成功。

以前提问过，是kevinch解决，给出了代码
代码如下：

#include <array.au3>

Dim $a_Arr[1]
$o_Excel=ObjCreate("excel.application")
$o_Excel.visible=False
$o_Workbook=$o_Excel.workbooks.open(@ScriptDir&"\test.xls")
With $o_Workbook.worksheets(1)
        .parent.parent.findformat.clear
        .parent.parent.findformat.interior.color=65535
        $Rng=.usedrange.find("",Default,Default,Default,Default,Default,Default,Default,True)
        if IsObj($Rng) then
                $RngStart=$Rng
                $a_Arr[0]=$Rng.address(0,0)
                do
                        $Rng=.usedrange.find("",$Rng,Default,Default,Default,Default,Default,Default,True)
                        if $Rng.address<>$RngStart.address then
                                        ReDim $a_Arr[UBound($a_Arr)+1]
                                        $a_Arr[UBound($a_Arr)-1]=$Rng.address(0,0)
                        EndIf
                Until $Rng.address=$RngStart.address
        EndIf
        .parent.close(false)
EndWith
$o_Excel.quit
_ArrayDisplay($a_Arr)

链接如下：
http://www.autoitx.com/forum.php?mod=redirect&goto=findpost&ptid=24945&pid=308321&fromuid=116

如果我现在要用_Excel_RangeFind函数，该如何写代码
_Excel_RangeFind ( $oWorkbook, $sSearch [, $vRange = Default [, $iLookIn = $xlValues [, $iLookAt = $xlPart [, $bMatchcase = False]]]] )

kevinch

如果udf函数里没提供颜色查找，估计又得自己写一个