VBA将参数从函数传递给子

Question

在VBA中，我写了一个sub，为了这个问题，做了以下事情：

1. 创建一个由用户命名的新工作表
2. 从由两个用户输入值确定的数据库中提取数据
3. 在新工作表中排序数据 (1)

我希望实现的功能是让用户能够直接从 Excel 工作表通过 UDF 输入 三个 变量，如下所示：

Description of how the user should interface with the code

为了实现用户界面的这种特定方法，我似乎需要使用一个函数作为一个宏；

Function Do_Stuff_With_Theese_Imputs(x, y, z)
Call Do_Stuff(x, y, z)
End Function

Sub Do_Stuff(x, y, z)
'Code that makes the new sheet by the name "z"(argument from the function) here:
'Code for database handeling by the variables "x" & "y"(arguments from the function) here:
'Etc...
End sub

我可能会尝试以一种不必要的复杂方式解决这个问题，因此只要 UI 对于用户而言，我对其他实现的建议持开放态度。否则，我需要一些关于如何将参数 x、y 和 z 从 function 传递到 sub 的帮助。

编辑： 由于我的疑问线不清楚，这已成为一个混乱点：

这是用户定义的要求，UDF（我想用作宏）可以从任何此 UDF 所在计算机上的 Exel 表访问'安装。从用户的角度来看，它应该像经典的=SUM 函数一样适用。

编辑 2： 再次明确一点，它应该可以从任何 Excel 工作表访问，而无需在打开工作表时始终显示（以button、extra sheet 或 form 的形式）。

我注意到这可能无法实现。

Answer 1

选项 1：考虑使用Worksheet_Change，这样当用户更改任何单元格时，您可以使用这些单元格中的值作为参数触发Do_Stuff。

您可以使用Intersect 将您的操作限制在这些单元格中。您最大的挑战是确定用户何时完成输入正确的数据 - 毕竟他们一次只能填写一个单元格（这是您最初遇到的问题）。

选项 2： 您可以在单元格旁边的工作表中添加一个按钮，而不是 Worksheet_Change。这里的一个技巧是根据单元格中的有效值启用按钮。然后，用户可以在完成后单击该按钮 - 该按钮将使用这些单元格中的值作为参数调用 Do_Stuff。

以上两个选项不需要你更改Do_Stuff，它们只会影响你如何调用Do_Stuff。

Answer 2

我会这样做，最好是第二种：

Sub Do_Stuff()

Dim x As Long
Dim y As Long
Dim z As String

With Worksheets(1)  'It takes the values from the first sheet, you can specify the sheet by a name
                    ' With Worksheets("NAME")

    x = .Cells(2, 2).Value
    y = .Cells(2, 3).Value
    z = .Cells(2, 4).Value

End With

'Code that makes the new sheet by the name "z"(argument from the function) here:
'Code for database handeling by the variables "x" & "y"(arguments from the function) here:
'Etc...
End Sub

或者这个：

Sub Do_Stuff()

Dim x As Long
Dim y As Long
Dim z As String

x = Application.InputBox("Write a number", "Get Number", , , , , , 1)
y = Application.InputBox("Write a number", "Get Number", , , , , , 1)
z = Application.InputBox("Write a new sheet name", "Get a new sheet name", , , , , , 2)


'Code that makes the new sheet by the name "z"(argument from the function) here:
'Code for database handeling by the variables "x" & "y"(arguments from the function) here:
'Etc...
End Sub

https://docs.microsoft.com/en-us/office/vba/api/excel.application.inputbox

Answer 3

这是个糟糕的主意

监视单元格E5 进行更改。当检测到更改时，触发您的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$5" Then
        Call Do_Stuff([B2], [C2], [D2])
    End If
End Sub