Excel VBA質問箱 IV

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

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


57046 / 76738 ←次へ | 前へ→

【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 質問
【24432】Re:複数ファイルの計算 ウッシ 05/4/22(金) 9:49 回答
【24437】Re:複数ファイルの計算 [名前なし] 05/4/22(金) 10:51 質問
【24441】Re:複数ファイルの計算 ウッシ 05/4/22(金) 11:20 回答
【24442】Re:複数ファイルの計算 さくら咲く 05/4/22(金) 11:32 お礼

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