在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 ***** 好久不见网站热闹了,真心希望能见到往日繁华。 受教许多。。
谢谢分享,受教了!:) 学习学习:lol 想看E大帖子真不容易...现在才能登录...
看看,学习学习 回复看看前辈的好东西!
回复看看,学习学习 收藏起来慢慢学 大safs噶是的哈东方红煽风点火撒范德萨福建省特如
收藏起来慢慢学 是LISP吗 下载学习学习,谢谢分享。
看看..........................