68651521 发表于 2006-1-11 22:05:00

[VBA]几个VBA的简单问题，可是……

<P>废话不多说</P>
<P>1：能通过VBA编制程序 按块的名字 统计出块的数量吗？</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 例如：有一个名叫AAA的块&nbsp; 图中一共出现15次 那程序就返回 15</P>
<P>2：&nbsp;&nbsp;&nbsp; Set&nbsp;ss2 = ThisDrawing.SelectionSets.Add("TEST")</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 程序中包含了这样的语句 该程序执行过后（正常结束） 就不能执行第二次了 卡在上面这句 好象是已经有了TEST这个集 不能重复添加 请问如何释放？ 加了 Set ss2 = Nothing 还是这样……</P>

<P>有人拉小菜鸟一把吗？</P>

dragonboy 发表于 2006-1-12 20:20:00

<P>on error resum next</P>
<P>On Error Resume Next<BR>&nbsp;' Delete the Selection Set if it Exists<BR>&nbsp;If Not IsNull(ThisDrawing.SelectionSets.Item("xxx")) Then<BR>&nbsp;&nbsp;&nbsp; Set sset = ThisDrawing.SelectionSets.Item("xxx")<BR>&nbsp;&nbsp;&nbsp; sset.Delete<BR>&nbsp;End If</P>

songzhi 发表于 2006-1-12 20:58:00

这些问题的答案都出现在张帆编辑的那本书上，叫《VBA开发精彩实例》上面，看看那个也不错的。
页: [1]
查看完整版本: [VBA]几个VBA的简单问题，可是……