Office中国论坛/Access中国论坛

标题: 各们大哥,有谁能帮我看一下以下这个编程是什么意思?拜托了!急用!谢谢了!! [打印本页]

作者: hjn704 时间: 2004-4-24 00:48
标题: 各们大哥,有谁能帮我看一下以下这个编程是什么意思?拜托了!急用!谢谢了!!
Sub Macro1()
'31/12/2003 power by lam
Application.ScreenUpdating = False
Application.EnableCancelKey = xlDisabled
book = Trim(Range("af1").Value)
Sheet = Trim(Range("ag1").Value)
xrow = ActiveSheet.[A65536].End(xlUp).Row
For arow = 5 To xrow
Range("b" & arow).Value = ""
Range("f" & arow).Value = ""

Next
'MsgBox (xrow)
For arow = 5 To xrow
Range("B" & arow).Select
'ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],[Tellist.xls]Tellist!C5:C7,2,FALSE)"
ActiveCell.Formula = "=VLOOKUP(a" & arow & ",[" & book & ".xls]" & Sheet & "!a2:d1700,2,FALSE)"

Range("b" & arow).Value = Range("b" & arow).Text
Range("f" & arow).Select
ActiveCell.Formula = "=VLOOKUP(a" & arow & ",[" & book & ".xls]" & Sheet & "!a2:d1700,4,FALSE)"

Range("f" & arow).Value = Range("f" & arow).Text
Next
MsgBox ("Ok, Update " & xrow & " Record")

End Sub

作者: hamletl 时间: 2004-4-24 00:55
这个跟ACCESS无关，
是EXCEL里贴过来的。
你在EXCEL里开一个档存为BOOK.xls，新建一个宏命名为MACRO1
再把这段程序贴进去，一执行就知道了。

[此贴子已经被作者于2004-4-23 16:56:57编辑过]

作者: zhanguoru 时间: 2004-4-24 01:00
我支持

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)