Excel VBA質問箱 IV

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

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


43797 / 76732 ←次へ | 前へ→

【37962】Re:下のマクロを実行すると固まってしま...
回答  ハチ  - 06/5/24(水) 12:15 -

引用なし
パスワード
   ▼サン さん:

あんまり良く読んでませんが・・・
販売以外のSheet名で、12列をフィルタするなら
こんな感じでもできると思います。
1:400の行でクリアするのは、セルの色?Fontの色?

Sub test()

Dim ws As Worksheet

For Each ws In Worksheets
  If ws.Name <> "販売" Then
    With ws.Rows("1:400")
      .ClearContents
      .Interior.ColorIndex = xlNone
    End With
    
    With Worksheets("販売").Range("A2")
      .AutoFilter Field:=12, Criteria1:=ws.Name
      .CurrentRegion.SpecialCells(xlCellTypeVisible).Copy ws.Range("A1")
      .AutoFilter
    End With
  End If
Next ws

MsgBox "担当者別にしました"

End Sub

0 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 お礼

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