如题所述
IF
全部显示全部隐藏
根据对指定的条件计算结果为 TRUE 或 FALSE，返回不同的结果。
可以使用 IF 对数值和公式执行条件检测。
语法
IF(logical_test,value_if_true,value_if_false)
Logical_test 表示计算结果为 TRUE 或 FALSE 的任意值或表达式。例如，A10=100 就是一个逻辑表达式；如果单元格 A10 中的值等于 100，表达式的计算结果为 TRUE；否则为 FALSE。此参数可使用任何比较运算符。
Value_if_true 是 logical_test 为 TRUE 时返回的值。例如，如果此参数是文本字符串“预算内”，而且 logical_test 参数的计算结果为 TRUE，则 IF 函数显示文本“预算内”。如果 logical_test 为 TRUE 而 value_if_true 为空，则此参数返回 0（零）。若要显示单词 TRUE，请为此参数使用逻辑值 TRUE。Value_if_true 可以是其他公式。
Value_if_false 是 logical_test 为 FALSE 时返回的值。例如，如果此参数是文本字符串“超出预算”而 logical_test 参数的计算结果为 FALSE，则 IF 函数显示文本“超出预算”。如果 logical_test 为 FALSE 而 value_if_false 被省略（即 value_if_true 后没有逗号），则会返回逻辑值 FALSE。如果 logical_test 为 FALSE 且 value_if_false 为空（即 value_if_true 后有逗号并紧跟着右括号），则会返回值 0（零）。Value_if_false 可以是其他公式。
注解
最多可以使用 64 个 IF 函数作为 value_if_true 和 value_if_false 参数进行嵌套以构造更详尽的测试。（示例 3 是嵌套 IF 函数的一个例子。）此外，若要检测多个条件，请考虑使用 LOOKUP、VLOOKUP 或 HLOOKUP 函数。（示例 4 是 LOOKUP 函数的一个例子。）
在计算参数 value_if_true 和 value_if_false 时，IF 会返回相应语句执行后的返回值。
如果函数 IF 的参数包含数组 （数组：用于建立可生成多个结果或可对在行和列中排列的一组参数进行运算的单个公式。数组区域共用一个公式；数组常量是用作参数的一组常量。），则在执行 IF 语句时，数组中的每一个元素都将计算。
Microsoft Excel 还提供了其他一些函数，它们可根据条件来分析数据。例如，如果要计算某单元格区域内某个文本字符串或数字出现的次数，则可使用 COUNTIF 和 COUNTIFS 电子表格函数。若要计算基于某区域内一个文本字符串或一个数值的总和，可使用 SUMIF 和 SUMIFS 工作表函数。
示例 1
如果将示例复制到一个空白工作表中，可能会更易于理解。
如何复制示例
创建一个空白工作簿或工作表。在帮助主题中选择示例。 注释 请不要选择行或列标题。
从帮助中选择示例按 Ctrl+C。在工作表中，选择单元格 A1，然后按 Ctrl+V。若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“公式”选项卡的“公式审核”组中，单击“显示公式”按钮。
1
2
A
数据
50
公式 说明（结果）
=IF(A2<=100,"预算内","超出预算") 如果上面的数字小于等于 100，则公式将显示“预算内”。否则，公式显示“超出预算”。(预算内)
=IF(A2=100,SUM(B5:B15),"") 如果上面数字为 100，则计算单元格区域 B5:B15，否则返回空文本 ("")
示例 2
如果将示例复制到一个空白工作表中，可能会更易于理解。
如何复制示例
创建一个空白工作簿或工作表。在帮助主题中选择示例。 注释 请不要选择行或列标题。
从帮助中选择示例按 Ctrl+C。在工作表中，选择单元格 A1，然后按 Ctrl+V。若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“公式”选项卡的“公式审核”组中，单击“显示公式”按钮。
1
2
3
4
A B
实际费用 预期费用
1500 900
500 900
500 925
公式 说明（结果）
=IF(A2>B2,"超出预算","OK") 检查第一行是否超出预算 (超出预算)
=IF(A3>B3,"超出预算","OK") 检查第二行是否超出预算 (OK)
示例 3
如果将示例复制到一个空白工作表中，可能会更易于理解。
如何复制示例
创建一个空白工作簿或工作表。在帮助主题中选择示例。 注释 请不要选择行或列标题。
从帮助中选择示例按 Ctrl+C。在工作表中，选择单元格 A1，然后按 Ctrl+V。若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“公式”选项卡的“公式审核”组中，单击“显示公式”按钮。
1
2
3
4
A
成绩
45
90
78
公式 说明（结果）
=IF(A2>89,"A",IF(A2>79,"B", IF(A2>69,"C",IF(A2>59,"D","F")))) 给第一个成绩指定一个字母等级 (F)
=IF(A3>89,"A",IF(A3>79,"B", IF(A3>69,"C",IF(A3>59,"D","F")))) 给第二个成绩指定一个字母等级 (A)
=IF(A4>89,"A",IF(A4>79,"B", IF(A4>69,"C",IF(A4>59,"D","F")))) 给第三个成绩指定一个字母等级 (C)
在上例中，第二个 IF 语句同时也是第一个 IF 语句的参数 value_if_false。同样，第三个 IF 语句是第二个 IF 语句的参数 value_if_false。例如，如果第一个 logical_test (Average > 89) 为 TRUE，则返回“A”；如果第一个 logical_test 为 FALSE，则计算第二个 IF 语句，以此类推。
全部显示全部隐藏
根据对指定的条件计算结果为 TRUE 或 FALSE，返回不同的结果。
可以使用 IF 对数值和公式执行条件检测。
语法
IF(logical_test,value_if_true,value_if_false)
Logical_test 表示计算结果为 TRUE 或 FALSE 的任意值或表达式。例如，A10=100 就是一个逻辑表达式；如果单元格 A10 中的值等于 100，表达式的计算结果为 TRUE；否则为 FALSE。此参数可使用任何比较运算符。
Value_if_true 是 logical_test 为 TRUE 时返回的值。例如，如果此参数是文本字符串“预算内”，而且 logical_test 参数的计算结果为 TRUE，则 IF 函数显示文本“预算内”。如果 logical_test 为 TRUE 而 value_if_true 为空，则此参数返回 0（零）。若要显示单词 TRUE，请为此参数使用逻辑值 TRUE。Value_if_true 可以是其他公式。
Value_if_false 是 logical_test 为 FALSE 时返回的值。例如，如果此参数是文本字符串“超出预算”而 logical_test 参数的计算结果为 FALSE，则 IF 函数显示文本“超出预算”。如果 logical_test 为 FALSE 而 value_if_false 被省略（即 value_if_true 后没有逗号），则会返回逻辑值 FALSE。如果 logical_test 为 FALSE 且 value_if_false 为空（即 value_if_true 后有逗号并紧跟着右括号），则会返回值 0（零）。Value_if_false 可以是其他公式。
注解
最多可以使用 64 个 IF 函数作为 value_if_true 和 value_if_false 参数进行嵌套以构造更详尽的测试。（示例 3 是嵌套 IF 函数的一个例子。）此外，若要检测多个条件，请考虑使用 LOOKUP、VLOOKUP 或 HLOOKUP 函数。（示例 4 是 LOOKUP 函数的一个例子。）
在计算参数 value_if_true 和 value_if_false 时，IF 会返回相应语句执行后的返回值。
如果函数 IF 的参数包含数组 （数组：用于建立可生成多个结果或可对在行和列中排列的一组参数进行运算的单个公式。数组区域共用一个公式；数组常量是用作参数的一组常量。），则在执行 IF 语句时，数组中的每一个元素都将计算。
Microsoft Excel 还提供了其他一些函数，它们可根据条件来分析数据。例如，如果要计算某单元格区域内某个文本字符串或数字出现的次数，则可使用 COUNTIF 和 COUNTIFS 电子表格函数。若要计算基于某区域内一个文本字符串或一个数值的总和，可使用 SUMIF 和 SUMIFS 工作表函数。
示例 1
如果将示例复制到一个空白工作表中，可能会更易于理解。
如何复制示例
创建一个空白工作簿或工作表。在帮助主题中选择示例。 注释 请不要选择行或列标题。
从帮助中选择示例按 Ctrl+C。在工作表中，选择单元格 A1，然后按 Ctrl+V。若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“公式”选项卡的“公式审核”组中，单击“显示公式”按钮。
1
2
A
数据
50
公式 说明（结果）
=IF(A2<=100,"预算内","超出预算") 如果上面的数字小于等于 100，则公式将显示“预算内”。否则，公式显示“超出预算”。(预算内)
=IF(A2=100,SUM(B5:B15),"") 如果上面数字为 100，则计算单元格区域 B5:B15，否则返回空文本 ("")
示例 2
如果将示例复制到一个空白工作表中，可能会更易于理解。
如何复制示例
创建一个空白工作簿或工作表。在帮助主题中选择示例。 注释 请不要选择行或列标题。
从帮助中选择示例按 Ctrl+C。在工作表中，选择单元格 A1，然后按 Ctrl+V。若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“公式”选项卡的“公式审核”组中，单击“显示公式”按钮。
1
2
3
4
A B
实际费用 预期费用
1500 900
500 900
500 925
公式 说明（结果）
=IF(A2>B2,"超出预算","OK") 检查第一行是否超出预算 (超出预算)
=IF(A3>B3,"超出预算","OK") 检查第二行是否超出预算 (OK)
示例 3
如果将示例复制到一个空白工作表中，可能会更易于理解。
如何复制示例
创建一个空白工作簿或工作表。在帮助主题中选择示例。 注释 请不要选择行或列标题。
从帮助中选择示例按 Ctrl+C。在工作表中，选择单元格 A1，然后按 Ctrl+V。若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“公式”选项卡的“公式审核”组中，单击“显示公式”按钮。
1
2
3
4
A
成绩
45
90
78
公式 说明（结果）
=IF(A2>89,"A",IF(A2>79,"B", IF(A2>69,"C",IF(A2>59,"D","F")))) 给第一个成绩指定一个字母等级 (F)
=IF(A3>89,"A",IF(A3>79,"B", IF(A3>69,"C",IF(A3>59,"D","F")))) 给第二个成绩指定一个字母等级 (A)
=IF(A4>89,"A",IF(A4>79,"B", IF(A4>69,"C",IF(A4>59,"D","F")))) 给第三个成绩指定一个字母等级 (C)
在上例中，第二个 IF 语句同时也是第一个 IF 语句的参数 value_if_false。同样，第三个 IF 语句是第二个 IF 语句的参数 value_if_false。例如，如果第一个 logical_test (Average > 89) 为 TRUE，则返回“A”；如果第一个 logical_test 为 FALSE，则计算第二个 IF 语句，以此类推。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-08-21
一、EXCEL里公式IF的含义：
IF 函数使用下列参数。
＝IF(logical_test,value_if_true,value_if_false)
带有 IF 函数的公式
logical_test: 要选取的条件
value_if_true: 条件为真时返回的值
value_if_false: 条件为假时返回的值
示例：
＝IF(A1>=0,"非负数","负数")
二、VBA环境下的IF语句含义：
If...Then...Else 语句
根据表达式的值有条件地执行一组语句。
语法
If 一个或多个数值表达式或字符串表达式 Then 一条条或多条以冒号分开的语句[Else 一条或多条语句]
或者，可以使用块形式的语法：
If 一个或多个数值表达式或字符串表达式 Then
一条或多条语句
ElseIf 一个或多个数值表达式或字符串表达式 Then
一条或多条语句 ...
Else
一条或多条语句
End If
If...Then...Else 语句示例
本示例示范 If...Then...Else 语句的两种格式：“区块格式”及“单行格式”，也示范了 If TypeOf...Then...Else 的用法。
Dim Number, Digits, MyString
Number = 53 ' 设置变量初始值。
If Number < 10 Then
Digits = 1
ElseIf Number < 100 Then
' 若判断结果为 True，则完成下一行语句。
Digits = 2
Else
Digits = 3
End If
' 使用“单行格式”语法来设置变量值。
If Digits = 1 Then MyString = "One" Else MyString = "More than one"
利用 If TypeOf 可以判断传入过程的控件是否为一文本框。
Sub ControlProcessor(MyControl As Control)
If TypeOf MyControl Is CommandButton Then
Debug.Print "You passed in a " & TypeName(MyControl)
ElseIf TypeOf MyControl Is CheckBox Then
Debug.Print "You passed in a " & TypeName(MyControl)
ElseIf TypeOf MyControl Is TextBox Then
Debug.Print "You passed in a " & TypeName(MyControl)
End If
End Sub
详情请参考VBA帮助。ALT+F11打开VBA窗口，F1打开帮助，搜索IF。
希望能帮到你。
IF 函数使用下列参数。
＝IF(logical_test,value_if_true,value_if_false)
带有 IF 函数的公式
logical_test: 要选取的条件
value_if_true: 条件为真时返回的值
value_if_false: 条件为假时返回的值
示例：
＝IF(A1>=0,"非负数","负数")
二、VBA环境下的IF语句含义：
If...Then...Else 语句
根据表达式的值有条件地执行一组语句。
语法
If 一个或多个数值表达式或字符串表达式 Then 一条条或多条以冒号分开的语句[Else 一条或多条语句]
或者，可以使用块形式的语法：
If 一个或多个数值表达式或字符串表达式 Then
一条或多条语句
ElseIf 一个或多个数值表达式或字符串表达式 Then
一条或多条语句 ...
Else
一条或多条语句
End If
If...Then...Else 语句示例
本示例示范 If...Then...Else 语句的两种格式：“区块格式”及“单行格式”，也示范了 If TypeOf...Then...Else 的用法。
Dim Number, Digits, MyString
Number = 53 ' 设置变量初始值。
If Number < 10 Then
Digits = 1
ElseIf Number < 100 Then
' 若判断结果为 True，则完成下一行语句。
Digits = 2
Else
Digits = 3
End If
' 使用“单行格式”语法来设置变量值。
If Digits = 1 Then MyString = "One" Else MyString = "More than one"
利用 If TypeOf 可以判断传入过程的控件是否为一文本框。
Sub ControlProcessor(MyControl As Control)
If TypeOf MyControl Is CommandButton Then
Debug.Print "You passed in a " & TypeName(MyControl)
ElseIf TypeOf MyControl Is CheckBox Then
Debug.Print "You passed in a " & TypeName(MyControl)
ElseIf TypeOf MyControl Is TextBox Then
Debug.Print "You passed in a " & TypeName(MyControl)
End If
End Sub
详情请参考VBA帮助。ALT+F11打开VBA窗口，F1打开帮助，搜索IF。
希望能帮到你。
第2个回答 推荐于2016-12-03
友情奉献,希望能多给几分
1.在VBE中新建一个模块,输入以下代码:
=================================================
Function GetNongLi(rng As Range) As String
Application.Volatile True
If rng.Value = Or IsDate(rng.Value) = False Then
GetNongLi =
Exit Function
End If
Dim MonthAdd(11), NongliData(99), YearName(10), DayName(30), MonName(12), mYear(4)
Dim curTime, curYear, curMonth, curDay
Dim NongliStr, NongliDayStr
Dim i, m, n, k, isEnd, bit, TheDate
curTime = rng.Value
YearName(0) = ○
YearName(1) = 一
YearName(2) = 二
YearName(3) = 三
YearName(4) = 四
YearName(5) = 五
YearName(6) = 六
YearName(7) = 七
YearName(8) = 八
YearName(9) = 九
DayName(0) = *
DayName(1) = 初一
DayName(2) = 初二
DayName(3) = 初三
DayName(4) = 初四
DayName(5) = 初五
DayName(6) = 初六
DayName(7) = 初七
DayName(8) = 初八
DayName(9) = 初九
DayName(10) = 初十
DayName(11) = 十一
DayName(12) = 十二
DayName(13) = 十三
DayName(14) = 十四
DayName(15) = 十五
DayName(16) = 十六
DayName(17) = 十七
DayName(18) = 十八
DayName(19) = 十九
DayName(20) = 二十
DayName(21) = 廿一
DayName(22) = 廿二
DayName(23) = 廿三
DayName(24) = 廿四
DayName(25) = 廿五
DayName(26) = 廿六
DayName(27) = 廿七
DayName(28) = 廿八
DayName(29) = 廿九
DayName(30) = 三十
MonName(0) = *
MonName(1) = 正
MonName(2) = 二
MonName(3) = 三
MonName(4) = 四
MonName(5) = 五
MonName(6) = 六
MonName(7) = 七
MonName(8) = 八
MonName(9) = 九
MonName(10) = 十
MonName(11) = 十一
MonName(12) = 腊
MonthAdd(0) = 0
MonthAdd(1) = 31
MonthAdd(2) = 59
MonthAdd(3) = 90
MonthAdd(4) = 120
MonthAdd(5) = 151
MonthAdd(6) = 181
MonthAdd(7) = 212
MonthAdd(8) = 243
MonthAdd(9) = 273
MonthAdd(10) = 304
MonthAdd(11) = 334
NongliData(0) = 2635
NongliData(1) = 333387
NongliData(2) = 1701
NongliData(3) = 1748
NongliData(4) = 267701
NongliData(5) = 694
NongliData(6) = 2391
NongliData(7) = 133423
NongliData(8) = 1175
NongliData(9) = 396438
NongliData(10) = 3402
NongliData(11) = 3749
NongliData(12) = 331177
NongliData(13) = 1453
NongliData(14) = 694
NongliData(15) = 201326
NongliData(16) = 2350
NongliData(17) = 465197
NongliData(18) = 3221
NongliData(19) = 3402
NongliData(20) = 400202
NongliData(21) = 2901
NongliData(22) = 1386
NongliData(23) = 267611
NongliData(24) = 605
NongliData(25) = 2349
NongliData(26) = 137515
NongliData(27) = 2709
NongliData(28) = 464533
NongliData(29) = 1738
NongliData(30) = 2901
NongliData(31) = 330421
NongliData(32) = 1242
NongliData(33) = 2651
NongliData(34) = 199255
NongliData(35) = 1323
NongliData(36) = 529706
NongliData(37) = 3733
NongliData(38) = 1706
NongliData(39) = 398762
NongliData(40) = 2741
NongliData(41) = 1206
NongliData(42) = 267438
NongliData(43) = 2647
NongliData(44) = 1318
NongliData(45) = 204070
NongliData(46) = 3477
NongliData(47) = 461653
NongliData(48) = 1386
NongliData(49) = 2413
NongliData(50) = 330077
NongliData(51) = 1197
NongliData(52) = 2637
NongliData(53) = 268877
NongliData(54) = 3365
NongliData(55) = 531109
NongliData(56) = 2900
NongliData(57) = 2922
NongliData(58) = 398042
NongliData(59) = 2395
NongliData(60) = 1179
NongliData(61) = 267415
NongliData(62) = 2635
NongliData(63) = 661067
NongliData(64) = 1701
NongliData(65) = 1748
NongliData(66) = 398772
NongliData(67) = 2742
NongliData(68) = 2391
NongliData(69) = 330031
NongliData(70) = 1175
NongliData(71) = 1611
NongliData(72) = 200010
NongliData(73) = 3749
NongliData(74) = 527717
NongliData(75) = 1452
NongliData(76) = 2742
NongliData(77) = 332397
NongliData(78) = 2350
NongliData(79) = 3222
NongliData(80) = 268949
NongliData(81) = 3402
NongliData(82) = 3493
NongliData(83) = 133973
NongliData(84) = 1386
NongliData(85) = 464219
NongliData(86) = 605
NongliData(87) = 2349
NongliData(88) = 334123
NongliData(89) = 2709
NongliData(90) = 2890
NongliData(91) = 267946
NongliData(92) = 2773
NongliData(93) = 592565
NongliData(94) = 1210
NongliData(95) = 2651
NongliData(96) = 395863
NongliData(97) = 1323
NongliData(98) = 2707
NongliData(99) = 265877
curYear = Year(curTime)
curMonth = Month(curTime)
curDay = Day(curTime)
TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38
If ((curYear Mod 4) = 0 And curMonth 2) Then
TheDate = TheDate + 1
End If
isEnd = 0
m = 0
Do
If (NongliData(m) 4095) Then
k = 11
Else
k = 12
End If
n = k
Do
If (n 0) Then
Exit Do
End If
bit = NongliData(m)
For i = 1 To n Step 1
bit = Int(bit / 2)
Next
bit = bit Mod 2
If (TheDate = 29 + bit) Then
isEnd = 1
Exit Do
End If
TheDate = TheDate - 29 - bit
n = n - 1
Loop
If (isEnd = 1) Then
Exit Do
End If
m = m + 1
Loop
curYear = 1921 + m
curMonth = k - n + 1
curDay = TheDate
mYear(0) = Mid(curYear, 1, 1)
mYear(1) = Mid(curYear, 2, 1)
mYear(2) = Mid(curYear, 3, 1)
mYear(3) = Mid(curYear, 4, 1)
curYear = YearName(mYear(0)) YearName(mYear(1)) YearName(mYear(2)) YearName(mYear(3))
If (k = 12) Then
If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then
curMonth = 1 - curMonth
ElseIf (curMonth (Int(NongliData(m) / 65536) + 1)) Then
curMonth = curMonth - 1
End If
End If
NongliStr = curYear 年
If (curMonth 1) Then
NongliDayStr = 闰 MonName(-1 * curMonth)
Else
NongliDayStr = MonName(curMonth)
End If
NongliDayStr = NongliDayStr 月
NongliDayStr = NongliDayStr DayName(curDay)
GetNongLi = NongliStr NongliDayStr
End Function
==========================================================
2.调用,在单元格中 用公式 GetNongLi 调用本回答被提问者采纳
1.在VBE中新建一个模块,输入以下代码:
=================================================
Function GetNongLi(rng As Range) As String
Application.Volatile True
If rng.Value = Or IsDate(rng.Value) = False Then
GetNongLi =
Exit Function
End If
Dim MonthAdd(11), NongliData(99), YearName(10), DayName(30), MonName(12), mYear(4)
Dim curTime, curYear, curMonth, curDay
Dim NongliStr, NongliDayStr
Dim i, m, n, k, isEnd, bit, TheDate
curTime = rng.Value
YearName(0) = ○
YearName(1) = 一
YearName(2) = 二
YearName(3) = 三
YearName(4) = 四
YearName(5) = 五
YearName(6) = 六
YearName(7) = 七
YearName(8) = 八
YearName(9) = 九
DayName(0) = *
DayName(1) = 初一
DayName(2) = 初二
DayName(3) = 初三
DayName(4) = 初四
DayName(5) = 初五
DayName(6) = 初六
DayName(7) = 初七
DayName(8) = 初八
DayName(9) = 初九
DayName(10) = 初十
DayName(11) = 十一
DayName(12) = 十二
DayName(13) = 十三
DayName(14) = 十四
DayName(15) = 十五
DayName(16) = 十六
DayName(17) = 十七
DayName(18) = 十八
DayName(19) = 十九
DayName(20) = 二十
DayName(21) = 廿一
DayName(22) = 廿二
DayName(23) = 廿三
DayName(24) = 廿四
DayName(25) = 廿五
DayName(26) = 廿六
DayName(27) = 廿七
DayName(28) = 廿八
DayName(29) = 廿九
DayName(30) = 三十
MonName(0) = *
MonName(1) = 正
MonName(2) = 二
MonName(3) = 三
MonName(4) = 四
MonName(5) = 五
MonName(6) = 六
MonName(7) = 七
MonName(8) = 八
MonName(9) = 九
MonName(10) = 十
MonName(11) = 十一
MonName(12) = 腊
MonthAdd(0) = 0
MonthAdd(1) = 31
MonthAdd(2) = 59
MonthAdd(3) = 90
MonthAdd(4) = 120
MonthAdd(5) = 151
MonthAdd(6) = 181
MonthAdd(7) = 212
MonthAdd(8) = 243
MonthAdd(9) = 273
MonthAdd(10) = 304
MonthAdd(11) = 334
NongliData(0) = 2635
NongliData(1) = 333387
NongliData(2) = 1701
NongliData(3) = 1748
NongliData(4) = 267701
NongliData(5) = 694
NongliData(6) = 2391
NongliData(7) = 133423
NongliData(8) = 1175
NongliData(9) = 396438
NongliData(10) = 3402
NongliData(11) = 3749
NongliData(12) = 331177
NongliData(13) = 1453
NongliData(14) = 694
NongliData(15) = 201326
NongliData(16) = 2350
NongliData(17) = 465197
NongliData(18) = 3221
NongliData(19) = 3402
NongliData(20) = 400202
NongliData(21) = 2901
NongliData(22) = 1386
NongliData(23) = 267611
NongliData(24) = 605
NongliData(25) = 2349
NongliData(26) = 137515
NongliData(27) = 2709
NongliData(28) = 464533
NongliData(29) = 1738
NongliData(30) = 2901
NongliData(31) = 330421
NongliData(32) = 1242
NongliData(33) = 2651
NongliData(34) = 199255
NongliData(35) = 1323
NongliData(36) = 529706
NongliData(37) = 3733
NongliData(38) = 1706
NongliData(39) = 398762
NongliData(40) = 2741
NongliData(41) = 1206
NongliData(42) = 267438
NongliData(43) = 2647
NongliData(44) = 1318
NongliData(45) = 204070
NongliData(46) = 3477
NongliData(47) = 461653
NongliData(48) = 1386
NongliData(49) = 2413
NongliData(50) = 330077
NongliData(51) = 1197
NongliData(52) = 2637
NongliData(53) = 268877
NongliData(54) = 3365
NongliData(55) = 531109
NongliData(56) = 2900
NongliData(57) = 2922
NongliData(58) = 398042
NongliData(59) = 2395
NongliData(60) = 1179
NongliData(61) = 267415
NongliData(62) = 2635
NongliData(63) = 661067
NongliData(64) = 1701
NongliData(65) = 1748
NongliData(66) = 398772
NongliData(67) = 2742
NongliData(68) = 2391
NongliData(69) = 330031
NongliData(70) = 1175
NongliData(71) = 1611
NongliData(72) = 200010
NongliData(73) = 3749
NongliData(74) = 527717
NongliData(75) = 1452
NongliData(76) = 2742
NongliData(77) = 332397
NongliData(78) = 2350
NongliData(79) = 3222
NongliData(80) = 268949
NongliData(81) = 3402
NongliData(82) = 3493
NongliData(83) = 133973
NongliData(84) = 1386
NongliData(85) = 464219
NongliData(86) = 605
NongliData(87) = 2349
NongliData(88) = 334123
NongliData(89) = 2709
NongliData(90) = 2890
NongliData(91) = 267946
NongliData(92) = 2773
NongliData(93) = 592565
NongliData(94) = 1210
NongliData(95) = 2651
NongliData(96) = 395863
NongliData(97) = 1323
NongliData(98) = 2707
NongliData(99) = 265877
curYear = Year(curTime)
curMonth = Month(curTime)
curDay = Day(curTime)
TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38
If ((curYear Mod 4) = 0 And curMonth 2) Then
TheDate = TheDate + 1
End If
isEnd = 0
m = 0
Do
If (NongliData(m) 4095) Then
k = 11
Else
k = 12
End If
n = k
Do
If (n 0) Then
Exit Do
End If
bit = NongliData(m)
For i = 1 To n Step 1
bit = Int(bit / 2)
Next
bit = bit Mod 2
If (TheDate = 29 + bit) Then
isEnd = 1
Exit Do
End If
TheDate = TheDate - 29 - bit
n = n - 1
Loop
If (isEnd = 1) Then
Exit Do
End If
m = m + 1
Loop
curYear = 1921 + m
curMonth = k - n + 1
curDay = TheDate
mYear(0) = Mid(curYear, 1, 1)
mYear(1) = Mid(curYear, 2, 1)
mYear(2) = Mid(curYear, 3, 1)
mYear(3) = Mid(curYear, 4, 1)
curYear = YearName(mYear(0)) YearName(mYear(1)) YearName(mYear(2)) YearName(mYear(3))
If (k = 12) Then
If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then
curMonth = 1 - curMonth
ElseIf (curMonth (Int(NongliData(m) / 65536) + 1)) Then
curMonth = curMonth - 1
End If
End If
NongliStr = curYear 年
If (curMonth 1) Then
NongliDayStr = 闰 MonName(-1 * curMonth)
Else
NongliDayStr = MonName(curMonth)
End If
NongliDayStr = NongliDayStr 月
NongliDayStr = NongliDayStr DayName(curDay)
GetNongLi = NongliStr NongliDayStr
End Function
==========================================================
2.调用,在单元格中 用公式 GetNongLi 调用本回答被提问者采纳
第3个回答 2010-08-21
就是条件判断，判断某一个单元格的值，如果是 A，则。。。如果是 B，则。。。等等
第4个回答 2010-08-21
Excel中IF函数是根据指定的条件来判断其“真”（TRUE）、“假”（FALSE），从而返回相应的内容。
IF函数的格式如下：
IF(E2>=85,"优",IF(E2>=75,"良"，IF(E2>=60,"及格"，"不及格")))
函数从左向右执行。首先计算E2>=85，如果该表达式成立，则显示“优”，如果不成立就继续计算E2>=75，如果该表达式成立，则显示“良”，否则继续计算E2>=60，如果该表达式成立，则显示“及格”，否则显示“不及格”。
IF函数的格式如下：
IF(E2>=85,"优",IF(E2>=75,"良"，IF(E2>=60,"及格"，"不及格")))
函数从左向右执行。首先计算E2>=85，如果该表达式成立，则显示“优”，如果不成立就继续计算E2>=75，如果该表达式成立，则显示“良”，否则继续计算E2>=60，如果该表达式成立，则显示“及格”，否则显示“不及格”。
