セルから値を取り出すことができませんVBA

Question

別のシートからシートをアクティブにしようとしていて、Excelのメッセージボックスにセルの値を表示しようとしていますが、実行するたびにサブスクリプトがあります範囲の。

マイコード：

Sub Home() 
Dim tbValue As String 
tbValue = Worksheets("Home").TextBox1.Value 

Worksheets(tbValue).Activate 

MsgBox Cells(7,1).Value 


End Sub 

誰もが範囲外の理由添字任意のアイデアがありますか？ありがとう

Answer 1

コードは実行可能に見えますが、上にWith/ End withとOption Explicitを試してみてください。さらに、.Cells（7,1）はエラーなのかもしれません。とにかく、もう一度試してください。

Option Explicit 

Sub Home() 
    Dim tbValue As String 
    tbValue = trim(Worksheets("Home").TextBox1.text) 

    with worksheets(tbValue) 
     MsgBox .Cells(7,1) 
    end with 

End Sub 

をTrimためのアイデアコメントでも良いものです。 もう一度進むには、TextBox1.Textを使用してください。ここをクリックしてください - Distinction between using .text and .value in VBA Access

Answer 2

ワークシート名が見つからないため、添え字が範囲外です。 Worksheet(...)の回線コードで発生することがあります。

1. Worksheets("Home")あなたのアクティブなブックは、あなたのホームワークシートと1ではないかもしれないので、添字エラーを返すことがあり、

2. Worksheets(tbValue)が同じ第1の理由で失敗し、tbValueが正確なシート名と一致しない可能性があるためです。

最初のソリューションは、正しいブックがアクティブであることを確認することができる。

Sub Home() 
    Dim tbValue As String 
    Workbooks("your_workbook_name.xlsm").Activate 
    tbValue = ThisWorkbook.Worksheets("Home").TextBox1.Value 
    Worksheets(tbValue).Activate 
    MsgBox Cells(7,1).Value 
End Sub 

よりよい解決策をシートや書籍アクティベーションを回避し、完全修飾オブジェクトを使用することです。マクロは、ホームのシートと同じブック内にある場合：

Sub Home() 
    Dim tbValue As String 
    tbValue = ThisWorkbook.Worksheets("Home").TextBox1.Value 
    MsgBox ThisWorkbook.Worksheets(tbValue).Cells(7,1) 
End Sub 

また、ワークシート、おそらくSheet1（IDEでこの名前を確認することができます）に割り当てられた名前VBAでWorksheets("Home")を置き換えることができます。