育才学习网1. vba中and函数怎么用,怎样写多条件代码
Function zhekou(zhanyoulv As Double, t As Integer) If zhanyoulv < 0.035 Then If t <= 15 Then zhekou = 0 Else If t <= 30 And t > 15 Then zhekou = 0 Else If t > 30 Then zhekou = 0 End If End If End If Else If zhanyoulv >= 0.035 And zhanyoulv <= 0.04 Then If t <= 15 Then zhekou = 0.8 Else If t <= 30 And t > 15 Then zhekou = 1.2 Else If t > 30 Then zhekou = 1.5 End If End If End If Else If zhanyoulv > 0.04 And zhanyoulv <= 0.045 Then If t <= 15 Then zhekou = 1 Else If t <= 30 And t > 15 Then zhekou = 1.5 Else If t > 30 Then zhekou = 2 End If End If End If End If End If End If End Function。
2. excel中if语句用vba怎么写
1. 函数中的if语句=if（条件，符合条件结果，不符合条件结果）。
2. VBA中也有一个同样的函数，为了跟函数的if区分，vba中的名称为iif，使用方法与函数完全一致，iif（条件，符合条件结果，不符合条件结果）。
3. VBA中另外一种if表达方式更为常用，格式为
if 条件 then 执行结果或者
if 条件 then
结果一
结果二
else if 条件
结果
end if4. VBA中的if语句常用来与for..next循环搭配使用，亦可用do while。Loop语句代替。
3. excel中if语句用vba怎么写
Public Function dj(A As Integer)
Dim Rst As String
Rst = ""
Select Case A
Case Is >= 80
Rst = "A"
Case Is >= 60
Rst = "B"
Case Else
Rst = "C"
End Select
dj = Rst
End Function
这是自定义函数，带一个参数，返回等级.使用方法请参考Excel函数.
4. Excel的AND和IF怎么用
先了解 AND 和 IF 函数的定义： ADN：所有参数的逻辑值为真时，返回 TRUE；只要一个参数的逻辑值为假，即返回 FALSE。
IF：根据对指定的条件计算结果为 TRUE 或 FALSE，返回不同的结果。 先给你一个 AND的参考实例 ：如下 A B 1 公式 说明（结果） 2 TRUE 所有参数的逻辑值为真 （TRUE） 3 FALSE 一个参数的逻辑值为假 （FALSE） 4 TRUE 所有参数的计算结果为真 （TRUE） 1）将上面的实例复制到新建EXCEL表的A1里面； 2）若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在 “公式” 选项卡的 “公式审核” 组中，单击 “显示公式” 按钮。
---------------------------------------------------------------------------------------------- 下面是 IF的实例 ： 1 2 A 数据 50 公式 说明（结果） =IF(A2。
5. EXCEL中的IF和AND OR怎么用
1. AND和OR都可以作为IF的第一个参数，下面写几个简单例子吧。IF(AND(A1>1,A1<10),0,1)。
2. A1在1~10之间（不包括边界）值为0，否则为1。
3. IF(OR(A1>10,A1<1),0,1)。
4. A1在1~10之外（不包括边界）值为0，否则为1。
5. AND要求多个参数的条件都满足，OR只要求多个参数之一满足。
6. Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh操作系统的电脑而编写和运行的一款试算表软件。
7. Excel 是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计财经、金融等众多领域。
6. 帮忙写一个VBA代码 IF类型的
你的原表格里面已经有代码了，在你的基础上稍作修改！
可以将下面的代码复制到你的工作簿中进行测试！
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "人员" Then Exit Sub '排除不需要执行该代码的工作表
Dim c As Range
For Each c In Target
If c.Column = 13 And c.Row > 2 Then '如果m列发生变化
If c.Value = "" Then
c.Offset(0, 1).Value = ""
c.Offset(0, 2).Value = ""
Else
c.Offset(0, 1).Value = Format(Now, "yyyy-mm-dd hh:mm:ss")
c.Offset(0, 2).Value = Sheets（"人员"）.[b3]
End If
ElseIf c.Column = 8 And c.Row > 2 Then '如果H列发生变化
On Error GoTo exit_Sub
If c.Value = "" Then
c.Offset(0, 1).Value = ""
Else
c.Offset(0, 1).Value = Sheets（"人员"）.[b2]
End If
End If
Next
exit_Sub:
End Sub
转载请注明出处育才学习网 » Vbaifand怎么写
