论坛 › A/VLISP › 在ACAD中拾取文字并在Excel中定位单元格

eachy 发表于 2016-2-2 14:42:40

在ACAD中拾取文字并在Excel中定位单元格

Excel ActiveX 中查找文字的方法是 Find ，对应的对象有 WorksheetFunction 和 Range，一般使用 Range 对象，Excel 手册中 VBA 例子是这样

示例
本示例在工作表的单元格区域 A1:A500 中查找包含值 2 的所有单元格，并将这些单元格的值更改为 5。

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
      firstAddress = c.Address
      Do
            c.Value = 5
            Set c = .FindNext(c)
      Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

中 AutoCAD 中使用 ActiveX 的代码如下
**** Hidden Message *****

HLCAD 发表于 2016-2-2 23:11:21

好久不见网站热闹了，真心希望能见到往日繁华。

cad大渣渣 发表于 2016-2-2 23:27:38

受教许多。。

279491611 发表于 2016-2-3 10:01:17

谢谢分享，受教了！:)

dnbcgrass 发表于 2016-2-3 22:29:46

学习学习:lol

q3_2006 发表于 2016-2-13 16:56:52

想看E大帖子真不容易...现在才能登录...

shenfjliu 发表于 2016-2-13 17:27:43

看看，学习学习

auva 发表于 2016-2-14 19:49:52

回复看看前辈的好东西！

viphappy 发表于 2016-2-15 16:06:08

回复看看，学习学习

liuyj 发表于 2016-2-15 20:34:34

收藏起来慢慢学

lijiao 发表于 2016-2-18 10:02:56

大safs噶是的哈东方红煽风点火撒范德萨福建省特如

shenfjliu 发表于 2016-2-18 23:23:47

收藏起来慢慢学

sicky111 发表于 2016-2-18 23:59:38

是LISP吗      

soc99@163.com 发表于 2016-2-19 21:55:11

下载学习学习，谢谢分享。

zzyong00@163.co 发表于 2016-2-29 22:30:42

看看..........................

查看完整版本: 在ACAD中拾取文字并在Excel中定位单元格