关于新版EXCEL UDF中的_Excel_RangeFind使用问题
下了最新的beta的au3，看到里面的excel udf，想到很久之前已经提问过的问题，就是使用excel的find函数，查找带颜色的单元格。所以试了下_Excel_RangeFind，但是不成功。以前提问过，是kevinch解决，给出了代码
代码如下：
#include <array.au3>
Dim $a_Arr
$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=$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
$a_Arr=$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]]]] ) 如果udf函数里没提供颜色查找，估计又得自己写一个
页:
[1]