| 
    
     |  | ▼りん さん ありがとうございます!
 参考書よりも分かり易く、かつ、応用までご教示頂き、
 助かりました。
 
 ▼りん さん:
 >T-K さん、こんにちわ。
 >>参考書を見ると、例えば以下のようになってます。
 >>Sub smpControlSource()
 >>  UserForm1.TextBox1.ControlSource = "B2"
 >>  UserForm1.Show
 >>End Sub
 >>
 >>この参考で表示できたので特定セルの場合、例えば以下のようにしたら、
 >>エラーがでてきました。
 >>Sub smpControlSource()
 >>  Dim TextBox1 AS String
 >>  UserForm1.TextBox1.ControlSource = Worksheets("Sheet1").Range("B2:C2")
 >>  UserForm1.Show
 >>End Sub
 >
 >ControlSourceのヘルプより、
 > object.ControlSource [= String]
 >
 >ということで、リンクさせるセルを示す文字列を指定します(参考書の"B2")。
 >そして、リンク先のセルは単独でないとエラー(テキストボックスの値なので1つ)になり、B2:C2が結合セルだとしたらB2だけ指定すればよいので、
 >
 >UserForm1.TextBox1.ControlSource = Worksheets("Sheet1").Range("B2").Address(external:=True)
 >
 >とすればお望みの結果が得られると思います。
 >
 >B2とC2がそれぞれ違う文字が入っていて、結合して表示したいとかならば話は別ですが。
 
 
 |  |