我需要将 Sheet1 的所有 L 列 复制到 Sheet4 上的 TextBox 中。< br/> 我尝试这样做:
Sub ToTB()
Sheets("Sheet4").TextBoxes("TextBox 2").Text = Sheets("Sheet1").Range("L:L").Text
End Sub
然后出现这个信息:
Application-defined or object-defined error
有什么建议吗??
最佳答案
这里有一些直接的东西。如果您已经有了 TextBox 并且只需要添加一系列单元格中的值:
Sub Test()
Dim srng As Range
Dim sWs As Worksheet: Set sWs = Sheets("Sheet1")
Set srng = sWs.Range("L1", sWs.Range("L" & sWs.Rows.Count).End(xlUp))
With Sheets("Sheet4").Shapes("Textbox 2").OLEFormat.Object
.Text = Join(Application.Transpose(srng), vbCrLf)
End With
End Sub
或者如果您希望将其添加为 Gary 发布的内容:
Sub Test()
Dim sWs As Worksheet, dWs As Worksheet
Set sWs = Sheets("Sheet1"): Set dWs = Sheets("Sheet4")
Dim dRng As Range, sRng As Range
Set dRng = dWs.Range("A1:A10") 'change to suit
Set sRng = sWs.Range("L1", sWs.Range("L" & sWs.Rows.Count).End(xlUp))
With dWs.Shapes.AddTextbox(msoTextOrientationHorizontal, _
dRng.Left, dRng.Top, dRng.Width, dRng.Height).OLEFormat.Object
.Text = Join(Application.Transpose(sRng), vbCrLf)
End With
End Sub
关于excel - 将整列复制到文本框中,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29040515/