| |
すみません、エラー処理が良く理解できていない
初心者です。
教えて頂けると助かります。
集計を記録マクロでつくりました。
その集計結果を表に貼り付け体裁を整えて電子メールで送るという
マクロを繰り返し、人数分電子メールで送るというところまで
できましたが、エラー処理で困っています。
集計がデータが無いと、エラー画面がでましたので、
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/3/24(金) 10:38 -
- 06/3/24(金) 11:00 -
