エクセルVBAでFINDで年月のみを取得したいのですが。エクセルVBAでFINDで年月のみを取得したいのですが。77%(158/204)環境はWIN98、エクセル2000です。注文表を日付、顧客コード、品目コード、価格の順で入力しています。A列に2001/2/18のように日付を入れています。日付は古い方から順にならんでいます。同じ日付の行もたくさんあります。loopを使用し、日付から年月のみを取り出し、該当年月の最初の行と、月が変わった行を探し、この範囲を範囲指定してコピーでシート2に写しています。FINDを使えばもっと簡単に指定月の最初の行と、最後の行を簡単に見つけられるのでは、と思い、いろいろ試してみましたが、いい方法が見つかりません。FINDNEXTでは、最初に2001/2/1とすると次の日付(2001/2/2)が検索され、2001/3月が検索できません。簡単に探したい月の最初に日付行と最後の日付行を検索する方法はありませんでしょうか。ご存じの方、よろしくお願いします。通報する回答数2気になる0質問をブックマークします。マイページでまとめて確認できます。68%(791/1163)問題を、昇順に並んだ日付から指定した年月のデータを抽出して別シートに書き出す。理解しましたので下記のコードを書いてみました。<条件>質問から、「日付、顧客コード、品目コード、価格」がA1からD1に入力されていて、データは2行目から連続に入力。セル「F2」に抽出する年月日を「yyyy/m/d」で入力(日は月末までの任意)としています。<要点>2月を検索する時に、翌月の3月1日を検索することにすると、まだ2月の時はデータがありませんし、休日とかで注文が無い場合も想定されると思い、指定した2月を1ヶ月間調べるようにしています。Findを行った後、見つかったらFindNextを行って重複データを探しています。Sheet2は書き出すときにクリアしています。コードを書きながら思ったことですが、このような処理はデータベースソフト(Accessとか)を使ったほうが便利かな・・・と。データがどんどん増えていく場合はExcelは不向きかもしれませんし・・・?質問の意を汲んでいればと思います。下記コードを標準モジュールを追加して、貼り付けてください。シート1からマクロKensakuを実行します。コードを登録すると先頭空白が消えるので、段下げをしてもらえば見やすくなると思います。77%(158/204)ありがとうございました。FINDNEXTをこのように使うと良いんですね。質問では、簡単に書きましたが、商品コード、区域など入力項目は20項目程度あります。このデータはオンライン入力データを加工して、サーバーに保存され、必要な部署が自由に利用できるようになっています。おっしゃるようにアクセスを利用する方が良いとは思いますが、当社の規定表計算ソフトはエクセルで、エクセルは全端末にインストールされており、どこでも利用出ます。それと、アクセスは利用する部署で別途購入が必要になりますのと、使える人がいません。エクセルは集合研修も行い、ほとんどの人が使えます。データ件数も月間4万件程度ですので、何とかエクセルで間に合わせてます。ご助言ありがとうございました。08:28:04関連するQ&AQエクセルVBAのFINDの質問です。エクセルVBAのFINDの質問です。MS-WIN...QエクセルVBAの記述についてOSはWin98、エクセル2000です。次の処理をVBAで処理したいのですがうまく作動しません。77%(158/204)ありがとうございました。日付(2001/2/1のようにきろくされています)はFINDで検索できますが、この日付の内2001/2の最初の行及び2001/2/28の最後の行又は2001/3/1の最初の行を検索し、当該行の値を知りたいのです。注文を受けたものを順に記録しますので、同じ日付はたくさんあります。関連するQ&AQエクセルVBAで、IEからコピーするにはエクセル2000,win2000,IE6です。次のような、コードを書きました。t03...QエクセルVBAで解らない部分があります。エクセルVBAで解らない部分があるのでどなたか教えてください。FindNextについてエクセル2002使用です。VBAのFindNextメソッドについて教えていただけますでようか?不...QExcelのVBAでアクセスファイルをopenエクセル2002(win)のVBAについて質問します。Workbooks.OpenDatabas...QエクセルVBAで、2004年と入力したのに1992年になってしまうWindows98,XP、Excel97を使用しています。VBAで検索したセルアドレスを、VBA内の式に組み込む方法こんにちは。お世話になっています。VBAで思ったように動いてくれないのですが。