CADghost 发表于 2004-5-5 15:30:00

VBA编程就是强

yn_liusha 发表于 2004-5-13 23:10:00

七楼的朋友的源码是2000上用的吧。

mountains 发表于 2004-5-21 23:44:00

这个程序在绘制表格时非常简洁巧妙，我也曾有这样的思路，但一直没有抽出时间编写，提出几点建议：1。程序应让使用者能够自主选择表格或表格的一部分


2.在转化表格和文字过程中由于时间较长，最好给出提示

mountains 发表于 2004-5-23 11:23:00

抽空对程序稍作修改，希望能够得到作者同意，并希望对大家有帮助



下面程序段提示用户输入转化范围如输入: a1:b20


                       b = Trim(InputBox("&Ccedil;&euml;&Ecirc;&auml;&Egrave;&euml;±í&cedil;&ntilde;&Ccedil;&oslash;&Oacute;ò"))<BR>                       Set table = xlSheet.Range(b)<BR>                       'Debug.Print xlSheet.UsedRange.Address<BR>                       Application.ZoomAll<BR>                       For Each xlRange In table<BR>下面程序实现窗口全局缩小


Set xlRange = Nothing<BR>                       Set xlSheet = Nothing<BR>                       Set xlApp = Nothing<BR>                       Application.ZoomAll


下面程序在程序运行过程中使用户能够在命令行中观察到程序运行的进度


                       For Each xlRange In table<BR>                                                       AddLine BlockObj, iPt, xlRange<BR>                                                       AddText BlockObj, iPt, xlRange<BR>                                                       ThisDrawing.Utility.Prompt "" &amp; vbCr<BR>                                                       ThisDrawing.Utility.Prompt "&ETH;&ETH;" &amp; xlRange.Row &amp; "&Aacute;&ETH;" &amp; xlRange.Column &amp; vbCr<BR>                       Next<BR>使用者只要把源程序作相应修改即可

qazllqaz 发表于 2004-5-31 00:50:00

谢谢!!!

yuxi 发表于 2004-6-26 22:18:00

严重感谢

changch 发表于 2005-5-2 16:55:00

very good

limingoal 发表于 2005-5-14 15:21:00

好东东啊


谢谢

caizhiming 发表于 2005-8-26 10:42:00

请问如何用VBA在CAD中启动WORD

myvb1234 发表于 2006-1-8 10:43:00

好，顶！谢谢！！~~~
页: 1 [2] 3 4 5 6 7
查看完整版本: Excel表格到CAD的示例程序