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

2 hits

▼

【25294】複数ブックの同名シート同セル位置の数値... ばら 05/5/27(金) 9:39