excelでボタン一つでシートからシートへのコピーの方法。

締切済

質問者：shaoron
質問日時：2003/04/06 22:44
回答数：3件

例）
シート１に日付と商品名と単価と個数、それに特別の項目があります。
下図のような表。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
日付　商品　単価　個数
4/1　　　A　　100　　1
特別
4/1 　　 D　　　0　　　3
　　　　　　　　　　　　　　　←１行空いてます。
4/2 　　 B　　 120 　 2
4/2 　　 C 　　130 　 1
　　　　　　　　　　　　　　←１行空いてます。
4/3 　　 A　　　120 　 1
4/3 　　 C　　　130 　 3
特別
4/3　　　D　　　0　　　 5
　　　　　　　　　　　　　　←１行空いてます。
4/4　　定休日
：
：
4/30
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
このような表があるとします。
これをボタン一つでシート２にコピーしたいのです。
（簡単に言えばシート１がデータ。シート２が印刷用です。）
＜条件＞
シート２のセルの大きさは変えられませんが、それ以外はOK
シート２にコピーする際に日付指定が出来ること。（１日から５日までのデータを印刷するなど。）

長々とした文になりましたが、よろしくお願いします。
また、わからないことがあれば補足いたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者： imogasi
回答日時：2003/04/13 07:50

一例として、下記のようなＶＢＡプログラムが必要かと

考えます。お望みならコード例を作りますが。
>ボタン一つで
エクセルＶＢＡでプログラムを組む必要があると思います。
＞このような表があるとします
日付は、Ａ列にあるとして、日付順に上から下の行へ例外無く並んでいると仮定して良いですか。即ちスペースと特別行以外は日付け順に並んでいますか。
また日付けは２００３／４／１０のように正式な日付けで
入力されていますか。文字列ではないでしょうね。
＞シート２のセルの大きさは変えられませんが
この意味を理解できませんでした。なぜそう注記が必要なのかが。
＞コピーの方法
私の考えでは、「抜き出しする方法」のタイプの問題です。ＶＢＡではセルの値を他シートのセルに代入すれば良いのでコピーと言う気がしません。
ロッジックは
（１）Ｓｈｅｅｔ２のセルＡ１、Ｂ１に、抜き出すスタート日と終わり日を日付けで入れるものとする。
Ｓｈｅｅｔ２の第２行以下の行にコピーするものとする。
（２）第１行から最終行までに亘って下記を行う。
（３）Ａ列がスペースか「特別」なら、「コピー中のフラグ」がＯＮの時は、Ｓｈｅｅｔ２にその行をコピーする。
「コピー中のフラグ」が何をするためかと言うと、対象外の日付け行の間の、スペース行や「特別」行を拾わないようにするためです。下記（５）でセットします。
この際にＳｈｅｅｔ１のデータが日付け順になってないと
都合が悪いのです。
（４）それ以外だと日付けが入っていると見做し、Ｓｈｅｅｔ２のＡ１より等しいか大きく、Ｂ１より等しいか小さい日付けか判別する。
（５）（４）の条件に合う行は、Ｓｈｅｅｔ２へＳｈｅｅｔ１のその行をコピーする。（Ａ列からＤ列までを値を代入）
「コピー中のフラグ」と言う変数をプログラム内に設け、それをＯＮ（例えば値１）にする。
（６）Ｓｈｅｅｔ１、Ｓｈｅｅｔ２の次ぎの行へ行く。
（７）（４）の条件に合わない行は、次ぎの行を判別しに行く。「コピー中のフラグ」と言う変数には、合わない行では０をセット。
（８）Ｓｈｅｅｔ１にボタンを１つ貼りつけ、上記プログラムは、ボタンのクリック・イベントで走るようにする。