找回密码
 加入
搜索
查看: 3252|回复: 1

[AU3基础] 关于新版EXCEL UDF中的_Excel_RangeFind使用问题

[复制链接]
发表于 2014-9-16 23:05:08 | 显示全部楼层 |阅读模式
下了最新的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]]]] )
发表于 2014-9-18 07:14:31 | 显示全部楼层
如果udf函数里没提供颜色查找,估计又得自己写一个
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 06:49 , Processed in 0.072459 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表