我有一个带两个字符串的函数,它应该添加它们。
Function teiseLopp(tekst1 As String, tekst2 As String) As String
Dim stringidKoos As String
stringidKoos = tekst1 & "" & tekst2
teiseLopp = stringidKoos
End Function
它应该将两个字符串一起返回,但它显示我#VALUE! =公式中使用的值是错误的数据类型。 (一切似乎都是正确的数据类型)
答案 0 :(得分:0)
无需在中间添加空字符串,您需要定义数据类型。尝试
Function teiseLopp(tekst1 As String, tekst2 As String) As String
Dim stringidKoos As String
stringidKoos = tekst1 & tekst2
teiseLopp = stringidKoos
End Function
另外,为什么不使用常规公式,如=A1&B1
答案 1 :(得分:0)
如果您引用的单元格中没有任何错误,您的代码应该可以正常工作。也许您选择了多个单元格作为输入?您可以尝试进行以下修改,看看是否有效。它将您的输入视为Range
,并且仅对每个输入范围中左上角单元格中的值进行操作。
Function teiseLopp(tekst1 As Range, tekst2 As Range) As String
Dim stringidKoos As String
stringidKoos = tekst1.Range("A1").Value & "" & tekst2.Range("A1").Value
teiseLopp = stringidKoos
End Function