我无法在我的代码中实现以下 if 语句:
IF(O3<0,"Y",N")
有人可以帮助更改我的代码以包含此 if 语句吗?这是我尝试过的:
If Range("O3:O4183") < 0 Then Range("P3").Value = "Y"
Worksheets("Sample File").Range("P3:P4183").FillDown
ElseIf Range("O3:O4183") > 0 Then Range("P3").Value = "N"
Worksheets("Sample File").Range("P3:P4183").FillDown
End If
完整代码:
Sub stackoverflow()
Dim rng As Range
''sample file creation
''values
Range("A3").Value = "CSH" ''hardcode
Worksheets("Sample File").Range("A3:A4183").FillDown
Set rng = Worksheets("File").Range("C2:C4182")
Worksheets("Sample File").Range("B3").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value
Set rng = Worksheets("File").Range("D2:D4182")
Worksheets("Sample File").Range("C3").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value
Range("D3").Value = "1" ''hardcode
Worksheets("Sample File").Range("D3:D4183").FillDown
Set rng = Worksheets("File").Range("E2:E4182")
Worksheets("Sample File").Range("E3").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value
Set rng = Worksheets("File").Range("E2:E4182")
Worksheets("Sample File").Range("F3").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value
Range("G3").Value = "USD" ''hardcode
Worksheets("Sample File").Range("G3:G4183").FillDown
Set rng = Worksheets("File").Range("K2:K4182")
Worksheets("Sample File").Range("H3").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value
Set rng = Worksheets("File").Range("F2:F4182")
Worksheets("Sample File").Range("I3").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value
Range("J3").Value = "DEALT" ''hardcode
Worksheets("Sample File").Range("J3:J4183").FillDown
Set rng = Worksheets("File").Range("H2:H4182")
Worksheets("Sample File").Range("M3").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value
Range("N3").Value = "0" ''hardcode
Worksheets("Sample File").Range("N3:N4183").FillDown
Set rng = Worksheets("File").Range("J2:J4182")
Worksheets("Sample File").Range("O3").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value
''If statement: IF(O3<0,"Y",N")
End Sub
最佳答案
If
有 2 种有效语法。 VBA 中的语句。
语句语法
If {bool-expression} Then {statement}
这就是你在这里所拥有的:
If Range("O3:O4183") < 0 Then Range("P3").Value = "Y"
Worksheets("Sample File").Range("P3:P4183").FillDown
缩进具有误导性——第二行将无条件执行,无论
{bool-expression}
的结果如何。在 If
陈述。block 语法
If {bool-expression} Then
{statements}
[ElseIf {bool-expression} Then]
{statements}
[Else]
{statements}
End If
需要时使用该语法
Else
/ElseIf
逻辑,或者如果您想有条件地执行超过 1 条语句*。*有一些方法可以使用语句语法有条件地执行多个语句,但它们不利于可读性;远离简单的错误,更喜欢 block 语法。
关于vba - 我的 IF/ELSE IF 语句在 VBA 中不起作用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46408023/