

環境はWIN98、エクセル2000です。
注文表を日付、顧客コード、品目コード、価格の順で入力しています。
A列に2001/2/18のように日付を入れています。日付は古い方から順にならんでいます。また、同じ日付の行もたくさんあります。
例えば、2001年2月の注文だけをシート2に書き出すために、現在はdo loopを使用し、日付から年月のみを取り出し、該当年月の最初の行と、月が変わった行を探し、この範囲を範囲指定してコピーでシート2に写しています。
FINDを使えばもっと簡単に指定月の最初の行と、最後の行を簡単に見つけられるのでは、と思い、いろいろ試してみましたが、いい方法が見つかりません。
FINDNEXTでは、最初に2001/2/1とすると次の日付(2001/2/2)が検索され、2001/3月が検索できません。
簡単に探したい月の最初に日付行と最後の日付行を検索する方法はありませんでしょうか。
ご存じの方、よろしくお願いします。
No.2ベストアンサー
- 回答日時:
問題を、昇順に並んだ日付から指定した年月のデータを抽出して別シートに書き出す。
と理解しましたので下記のコードを書いてみました。<条件>質問から、「日付、顧客コード、品目コード、価格」がA1からD1に入力されていて、データは2行目から連続に入力。またセル「F2」に抽出する年月日を「yyyy/m/d」で入力(日は月末までの任意)としています。
<要点>2月を検索する時に、翌月の3月1日を検索することにすると、まだ2月の時はデータがありませんし、休日とかで注文が無い場合も想定されると思い、指定した2月を1ヶ月間調べるようにしています。
Findを行った後、見つかったらFindNextを行って重複データを探しています。Sheet2は書き出すときにクリアしています。
コードを書きながら思ったことですが、このような処理はデータベースソフト(Accessとか)を使ったほうが便利かな・・・と。データがどんどん増えていく場合はExcelは不向きかもしれませんし・・・?
質問の意を汲んでいればと思います。がんばってください。
下記コードを標準モジュールを追加して、貼り付けてください。シート1からマクロKensakuを実行します。コードを登録すると先頭空白が消えるので、段下げをしてもらえば見やすくなると思います。
Option Explicit
Public Sub Kensaku()
Dim wk1, wk2 As Worksheet 'ワークシート
Dim schRg As String '検索範囲
Dim iYY, iMM As Integer '検索値(年、月)
Dim sDate As Date '検索値(年月日)
Dim tDate As String '検索値(テキスト)
Dim c '検索結果セル
Dim fstFind As String '最初に検索したセル
Dim Xpot1, Xpot2 As String 'セル座標(左上と右下)
Dim d As Integer '日付カウンタ
'設定
Set wk1 = Worksheets("Sheet1")
Set wk2 = Worksheets("Sheet2")
wk1.Activate: Range("A1").Select
iYY = Year(wk1.Range("F2")) 'セルF2に年月日を入力!!
iMM = Month(wk1.Range("F2"))
'検索範囲
schRg = "A1:A" & ActiveSheet.UsedRange.Rows.Count
'==============================
'F2に入力した年月を1ヶ月間検索
'==============================
With wk1.Range(schRg)
For d = 1 To Day(DateSerial(iYY, iMM + 1, 1) - 1)
sDate = DateSerial(iYY, iMM, d)
tDate = Application.Text(sDate, wk1.Range("A2").NumberFormat)
'検索実施
Set c = .Find(tDate)
'見つかった!
If Not c Is Nothing Then
fstFind = c.Address: Xpot2 = c.Offset(0, 3).Address
'最初の検索アドレス
If Xpot1 = "" Then Xpot1 = fstFind
'重複日を調べる
Do
Set c = .FindNext(c)
If c.Address <> fstFind Then
Xpot2 = c.Offset(0, 3).Address
End If
Loop While Not c Is Nothing And c.Address <> fstFind
End If
Next
End With
'=====================
'検索結果をシート2にコピー
'=====================
If Xpot1 <> "" Then
'シート2をクリア
wk2.Select: Cells.Select: Selection.ClearContents
'コピー
wk2.Range("A1") = wk1.Range("A1") '表題
wk2.Range("B1") = wk1.Range("B1")
wk2.Range("C1") = wk1.Range("C1")
wk2.Range("D1") = wk1.Range("D1")
wk1.Select: Range(Xpot1 & ":" & Xpot2).Select
Selection.Copy
'貼り付け
wk2.Select: Range("A2").Select: ActiveSheet.Paste
Range("A1").Select
'復帰
wk1.Select: Range("F2").Select
Else
MsgBox "該当データがありません"
End If
End Sub
ありがとうございました。
FINDNEXTをこのように使うと良いんですね。
早速組み込んでみます。
質問では、簡単に書きましたが、商品コード、区域など入力項目は20項目程度あります。
このデータはオンライン入力データを加工して、サーバーに保存され、必要な部署が自由に利用できるようになっています。
おっしゃるようにアクセスを利用する方が良いとは思いますが、当社の規定表計算ソフトはエクセルで、エクセルは全端末にインストールされており、どこでも利用出ます。
それと、アクセスは利用する部署で別途購入が必要になりますのと、使える人がいません。エクセルは集合研修も行い、ほとんどの人が使えます。
データ件数も月間4万件程度ですので、何とかエクセルで間に合わせてます。
ご助言ありがとうございました。
No.1
- 回答日時:
こんにちは
以下のページがご参考になるのでは?
[XL2000]Find メソッドで日付と時刻形式のデータを検索できない
http://www.microsoft.com/JAPAN/support/kb/articl …
参考URL:http://www.microsoft.com/JAPAN/support/kb/articl …
この回答への補足
ありがとうございました。
でも、ちょっと違うんです。
日付(2001/2/1のようにきろくされています)はFINDで検索できますが、この日付の内2001/2の最初の行及び2001/2/28の最後の行又は2001/3/1の最初の行を検索し、当該行の値を知りたいのです。
注文を受けたものを順に記録しますので、同じ日付はたくさんあります。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
【excelVBA】Findメソッドで検索対象を複数列
Excel(エクセル)
-
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
-
4
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
5
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
6
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
7
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
EXCEL 年月表示をするVBAを教えてください。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「24日の0時」って・・・
-
マクロボタンを押すと、ファイ...
-
「時間」、「期日」、「日付」...
-
回覧板の日付について質問です...
-
日付の大小の表現
-
エクセルで日付別にシートを分...
-
最新データ取得
-
日付算出の方法
-
回転印の使い方
-
差し込み印刷に当日の日付が入...
-
PDFファイルに日付を名前にして...
-
スクリーンショットで撮影する...
-
HTMLから文字を抽出してデータ...
-
差込印刷 縦書きで和暦(漢数...
-
Excel関数 基準日に一番近い指...
-
エクセル マクロ 名前を付けて...
-
エクセルで数式内の日付をオー...
-
エクセルで日付け表示で、明治...
-
会社や役所などに提出する書類...
-
ACCESSで1月1日~12月31日まで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロボタンを押すと、ファイ...
-
「24日の0時」って・・・
-
日付の大小の表現
-
差し込み印刷に当日の日付が入...
-
「時間」、「期日」、「日付」...
-
回覧板の日付について質問です...
-
エクセル マクロ 名前を付けて...
-
Excelについて
-
エクセルで日付別にシートを分...
-
EXCELで日付を****年上期、****...
-
会社や役所などに提出する書類...
-
履歴書の日付間違いで落ちますか。
-
エクセルで日付け表示で、明治...
-
スクリーンショットで撮影する...
-
フォームの値をクエリーに反映...
-
日付以外のデータを抽出したい...
-
2つの日付の中間の日付 エク...
-
Excelでヘッダに前日の日付を表...
-
ACCESSで日付ごとに自動連番(...
-
差込印刷 縦書きで和暦(漢数...
おすすめ情報