Question

求助了，急！！VB封装VBA代码成DLL文件

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "A1" Then
If Target <> "工资" Then Target = ""
End If
If Target.Address(0, 0) = "A38" Then
If Target <> "工资" Then Target = ""
End If
End Sub
上述是VBA代码，要任意一张电子表格A列的80个指定单元格中实现上述过程，求更简单的代码，求这段代码如何改写才能封装成DLL文件，求生成的DLL文件在任意一张电子表格中进行引用的代码，求在ThisWorbook中的自动打开代码

Answer 1

大体做法
在VB6.0中编写代码，生产dll文件
vba中引入该Dll文件

追问

VB封装VBA的过程我知道，但那段VBA代码得作些修改后才能封装成DLL文件，我不会修改，万望指定

追答

我测试了一个，请参考

追问

按您的做法，DLL文件生成了，我新建了一个工作簿，在Sheet1中输入了您的代码，无任何反应，我的版本是EXCEL 2003，求教了，怎么回事？另外Sheet1中输入的这段代码将实现什么功能？哪个（4,5）指什么？我的目的是要求在指定单元格中只能输入指定内容，如：工资，输入其他内容则不予显示。麻烦您指导

追答

dll 需要引用 并  注册

 

追问

这是VB编辑器中输入的代码，从VB的角度看，这段代码有效吗？，无效咋改？
Public Function mathadd(ByVal Target As Range) As Range