TextBoxへのnamed_rangeのVBAコピー値

Question

名前付き範囲（またはユーザー定義範囲）には6列ありますが、行数は他の機能に基づいて変更されることがあります。

6つの列とすべての行の、その範囲の値全体をTextBoxに取得しようとしました。行はタブで区切られます。

次のコードを返しますが、エラー定義されたオブジェクトなど

UserForm1.TextBox1.Value = Sheet1.Range("named_range").Value 

感謝すべてのヘルプ。

編集：

FunThomasが正しいと、私はそれを別の行を宣言しない範囲の値を取得することができwon'e。だから私は、マルチラインのmsgBoxで範囲を表示するのにうまくいく以下のコードから始めました。

どのように追加のInputBoxを取り除き、制限された機能を持つmsgBoxの代わりにUserForm1.TextBox1に結果を表示しますか？あなたが複数の行を持っていたよう

Sub showOfferRange() 
Dim xRg As Range 
Dim xTxt As String 
Dim xCell As Range 
Dim xStr As String 
Dim xRow As Long 
Dim xCol As Long 
On Error Resume Next 
    xTxt = ThisWorkbook.Names("offers_running") 
Set xRg = Application.InputBox("Offer range:", "Display offers", xTxt, , , , , 8) 
'Set xRg = xTxt 
If xRg Is Nothing Then Exit Sub 
    On Error Resume Next 
For xRow = 1 To xRg.Rows.Count 
    For xCol = 1 To xRg.Columns.Count 
     xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab 
    Next 
    xStr = xStr & vbCrLf 
Next 
    MsgBox xStr 
End Sub 

Answer 1

基本的には、フォームのテキストボックスにテキストを書くために、ちょうど

UserForm1.TextBox1.text = UserForm1.TextBox1 
UserForm1.show 

をit's、テキストボックスのMultiLine -Propertyを設定することを忘れドント〜true。

別のポイント：範囲を読み取る行を変更する必要があります。 on error resume nextはすべてのエラーを食い止め、完全に失われてバグを見つけることができるので、非常に危険な声明です。入力ボックスがRangeを返さないケースをキャッチする必要があるだけです（たとえば、キャンセルが押されたためです）。だから私は、あなたが

xTxt = ThisWorkbook.Names("offers_running") 
Set xRg = Nothing 
On Error Resume Next 
Set xRg = Application.InputBox("Offer range:", "Display offers", xTxt, , , , , 8) 
On Error Goto 0 
If xRg Is Nothing Then Exit Sub