您的位置: 首页 > EXCEL技巧 > ExcelVBA >

VBA批量删除自定义单元格样式

时间:2014-10-11 整理:docExcel.net

在Excel中可通过内置或自定义的单元格样式直接设置单元格格式,十分方便。而在Excel 2007/2010中,在“开始”选项卡的“样式”组中,单击“单元格样式”可在样式库中直接选择,显得更加方便。

有时会遇到这种情况,工作簿中的自定义单元格样式非常多,需要将其全部删除,如果手动逐一操作显得有些繁琐,如下图所示的自定义单元格样式。

样式库中的自定义单元格样式

这时用下面的VBA代码可一次删除所有的自定义单元格样式,方法如下。

1.按Alt+F11打开VBA编辑器,在代码窗口中输入下列代码:

Sub DelCustomStyles()
   Dim st As Style
   For Each st In ActiveWorkbook.Styles
     If Not st.BuiltIn Then st.Delete
   Next
   End Sub

2.关闭VBA编辑器,返回Excel界面。按Alt+F8,打开“宏”对话框,执行“DelCustomStyles”宏即可一次删除所有自定义单元格样式,而内置的单元格样式会保留,如下图。

删除自定义单元格样式后的样式库

说明:删除全部自定义单元格样式后,对于应用过这些样式的单元格或区域,其单元格格式也会同时被清除。

Excel2003基础教程:样式列表,快速换行 问题:Excel2003基础教程:样式列表,快速换行
回答:...格内文本自动换行就好了。经过实践,发现可以通过使用样式列表快速实现这一功能下面是具体操作步骤。 一、在格式工具栏中添加样式列表 ①在Excel的任一工具栏上单击右键,从弹出菜单中选择“自定义”命令。 ②...
Excel2007套用现成表格样式gif动画演示教程 问题:Excel2007套用现成表格样式gif动画演示教程
回答: Excel2007及以上版本提供了许多漂亮的预定义表格样式,我们可以为数据表轻松快速地套用格式。如果预定义的表样式不能满足需要,还可以创建并应用自定义的表格样式。 应用表格样式方法如下。 ①在工作表中选择需要设...
Word表格中自定义实现填充项目符号和编号 问题:Word表格中自定义实现填充项目符号和编号
回答:...与编号”,进入“编号”选项卡; ③选择一种样式,单击“自定义”按钮打开“自定义编号列表”对话框进行修改。可以改变编号格式、编号样式、编号位置以及文字位置。 具体操作方法,请大家参考...
在excel里怎么自定义边框线的粗细 问题:在excel里怎么自定义边框线的粗细
回答:...“外边框”和“内部”两个方块都按下去; 4.点“线条样式”里面自己需要的线条样式; 5.点“确定” OK!完成了
最新Word2010技巧大全 问题:最新Word2010技巧大全
回答:...和编号”,进入“编号”选项卡,选择任意一种样式,单击“自定义”按钮,在“自定义编号列表”窗口中“编号格式”栏内输入要填充的内容,在“编号样式”栏内选择“无”,依次单...
巧用十个Word2003小技巧 问题:巧用十个Word2003小技巧
回答:...和编号”,进入“编号”选项卡,选择任意一种样式,单击“自定义”按钮,在“自定义编号列表”窗口中“编号格式”栏内输入要填充的内容,在“编号样式”栏内选择“无”,依次单...
相关知识:

下面内容对您也许有用

      话题:office2007版excel表格中的自定义样式如何批量化删除?
      问:这些样式都是在使用过程中自动生成的,不是故意添加的,因为这些样式太多老是使
      答:可以用VBA批量删除自定义单元格样式:1.按Alt+F11打开VBA编辑器,在代码窗口中输入下列代码:Sub DelCustomStyles()Dim st As Style For Each st In office2007里电子表格中,如何 office2007 Excel 表格加密
      话题:如何在VBA自定义函数中引用单元格
      问:最简单的比如我想模仿Index函数的功能,在选定的区域找到某行某列的元素,该如何写
      答:Public Function SelectFrom8(All As Range,i As Integer,j As Integer)SelectFrom8=All.Cells(i,j).Value End Function 两个问题:函数的返回值不要指定As
      话题:VBA的自定义函数 和单元格 赋值
      问:大家好,在VBA中,我自定义了一个函数,现在我想通过这个函数,把sheet1里面的
      答:经在Excel 2003上运行,你的自定义函数能运行,只是X变量有些画蛇添足。你的问题可能是锁定了单元格并保护了工作表。Function Sat(T As Single)As Single Sheet2
      话题:excel vba 自定义函数修改其它单元格的值
      excel vba 自定义函数修改其它单元格的值看看这个帖子 : club.excelhome./viewthread.php?tid=33
      话题:在excel里面用vba能给单元格填充自定义的颜色吗?知道
      问:因为那56个颜色里面没有我想要的。
      答:楼主:你好,对于你这个问题有个前提条件:如果你的Excel版本是2003版,那么你只能用系统预设的56色。用VBA代码实现的其他填充色会被转换为和这56色最接近的一种 EXCEL中如何用VBA将某个单元格 EXCEL同时为多个单元格的不同
      话题:vba:求一个自定义事件的代码:在a列单元格中输入日期,就会
      答:放在sheet 代码窗中 Private Sub Worksheet_Change(ByVal Target As Range)Application.DisplayAlerts=False If Target.Column=1 And Target.Row1 And IsDate excel 里面的vba 代码有控制单元 excel vba 点击某单元格,让程序
      话题:WPS中如何自定义单元格数值?知道
      问:1、我想要C列=A列*B列,如:当我在A列和B列分别输入2,和3,C列就自动显示数值6 2
      答:自定义单元格格式是不可能达到你要得效果的!可以考虑使用VBA,worksheet_change 事件可以实现自动计算!可以给我个邮箱帮你做一个表发给你! WPS单元格格式自定义 WPS怎么合并单元格?急!
      话题:寻找真正地高手,VBA编程,在Excel 中封装特定单元格属性,
      问:代码贴上来学习下,封装单元格属性,引用单元格属性自定义函数。
      答:没看明白你想要什么,是用自定义函数引用单元格的属性吗?下面的自定义函数,可以取得引用单元格的 填充颜色:Function iColor(c As Range)As Variant iColor=c. 如何在自定义VBA函数中调用工作 EXCEL 函数 VBA编程
      话题:请问在EXCEL VBA中,当单元格 C10 的值发生变化时运行我自定义
      问:关于EXCEL VBA代码
      答:Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column=3 And Target.Row=10 Then Call sd End Sub Excel2003 宏与VBA语言 EXCEL2007 宏VBA
      话题:vba 在自定义函数中怎么改变单元格背景色?很特别!知道
      vba自定义函数中怎么改变单元格背景色?很特别!Private Sub Worksheet_SelectionChange(ByVal Target A
最新评论