Question

请教excel问题：有一段vba代码，怎样加载到所有的工作表都可以调用到？

Answer 1

添加一模块 把需要调用的vba代码模块作用域写成public 如：
pulibc function test()
end function

追问

作用域在哪里找到？我这段代码已有，到底具体怎样操作，请指点，非常感谢

追答

比如你原本代码像下面这样
function test()
end function

你就在前面加 public
如果你是
private function test()
end function
你就修改 private为public

追问

是这段代码，怎样改：
Sub SelSht() '工作表查找
Dim Sht As String
Dim str As String
On Error Resume Next
Sht = InputBox("请输入工作表名称：")
Sheets(Sht).Select
str = Err.Description
If str "" Then
MsgBox "不存在该工作表或名称输入有误！"
End If
End Sub

追答

public Sub SelSht() '工作表查找
Dim Sht As String
Dim str As String
On Error Resume Next
Sht = InputBox("请输入工作表名称：")
Sheets(Sht).Select
str = Err.Description
If str "" Then
MsgBox "不存在该工作表或名称输入有误！"
End If
End Sub

Answer 2

Sub aa()
For j = 1 To Worksheets.Count
With Worksheets(j)
For i = 3 To 32
If .Cells(i, 7).Value = "" Then 'i代表行，1代表列
.Cells(i, 7).Value = .Cells(i, 6).Value
End If
Next
End With
Next
End Sub

Answer 3

是可再看下的