2016-09-08 8 views
0

異なるシートのセル値に基づいて配列を設定できるかどうかは疑問でした。例えば、私は私が最初に「C3」その後セル値に基づいてシート配列を設定する

Sub rename() 
    Dim ws As Worksheet 

    For Each ws In Sheets 
     On Error Resume Next 
     ws.Name = ws.Range("C3") 
    Next ws 

End Sub 

でその値に基づいて、シートの名前を変更していた文書を持っている、私は「古い」シートの各を通じて、新たな文書やループを作成します特定の値を検索する。私はシートの名前の付け方を知っているので、しかし、私の範囲およびその他の設定は、今、私はシートは付けの方法を知っていたことから、私は少し下のコードについて心配している。この

Dim i As Integer 
Dim resultrange As Range 
Dim row As Range 
Dim sheetsArray As Sheets 
Set sheetsArray = ActiveWorkbook.Sheets(Array("10", "20", "30", "40", "50")) 

Dim target As Range 
Dim sheetObject As Worksheet 
Dim lastrow As Long 
lastrow = Cells.SpecialCells(xlCellTypeLastCell).row 

のように見えます。

Set sheetsArray = ActiveWorkbook.Sheets(Array("10", "20", "30", "40", "50")) 

ここで私の質問は、シートの名前の付け方を知らずに配列を設定できるかどうかです。または、セル値のNameに基づいて範囲を指定することは可能ですか?

私はあなたが、アレイ内のワークシートのインデックスを格納することができ、私の質問に理解

答えて

1

を表現することを願っています。ワークシートの順序が変わらない限り変更されません。

enter image description here

関連する問題