| 
    
     |  | 例えば顧客コード001から100のシートを作成し、合計シートで抽出対象のシートを選択する。 
 シート名:001 (no.とシート名は同じにしている。)
 A    B    C     D
 1   no.    name
 2   001    aaaa
 3
 4   month   data1  data2   ......
 5    4    xxx,xxx xxx,xxx  ......
 6    5    xxx,xxx xxx,xxx  ......
 7    6    xxx,xxx xxx,xxx  ......
 
 ___________________________________________________________________________
 001/002/003/004/...................../100/total4/total5/...... シートタブ
 (シート001〜100迄のフォームは一緒)
 
 シート名:total4 (4月分抽出シート)
 
 A    B     C     D
 1   no.  name  data1  data2
 2   001  aaaa  xxx,xxx xxx,xxx  ......
 セルC2の計算式 ='001'!$B$5  D2は ='001'!$C$5
 ('001'!はシート名です)
 3  005  eeee xxx,xxx xxx,xxx
 4  013  mmmm xxx,xxx xxx,xxx
 5  030  ......   ......    ......
 6  100  ......   ......    ......
 
 セルC2を3行目以降のセルに貼り付けた場合、計算式が='001'!$B$5のままになるので、顧客コード013を抽出したい場合、計算式中のシート名'001'を'013'に換える必要がある。
 ファンクションキー2(F2)で再編集で打ちかえると手間が掛かるので、VBAのプログラムでシートの選択ができるようになればと思い質問しました。(その前に可能かどうか疑問ですが。)
 解りにくい質問で申し訳ありませんが何か良い方法等がございましたら教えていただきたいのですが。
 
 
 |  |