Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5281 / 13646 ツリー ←次へ | 前へ→

【51376】データを日付で範囲抽出 新参者 07/9/13(木) 21:54 質問[未読]
【51379】Re:データを日付で範囲抽出 じゅんじゅん 07/9/14(金) 9:26 発言[未読]
【51380】Re:データを日付で範囲抽出 Jaka 07/9/14(金) 9:29 発言[未読]
【51403】Re:データを日付で範囲抽出 新参者 07/9/14(金) 21:26 お礼[未読]
【51433】Re:データを日付で範囲抽出 Jaka 07/9/18(火) 10:19 発言[未読]
【51683】Re:データを日付で範囲抽出 新参者 07/9/30(日) 10:44 お礼[未読]
【51684】Re:データを日付で範囲抽出 じゅんじゅん 07/9/30(日) 11:43 発言[未読]
【51767】Re:データを日付で範囲抽出 新参者 07/10/4(木) 7:32 お礼[未読]

【51376】データを日付で範囲抽出
質問  新参者  - 07/9/13(木) 21:54 -

引用なし
パスワード
   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年以上あります。


      

【51379】Re:データを日付で範囲抽出
発言  じゅんじゅん  - 07/9/14(金) 9:26 -

引用なし
パスワード
   ▼新参者 さん:
>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 ・・・
>
日付の列は空白セルにせず、同じ日付なら同じ日付を入れていけば
やりやすいと思います。
また、今の日付は文字列ですよね?
でしたら、シリアル値に直した方が扱いやすいのかも?

取り敢えず、一案と言う事にしておきます。

【51380】Re:データを日付で範囲抽出
発言  Jaka  - 07/9/14(金) 9:29 -

引用なし
パスワード
   データがこんな風になっていれば、オートフィルターで簡単なんですけどね。
ただ、「2007.08.23」らが、日付(表示形式でyyyy.mm.dd)なのか、
文字列なのかを、はっきり記載しておいた方が良いです。

>1 日付   品名  実績 稼働率 不良1 不良2  不良3・・・
>22007.08.23 富士山 3000  87%   56   58    60 ・・・
>32007.08.23 立山  400  59%   70   70 空  80 ・・・
>42007.08.23 館山  3900  90%   69   90 白  90 ・・・
>52007.09.04 桑山  600   89%   89   69 列  69 ・・・
>62007.09.04 浅間山 4000  89%   89    78    67 ・・・
>72007.09.22 土地山 4000  67%   67   98    120 ・・・
>82007.09.22 逆山  600  78%   123   34    56 ・・・
>92007.09.23三笠山 700   56%  980   67    90 ・・・
>102007.09.23三山  560   59%  590   69   120 ・・・
>112007.10.05 福井山 650  89%   89   98    67 ・・・

【51403】Re:データを日付で範囲抽出
お礼  新参者  - 07/9/14(金) 21:26 -

引用なし
パスワード
   ▼新参者 さん:
>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年以上あります。
>
ジュンジュンさん、Jakaさん早速のヒントありがとうございます。
空白行の日付はFormat関数も使って可能と思います。
ただ、空白列は入れたいのです。空白列の入った最終列の数え方をいくつか教えてください。

>

【51433】Re:データを日付で範囲抽出
発言  Jaka  - 07/9/18(火) 10:19 -

引用なし
パスワード
   >空白列の入った最終列の数え方をいくつか教えてください。
これは使う状況によってまちまちなので、簡単にこうですとは言えないです。
詳細がかかれてないので、例えば

A1セルを選択して、
Ctrl + → キーを押したもの

IV1を選択して
Ctrl + ← キーを押したもの

をマクロ記録するとか...。
尚、
A1、IV1セルが空白時、B1、IU1セルが空白時など状況によっても変わるので、それに対応できるようにコードを組む。

【51683】Re:データを日付で範囲抽出
お礼  新参者  - 07/9/30(日) 10:44 -

引用なし
パスワード
   ▼Jaka さん:
>>空白列の入った最終列の数え方をいくつか教えてください。
>これは使う状況によってまちまちなので、簡単にこうですとは言えないです。
>詳細がかかれてないので、例えば
>
>A1セルを選択して、
>Ctrl + → キーを押したもの
>
>IV1を選択して
>Ctrl + ← キーを押したもの
>
>をマクロ記録するとか...。
>尚、
>A1、IV1セルが空白時、B1、IU1セルが空白時など状況によっても変わるので、それに対応できるようにコードを組む。

Jakaサンありがとうございます。遅れてすいません。
A列からM列まで範囲があり、そのあいだにE列とH列を空白列にしてあります。
だから、Jakaさんのを参考にrange("iv1").end(xltoleft).columnで列を数えればよいのでしょうか?

【51684】Re:データを日付で範囲抽出
発言  じゅんじゅん  - 07/9/30(日) 11:43 -

引用なし
パスワード
   >A列からM列まで範囲があり、そのあいだにE列とH列を空白列にしてあります。
>だから、Jakaさんのを参考にrange("iv1").end(xltoleft).columnで列を数えればよいのでしょうか?

範囲が”M列まで”ならば、最終列はM列です。
M列より動くのなら上記のコードでよいかと。

M列にデータがあったり、なかったり、と言う事なのでしょうか?
有無を問わずコピーするなら、M列固定でもよいのかも?

【51767】Re:データを日付で範囲抽出
お礼  新参者  - 07/10/4(木) 7:32 -

引用なし
パスワード
   ▼じゅんじゅん さん:
>>A列からM列まで範囲があり、そのあいだにE列とH列を空白列にしてあります。
>>だから、Jakaさんのを参考にrange("iv1").end(xltoleft).columnで列を数えればよいのでしょうか?
>
>範囲が”M列まで”ならば、最終列はM列です。
>M列より動くのなら上記のコードでよいかと。
>
>M列にデータがあったり、なかったり、と言う事なのでしょうか?
>有無を問わずコピーするなら、M列固定でもよいのかも?

じゅんじゅんさん、Jakaさんありがとうございました。
まだ、初心者ですので自信がありませんでした。
M列が動くのでrange("iv1").end(xltoleft).columnでよいと思います。
これでやってみます。また質問させてもらいます。

5281 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free