Excel VBA質問箱 IV

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

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


43796 / 76732 ←次へ | 前へ→

【37963】Re:下のマクロを実行すると固まってしま...
お礼  サン E-MAIL  - 06/5/24(水) 12:26 -

引用なし
パスワード
   ハチ さん

すいません。
1-400の範囲は、本当はデータを全て消したいのですが
全て範囲指定していましたら、マクロを走らせた時に
時間がとてもかかっていたので400ぐらいでいいかなと思い
400にしてしまいました。

ご迷惑をかけてすいません。
本当にありがとうございます。


▼ハチ さん:
>▼サン さん:
>
>あんまり良く読んでませんが・・・
>販売以外の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 お礼

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