|
すみません、エラー処理が良く理解できていない
初心者です。
教えて頂けると助かります。
集計を記録マクロでつくりました。
その集計結果を表に貼り付け体裁を整えて電子メールで送るという
マクロを繰り返し、人数分電子メールで送るというところまで
できましたが、エラー処理で困っています。
集計がデータが無いと、エラー画面がでましたので、
On Error Resume Nextを集計構文の前に入れたところ
データがない人までメールが送られてしまいます。
データが無い人(集計でエラーが出るデータ)には
メールを送らず、データのある人には集計して
メールを送りたいのですが(集計でエラーが出る人だけ無視)
どのように処理をすれば良いでしょうか?
アドバイスいただけると助かります。
以下、集計の部分だけを抜粋したマクロ---------------------------
On Error Resume Next
Range("B2").Select
Application.CutCopyMode = False
Range("A1:E18").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortTextAsNumbers
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
Columns("B:B").Select
Selection.Replace What:=" 合計", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="総計", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="集計", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
|
|