複数のセルをTextBox VBAにリンク

Question

こんにちは、私はVBAを初めて使っていますが、一見シンプルなことをしたいと思っています。

私は複数のセルをテキストボックスにリンクし、その値を異なる行にしたいと考えています。 Ex。 A1 =青; B1 =赤; =イエロー

C1は、私は、テキストボックスの戻り値を持つようにしたい：
レッド
ブルー
イエロー

私はこのどこかに答えを見つけることができません。

私が今持っているコードは次のとおりです。

Sub Macro2() 

' Macro2 Macro 

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

End Sub 

これは、テキストボックスにA1の値を返しますが、私はまた、B1とC1の値を必要とします。

ご協力いただければ幸いです。おかげ

更新：

エルバートビジャレアルの答えは私の問題を解決しましたが、私は最後の質問があります。

私は（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