Excel VBA質問箱 IV

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

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


7129 / 76732 ←次へ | 前へ→

【75194】オートフィルタ後にコピー、集計
質問  まなか  - 14/1/6(月) 2:26 -

引用なし
パスワード
   下記の内容のマクロに関して、
ぜひ教えてください。
説明がうまくなかったらごめんなさい。

A列からK列までの表があります。
行数は200前後。
一行目項目行。
その表のI列でフィルタし、1であれば抽出し、
別シート"A"にコピーするというマクロを作りたいと思っています。

私のしたいことは、
IJK列の最終行のセルに合計を出すようにしたい。
AからH列は選択範囲内で中央ぞろえし、合計と中央ぞろえで
入力がしたい。
最後にマクロが終了した際は結果が表示されているシート、つまり
Aシートで終了したい。
Aシートがなんらかのアクシデントで削除されてしまった場合に
メッセージボックスで確認し、作成しますか?YESでシートを新規作成するということはできますでしょうか?
わたしの幼稚な下記のマクロを改善し、進化させるようご指導いただけますでしょうか?
よろしくお願いします。


Sub 集計()
  With Sheets("送付リスト").Range("A1")
    .AutoFilter Field:=9, Criteria1:="1"
    .CurrentRegion.Copy Sheets("A").Range("A1")
     Columns("A:K").EntireColumn.AutoFit
  End With
 With Sheets("送付リスト")
  If .AutoFilterMode = True Then
    .AutoFilterMode = False
  End If
 End With
 MsgBox "ソート完了"
End Sub
271 hits

【75194】オートフィルタ後にコピー、集計 まなか 14/1/6(月) 2:26 質問
【75195】Re:オートフィルタ後にコピー、集計 HARA 14/1/6(月) 7:15 発言

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