【www.shanpow.com--简历制作】
【一】:EXCEL函数经典使用
【精品】EXCEL使用技巧(部分收集、部分原创)申请加精
后边有宏的制作，应有，导出，和加载宏的方法。本人感觉挺好的。
一、求字符串中某字符出现的次数：
例：求A1单元格中字符"a"出现的次数：
=LEN(A1)-LEN(SUBSTITUTE(A1,"a",""))
二、如何在不同工作薄之间复制宏：
1、打开含有宏的工作薄，点“工具/宏(M)…”，选中你的宏，点“编辑”，这样就调出了VB编辑器界面。
2、点“文件/导出文件”，在“文件名”框中输入一个文件名（也可用默认的文件名），注意扩展名为“.bas”，点“保存”。
3、将扩展名为“.bas”的文件拷贝到另一台电脑，打开EXCEL，点“工具/宏/VB编辑器”，调出VB编辑器界面，点“文件/导入文件”，找到你拷贝过来的文件，点“打开”，退出VB编辑器，你的宏已经复制过来了。
三、如何在EXCEL中设置单元格编辑权限(保护部分单元格)
1、先选定所有单元格,点"格式"->"单元格"->"保护",取消"锁定"前面的"√"。
2、再选定你要保护的单元格,点"格式"->"单元格"->"保护",在"锁定"前面打上"√"。
3、点"工具"->"保护"->"保护工作表",输入两次密码,点两次"确定"即可。
四、excel中当某一单元格符合特定条件，如何在另一单元格显示特定的颜色
比如：
A1〉1时，C1显示红色 0<A1<1时，C1显示绿色 A1<0时，C1显示黄色 方法如下：
1、单元击C1单元格，点“格式”>“条件格式”，条件1设为： 公式 =A1=1
2、点“格式”->“字体”->“颜色”，点击红色后点“确定”。条件2设为：
公式 =AND(A1>0,A1<1)
3、点“格式”->“字体”->“颜色”，点击绿色后点“确定”。 条件3设为： 公式 =A1<0
点“格式”->“字体”->“颜色”，点击黄色后点“确定”。4、三个条件设定好后，点“确定”即出。
五、EXCEL中如何控制每列数据的长度并避免重复录入 1、用数据有效性定义数据长度。
用鼠标选定你要输入的数据范围，点"数据"->"有效性"->"设置"，"有效性条件"设成"允许""文本长度""等于""5"（具体条件可根据你的需要改变）。
还可以定义一些提示信息、出错警告信息和是否打开中文输入法等，定义好后点"确定"。 2、用条件格式避免重复。
选定A列，点"格式"->"条件格式"，将条件设成“公式=COUNTIF($AA,$A1)>1”，点"格式"->"字体"->"颜色"，选定红色后点两次"确定"。
这样设定好后你输入数据如果长度不对会有提示，如果数据重复字体将会变成红色。
六、在EXCEL中如何把B列与A列不同之处标识出来？ （一）、如果是要求A、B两列的同一行数据相比较：
假定第一行为表头，单击A2单元格，点“格式”->“条件格式”，将条件设为:
“单元格数值”“不等于”=B2
点“格式”->“字体”->“颜色”，选中红色，点两次“确定”。 用格式刷将A2单元格的条件格式向下复制。 B列可参照此方法设置。
（二）、如果是A列与B列整体比较（即相同数据不在同一行）：
假定第一行为表头，单击A2单元格，点“格式”->“条件格式”，将条件设为:
“公式”=COUNTIF($BB,$A2)=0
点“格式”->“字体”->“颜色”，选中红色，点两次“确定”。 用格式刷将A2单元格的条件格式向下复制。 B列可参照此方法设置。
按以上方法设置后，AB列均有的数据不着色，A列有B列无或者B列有A列无的数据标记为红色字体。
七、在EXCEL中建立下拉列表按钮
选定你要设置下拉列表的单元格，点“数据”->“有效性”->“设置”，在“允许”下面选择“序列”，在“来源”框中输入你的下拉列表内容，各项之间用半角逗号隔开，如： A,B,C,D
选中“提供下拉前头”，点“确定”。
八、阿拉伯数字转换为大写金额(最新收集)
假定你要在B1输入阿拉佰数字,C1转换成中文大写金额(含元角分),请在C1单元格输入如下公式:
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(B1),IF(B1>0,,"负")&TEXT(INT(ABS(B1)+0.5%),"[dbnum2]G/通用格式
元;;")&TEXT(RIGHT(RMB(B1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(B1^2<1,,"零")),"零分","整")
九、EXCEL中怎样批量地处理按行排序
假定有大量的数据(数值)，需要将每一行按从大到小排序，如何操作？
由于按行排序与按列排序都是只能有一个主关键字,主关键字相同时才能按次关键字排序。所以，这一问题不能用排序来解决。解决方法如下：
1、假定你的数据在A至E列，请在F1单元格输入公式：
=LARGE($A1E1,COLUMN(A1))
用填充柄将公式向右向下复制到相应范围。
你原有数据将按行从大到小排序出现在F至J列。如有需要可用“选择性粘贴/数值”复制到其他地方。
注：第1步的公式可根据你的实际情况（数据范围）作相应的修改。如果要从小到大排序,公式改为:=SMALL($A1:$E1,COLUMN(A1))
十、巧用函数组合进行多条件的计数统计
例：第一行为表头，A列是“姓名”，B列是“班级”，C列是“语文成绩”，D列是“录取结果”，现在要统计“班级”为“二”，“语文成绩”大于等于104，“录取结果”为“重本”的人数。统计结果存放在本工作表的其他列。
公式如下：www.shanpow.com_excel函数颜色。
=SUM(IF((B2:B9999="二")*(C2:C9999>=104)*(D2
9999="重本"),1,0))
输入完公式后按Ctrl+Shift+Enter键,让它自动加上数组公式符号"{}"。
十一、EXCEL中某个单元格内文字行间距调整方法。
当某个单元格内有大量文字时，很多人都觉得很难将其行间距按自己的要求进行调整。现介绍一种方法可以让你任意调整单元格内文字的行间距：
右击单元格,点"设置单元格格式"->"对齐",将"水平对齐"选择"靠左",将"垂直对齐"选择"分散对齐",选中"自动换行"，点“确定”。你再用鼠标将行高根据你要求的行距调整到适当高度即可。
注：绿色内容为关键点，很多人就是这一点设置不对而无法调整行间距。
十二、如何在EXCEL中引用当前工作表名
【二】:EXCEL中单元格的颜色统计
EXCEL中单元格的颜色统计
其实，这个问题要用到一个特别的函数：get.cell
解决这个问题的思路是，你首先得让系统知道你每种颜色的代码是多少。得到这个代码就用到这个函数。设你要统计的单元格在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 sumrangewww.shanpow.com_excel函数颜色。
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_单击() '这是自动生出来的
Dim a As Range
For Each a In Sheets("sheet1").UsedRange '在使用过的单元格内搜索
If a.Interior.ColorIndex = 6 Then
a = 1000: a.Font.ColorIndex = 3 '如果条件为真,在这个单元格内输入数值.并改变字体颜色
ElseIf a.Interior.ColorIndex = 5 Then
a = 500: a.Font.ColorIndex = 6
ElseIf a.Interior.ColorIndex = 3 Then
a = 100: a.Font.ColorIndex = 5
End If
Next a
End Sub '这也是自动生出来的.
请注意:复制此段代码时,不要将第一句Sub 按钮1_单击()和最后一句End Sub 这两句复制.选中中间的代码将它粘贴进去就可以了.www.shanpow.com_excel函数颜色。
如果想判断颜色后,不想再要这些背景颜色的话,将它修改一下就可以了.
如下面:
Sub 按钮1_单击()
Dim a As Range
For Each a In Sheets("sheet1").UsedRange
If a.Interior.ColorIndex = 6 Then
a.Interior.ColorIndex = 0: a = 1000: a.Font.ColorIndex = 3
ElseIf a.Interior.ColorIndex = 5 Then
a.Interior.ColorIndex = 0: a = 500: a.Font.ColorIndex = 6
ElseIf a.Interior.ColorIndex = 3 Then
a.Interior.ColorIndex = 0: a = 100: a.Font.ColorIndex = 5
End If
Next a
End Sub
这样只要你点击一下工作表上你拉出来的这个按钮.就会完成你的要求
我这个代码还是粗糙了一点.如果哪位高手有更好的方法也可以贴出来.权当是一次VBA编写练习. 如果不想要单元格的字体颜色设置.可将这些类似的删除.": a.Font.ColorIndex = 3 "
如果是单元格内一开始设置的字体颜色.但单元格内并末输入数据.而想用设定的字体颜色来改变为数值的话,用下面这段代码.
用上面的方法拉出一个按钮.
Sub 按钮2_单击()
Dim a As Range
For Each a In Sheets("sheet1").UsedRange '在使用过的单元格内搜索
If a.Font.ColorIndex = 6 Then
a = 1000
ElseIf a.Font.ColorIndex = 5 Then
a = 500
ElseIf a.Font.ColorIndex = 3 Then
a = 100
End If
Next a
End Sub
复制粘贴代码的方法和上面相同.
还有a=100和a = 1000以及a = 500
这个数值随你自己调整.比如调整为 a = 5000等
应Yiqun_Zhao(蓝帆·雨轩 Mail:[email protected])的要求.我写了一个自定义的函数.以下为代码
操作方法如下:按ALT+F11打开VBE.点击"插入","模块".在右边的界面将下面的代码粘贴过去即可 Private Function hhh(aa As Range) '自定义函数hhh()
Application.Volatile
b = aa.Font.ColorIndex
If b = 6 Then
hhh = 1000
ElseIf b = 5 Then
hhh = 500
ElseIf b = 3 Then
hhh = 100
Else
hhh = 50
【三】:excel函数公式设置颜色
一。单元格颜色效果全选表格，格式-条件格式，条件选择“公式”，公式如下，然后选“格式”按钮，“图案”，选择需要颜色。
1.隔行颜色效果(奇数行颜色)：
=MOD(ROW(),2)=1
2.隔行颜色效果(偶数行颜色)：
=MOD(ROW(),2)=0
3.如果希望设置格式为每3行应用一次底纹，可以使用公式：
=MOD(ROW(),3)=1
4.如果希望设置奇偶列不同底纹，只要把公式中的ROW()改为COLUMN()即可，如：
=MOD(COLUMN(),2)
5.如果希望设置国际象棋棋盘式底纹(白色+自定义色):
=MOD(ROW()+COLUMN(),2)
说明：该条件格式的公式用于判断行号与列号之和除以2的余数是否为0。如果为0，说明行数与列数的奇偶性相同，则填充单元格为指定色，否则就不填充。在条件格式中，公式结果返回一个数字时，非0数字即为TRUE，0和错误值为FALSE。因此，上面的公式也可以写为：
=MOD(ROW()+COLUMN(),2)<>0
6.如果希望设置国际象棋棋盘式底纹(自定义色+自定义色):
加入样式2：
=MOD(ROW()+COLUMN(),2)=0
二。用颜色进行筛选
excel2007可以按单元格颜色、字体颜色或图标进行排序。
如果是excel2003，需要添加辅助列，用定义名称的方法得到对应的颜色号，然后对辅助列进行排序：
颜色单元格在A列，选中B1,插入->名称->定义，输入a，下面输入公式 =get.cell(24,$a1)，
此法可得到字体色的序列号。 B1输入 =a 将公式向下复制到相应行。
将全表按B列排序即可。若是想获得背景色序列号，将24改成63即可。
excel函数公式设置颜色相关文章：
1.excel函数公式设置颜色
2.18个Excel最常用的公式运算技巧总结
3.Excel表格乘法函数公式
4.教你Excel函数公式统计文本出现次数的方法
5.手把手教你用“Excel表格自动求积公式”
6.Excel公式相关操作大全
【四】:利用excel函数更改背景颜色的方法
在很多时候，需要用到函数把背景颜色给按要求改变，而这个函数比较常用，接下来请欣赏学习啦小编给大家网络收集整理的利用excel函数更改背景颜色的方法。
数据行个表的行数为奇数和偶数相间出现，要是得整个表格颜色相间，可以转化为判断行是否为偶数或者奇数，根据需求，在偶数行填充颜色或者奇数行填充颜色。
怎么在EXCEL里面设置我们输入正负数，它会自己改变表格的颜色?下面是学习啦小编为大家整理的Excel中随数值改变而改变表格颜色的方法，希望大家能够从中有所收获!
使用条件格式或单元格格式可以解决：
选中区域——条件格式——突出显示单元格规则——小于——0——红色
选中区域——条件格式——突出显示单元格规则——大于——0——蓝色
注：需要把表头的单元格格式清除
