Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57040 / 76732

←次へ　｜　前へ→


	【24432】Re:複数ファイルの計算

ウッシ - 05/4/22(金) 9:49 -


	引用なし

	パスワード

こんにちは

>ワークブック名をWorkbook（Index)で
>同じ計算を繰り返しするにはオートフィル以外
どちらも何を意味しているのか良く分かりませんけど、

Sub test()
　　Dim wb()
　　Dim i As Long
　　Dim w As Workbook
　　
　　i = 1
　　For Each w In Workbooks
　　　　If w.Name <> ThisWorkbook.Name And _
　　　　　　w.Name <> "PERSONAL.XLS" Then
　　　　　　ReDim Preserve wb(1 To i)
　　　　　　wb(i) = CStr("'[" & w.Name & "]Sheet1'!RC")
　　　　　　i = i + 1
　　　　End If
　　Next
　　ThisWorkbook.Worksheets("Sheet1") _
　　　　.Range("C7").Consolidate wb, xlSum, False, False, False
End Sub

「Select」は大抵の場合不要です。

With ThisWorkbook.Worksheets("Sheet1")
　 .Range("C7").AutoFill Destination:=.Range("C7:E7"), Type:=xlFillDefault
End With

0 hits

▼

【24429】複数ファイルの計算 さくら咲く 05/4/22(金) 9:13