excel 序号函数

1 / 39

Option Base 1

Dim rq As Integer '日期

Dim y As Date '农历正月月初一的阳历日期

Dim yts As Variant '农历每月的天数

Dim yy(2) As Integer '农历闰月数、阳历闰年数（闰年为1，不闰年为0）

Dim nl(3, 385) As String '阳历日期字符串、农历日期字符串、农历闰月字符串

Function NONGLI(glrq As Date, nlr As Integer)

Dim X As Integer, i As Integer, k As Integer, n1 As Integer, n2 As Integer

X = Year(glrq)

If X < 1900 Or glrq > #1/28/2101# Then

NONGLI = "？"

Exit Function

End If

'1、将X年的阴阳历等，通过运行程序2，装入数组

If X < 2021 Then Call Array1(X, n1, glrq)

If X > 2020 Then Call Array2(X, n1, glrq)

'2、查找阳历日期所在数组的序号rq

di2bu: rq = 0

If X = 1899 Then

rq = Day(glrq)

2 / 39

Else

For i = 1 To n1

If nl(1, i) = glrq Then rq = i: Exit For

Next i

End If

'3、填写"农历日期"(包括节日、纪念日)

Dim nongli1$, yr$, yuefen$, yf$, rizi$, rz$

Dim jr1 As String, jr2 As String, jr3 As String

nongli1 = nl(2, rq)'农历日期以"2014-2-1"或"2014-闰9-1"的形式表示

龙源期刊网

Ｅｘｃｅｌ中“自动序号”的妙用

作者：罗 勇

来源：《电脑知识与技术·经验技巧》2008年第06期

我们都知道，在Word中有个自动编号的功能，当你输入某个序号后回车会自动追加一个编号。当我们在用Excel编制报表或者数据处理的时候，也经常会涉及到某列单元格为“序号”的情况，你可别小看这序号哦，里面还隐藏着很多大学问。

一、Excel单元格也能“自动编号”

Word的自动编号非常方便，同样在用Excel进行报表处理时候，如果希望在B列输入内容，A列就自动进行编号的话，那么只需要使用一个简单的函数就可以实现。在A2单元格中输入公式：=IF(B2="","",COUNTA($B$2:B2))，然后把鼠标移到A2单元格的右下方，待鼠标变成“十”字形状，按住拖拽填充到A列下面的单元格中，这样我们在B列输入内容时，A列中就会自动输入序号了（图1），是不是非常方便呢？

二、隐藏行（列）打印也能连续编号

我们在打印Excel报表的时候，有时需要将部分行（列）隐藏起来进行打印，或者执行筛选操作后进行打印，结果就会发现序号不连续了（图2），如果你确实希望序号还是连续的话，就得将其调整为连续的以便打印输出。

比如在A2单元格输入公式：=IF(B2="","",SUBTOTAL(103,$B$2:B2))，然后拖拽到A列下面的单元格，这样即使你执行隐藏或者筛选操作，序号也会自动调整了（图3），不用担心序号乱的问题和手动调整的麻烦了。

“本文中所涉及到的图表、注解、公式等内容请以PDF格式阅读原文”

excel if函数 if函数嵌套用法

excel函数中 if函数的使用非常广泛，特别是在单条件判断的时候，用好 if函数可以帮我们完成很多功能。

最简单的 excel if函数应用

例子：下图数据在d列显示如下结果：如果数据1大于60则显示合格，否则显示不合格。

那么在d2单元格输入以下公式：

=if(a2>60,"合格","不合格")

然后向下拖拽，自动生成数据，如下图D列效果。

if函数必须的条件：

每一个 if函数必须使用英文的括号括起来；

括号内为三个数据，第一个数据是条件（如上例中的a2>60），第二数据为满足第一个数据后返回的结果，通常使用英文的引号括起来，第三个数据是不满足第一个数据时需要返回的结果；（如果不输入第三个数据可以吗，当然可以，返回什么结果自己试试吧）

经常出现的错误：

其中的符号如逗号和引号皆为英文（也就是所谓的半角）；

if的右括号放在了条件的后面；（这是在多个条件使用if函数进行嵌套时非常容易犯的错误）

if函数嵌套用法 例子：下图数据，在e列显示如下结果：如果数据1小于60则显示不合格，如果大于等于60而小于80则显示合格，如果大于等于80而小于90显示良好，如果大于等于90则显示优秀。

这是经典的if嵌套应用例子，需要我们使用 if函数的嵌套。

if嵌套书写前，首先你要理解要求，并将要求数学化，也就是使用数学的模式表达出来，if函数多重嵌套一般情况下我们可以将它看做分段函数，那么问题就很容易解决了。例子可以在E2单元格使用如下代码：

=if(a2<60,"不合格",if(a2<80,"合格",if(a2<90,"良好","优秀")))

当数据1小于60时，显示不合格，这时在“不合格”逗号的右侧默认就是>=60的情况，那么根据题意，只需再满足<80即可显示合格，于是我们将最简单的 if函数的第三个数据变成了一个if函数，依次类推，每一次可以将一个if函数作为每一个基本函数的第三个数据，从而形成多种嵌套。

EXCEL函数大全

数据库和清单管理函数

AVERAGE 返回选定数据库项的平均值

COUNT 计算数据库中包含数字的单元格的个数

COUNTA 计算数据库中非空单元格的个数

DGET 从数据库中提取满足指定条件的单个记录

MAX 返回选定数据库项中的最大值

MIN 返回选定数据库项中的最小值

PRODUCT 乘以特定字段（此字段中的记录为数据库中满足指定条件的记录）中的值

STDEV 根据数据库中选定项的示例估算标准偏差

STDEVP 根据数据库中选定项的样本总体计算标准偏差

SUM 对数据库中满足条件的记录的字段列中的数字求和

VAR 根据数据库中选定项的示例估算方差

VARP 根据数据库中选定项的样本总体计算方差

GETPIVOTDATA 返回存储在数据透视表中的数据

日期和时间函数

DATE 返回特定时间的系列数

DATEDIF 计算两个日期之间的年、月、日数

DATEVALUE 将文本格式的日期转换为系列数

DAY 将系列数转换为月份中的日 DAYS360 按每年360天计算两个日期之间的天数

EDATE 返回在开始日期之前或之后指定月数的某个日期的系列数

EOMONTH 返回指定月份数之前或之后某月的最后一天的系列数

HOUR 将系列数转换为小时

MINUTE 将系列数转换为分钟

MONTH 将系列数转换为月

NETWORKDAYS 返回两个日期之间的完整工作日数

NOW 返回当前日期和时间的系列数

SECOND 将系列数转换为秒

TIME 返回特定时间的系列数

TIMEVALUE 将文本格式的时间转换为系列数

TODAY 返回当天日期的系列数

WEEKDAY 将系列数转换为星期

WORKDAY 返回指定工作日数之前或之后某日期的系列数

YEAR 将系列数转换为年