| |
はじめまして、よろしくお願いします。
ひとつのディレクトリの中にマクロを実行するブック(検索.xls)と参照するファイルが(test1〜3)3つあります。
そのそれぞれのファイル(test1〜3)の、指定したシートの指定したセルにはランダムに数字が振られていています。(すべて同じシートの同じ範囲にランダムに数字が振られている)
その中の1〜10の数字だけ抽出し、マクロを実行するファイルの指定セルに貼り付けたいと思っています。
とりあえず、それぞれのファイルの指定した範囲のセルからコピーすることは出来ました。
ですが、その中で1〜10の値だけを抽出して、マクロを実行するブックに貼り付けの仕方がわかりません。
どなたかご教授お願いします。
Sub Value_Pass2()
Dim objWBK As Workbook 'ブックを宣言
Dim objSH As Worksheet 'シートを宣言
Application.ScreenUpdating = False '画面更新を止める(この処理を入れると画面がバタバタしない）
Set objSH = ThisWorkbook.Worksheets("Sheet1") 'objSH＝作業自シート
'====
Set objWBK = Workbooks.Open(ThisWorkbook.Path & "\test1.xls") '参照するブック＝test1.xls、test1.xlsを開く
objWBK.Worksheets("練習1").Range("B2:B11").Select '参照するブックとコピーする値を選択
Selection.Copy '選択範囲をコピー
ActiveWorkbook.Close (False) 'アクティブになっているtest1.xlsをクローズ
objSH.Range("B2").Select '作業自シートのセルB2を選択し
ActiveSheet.Paste 'このシートに貼り付け
'====
Set objWBK = Workbooks.Open(ThisWorkbook.Path & "\test2.xls") '参照するブック＝test2.xls、test2.xlsを開く
objWBK.Worksheets("練習2").Range("B2:B11").Select
Selection.Copy
ActiveWorkbook.Close (False)
objSH.Range("C2").Select
ActiveSheet.Paste
'====
Set objWBK = Workbooks.Open(ThisWorkbook.Path & "\test3.xls") '参照するブック＝test2.xls、test2.xlsを開く
objWBK.Worksheets("練習3").Range("B2:B11").Select
Selection.Copy
ActiveWorkbook.Close (False)
objSH.Range("D2").Select
ActiveSheet.Paste
|
|
yukigod
- 08/10/6(月) 16:13 -
