将单元格区域加载到单个表单文本框中

Question

我正在使用MSO Excel 2013，并且正在尝试将一系列单元格加载到表单的单个文本框中。这是我正在编写的帮助文件。只要我只加载一个单元格，它就能正常工作。当我试图加载一个单元格范围时，我得到一个错误。有没有办法做到这一点呢？我的代码如下：

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

您将需要构造一个单元格值字符串，然后将其写入textbox。

你可以试试这样的东西...

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