EXCEL中单元格的颜色统计

Excel统计空白单元格、数字单元格、数字及非空单元格数量

Excel 统计空白单元格、数字单元格、数字及非空单元格数目

1. Excel 统计空白单元格、数字单元格、数字及非空单元格数目 =countBlank(A1:A100) '统计空白单元格数目

=count(A1:A100) '统计数字单元格个数

=counta(A1:A100) '统计数字及非空单元格个数

=countif(A1:A100,A1) '条件统计 统计地域中 A1 同值的个数

2. Excel 提取文件夹中的全部文件名称

1、在那个文件夹内新建一个 .TXT 文件（如 wenjian.txt ），用记事本单开输入 保存退出

将刚刚的 .TXT （ wenjian.txt ）更名为 .bat 文件（ wenjian.bat ）双击 wenjian.bat 文件运转一次，在文件夹内多出一个 1.txt 文件

打开 1.txt 文件，将此中的内容粘贴到 Excel 中，数据 —— 排列办理就可以获得

你要的文件名列表了！

2、VBA （2003 版）

在那个文件夹下新建 Excel 文件，打开新建的 Excel 文件，右击工作表标签（如

Sheet1 ），查察代码 —— 在代码编写器中输入以下代码

Sub Test()

Dim i As Integer

Dim strPath As String

.LookIn = strPath

.SearchSubFolders = True

.Filename = "*.*"

If .Execute > 0 Then

Range("A" & i) = .FoundFiles(i)

Next i

End If

End With

End Sub

回到 Excel 表格中，工具 —— 宏 —— 宏 —— 选择 Sheet1.Test —— 履行看看成效吧！ Excel统计空白单元格、数字单元格、数字及非空单元格数量

123456789012345ABC123456789012345ABC123456789012345123456789012345ABC123456789012345CBA1234567890当然，我们还可以用第二种方法的思路，求第一个数字，再计算第二个数字，然后再倒减出总的位数。那样公式会比这个公式要复杂很多。以上公式参考自 兰色幻想 的 EXCEL函数36集速成教程第28集。3 数字在中间数字在中间是最难提取的，不能再用简单的截取就能实现了。那怎么办呢？我们可综合一下两种方法。excel提取单元格中的数字（原创）1、数字在前。如果字符串中数字在前，如B7单元格中字符为 56ABC，我们可以用下面的公式来提取。如果数字就不能用上面的方法了。我们可以查找最前的数字位置然后用MID函数提取。 估计很多没基础的看不懂上面的公式，9^9是什么？后面row又是什么用法？这里简单介绍一下吧。lookup函数可以查找到一组数中最后一个数字，那么我们就用left进行截取前1个，前2个，前3个..前9个，怎么实现这个，就是把left第二个参数设置成一个数组。row函数可以生成一个数字序列来完成这个任务。2、数字在后公式说明：使用find查找第一个数字的位置，row生成0~9的数字，后面之所以加上0~9，因为如果字符串中没有某个数字，查找返回错误值，从而会让整个公式产生错误。 excel单元格中经常是数字和字符混在一起，那么当我们需要从单元格中提取数字时，该用什么样的方法呢？下面兰色幻想就这个问题做一个总结，希望能给大家所有启发和帮助。万能公式：123456789012345万能公式：123456789012345万能公式：123456789012345（原创）

在excel2003中按单元格背景颜色求和

2008-11-22 15:13

今天应一网友要求：按颜色求和，在网上一查还真找到了这一方法，经过测试(在Excel2003和2007中)，非常好用，整理出来，与大家分享：

Excel 本身没有这个功能，可用以下办法实现：

打开你的工作表：点工具--宏--Visual Basic 编辑器，在左边最上一行点右键--插入--模块，然后在打开的编辑框中粘贴以下代码：

Function CountColor(col As Range, countrange As Range) As Integer

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

Function SumColor(col As Range, sumrange As Range) As Integer

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

NPOI Excel 单元格颜色对照表，在引用了 NPOI.dll 后可通过ICellStyle接口的FillForegroundColor属性实现 Excel 单元格的背景色设置，FillPattern为单元格背景色的填充样式。

NPOI Excel 单元格背景颜色设置方法以及颜色对照表：

1

2

3

4

5

6 ICellStyle style = workbook.CreateCellStyle();

style.FillForegroundColor = NPOI.HSSF.Util.HSSFColor.Red.Index;

style.FillPattern = FillPattern.SolidForeground;

ICell cell = workbook.CreateSheet().CreateRow(0).CreateCell(0);

cell.CellStyle = style;复制

颜色对照表：

颜色 测试 Class名称 short

Test颜色 Black 8

Test颜色 Brown 60

Test颜色 Olive_Green 59

Test颜色 Dark_Green 58

Test颜色 Dark_Teal 56

Test颜色 Dark_Blue 18

Test颜色 Indigo 62

Test颜色 Grey_80_PERCENT 63

Test颜色 Dark_Red 16

Test颜色 Orange 53

Test颜色 DARK_YELLOW 19

Test颜色 Green 17

Test颜色 Teal 21

Test颜色 Blue 12

Test颜色 Blue_Grey 54

Test颜色 Grey_50_PERCENT 23

Test颜色 Red 10

Test颜色 LIGHT_ORANGE 52