2012-04-02 15 views
2

私はテンプレートとして機能するワークブックを持っています。vbaのシートを動的に管理するExcel

現在、sheet3からsheet12には同じテンプレートの表が格納されています。 sheet12に私のシート3の情報静的に以下のような辞書内に格納されている(もちろん、私はここでループを使用しますが、簡単にするためにできる)

Value2SheetNo.Add Sheet3.Range("F5").Value, 3 
Value2SheetNo.Add Sheet4.Range("F5").Value, 4 
Value2SheetNo.Add Sheet5.Range("F5").Value, 5 
Value2SheetNo.Add Sheet6.Range("F5").Value, 6 
Value2SheetNo.Add Sheet7.Range("F5").Value, 7 
Value2SheetNo.Add Sheet8.Range("F5").Value, 8 
Value2SheetNo.Add Sheet9.Range("F5").Value, 9 
Value2SheetNo.Add Sheet10.Range("F5").Value, 10 
Value2SheetNo.Add Sheet11.Range("F5").Value, 11 
Value2SheetNo.Add Sheet12.Range("F5").Value, 12 

しかし、ワークブックがテンプレートであることから、私は時間があります5つのテーブルが必要です(したがって、シート3からシート7までが必要です。シート8からシート12は削除されます)。 根底にあるコードを変更せずに、このような状態にどう対応できますか?

ありがとうございました。

+0

コードをどのように呼び出していますか?上記のコードを変数 'For i = 1 to ShtNo'を使ってループに入れ、それに応じて呼び出すことができますか? –

答えて

0

コードはあなたの例のようにワークシートのコード名を使用している場合は、その答えはノーであるために、あなたが本当にワークシートのコード名を使用しないようにコードを変更せずに不足しているシートの条件に応じることができません表示されます。 (Sheet12を参照するすべてのコードがSheet12が削除される前に実行されている場合にはうまくいくかもしれないが、それのいずれかが後を実行する必要がある場合は、コードを変更する必要があります。)

を変更する方法についての提案をしたい場合コード、私に教えてください。

関連する問題