vba中如何在一个function中 输入一个参数返回另一个参数

1、首先打开excel在工具栏中找茄握到开发工具，然后打开编辑页面，在页面上输入程序，如图所示，创建一个函数，也是比较方便的。直接使用function。

2、然后给函数命名仔尘，函数名后面的括号内部需要写上函数的参数，这里有参数可以写，没有参数也可以不写。以求和函数为例，写上两个参数。

3、下方定义函数的计算公式，将最终的输入结果通过弹出对话框的形式显示出来，使用msgbox比较方便。输入完成之后，点击运行。

4、在弹出来的对话框中可以看到整个表格中定义的函数，选择需要运念纳禅行的函数，点击运行，如图所示。

5、这里可以看到在excel表格中，已经弹出msgbox，显示最终的计算结果，这就是定义的求和函数计算的结果。

调用是方法名(参配纳数)，通过方法名返回值信息

1、定义一个带参数的方法

Function Test(ByVal s as String)  '定义一个string类型的参数s
    Test = "返回值"       '返回一个字庆历符串"返回值"
End Function

2、参数调用和值返回

Dim rtn '定义一个变量
rtn = Test("2");//传入参数2，返培差没回值赋值给rtn

Sub Macro2()

Dim RowNumber As Integer
Dim SheetName As String

SheetName = Range("A3")
RowNumber = 找行数清猜或(SheetName)
End Sub

Function 找行数(ByVal SheetName As String) As Long

Sheets(SheetName).Select
找行答伍数 = Cells.Find(What:="2013年兆咐", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Row

End Function