修正したデータの件数を知りたい。

締切済

質問者：noname#3446
質問日時：2002/08/30 08:51
回答数：5件

アクセス2000、エクセル2000で作成したデータがあります。
どちらのソフトでもいいのですが、修正したデータの件数を調べる方法はありますか。
入力したデータと、修正して元データをなおしたデータとを比べてどこかが修正してあったら、カウント1としていきたいのです。
データは約8万件あるため、目で見るには限界があります。
データの項目は16項目です。

通報する

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

質問の本文を隠す

回答 (5件)

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

No.5

回答者： imogasi
回答日時：2002/08/30 12:34

（１）アクセスはそうなっているのですが、エクセルは各列に項目が記入されている内容・形式ですよね。

縦にＩＤ的項目（キー）の違うもののデータが入っているのですよね。
（２）「変更」には書式等（色、フォント・サイズ、配置、書式、計算式、図など）の変更は含まれ「ない」ですよね。
（３）変更後も変わらないＩＤ的項目(キー）はありますよね。エクセルワードからコンピューターに入った人は、レコード・キーの考え方が希薄ですが、オフラインバッチ処理から始めたものは、記述がなくて物足りない気がします。
（４）エクセルは行数が６万５千程度が限度と記憶しているのですが、ブックやシートが別になっているのでしょうか。
（＃１・＃４の答え関連）
（５）アクセスでＳＱＬでやれればエクセルもそちらへ一時的
移行をする手もあります。（＃４）
（６）今後への対策は、＃３の通り事前に手を打っておかないと、この手の問題は面倒ですね。
（７）（１）、（２）、（３）の条件を満たせば、各ソフトで
キーの昇順で変更前と変更後のシートやテーブルをソートし
、ＣＳＶ形式で保存します。レコード・キーの重複は無いものとします。
（８）あとは＃２のご示唆のソフトを入手せずとも、ＶＢＡ・ＶＢで、根幹は下記２０行ぐらいのMatchingのコーディングで処理できます。
（１）Ａ（変更前），Ｂ（変更後）ファイルをオープンする。
　　　両方レコード読みフラグ＝”１”に設定。
（２）まずＡを読む。キーフィールドをＡＫにセット。
（３）両方レコード読みフラグ＝”１”か。１なら（４）へ、でなければ（５）キー比較へ行く。
（４）Ｂを読む。キーフィールドをＢＫにセット。
　　　両方レコード読みフラグ＝”０”にする。
（５）キーＡＫとＢＫを比較
（６）ＡＫ＝ＢＫなら、
　　　ＡＫ＝HighValueなら終わりルーチンへ。
　　　でなければ、対応するフィールド（列）について
　　　ＡF（ｉ）＝ＢF（i）かどうか比較。
　　　不等なフィールドが見つかれば、キーと共に印字等。
　　　両方レコード読みフラグ＝”１”にする。（２）へ。
（７）ＡＫ＜ＢＫならＡＫは変更レコードなしか「抹消」され　　　たもの。
　　　両方レコード読みフラグ＝”０”にして、（２）へ。
（８）ＡＫ＞ＢＫならレコードは追加されたもの。
　　　ＢＫは「追加」として、印字等する。
（９）Ａがファイルの終わりの時、ＡＫにHighValueをセット。（９・・・９や１６進のＦ・・・Ｆ）
（１０）Ｂがファイルの終わりの時、ＢＫにHighValueをセット。
（１１）終わりルーチン。
　　　　Ａ，Ｂファイルをクローズ。終了する。
キーの重複があっても、ロジックを工夫次第で上手くやれる場合もあります。
昔からある方式なんですが、それだけに簡略でデータ数量に
制約されず、利用資源（出費コストも含め）が少ないはず。
時間的問題はＡ、Ｂのソート時間です。（１）－（１１）の
処理時間はディスクを約８万×２読みに行く時間だけ。

- 0
- 件

通報する

この回答へのお礼

丁寧な回答をありがとうございました。

通報する

お礼日時：2002/09/19 03:52

No.4

回答者： timber
回答日時：2002/08/30 10:39

Accessの場合は以下のクエリを作成して件数を数えてはいかがでしょうか。

select '追加' as 変更内容, a1.項目１
from 変更前テーブル a1
where not exists (
select b1.*
from 変更後テーブル b1
where b1.項目１ = a1.項目１
)
union
select '削除' as 変更内容, b2.項目１
from 変更後テーブル b2
where not exists (
select a2.*
from 変更前テーブル a2
where a2.項目１ = b2.項目１
)
union
select '変更' as 変更内容, a3.項目１
from 変更前テーブル a3
where exists (
select b3.*
from 変更後テーブル b3
where b3.項目１ = a3.項目１
and b3.更新時刻 <> a3.更新時刻
)

Excelの場合は、新たにsheetを作成し下記のようなセルを作ります。
=if(sheet1.a1=sheet2.a1,(sheet1.a2=sheet2.a2,0,1),1)
これを必要な行数コピーして、適当なセルに
=sum(a1:a80000)とすれば、変更のたびに自動的に計算されます。

- 0
- 件

通報する

この回答へのお礼

回答ありがとうございます。
次回の参考にさせていただきます。

通報する

お礼日時：2002/09/19 03:51

No.3

回答者： maruru01
回答日時：2002/08/30 09:40

こんにちは。

maruru01です。

Accessなら、例えば[更新チェック]フィールドを新たに作り、データを変更した場合にチェックを入れるようにするとか。
そして、任意のところですべてのレコードのチェックを外し、またそこからの修正をチェックするというようにすればいいと思います。
他は[最新更新日付]のフィールドを作るの方法もあります。これなら、日付範囲で抽出して件数をカウント出来ます。
ただし、既に入力されているデータには、ダミーの日付を入れないといけませんが。