Question

嗨，我是VBA的新手，但想做一些看似简单的事情，但我无法理解。

我想将多个单元格链接到文本框，并将值放在不同的行上。防爆。 A1 =蓝色; B1 =红色; C1 =黄色

我想要一个文本框返回：
红
蓝
黄色

我无法在任何地方找到答案。

我现在的代码是：

Sub Macro2()

' Macro2 Macro

    ActiveSheet.Shapes.Range(Array("TextBox 2")).Select
    Selection.Formula = "=$A$1"

End Sub

这会将A1的值返回到文本框中，但我还需要B1和C1的值。

任何帮助将不胜感激。感谢

更新

Elbert Villarreal的回答解决了我的问题，但我还有最后一个问题。

我想为（A2，A3，A4）做多行。有没有办法为这些不同的数据行做一个循环？

Answer 1

有了这个你就可以做你想要的：

Sub Stobi1()
        Dim txt As String 'Where to store the text/data
        Dim myTxtBox As Shape 'where to store the textbox that is a Shape

        Set myTxtBox = ActiveSheet.Shapes("myTextBox") 'take the name of your textbox
        txt = Range("A1").Value & Chr(10) & Range("B1").Value & Chr(10) & Range("C1").Value 'this whay you can take the strings of the cells and "write it" with a new line between

        myTxtBox.TextFrame2.TextRange.Characters.text = txt 'Put your text inside the TextBox
End Sub

将多个单元格链接到TextBox VBA

1 个答案: