VBA 全自动使用DLL 的各种封装方法 - 完全公开源码和方法（如用VSTO就什么都不用学）

henrylam · 发表于 2011-9-30 17:49

先回复收藏起来

liyunfei099 · 发表于 2011-10-9 18:05

那位好心人，把下面这段代码封装成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

liyunfei099 · 发表于 2011-10-9 20:43

最好是能提供在VB6.0环境下的原代码

dz_wj · 发表于 2011-10-10 17:07

不知什么时候才能学好，收藏先

ming668 · 发表于 2011-10-12 14:59

法师的贴子就是精品

kevin_kaiCN · 发表于 2011-10-12 15:40

留下脚印，回头仔细看看。

abc@abc · 发表于 2011-11-7 14:31

非常感谢，谢谢楼主共享

zhao99315 · 发表于 2011-11-9 04:08

谢谢分享，学习啦！

tsyanyan · 发表于 2011-11-16 05:17

请教一下怎么样传递字符串变量啊

好001 · 发表于 2011-11-16 08:55

学习了..需要这封装的朋友,可以多学习了.

		自动登录	找回密码
密码			免费注册

[原创] VBA 全自动使用DLL 的各种封装方法 - 完全公开源码和方法（如用VSTO就什么都不用学）