|
1 日付 品名 実績 稼働率 不良1 不良2 不良3・・・
22007.08.23 富士山 3000 87% 56 58 60 ・・・
3 立山 400 59% 70 70 空 80 ・・・
4 館山 3900 90% 69 90 白 90 ・・・
52007.09.04 桑山 600 89% 89 69 列 69 ・・・
6 浅間山 4000 89% 89 78 67 ・・・
72007.09.22 土地山 4000 67% 67 98 120 ・・・
8 逆山 600 78% 123 34 56 ・・・
92007.09.23三笠山 700 56% 980 67 90 ・・・
10 三山 560 59% 590 69 120 ・・・
112007.10.05 福井山 650 89% 89 98 67 ・・・
上記のようなデータベースを作っています。一日に品名は1以上入力します。
左の番号は行番号です。
ユーザーフォームにテキストボックス2個とコマンドボタンを貼り付け、テキストボックに2007.09.01 〜 2007.09.31と入力しコマンドボタンをクリックすれば行番号5の最終列(途中空白列が2箇所あり)〜 行番号10の最終列まで選択され、それをシートを追加しコピーしたいと思います。
日付から次の日付まで空白セルがあるのでオートフィルターで試したが空白行の品名などが表示されませんでした。(マクロ)
あと列に空白列があるのでテキストに入力した日にちの列範囲の最終列をどう数えればよいのでしょうか。
マクロを参考にしながらテキスト本を片手にVBAをはじめましたが、なかなかできません。よろしくお願いします。
データは1年以上あります。
|
|