Excel VBA質問箱 IV

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

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


50329 / 76732 ←次へ | 前へ→

【31292】Re:不特定範囲の平均値
回答  Kein  - 05/11/16(水) 17:14 -

引用なし
パスワード
   では、それらのブックを保存しているフォルダーとは別のところに、マクロ実行ブック
を入れておくという前提で

Sub MyAverage()
  Dim MyF As String
  Dim WB As Workbook
  Dim WS As Worksheet
  Dim MyR As Range, C As Range
  Const Ph As String = _
  "C:\Documents and Settings\User\My Documents\Exl_Files\"
  '↑処理対象のブックを保存しているフォルダーのバスを指定する

  With Application
   .DisplayStatusBar = True
   .StatusBar = "★ 只今マクロ処理中です ★"
   .ScreenUpdating = False
  End With
  MyF = Dir(Ph & "*.xls")
  Do Until MyF = ""
   Set WB = Workbooks.Open(Ph & MyF)
   For Each WS In WB.Worksheets
     If WorksheetFunction.Count(WS.Range("I:I")) > 1 Then
      Set MyR = WS.Range("I:I").SpecialCells(2, 1)
      For Each C In MyR.Areas
        C.Cells(C.Count, 1).Offset(, 1).Value = _
        WorksheetFunction.Average(C)
      Next
      Set MyR = Nothing
     End If
   Next
   WB.Close True: Set WB = Nothing
   MyF = Dir()
  Loop
  With Application
   .StatusBar = False
   .DisplayStatusBar = False
   .ScreenUpdating = True
  End With
  MsgBox "処理が終了しました", 64
End Sub

で、出来ると思います。時間はかかるでしょうけど・・。

1 hits

【31281】不特定範囲の平均値 初心者 05/11/16(水) 15:50 質問
【31284】Re:不特定範囲の平均値 Kein 05/11/16(水) 16:04 発言
【31285】Re:不特定範囲の平均値 初心者 05/11/16(水) 16:24 質問
【31292】Re:不特定範囲の平均値 Kein 05/11/16(水) 17:14 回答
【31307】Re:不特定範囲の平均値 初心者 05/11/17(木) 9:33 質問
【31315】Re:不特定範囲の平均値 Kein 05/11/17(木) 11:52 回答

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