Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37052 / 76732

←次へ　｜　前へ→


	【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