|
後、書き忘れた事がもう1点有りました
コードを善く見てもらえば解る事だと思いますが?
現状、このコードの処理対象は、ActiveSheetにして有ります
此れは何を意味するかと言うと、このマクロが必ずしも、転記するBookに無くても動くと言う事です
詰まり、転記するBookが幾つも有る場合(月等によりBookが新しく成る様な場合)
そのBook毎に、このマクロを記述せずとも使えます
その方法は、新規のBookの標準モジュールに、このマクロを記述して、
コンパイルし、適当な名前で保存して置きます
転記したい時は、先ず適当な名前を付けたマクロの有るBookを起動します
次に、転記したいBookを開き、転記するSheetをActiveにします
ここで、このマクロを起動すれば、Activeにして有るSheetを対象に処理が成されます
処理終了後、転記したBookを保存終了し、マクロの有るBookを保存せず終了すれば、
転記するBookは、常にデータだけと成ります
マクロを修正した時も、マクロが一元化され修正、無修正のマクロが混在状態になる事も無くなります
尚、逆に、Book、Sheetを固定化させたい場合
'ActiveSheetのA1セルを基準とする(Listの左上隅)
Set rngResult = ActiveSheet.Cells(1, "A")
のActiveSheetをBook名で修飾したSheetを指定します
例えば、常にマクロの有るBookのSheet1と言う名前のシートに転記する場合
'ActiveSheetのA1セルを基準とする(Listの左上隅)
Set rngResult = ThisWorkBook.WorkSheets("Sheet1").Cells(1, "A")
とします
また、表を、1行下にしたい、1列右にしたい等と言う場合
.Cells(1, "A")の値を(1を2にすれば2行目、"A"を"B"にすればB列)変更して下さい
|
|