Excel VBA質問箱 IV

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

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


43800 / 76732 ←次へ | 前へ→

【37959】下のマクロを実行すると固まってしまいます。
質問  サン E-MAIL  - 06/5/24(水) 10:48 -

引用なし
パスワード
   下記のマクロをもう少し簡単にすること出来ますでしょうか。

Sub 担当者別()
'
' 担当者別 Macro
' 未収入金 販売
'

'
  Sheets(Array("○", "×", "丸々", "★", "星", "■", "♪")).Select
  Sheets("○").Activate
  Rows("1:400").Select
  Selection.Interior.ColorIndex = xlNone
  Selection.ClearContents
  Range("A2").Select
  Sheets("販売").Select
  Selection.AutoFilter
  Selection.AutoFilter Field:=12, Criteria1:="○"
  Cells.Select
  Range("F1").Activate
  Selection.Copy
  Sheets("○").Select
  Range("A1").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Sheets("販売").Select
  Selection.AutoFilter Field:=12, Criteria1:="×"
  Selection.Copy
  Sheets("×").Select
  Range("A1").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Range("A1").Select
  Sheets("○").Select
  Range("A1").Select
  Sheets("販売").Select
  Selection.AutoFilter Field:=12, Criteria1:="丸々"
  Selection.Copy
  Sheets("丸々").Select
  Range("A1").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Range("A1").Select
  Sheets("販売").Select
  Selection.AutoFilter Field:=12, Criteria1:="★"
  Selection.Copy
  Sheets("★").Select
  Range("A1").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Range("A1").Select
  Sheets("販売").Select
  Selection.AutoFilter Field:=12, Criteria1:="星"
  Selection.Copy
  Sheets("星").Select
  Range("A1").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Range("A1").Select
  Sheets("販売").Select
  Selection.AutoFilter Field:=12, Criteria1:="■"
  Selection.Copy
  Sheets("■").Select
  Range("A1").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Range("A1").Select
  Sheets("販売").Select
  Selection.AutoFilter Field:=12, Criteria1:="♪"
  Selection.Copy
  Sheets("♪").Select
  Range("A1").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Range("A1").Select
  Sheets("販売").Select
  Range("A1").Select
  
  Selection.AutoFilter
  
  MsgBox "担当者別にしました"
  
End Sub


宜しくお願い致します。

1 hits

【37959】下のマクロを実行すると固まってしまいます。 サン 06/5/24(水) 10:48 質問
【37962】Re:下のマクロを実行すると固まってしま... ハチ 06/5/24(水) 12:15 回答
【37963】Re:下のマクロを実行すると固まってしま... サン 06/5/24(水) 12:26 お礼
【37989】Re:下のマクロを実行すると固まってしま... ハチ 06/5/24(水) 17:53 発言
【38014】Re:下のマクロを実行すると固まってしま... サン 06/5/25(木) 9:20 お礼

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