Excel VBA質問箱 IV

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

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


56185 / 76732 ←次へ | 前へ→

【25305】Re:複数ブックの同名シート同セル位置の...
回答  kazu  - 05/5/27(金) 14:12 -

引用なし
パスワード
   ▼ばら さん:
Sub H()

'対象シート名の配列
ArySht = Array("SHEET1", "SHEET2", "SHEET3")
'対象セルの配列
AryRng = Array("A1", "A2", "A3", "A4", "A5")

BNM = Application.GetOpenFilename(".XLS,*.XLS", , "集計ファイル選択", , True)
If TypeName(BNM) <> "Boolean" Then  
  For Each BUF In BNM
    XT = Split(BUF, "\")
    STR1 = "='" & Left(BUF, Len(BUF) - Len(XT(UBound(XT)))) & "[" & XT(UBound(XT)) & "]"
    For Each SHT In ArySht
      For Each RNG In AryRng
        STT = STR1 & SHT & "'!" & RNG
        WITH Sheets(SHT).Range(RNG)
        I = .Value
        .Value = STT
        .Value = .Value + I
        End With
      Next
    Next
  Next
End If

End Sub

0 hits

【25294】複数ブックの同名シート同セル位置の数値... ばら 05/5/27(金) 9:39 質問
【25300】Re:複数ブックの同名シート同セル位置の数... Jaka 05/5/27(金) 12:31 回答
【25302】Re:複数ブックの同名シート同セル位置の... ばら 05/5/27(金) 13:30 質問
【25305】Re:複数ブックの同名シート同セル位置の... kazu 05/5/27(金) 14:12 回答
【25410】Re:複数ブックの同名シート同セル位置の... ばら 05/5/31(火) 9:17 お礼
【25375】Re:複数ブックの同名シート同セル位置の... Jaka 05/5/30(月) 10:27 発言
【25415】Re:複数ブックの同名シート同セル位置の... ばら 05/5/31(火) 9:43 お礼

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