2013-10-03 66 views
-3

我想添加一个范围到一个变量,然后该变量将是文本将显示在文本框中。我到目前为止所做的是以下代码:变量到一个文本框vba

Private Sub TextBox1_Change() 
Dim text1 As String 
text1 = Sheet16.Range("C21:D40").Value 
Sheet15.TextBox1.Value = text1 
End Sub 

当我尝试运行它时,出现“类型不匹配”错误。请任何建议将不胜感激。

+0

如果你不指定'Dim text1 As String',但只是'Dim text1',会发生什么? – Floris

+6

一个字符串只能是一个单元格的值,而不是一个单元格的范围 – SWa

+1

@Kyle是一个很好的观点。你期望在文本框中看到什么?该范围内所有单元格中所有值的拼接? – Floris

回答

0

您无法将范围指定为字符串变量。

如果你想加起来还是要总结的范围内,你的代码将类似于这样:

Private Sub myAddingFunction() 
    Dim text1As String 
    text1= Application.Sum(Range("C21:D40")) 
    Range("c1").Value = text1 
End Sub 

凡范围(“C1”)可以被替换为Sheet15.TextBox1.Value