行数が変化する表をチェックボックスにチェックが入っている箇所のみ増やし

質問

行数が変化する表をチェックボックスにチェックが入っている箇所のみ増やしたい。

わかりづらい説明で申し訳ありません。
添付画像で説明します。（画像あってもわかりづらいと思いますが＾＾；）

６月になり、会社Ａからの商品購入が入りました。
会社Ｂからは商品購入は４月以来ないので、商品項目（Ｃ列）の行数やＤ列からＧ列に該当する部分は増やしたくありません。

会社Ａのみ６月分としてＤ５セルからＧ１５セルまでをコピーして、コピーしたものをＤ５セルからの部分に「コピーしたセルの挿入」の「右方向にシフト」の方法で挿入し、挿入した「月」「日付」「単価」「数量」のそれぞれのセルに入っている値をクリア（消去）したいです。
「合計」列の各セルには「単価」＊「数量」の計算式が入っているので、クリアしたくありません。

会社Ａはいろいろな種類の商品を購入しているので、商品数が現在９行分ありますが、元々つまり、最初の段階では会社Ｂように５行分のみで、購入商品の種類が５つ以上に増えた場合はその都度手動で１行づつ増やしています。つまり必ず決まった何行分か増やせばＯＫいう事ではありません。
コピーしたい列数はＤからＧまでの４列と決定しているのですが、増やす行数が事前に決定していない場合に、Ａ列にあるチェックボックスにチェックを入れれば（該当するセルの値がTRUEの時という意味です。リンク設定はされています。）、必要な行数分コピーしてＣ列とＤ列の間に挿入出来るエクセルVBAでのプログラムを教えて下さい。

又、挿入後の「月」「日付」「単価」「数量」の各セルに入っている値をクリアするのは、手動でもいいかなと思っています。

尚、画像でもわかりづらいので説明しますと、会社Ａの５月分でいうと、Ａ５からＡ１５までは結合セルとなっており、Ｂ５からＢ１３までも結合セル、Ｄ５からＧ５も結合セル、Ｄ１５からＧ１５も結合セルとなっております。

最近色々と訊いてしまって本当に申し訳ありませんが、宜しくお願い致します。

回答No.2

mt2008 · ベストアンサー

シートに貼り付ける事が出来るチェックボックスには2種類あってどちらなのか明記がありませんでしたので、A列にはチェックボックスではなく、1/0の数値が入っているとしました。

Sub Sample()
　　For i = 5 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
　　　　If Cells(i, 1) = 1 Then
　　　　　　'結合セルの左上セルか確認
　　　　　　If (Cells(i, 1).MergeArea.Column = Cells(i, 1).Column) * (Cells(i, 1).MergeArea.Row = Cells(i, 1).Row) Then
　　　　　　　　'コピーと挿入
　　　　　　　　With Range(Cells(i, 4), Cells(i + Range("A" & i).MergeArea.Count - 1, 7))
　　　　　　　　　　.Copy
　　　　　　　　　　.Insert Shift:=xlToRight
　　　　　　　　End With
　　　　　　　　Range(Cells(i, 4), Cells(i, 7)).ClearContents '○月の部分をクリア
　　　　　　　　Range(Cells(i + 1, 4), Cells(i + Range("A" & i).MergeArea.Count - 2, 6)).ClearContents '合計以外をクリア

　　　　　　End If
　　　　End If
　　Next i
End Sub

お礼

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

行数が変化する表でもコピペによる挿入がちゃんと出来るようになりました。

いつも本当にありがとうございます。

回答No.1

imogasi

VBAでも相当高度のことを聞いているので、ここに質問するレベルでは難しいと思う。当面人間の操作で対応せねばならないように思う。
コントロールを使い出だしたらVBAが必須です。そこまでの質問者は認識はあるとして
（１）イベントを捉えることについて
チェックボックスのクリックイベントを捕らえなければならないが、多数の会社がある＝チェックボックスが沢山ある場合はどのチェックボックスにチェックが入れられたか判別するコードを書くのが難しい。
コントロール配列という考えの、イベント版をVBAコードで作れると、コードが簡単になるが、VBAではむつかしい。
会社の数＝チェックボックスの数だけほぼ同じコードを並べるつもりなら、考えは易しいが、増えたときなどコードの追加が必要になるように思う。
セルとリンクさせてLinkedCellの値変化で捉えようとしたがChangeイベントはマウスクリックしか捕らえないようだ。
（２）行挿入する位置が
会社列の結合セルの一番下の行の次になると思うが、これも結合セルの割り出し方、行範囲をとらえるなど初心者には難しい。
参考までに
Sub test01()
MsgBox Range("B2").MergeArea.Address
End Sub
結合セルのどのセルをRange("B2").に指定してもMergeArea.は、属する結合セル全体セルを捉える。
その他参考になるコードを挙げてみる。
セル結合はエクセルバージョンの中間から出来たもので、VBAとかで色々扱いが難しい。
初心者は良く使うようだが、扱いが難しくなる。
同一会社名は白色書体設定で２行以下を見えにくくして我慢すべきか。
市販のVBAの本にもセル結合の扱いは余り触れられていない。
WEBには少数にしろ関連記事があるので調べる。
Sub test01()
MsgBox Range("B2").MergeArea.Address '所属結合セル範囲番地
MsgBox Range("B2").MergeArea.Rows.Count ''結合セル行数
mr = Range("B2").MergeArea.Rows.Count '結合セル行数
MsgBox Range("B2").MergeArea.Select
MsgBox Range("B3").MergeArea.Cells(mr, 1).Address
MsgBox Range("B2").MergeArea.SpecialCells(xlCellTypeLastCell).Address
Range("B3").MergeArea.Cells(mr, 2).Select '非結合列指定
Selection.EntireRow.Insert '結合範囲の最下行の下に行挿入
End Sub

お礼

いつもありがとうございます。

大変勉強になりました＾＾