结合边单元格引用使用Excel的Convert函数

如何解决结合边单元格引用使用Excel的Convert函数

我试图在VBA中创建一个用户定义的函数，该函数将接受一行的输入。然后它将将我想要的Excel工作表的每个组件存储到一个不同的变量中，其中i是行，而1,3,5,8,10是A，C，E，H，J列。值是唯一的数字，而Un1 Un2 Pre1和Pre2是单位和前缀。然后，我想在Convert函数中使用那些已经内置在excel中的不同变量，在这里我将定义的两个变量连接起来，以便为Format函数正确格式化变量。然后，在单元格中显示转换后的值和新单位。我还无法弄清楚如何在单元格中显示值和更正单位，因此我尝试首先在消息框中进行操作。但是，我的代码给了我#Value！我按原样运行它并且未显示消息框时显示错误。对解决这个问题有什么建议吗？抱歉，我是VBA和编码的新手，所以我希望这是有道理的。

我现在的代码：

Function Convert(i)

'Dimensioning the variable type of each variable
Dim value As Long
Dim pre1 As String
Dim un1 As String
Dim pre2 As String
Dim un2 As String
Dim Num As Double

'Selecting the desired cell in the chosen row
value = ActiveSheet.Cells(i,1).Select
pre1 = ActiveSheet.Cells(i,3).Select
un1 = ActiveSheet.Cells(i,5).Select
pre2 = ActiveSheet.Cells(i,8).Select
un2 = ActiveSheet.Cells(i,10).Select

'using excel's built-in function,convert,to convert the value to a different unit
Num = Application.WorksheetFunction.Convert(value,pre1 & un1,pre2 & un2)

MsgBox (Num & pre2 & un2)

End Function