Excel VBA質問箱 IV

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

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


24740 / 76732 ←次へ | 前へ→

【57339】Re:抽出データをコピーし、貼り付けたいのですが・・
お礼  みどり  - 08/8/9(土) 13:55 -

引用なし
パスワード
   ▼kanabun さん:
お世話になっております。
私の説明が下手なようで、すみません

↓こちらの件ですが、
>ぼくがあげた別Book(sheet2)レイアウト例では
>  列の構成が (Sheet1)とまったく同じで、
>  kanabun(Sheet2)も、日付列が【D列】にありましたが、
>みどりさんのコードでは (Sheet2)から日付?を検索するとき
>> Set 検査範囲 = Sheets("sheet2").Range(N1:N500)  
>> 行番号 = Application.WorksheetFunction.Match(Cel,検査範囲,0)・・←※ココ
>と、【N列】を参照されてます。

・・大変失礼しました。こちらでの説明用として下記のDに日付がはいっている↓の表を作らせていただきました。列の構成は両シートまったく同じです。が

  A   B    C      D     E     ・・・・・
1 番号 県名   名前    日付    ***・・・・・       
1  1  北海道  佐藤   20080807   ***

・・実際に検索したい日付は(N列)に入っております。
jaka様、kanabun様にご不快な思いをさせてしまい、申し訳ありませんでした。
お詫び申し上げます。

D列に日付データをもっていき
’Set 検査範囲 = Sheets("sheet2").Range(D1:D500)  
’行番号 = Application.WorksheetFunction.Match(Cel,検査範囲,0)
’Range("A" & 行番号).Select

↑ この3つを稼働させないようにしてステップインしていきましたら
 コピー・貼り付けはうまくいきました。(貼り付け場所は指定できないですが)


1.転記前、転記後の(sheet2)のレイアウトのサンプルを見せてください
 お手数をおかけします・

(sheet2/転記前)
  A   B    C   ・E ・・・ N   ・・ P     
1 番号 県名   名前  ・・    日付    ・・・       
1  1  北海道  佐藤  ・・   20080807   ・・・
2  2  青森   伊藤  ・・   20080807   ・・・
3  3  茨城   高橋  ・・   20080808   ・・・
4  4  大阪   青木  ・・   20080809   ・・・
5  ・ 
           ↓

最新版データの20080809でオートフィルタをかけ表示されたものA列からすべてコピーして・・

(sheet2/転記後)

  A   B    C    E  ・・・  N  ・・  P
 番号  県名   名前  ・・      日付    ・・・      
1  1  北海道  佐藤  ・・     20080807   ・・・
2  2  青森   伊藤  ・・     20080807   ・・・
3  3  茨城   高橋  ・・     20080808   ・・・
4  5   福岡   山田  ・・     20080809   ・・・ ←貼付分 
5  10  沖縄   三浦  ・・     20080809   ・・・ ←貼付分

※転記前古いデータの大阪 青木 20080809 の上から貼り付ける。
・ 

>2.抽出元シート(sheet1) AutoFilterではなく、D列を順に条件にあう
> 行を(Sheet2)へコピーするとしたら、
> 手作業で、どうするか、
> どの列をどの列にCopyするとかの 手順を具体化してください。
> 手作業のマクロ記録があればもっといいです。
>3.(sheet2)のどこにコピーするか、
>  (sheet2)の対応する日付が複数あったばあい、手作業で何らか
>  の判断をして行を特定されていると思いますが、どのように
>  判断していますか? それを言葉にしてみてください。

・・作業の前に貼り付けたい最新版の日付(例20080809)の数とsheet2(20080809)の日付を関数カウントで数えておきます。
sheet2の行が足りなかったら行の挿入で増やします。
その際に20080809が始まる両シートの最初・最後の行番号を確認しメモなどします。
最新版側ファイルのsheet1から20080809最初の行(例:A100)に
カーソルを持っていき範囲指定で20080809の最後の行(例:P200)まで
コピーします。
・列の構成が両シート同じなのでsheet2のが20080809の始まる行(例:A90)
から一気に貼り付けます。
オートフィルタがなかったらこのように作業しようと考えております。

>4.確認ですが、 20080809 とかは 数値ですか?
・・・いえ、書式設定の分類は標準になっております。

****

>プログラムを作るときの仕様になります。
>
・・・頭の中で漠然とした考えしかしておらず、情けない思いでいっぱいです。
kanabunさんのアドバイスでまずプログラムを作る始め(姿勢)から全然できていないことに気づきました
ありがとうございます。

7 hits

【57327】抽出データをコピーし、貼り付けたいのですが・・ みどり 08/8/7(木) 23:58 質問
【57330】Re:抽出データをコピーし、貼り付けたいの... Jaka 08/8/8(金) 15:49 発言
【57334】Re:抽出データをコピーし、貼り付けたいの... みどり 08/8/8(金) 18:54 お礼
【57335】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/8(金) 20:20 発言
【57336】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/8(金) 20:31 発言
【57337】Re:抽出データをコピーし、貼り付けたいの... みどり 08/8/9(土) 1:32 お礼
【57338】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/9(土) 10:37 発言
【57339】Re:抽出データをコピーし、貼り付けたいの... みどり 08/8/9(土) 13:55 お礼
【57340】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/9(土) 16:13 発言
【57341】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/9(土) 17:00 発言
【57343】Re:抽出データをコピーし、貼り付けたいの... みどり 08/8/9(土) 20:49 お礼
【57342】Re:抽出データをコピーし、貼り付けたいの... kanabun 08/8/9(土) 19:12 発言
【57344】Re:抽出データをコピーし、貼り付けたいの... みどり 08/8/9(土) 20:58 お礼

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