Excel VBA質問箱 IV

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

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


1100 / 13645 ツリー ←次へ | 前へ→

【76327】2つのブック 一致したIDを区分毎で日付を転記 XYZ 14/10/30(木) 23:31 質問[未読]
【76331】Re:2つのブック 一致したIDを区分毎で日付... γ 14/10/31(金) 22:11 発言[未読]

【76327】2つのブック 一致したIDを区分毎で日付...
質問  XYZ  - 14/10/30(木) 23:31 -

引用なし
パスワード
   2つのエクセルブックがあります。

1つがIDデータ表になって、IDと払い出し内容と日付の3つがあります。
もう1つがID管理票で、IDを担当ごとに管理している票です。

IDデータ表のIDとID管理票のIDを一致したら
IDデータ表の払い出し区分の単語を基準に(新規・変更・廃止)

ID管理票.xlsに乗っているIDの横に
払い出し区分の単語の条件で

新規の場合,ID右隣に日付を転記
変更の場合,IDの2つ右隣に日付を転記
廃止の場合,IDの3つ右隣に日付を転記を行いたいのですが

マクロで可能でしょうか?

関数で処理をしようと思いましたが
すでに、転記する側のID管理票に関数がかなり使われて
ファイルが重い状態ですのでマクロで処理をしたいと思っております
            
お手数ですがお力添えをお願いします。
下記に簡素でありますが構成状態と
処理の概要を書かせて頂きます。


IDデータ表.xls


   A列         B列       C列
1  ID番号     払い出し区分    日付
2  110001241      新規      10/2
3  120000065      変更      10/3
4  190000036      廃止      10/4
    ↓

以下100行くらい続いています


ID管理票.xls

ID番号の場所がバラバラで
AO列にあったりBC列にあったりしています。
また、ID管理票にすでに日付が入っていることもありますが
それはそのまま上書きで問題ありません。


110001241, 10/2       (新規区分なのでIDの右隣に日付を転記)
120000065, 空白 10/3     (変更区分なのでIDの右2つ目に日付を転記)
190000036, 空白,空白,10/4   (廃止区分なのでIDの右3つ目に日付を転記)

【76331】Re:2つのブック 一致したIDを区分毎で日...
発言  γ  - 14/10/31(金) 22:11 -

引用なし
パスワード
   Findメソッドを使って、
"110001241"をID管理票.xlsのシートのなかを検索するコードは書けますか?
"110001241"の行のB列の区分で判定して、日付を書き入れます。
見つかったセルの右、二つ右、三つ右などは Offsetを使います。

あとは、「IDデータ表」.xlsの特定の範囲のデータを繰り返すだけです。

ひとつひとつはさほど難しくないはずです。
少しご自分でトライされたらいかがでしょう。
できているところまで示して、皆さんの助言をもらったほうが有益だと思います。

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