菜鸟谈VBA最最基础入门《原创》

plumhan

好东西都要保存起来，谢谢各位老师

zjsc

谢谢楼主分亨，8错标个记号 仔细看

dw6688

今天整了一个学生信息录入的东东发上来请老师们帮指导指导！

值得追求

在这元宵佳节，我只能用张宇的一首哥来表达我对叶枫版主的感谢，谢谢你让我不在迷惑，不在害怕vba!

dw6688

学生信息分类这个问题想的一个晚上都无从下手呀

qrf

'制表边框：将EXCEL表格转入CAD中的一段程序中，如下
Sub AddLine(ByRef BlockObj As AcadBlock, ByVal iPt As Variant, ByVal xlRange As Range)
     If xlRange.Borders(xlEdgeLeft).LineStyle = xlNone _
         And xlRange.Borders(xlEdgeBottom).LineStyle = xlNone _
         And xlRange.Borders(xlEdgeRight).LineStyle = xlNone _
         And xlRange.Borders(xlEdgeTop).LineStyle = xlNone Then Exit Sub
     Dim rl As Double
     Dim rt As Double
     Dim rw As Double
     Dim rh As Double
     rl = PToM(xlRange.Left)
     rt = PToM(xlRange.top)
     rw = PToM(xlRange.Width)
     rh = PToM(xlRange.Height)
请教各位，程序中的PTOM（）是什么函数，代表什么意义。

xinyu015

yxybeibei

各位大虾，请求大家帮助，
Sub mycopy()
    Workbooks("book3").Sheets(1).[a1].Copy Workbooks("book2").Sheets(1).[a1]
End Sub。这个句子错在哪里了，出现运行时错误‘g’ 下标越界

feixia747

我想用VBA做一个简单的仓库管理程序，可不知道该怎么下手，那位大侠可以帮帮我呀！在这里先谢谢了
我的邮箱feixia747@163.com

shuni9

太帅了 正需要