Excel VBA質問箱 IV

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

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


9983 / 13646 ツリー ←次へ | 前へ→

【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 お礼[未読]

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

引用なし
パスワード
   こんにちわ。
各部署から返答がきた同じフォーマットのファイルが8コあります。
これをもとのファイルで集計をしたいので、自動記録を元にマクロを作成しました。
しかし、ワークブック名をWorkbook(Index)で表記したいのですが、うまくいきません。

Range("C7").Select
ActiveCell.FormulaR1C1 = _
    "=SUM([Wksht1.xls]Sheet1!RC,[Wksht2.xls]Sheet1!RC,[Wksht3.xls]Sheet1!RC)"

あと、同じ計算を繰り返しするにはオートフィル以外に何か方法はありますか?

Range("C7").Select
  Selection.AutoFill Destination:=Range("C7:E7"), Type:=xlFillDefault
  Range("C7:E7").Select
  Selection.AutoFill Destination:=Range("C7:E8"), Type:=xlFillDefault
  Range("C7:E8").Select
  Range("E8").Select

マクロ初心者で何も分かりません。
ご指導のほど、よろしくお願いいたします。

【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

【24437】Re:複数ファイルの計算
質問  [名前なし]  - 05/4/22(金) 10:51 -

引用なし
パスワード
   こんにちは
早速の解答ありがとうございます。

>>ワークブック名をWorkbook(Index)で
変数でマクロを組みたいんです。
なにせ、超初心者なので、すみません。

【24441】Re:複数ファイルの計算
回答  ウッシ  - 05/4/22(金) 11:20 -

引用なし
パスワード
   Sub test1()
  Dim Index As Long
  For Index = 1 To 10
    Debug.Print Workbooks(Index).Name
  Next
End Sub

【24442】Re:複数ファイルの計算
お礼  さくら咲く  - 05/4/22(金) 11:32 -

引用なし
パスワード
   ウッシさん、

何度もありがとうございました。
これで試してみますね。
また何かありましたら、ご教示ください。
よろしくお願いいたします。

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