添字は、Excelシート

-1

をコピーする時に、私は次のマクロ添字は、Excelシート

Sub Sample() 
    Dim wsI As Worksheet, wsO As Worksheet 

    Set wsI = ThisWorkbook.Sheets("Sheet5") 
    Set wsO = ThisWorkbook.Sheets("Sheet11") 

    wsI.Range(wsI.Range("A1").Value).Copy wsO.Range("A1") 
End Sub

を使用して別のExcelシートから値をコピーしようとしている。しかし、残念ながら、それは、ランタイムエラーを示している「9」：添字アウト範囲

どこが間違っていますか？

出典

2017-01-02 leo

グッドプラクティス（必ずしもベストプラクティス）に

wsI.Range(wsI.Range("A1").Value).Copy wsO.Range("A1")

に以下の行を変更してみてください。したがって、実際に使用する前に 'wsI.Range'関数のパラメータとして機能する変数を作成し、評価してください（デバッグモード）。これはあなたが問題だったことを示します。 – FDavidov

この時点でエラーが表示されています。wsI = ThisWorkbook.Sheets（ "Sheet5"） – leo

これは、 'Sheet5'が何であるかを知らないことを意味します。各用紙に自分の名前を記入してください。これはデバッグに役立ちます（実行に違いはありません）。 – FDavidov

は、明示的にそれらを使用する前に、インデックスを計算することをお勧め

wsI.Range("A1").Copy wsO.Range("A1")

出典

2017-01-02 11:36:40 sn152

答えて

関連する問題