VBA Excel #VALUE錯誤

Question

我有一個需要兩個字符串的函數，它應該將它們相加。

Function teiseLopp(tekst1 As String, tekst2 As String) As String
    Dim stringidKoos As String
    stringidKoos = tekst1 & "" & tekst2
    teiseLopp = stringidKoos
End Function

它應該一起返回兩個字符串，但顯示#VALUE！ =公式中使用的值是錯誤的數據類型。 （一切似乎都是正確的數據類型）

Answer 1

無需在中間添加空字符串，並且您需要定義數據類型。 嘗試

Function teiseLopp(tekst1 As String, tekst2 As String) As String
    Dim stringidKoos As String
    stringidKoos = tekst1  & tekst2
    teiseLopp = stringidKoos
End Function

另外，為什么不使用正則公式，如=A1&B1

Answer 2

如果您引用的單元格中沒有任何錯誤，那么您的代碼應該可以正常工作。 也許您選擇了多個單元格作為輸入？ 您可以嘗試以下修改，看看是否可行。 它將您的輸入作為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