格填充颜色删除
篇一:Excel电子表格隔行自动填充底色
Excel电子表格隔行自动填充底色
博客分类:
excel电子表格office隔行自动填充底色格式表样式
Excel电子表格隔行自动填充底色
当Excel电子表格中存在大篇幅的数据时~用户查看起来非常的容易看错行。这时用户就会想~要是每隔一行表格用不同的颜色给区分出来~这样看起来就方便直观了许多。下面我们通过一个简单的条件格式设臵就可以让Excel电子表格自动为我们填上颜色。
Excel2003操作方法如下:
1、打开一个电子表格,
2、全选电子表格的所有单元格,
3、全选后点击菜单上的“格式”/“条件格式”~弹出条件格式设臵窗口,
4、在条件格式设臵窗口中选择“公式”并在后面空格中输入
“=AND(LEN($A1)>0,MOD(ROW(),2)=1)”,不含双引号,~再点击“格式”~设臵用户喜欢的单元格底色~最后点“确定”,
操作完成。
这样设臵好条件格式后~用户在单元格中输入数据~程序会自动判断单元格中有没有数据~并判断出要不要填充底色。
Excel2007操作方法如下:
方法一
1、打开一个电子表格,
2、全选电子表格的所有单元格,
3、全选后点击菜单上的“开始”/“条件格式”~弹出菜单~选“新建规则”~在弹出的对话框中~点中“选择规则类型”中最后一项“使用公式确定要设臵格式的单元格。”,
4、在“编辑规则说明”下的“为符合此公式的值设臵格式”下向的空格中输入
“=AND(LEN($A1)>0,MOD(ROW(),2)=1)”,不含双引号,~再点击“格式”~设臵用户喜欢的单元格底色~最后点“确定”,
操作完成。
这样设臵好条件格式后~用户在单元格中输入数据~程序会自动判断单元格中有没有数据~并判断出要不要填充底色。
方法二
用表样式快速给表格加格式
Excel2007提供了许多预定义的表样式(或快速样式)~使用这些样式~可快速套用表格式。如果预定义的表样式不能满足您的需要~您可以创建并应用自定义的表样式。虽然您只能删除自定义的表样式~但是可以去除任何表样式~以便数据不再应用它。
通过为表元素(如标
行和汇总行、第一列和最后一列~以及镶边行和镶边列)选择“快速样式”选项~可以进一步调整表格式。
1、创建表时选择表样式
,1,、在工作表上~选择要快速设臵为表格式的一系列单元格。
,2,、在“开始”选项卡上的“样式”组中~单击“套用表格式”。
,3,、在“浅色”、“中等深浅”或“深色”下~单击要使用的表样式。 提示创建一个或多个表样式之后~它们位于“自定义”下面。有关如何创建自定义表样式的信息~请参阅创建或删除自定义表样式。
2、为现有表应用表样式
,1,、在工作表上~选择要应用表样式的表。
提示这会显示“表工具”~同时添加“
”选项卡。
,2,、在“设计”选项卡上的“表样式”组中~执行下列操作之一: 〃单击要使用的表样式。
提示使用箭头键在可用表样式中滚动。
〃单击“更多”按钮~然后在“浅色”、“中等深浅”或“深色”下~单击要使用的表样式。
PS:如果Excel窗口的大小缩小~则表样式将在“表样式”组中的“表快速样式”库中可用。
提示创建一个或多个表样式之后~它们位于“自定义”下面。有关如何创建自定义表样式的信息~请参阅创建或删除自定义表样式。
3、创建自定义表样式
要点您创建的自定义表样式只存储在当前工作簿中~因此不可用于其他工作簿。
,1,、要创建自定义表样式~请执行下列操作之一:
〃在“开始”选项卡上的“样式”组中~单击“套用表格式”。
〃选择现有的表以显示“表工具”~然后在“设计”选项卡上的“表样式”组中~单击“更多”按钮。
,2,、单击“新建表样式”。
,3,、在“名称”框中~键入新表样式的名称。
,4,、在“表元素”框中~执行下列操作之一:
〃要设臵元素的格式~请单击该元素~然后单击“格式”。
〃要去除元素的现有格式~请单击该元素~然后单击“清除”。
,5,、在“字体”、“边框”和“填充”选项卡上~选择所需的格式选项~然后单击“确定”。
提示在“预览”下~可以查看所做出的格式更改对表有怎样的影响。
,6,、针对要自定义的所有表元素~重复步骤4和5。
,7,、要在当前工作簿中使用新表样式作为默认的表样式~请选中“设为此文
档的默认表快速样式”复选框。
4、删除自定义表样式
,1,、在“开始”选项卡上的“样式”组中~单击“套用表格式”。
,2,、在“自定义”下~右键单击要删除的表样式~然后单击快捷菜单上的“删除”。
PS:当前工作簿中使用该表样式的所有表都将以默认的表格式显示。
5、去除表样式
,1,、在工作表上~选择要去除其当前表样式的表。
提示这会显示“表工具”~同时添加“设计”选项卡。
,2,、在“设计”选项卡上的“表格样式”组中~单击“其他”按钮。
,3,、单击“清除”。
提示表将以默认的表格式显示。
6、选择表样式选项来设臵表元素的格式
,1,、在工作表上~选择要应用表样式选项的表格。
提示这会显示“表工具”~同时添加“设计”选项卡。
,2,、在“设计”选项卡上的“表样式选项”组中~执行下列操作之一: 〃要打开或关闭标题行~请选中或清除“标题行”复选框。
〃要打开或关闭汇总行~请选中或清除“汇总行”复选框。
〃要显示表的第一列的特殊格式~请选中“第一列”复选框。
〃要显示表的最后一列的特殊格式~请选中“最后一列”复选框。
〃要以不同方式显示奇数行和偶数行以便于阅读~请选中“镶边行”复选框。 〃要以不同方式显示奇数列和偶数列以便于阅读~请选中“镶边列”复选框。
篇二:EXCEL中单元格的颜色统计
EXCEL中单元格的颜色统计
其实~这个问题要用到一个特别的函数:get.cell
解决这个问题的思路是~你首先得让系统知道你每种颜色的代码是多少。得到这个代码就用(来自:www.zaidian.cOm 书 业网:表格填充颜色删除)到这个函数。设你要统计的单元格在A列~B列为空列~操作如下:
1~点插入~名称~定义~弹出的窗口第一行名称名内写入一个自定义的名称名字~可以是中文也可以是英文~比如XX~最下边一行的引用位臵一行内填入:
=get.cell(63.A1)确定。
2~在B1中输入=XX~光标指向B1单元格右下角的小黑点~光标变成小黑实心十字时~双击左键。完成填充。
这样操作以后~在B列中会出现各个单元格中底色的代码。
3,用countif()函数对你要统计的单元进行统计~如:
=countif($B$1:$B$100,"5")
这个统计公式意思是统计B1至B100中颜色代码是5的单元格有多少个。
用辅助列可以做到
假设列A为原数据列~选择列B为第一辅助列
1.在插入-名称-定义里定义一个名称~X=GET.CELL(24,SHEET1!A1)
2.在B1中输入=X
这样你就会看到列B中有对应的列A颜色返回的数值~假定黑色格子的颜色数值为1
再利用一辅助列C~在列C输入公式=IF(OR(B:B=1,B:B=57,B:B=0),A:A+3,A:A)~即可得所需变更后的全部数值列
最后便是利用选择性拷贝的方法~将C列的值复制到A列~就可以完成全部操作了
注意:
1、GET.CELL(24,SHEET1!A1) 其中24代表字体颜色~换成38代表背景颜色
用EXCEL来根据单元格的颜色来计数和求和
步骤1 :打开你的excel,
步骤2 :按Alt+F11键
步骤3 :Visual Basic 编辑器菜单栏: 插入,模块
步骤4 :粘贴下面这段函数
Function Countcolor(col As Range, countrange As
Range)
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
Countcolor = Countcolor + 1
End If
Next icell
End Function
步骤5 :保存
步骤6 :粘贴下面这段函数
Function Sumcolor(col As Range, sumrange As Range)
Dim icell As Range
Application.Volatile
For Each icell In sumrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
Sumcolor = Application.Sum(icell) + Sumcolor
End If
Next icell
End Function
步骤7:保存并关闭Visual Basic 编辑器。
使用函数 countcolor统计单元格数量~其格式为:
countcolor,所要统计的颜色所在单元格~统计的区域,注:括号内为参数~下同。
使用函数sumcolor来求和,所要统计的颜色所在单元格~统计的区域,
///若是字体颜色
Function Sumfontcolor(col As Range, sumrange As
Range)
Dim icell As Range
Application.Volatile
For Each icell In sumrange
If icell.Font.ColorIndex = col.Font.ColorIndex Then
Sumfontcolor = Application.Sum(icell) + Sumfontcolor
End If
Next icell
End Function
1、 建立Excel对象
set objExcelApp =
CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false 不显示警告
objExcelApp.Application.Visible = false 不显示
界面
2、 新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
3、 读取已有Excel文件
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\Templet\Table.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
4、 另存Excel文件
objExcelBook.SaveAs strAddr &
"\Temp\Table.xls"
5、 保存Excel文件
objExcelBook.Save ,笔者测试时保存成功~页面报错。,
6、 退出Excel操作
objExcelApp.Quit 一定要退出
set objExcelApp = Nothing
三、 操作Excel生成数据表
1、 在一个范围内插入数据
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
2、 在一个单元格内插入数据
objExcelSheet.Cells(3,1).Value="Internet Explorer"
3、 选中一个范围
4、 单元格左边画粗线条
5、 单元格右边画粗线条
6、 单元格上边画粗线条
7、 单元格下边画粗线条
8、 单元格设定背景色
9、 合并单元格
10、 插入行
11、 插入列
四、 操作Excel生成Chart图
1、 创建Chart图
objExcelApp.Charts.Add
2、 设定Chart图种类
objExcelApp.ActiveChart.ChartType = 97
注:二维折线图~4,二维饼图~5,二维柱形图~51
3、 设定Chart图标题
objExcelApp.ActiveChart.HasTitle = True
objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart"
4、 通过表格数据设定图形
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1
5、 直接设定图形数据,推荐,
objExcelApp.ActiveChart.SeriesCollection.NewSeries
objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333"""
objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}"
6、 绑定Chart图
objExcelApp.ActiveChart.Location 1
7、 显示数据表
objExcelApp.ActiveChart.HasDataTable = True
8、 显示图例
objExcelApp.ActiveChart.DataTable.ShowLegendKey = True
我假设你的工作表已经有很多设臵好背景颜色的单元
格.如你上面讲的红.黄.蓝
"视图","工具栏","窗体
"打上勾.在"窗体"工具条上点击"按
钮"在工作表上拉出一个按钮.在弹出来的"指定
宏"对话框中点"新建"这时会出现VBA窗口
在自动生出来的
Sub按钮1_单击() '这是自动生出来的
DimaAsRange
ForEachaInSheets("sheet1").UsedRange'
在使用过的单元格内搜索
Ifa.Interior.ColorIndex=6Then
a=1000:a.Font.ColorIndex=3 '如果条件为真,在这个单元格内输入数值.并改变字体颜色
ElseIfa.Interior.ColorIndex=5Then
a=500:a.Font.ColorIndex=6
ElseIfa.Interior.ColorIndex=3Then
a=100:a.Font.ColorIndex=5
EndIf
Nexta
EndSub '这也是自动生出来的.
请注意:复制此段代码时,不要将第一句Sub按钮1_单击()和最后一句EndSub这两句复制.选中中间的代码将它粘贴进去就可以了.
如果想判断颜色后,不想再要这些背景颜色的话,将它修改一下就可以了.
如下面:
Sub按钮1_单击()
DimaAsRange
ForEachaInSheets("sheet1").UsedRange
Ifa.Interior.ColorIndex=6Then
a.Interior.ColorIndex=0:a=1000:a.Font.ColorIndex=3
ElseIfa.Interior.ColorIndex=5Then
a.Interior.ColorIndex=0:a=500:a.Font.ColorIndex=6
ElseIfa.Interior.ColorIndex=3Then
a.Interior.ColorIndex=0:a=100:a.Font.ColorIndex=5
EndIf
Nexta
EndSub
这样只要你点击一下工作表上你拉出来的这个按钮.就
会完成你的要求
我这个代码还是粗糙了一点.如果哪位高手有更好的方
法也可以贴出来.权当是一次VBA编写练习.如果不想要单元
格的字体颜色设臵.可将这些类似的删
除.":a.Font.ColorIndex=3"
如果是单元格内一开始设臵的字体颜色.但单元格内并
末输入数据.而想用设定的字体颜色来改变为数值的话,用
下面这段代码.
用上面的方法拉出一个按钮.
Sub按钮2_单击()
DimaAsRange
ForEachaInSheets("sheet1").UsedRange'
在使用过的单元格内搜索
Ifa.Font.ColorIndex=6Then
a=1000
ElseIfa.Font.ColorIndex=5Then
a=500
ElseIfa.Font.ColorIndex=3Then
a=100
EndIf
Nexta
EndSub
复制粘贴代码的方法和上面相同.
还有a=100和a=1000以及a=500
这个数值随你自己调整.比如调整为a=5000等
应Yiqun_Zhao(蓝帆〃雨轩
Mail:yiqun_zhao.NITTOOS@gg.nitto.co.jp)的要求.我写了一个自定义的函数.以下为代码
操作方法如下:按ALT+F11打开VBE.点击"插入","模块".在右边的界面将下面的代码粘贴过去即可PrivateFunctionhhh(aaAsRange) '自定义
函数hhh()
Application.Volatile
b=aa.Font.ColorIndex
Ifb=6Then
hhh=1000
ElseIfb=5Then
hhh=500
ElseIfb=3Then
hhh=100
Else
hhh=50
篇三:EXCEL表格使用和清除垃圾
电脑用久了~运行速度慢了~教你们怎样清除电脑里面的垃圾
1、单击“开始”菜单中“程序”的“附件”~单击“系统工具”再单击“清理磁盘”~选择C盘~确认后~选中所有的“口”~再确认,再在“系统工具”中点击“磁盘碎片整理程序”~这需要花很长时间~请耐心等待。一些程序删除了~但并非完全删除~在计算机的注册表中仍然保留安装信息~如不及时删除这些无用的信息~时间久了~注册表就会变得越来越大~影响系统的工作性能。你可利用下述方法将其彻底删除。
2、在多次安装和反安装后~系统保留了很多无用的DLL文件~应将其删除。单击“开始”菜单~单击“运行”~在文本框内键入“regedit”~打开“注册表编辑器”窗口~依次打开
HKEY_LOCAL_MACHINE\Software\Micosoft\Windows\Curren
tVersion\SharedDLLs分支。在对话框的右侧~其键值数据后面的括号中都有一个数字~如果数字为0~说明该DLL文件已成为垃圾~将其删除。
3、将不要的程序卸载时~应在“控制面板”中的“添加/删除程序”选择确定删除~这才是彻底的删除方法。在磁盘分区中删除效果不好~有时有些程序是删除不掉的。即使在“控制面板”中的“添加/删除程序”卸载了~但有的程序在注册表中仍有这些程序的名称~成为垃圾。用上述方法打开“注册表编辑器”窗口~依次打开
HKEY_LOCAL_MACHINE\Software\Micosoft\Windows\Curren
tVersion\Uninstall分支。Uninstall主键下的每一个文件夹对应一个应用程序~打开某一文件夹~即可看到程序反安装的内容~包括程序名DisplayName和UninstallString。找到你删除过的程序名后~右键单击其上层文件夹~选择“删除”。
4、一些不带Uninstall程序或不用安装,复制到计算机中的,即可在Windows中直接运行的程序~如许多小型游戏等~注册表记录程序运行的参数。如果删除了这样的程序~仍要在注册表中删除这些无用的信息。依次打开
HKEY_CURRENT_USER\Software分支。从各子键中找到相应程序的文件夹后~将其删除。你也可单击“编辑”|“查找”命令逐一查找包含这些软件信息的子键或键值项~进行彻底清理
Excel表格的35招必学秘技
也许你已经在Excel中完成过上百张财务报表~也许你已利用Excel函数实现过上千次的复杂运算~也许你认为Excel也不过如此~甚至了无新意。但我们平日里无数次重复的得心应手的使用方法只不过是Excel全部技巧的百分之一。本专题从Excel中的一些鲜为人知的技巧入手~领略一下关于Excel的别样风情。
一、让不同类型数据用不同颜色显示
在工资表中~如果想让大于等于2000元的工资总额以“红色”显示~大于等于1500元的工资总额以“蓝色”显示~低于1000元的工资总额以“棕色”显示~其它以“黑色”显示~我们可以这样设臵。
1.打开“工资表”工作簿~选中“工资总额”所在列~执行“格式?条件格式”命令~打开“条件格式”对话框。
单击第二个方框右侧的下拉按钮~选中“大于或等于”选项~在后面的方框中输入数值
“2000”。单击“格式”按钮~打开“单元格格式”对话框~将“字体”的“颜色”设臵为“红色”。
2.按“添加”按钮~并仿照上面的操作设臵好其它条件(大于等于1500~字体设臵为“蓝色”,小于1000~字体设臵为“棕色”)。
3.设臵完成后~按下“确定”按钮。
看看工资表吧~工资总额的数据是不是按你的要求以不同颜色显示出来了。
二、建立分类下拉列表填充项
我们常常要将企业的名称输入到表格中~为了保持名称的一致性~利用“数据有效性”功能建了一个分类下拉列表填充项。
1.在Sheet2中~将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输入不同列中~建立一个企业名称数据库。
2.选中A列(“工业企业”名称所在列)~在“名称”栏内~输入“工业企业”字符后~按“回车”键进行确认。
仿照上面的操作~将B、C??列分别命名为“商业企业”、“个体企业”??
3.切换到Sheet1中~选中需要输入“企业类别”的列(如
C列)~执行“数据?有效性”命令~打开“数据有效性”对话框。在“设臵”标签中~单击“允许”右侧的下拉按钮~选中“序列”选项~在下面的“来源”方框中~输入“工业企业”~“商业企业”~“个体企业”??序列(各元素之间用英文逗号隔开)~确定退出。
再选中需要输入企业名称的列(如D列)~再打开“数据有效性”对话框~选中“序列”选项后~在“来源”方框中输入公式:
=INDIRECT(C1)~确定退出。
4.选中C列任意单元格(如C4)~单击右侧下拉按钮~选择相应的“企业类别”填入单元格中。然后选中该单元格对应的D列单元格(如D4)~单击下拉按钮~即可从相应类别的企业名称列表中选择需要的企业名称填入该单元格中。
提示:在以后打印报表时~如果不需要打印“企业类别”列~可以选中该列~右击鼠标~选“隐藏”选项~将该列隐藏起来即可。
三、建立“常用文档”新菜单
在菜单栏上新建一个“常用文档”菜单~将常用的工作簿文档添加到其中~方便随时调用。
1.在工具栏空白处右击鼠标~选“自定义”选项~打开“自定义”对话框。在“命令”标签中~选中“类别”下的“新菜单”项~再将“命令”下面的“新菜单”拖到菜单栏。
按“更改所选内容”按钮~在弹出菜单的“命名”框中输入一个名称(如“常用文档”)。
2.再在“类别”下面任选一项(如“插入”选项)~在右边“命令”下面任选一项(如“超链接”选项)~将它拖到新菜单(常用文档)中~并
仿照上面的操作对它进行命名(如“工资表”等)~建立第一个工作簿文档列表名称。
重复上面的操作~多添加几个文档列表名称。
3.选中“常用文档”菜单中某个菜单项(如“工资表”等)~右击鼠标~在弹出的快捷菜单中~选“分配超链接?打开”选项~打开“分配超链接”对话框。通过按“查找范围”右侧的下拉按钮~定位到相应的工作簿(如”工资.xls”等)文件夹~并选中该工作簿文档。
重复上面的操作~将菜单项和与它对应的工作簿文档超链接起来。
4.以后需要打开“常用文档”菜单中的某个工作簿文档时~只要展开“常用文档”菜单~单击其中的相应选项即可。
提示:尽管我们将“超链接”选项拖到了“常用文档”菜单中~但并不影响“插入”菜单中“超链接”菜单项和“常用”工具栏上的“插入超链接”按钮的功能。
四、制作“专业符号”工具栏
在编辑专业表格时~常常需要输入一些特殊的专业符号~
为了方便输入~我们可以制作一个属于自己的“专业符号”
工具栏。