Excel VBA質問箱 IV

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

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


9775 / 13644 ツリー ←次へ | 前へ→

【25502】複数のシート MLC 05/6/2(木) 15:58 質問[未読]
【25505】Re:複数のシート 小僧 05/6/2(木) 16:18 発言[未読]
【25507】Re:複数のシート MLC 05/6/2(木) 16:38 お礼[未読]
【25528】Re:複数のシート 小僧 05/6/3(金) 11:26 回答[未読]
【25540】Re:複数のシート MLC 05/6/3(金) 20:40 お礼[未読]

【25502】複数のシート
質問  MLC E-MAIL  - 05/6/2(木) 15:58 -

引用なし
パスワード
   1つのbook1に複数のシートがあり、その各シートから欲しい情報を
別book2に貼り付ける方法はありますでしょうか?
抽出する情報と別book間のKEYとなるものはあります。
どうぞ宜しくお願いします。

【25505】Re:複数のシート
発言  小僧  - 05/6/2(木) 16:18 -

引用なし
パスワード
   ▼MLC さん:
こんにちは。

>1つのbook1に複数のシートがあり、その各シートから欲しい情報を
>別book2に貼り付ける方法はありますでしょうか?
>抽出する情報と別book間のKEYとなるものはあります。
>どうぞ宜しくお願いします。

おそらく方法はあります。
…としか現在のご提示内容では言えません。

1) マクロは「book1」「book2」のどちらから動かすのか。

2) 欲しい情報とは?
  A)特定のセルの値
  B)特定の条件のセル(空白のセルとか)の位置や個数
  C)シートの名前など

3) 欲しい情報を「book2」にどういった形で貼り付けるのか。

などなど…。

具体的な内容を提示して頂ければ回答がつき易くなると思われます。

【25507】Re:複数のシート
お礼  MLC E-MAIL  - 05/6/2(木) 16:38 -

引用なし
パスワード
   こんにちわ。初心者でよく判っていなく情報足らずですいません。

1)マクロは「book1」「book2」のどちらから動かすのか。
 ⇒Book2で動かします。

2) 欲しい情報とは?
  A)特定のセルの値
  B)特定の条件のセル(空白のセルとか)の位置や個数
  C)シートの名前など
特定の条件のセルの情報をひっぱりたいです。
つまりBook1の各sheetにkeyとなるREF NO.がB1のセルに必ずあり、
A列に1.2.3・・・と数値が続きます。必要とする情報は
Refの1は何と商品名がC列に縦順に記載されています。
因みにRef No.毎にsheetは複数あります。

3) 欲しい情報を「book2」にどういった形で貼り付けるのか。
book2は1つのSheetになっており、C列にREF No.、 D列に数値が
入っており、E列に商品名を貼り付けたいというのが目的です。

【25528】Re:複数のシート
回答  小僧  - 05/6/3(金) 11:26 -

引用なし
パスワード
   ▼MLC さん:
こんにちは。
Book2の標準モジュールに記述して実行してみて下さい。

Sub Test()
Dim WkbName As String
Dim Wkb As Workbook
Dim Wst As Worksheet
Dim MySheet As Worksheet
Dim I As Long
Dim J As Long
  J = 1
  WkbName = "C:\Book1.xls"
  Set MySheet = ActiveWorkbook.ActiveSheet
  
  Application.Workbooks.Open (WkbName)
  Set Wkb = ActiveWorkbook
    For Each Wst In Wkb.Worksheets
      With Wst
        For I = 1 To .Cells(1, 1).End(xlDown).Row
          MySheet.Cells(J, 3).Value = .Cells(1, 2).Value
          MySheet.Cells(J, 4).Value = .Cells(I, 1).Value
          MySheet.Cells(J, 5).Value = .Cells(I, 3).Value
          J = J + 1
        Next
      End With
    Next
  Wkb.Close
  Set Wkb = Nothing
  Set MySheet = Nothing
End Sub

外していたらすみません。

【25540】Re:複数のシート
お礼  MLC E-MAIL  - 05/6/3(金) 20:40 -

引用なし
パスワード
   ありがとうございます。挑戦してみます。
結果またfeed backします。

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