|
那位好心人,把下面这段代码封装成DLL文件,我很想学习一下,因为我只能封装非常简单的代码(比如在单元格中赋个值),稍复杂一点就束手无策了。下面这段代码是在表一中自动总分,然后复制到表二中。
Sub 自动总分并复制到sheet2表()
Sheets("Sheet1").Select
Cells.Select
Dim ObjTmp As Object
Set ObjTmp = Selection.Find(What:="总分", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
If ObjTmp Is Nothing Then
MsgBox "找不到总分字段!"
Else
ObjTmp.Activate
IRow = ActiveCell.Row
ICol = ActiveCell.Column
End If
x = Range("a1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row
Cells(IRow + 1, ICol).FormulaR1C1 = "=SUM(RC3:RC[-1])"
Cells(IRow + 1, ICol).Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A" & x - 1)
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Range("A1").Select
End Sub
|
|