Excel VBA質問箱 IV

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

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


23943 / 76738 ←次へ | 前へ→

【58150】指定セルの範囲内の数字の抽出
質問  yukigod  - 08/10/6(月) 16:13 -

引用なし
パスワード
   はじめまして、よろしくお願いします。

ひとつのディレクトリの中にマクロを実行するブック(検索.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

1 hits

【58150】指定セルの範囲内の数字の抽出 yukigod 08/10/6(月) 16:13 質問
【58151】Re:指定セルの範囲内の数字の抽出 neptune 08/10/6(月) 16:38 回答
【58153】Re:指定セルの範囲内の数字の抽出 neptune 08/10/6(月) 16:42 発言
【58152】Re:指定セルの範囲内の数字の抽出 neptune 08/10/6(月) 16:40 発言

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