＊＊＊　初マクロ　＊＊＊ Untidy Bookshelves/ウェブリブログ

＊＊＊　初マクロ　＊＊＊

<< 作成日時： 2008/01/02 23:01 >>

　初マグロ！・・・ではありません。初マクロです。期待した方、すみません。

　別に誤読を誘って、一見さんを呼び込む意図があるわけではなく・・・、いや、誤読でもこれはまだ可愛いほうでしょうか!?
　先日、ある人に「タダモノではありませんね」とメールしたら・・・。

　　タダモノがケダモノに読めます。。。
　　　
　予期せぬ返事に思わずのけぞってしまいました。
　カタカナにしたのに深い意味はなかったのですが・・・、カタカナで送ってよかったです。

　のっけから話がそれまくりですが・・・、年が明けてから、初めて組んだマクロのこと・・・。きょうのことではなく、きのうの話・・・、何が楽しくて元日からExcelマクロをいじっているのでしょう？　自問自答しても答えは出てきませんが、はっきりしているのはこんなのは圧倒的少数派であるということ・・・。

＜本日のお題＞
　・９つの同じ要素から構成される２つのデータセット（データAとデータB）を組み合わせて
　　新たなデータセットを作る。
＜方法＞
　・２つのデータセットのいずれかしかシート上（シート名"main"）には取り込めないので、
　　一方を取り込んだら別シート（シート名"sub"）に必要な要素をコピペしておく。
　　そして、もう一方を"main"に取り込んだ後、"sub"にコピペしておいたデータを上書きする。
　　　例）要素１・要素２はデータA、ほかの要素はデータBのデータセットを作成する場合
　　　　　　　１）要素１・要素２のフラグを１とする。
　　　　　　　２）データAをシート"main"に取り込む。
　　　　　　　３）マクロ「コピペ１」でシート"main"の要素１・要素２をシート"sub"にコピペ。
　　　　　　　４）データBをシート"main"に取り込む。
　　　　　　　５）マクロ「コピペ２」でシート"sub"の要素１・要素２をシート"main"にコピペ
　　　　　　または
　　　　　　　１）要素３～要素９のフラグを１とする。
　　　　　　　２）データBをシート"main"に取り込む。
　　　　　　　３）マクロ「コピペ１」でシート"main"の要素３～要素９をシート"sub"にコピペ。
　　　　　　　４）データAをシート"main"に取り込む。
　　　　　　　５）マクロ「コピペ２」でシート"sub"の要素３～要素９をシート"main"にコピペ
　・取り込む要素の組み合わせに制限は設けない。
　　シート"sub"上に９つあるフラグで取り込むか否かを決定する。
　　フラグが１の場合は対応する要素がコピペされ、０の場合はコピペされない。

　そんなわけで、マクロを作成したのですが、データAとデータBはそれぞれ別な方法で作られたものなので、組み合わせることにどれほど意味があるのか、という問題が残ります。オペレーションのことだけ考えると、編集しやすい要素を組みまわせるのは一つの手なのですが・・・、根本対応には程遠く、やっぱり自問自答してしまいます。
　おまけにデータAとデータBは１要素のデータ数が異なっていて・・・、「コピペ１」「コピペ２」のマクロでコピペするデータ数が異なるのはこれが理由。同じにすると、「コピペ２」でシート"main"に値を返したとき、空白が生じる可能性があるのです。
　今年もやっつけ仕事で始まってしまいました。もう少し先の見通しのあることをしないといけませんね。

--------------------------------------------------
Sub コピペ１()

Dim f(10) As Single
Application.ScreenUpdating = False

Sheets("sub").Select
’残っている（かもしれない）データを消去
Range(Cells(10, 4), Cells(400, 62)).Select
Selection.Clear

’セルC1～セルC９に入っている、要素１～要素９のフラグを読み取る
　フラグが１ならばコピーする。０ならばコピーしない。
For j = 1 To 9
f(j) = Cells(j, 3)
Next j

Sheets("main").Select
’データセットから地点数を読み取る。
　９行ごとに文字が入っているかをチェックし、空白だったら地点数をaaとし、次へ
For i = 1 To 100
If Cells(9 * i + 1, 3) <> "" Then
aa = i
End If
Next i

’フラグが１の要素をmainからsubにコピペ。１要素のデータ数は52。
For j = 1 To 9
　If f(j) = 1 Then
　　For i = 1 To aa
　　Sheets("main").Select
　　Range(Cells(i * 9 + j, 11), Cells(i * 9 + j, 62)).Select
　　Selection.Copy
　　Sheets("sub").Select
　　Cells(i * 9 + j, 11).Select
　　ActiveSheet.Paste
　　Next i
　End If
Next j

Cells(1, 1).Select
Application.ScreenUpdating = True

End Sub
--------------------------------------------------

Sub コピペ２()

Dim f(10) As Single
Application.ScreenUpdating = False

Sheets("sub").Select
’セルC1～セルC９に入っている、要素１～要素９のフラグを読み取る
　フラグが１ならばコピーする。０ならばコピーしない。
For j = 1 To 9
f(j) = Cells(j, 3)
Next j

Sheets("main").Select
’データセットから地点数を読み取る。
　９行ごとに文字が入っているかをチェックし、空白だったら地点数をaaとし、次へ
For i = 1 To 100
If Cells(9 * i + 1, 3) <> "" Then
aa = i
End If
Next i

’フラグが１の要素をmainからsubにコピペ。１要素のデータ数は36。
For j = 1 To 7
　If f(j) = 1 Then
　　For i = 1 To aa
　Sheets("sub").Select
　Range(Cells(i * 9 + j, 11), Cells(i * 9 + j, 46)).Select
　Selection.Copy
　Sheets("main").Select
　Cells(i * 9 + j, 11).Select
　ActiveSheet.Paste
　　Next i
　End If
Next j

Cells(1, 1).Select
Application.ScreenUpdating = True

End Sub
--------------------------------------------------