FC2ブログ

スタイルを削除する

2017–05–29 (Mon) 11:10
スタイルを削除するマクロです。
EXCEL2010対応です。

Sub delstyle()
Application.ScreenUpdating = False
kazu = activeworkbook.Styles.count
If kazu > 47 Then
Dim s
On Error Resume Next
For Each s In activeworkbook.Styles
If Not s.BuiltIn Then
s.Delete
End If
Next
End If
Application.ScreenUpdating = True
End Sub
スポンサーサイト



« 枠線マクロ | HOME |  シート名を置換するするマクロ »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク