Excel VBA質問箱 IV

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

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


37058 / 76738 ←次へ | 前へ→

【44854】Re:複数のシートを利用して・・・
回答  Kein  - 06/12/3(日) 23:42 -

引用なし
パスワード
   ブックの先頭にシートを追加し、そこへ検索結果を表示するとして・・

Sub Result_MyData_Search()
  Dim MyR As Range

  With Worksheets("Sheet1")
   Set MyR = .Range("A2", .Range("A65536").End(xlUp))
  End With
  Application.ScreenUpdating = False
  With Worksheets.Add(Before:=Worksheets(1))
   .Range("A1:F1").Value = _
   Array("番号", "氏名", "点数", "Col", "色", "月")
   MyR.Copy .Range("A2")
   MyR.Offset(, 1).Resize(, 2).Copy .Range("C2") 
   MyR.Offset(, 3).Copy .Range("F2")
   With .Range("A2", .Range("A65536").End(xlUp))
     .Offset(, 1).Formula = _
     "=VLOOKUP($A2,Sheet2!$A:$B,2,FALSE)"
     .Offset(, 4).Formula = _
     "=VLOOKUP($D2,Sheet3!$A:$B,2,FALSE)"
   End With
   With .Range("A1")
     .CurrentRegion.Copy
     .PasteSpecial xlPasteValues
     .Select
   End With
  End With
  With Application
   .CutCopyMode = False
   .ScreenUpdating = True
  End With
  Set MyR = Nothing
End Sub

シート名は Sheet1,Sheet2,Sheet3 という事と、各シートの1行目が項目
という事が前提です。 
0 hits

【44761】複数のシートを利用して・・・ 北風小僧 06/11/30(木) 20:00 質問
【44762】Re:複数のシートを利用して・・・ Statis 06/11/30(木) 20:37 回答
【44765】Re:複数のシートを利用して・・・ 北風小僧 06/11/30(木) 21:18 お礼
【44847】Re:複数のシートを利用して・・・ 北風小僧 06/12/3(日) 16:51 質問
【44852】Re:複数のシートを利用して・・・ Hirofumi 06/12/3(日) 19:45 回答
【44854】Re:複数のシートを利用して・・・ Kein 06/12/3(日) 23:42 回答

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