セルの範囲を1つのフォームテキストボックスに読み込みます

Question

MSO Excel 2013を使用していますが、フォーム内の1つのテキストボックスに範囲のセルを読み込もうとしています。それは私が書いているヘルプファイルです。限り、私はちょうど1セルを読み込む限り、それは正常に動作します。ある範囲のセルをロードしようとすると、エラーが発生します。この仕事をする方法はありますか？私のコードは次の通りです：

Private Sub cmbTopic_Change() 
Me.lblTopic.Caption = Me.cmbTopic.Value 

Select Case Me.lblTopic.Caption 
    Case Is = "Understanding The Software" 
     Me.txtHelp.Text = Worksheets("HelpFile").Range("A2").Text 
    Case Is = "First Time Use" 
     Me.txtHelp.Text = Worksheets("HelpFile").Range("B2").Text 
    Case Is = "General Instructions" 
     'this is where I'm getting an error 
     Me.txtHelp.Text = Worksheets("HelpFile").Range("C2:C4").Text 

End Select 
End Sub 

Answer 1

セル値の文字列を作成し、それをテキストボックスに書き込む必要があります。

あなたはこのような何かをしようとする...

Dim Cell As Range 
For Each Cell In Sheet2.Range("C2:C4") 
    If Str = "" Then 
     Str = Cell.Value 
    Else 
     Str = Str & vbCrLf & Cell.Value 
    End If 
Next Cell 
Me.txtHelp.MultiLine = True 
Me.txtHelp.Value = Str