遇到If语句的问题

时间:2017-09-12 18:57:25

标签: excel vba

我一直有这个if语句的问题。我试图突出显示一个范围并说它是否大于某个数字,然后我切换数字格式。这是我的代码

wSD2是我的工作表。我只为第一个范围做了一个if语句

With WSD2

    If Range(("B3"), ("E" & .Rows.Count)) > 10000 Then
    .Range(.Range("B2"), .Range("E" & .Rows.Count)).Select
    Selection.Style = "Comma"
    Selection.NumberFormat = "0,000"
    End If

   .Range(.Range("H2"), .Range("J" & .Rows.Count)).Select
    Selection.Style = "Comma"
    Selection.NumberFormat = "0,000"

    .Range(.Range("F2"), .Range("G" & .Rows.Count)).Select
    Selection.Style = "Percent"
    Selection.NumberFormat = "0.0%"
End With

如果该范围内的数字不大于10000,则不应触及该数字。

非常感谢任何帮助。

谢谢,

1 个答案:

答案 0 :(得分:1)

我假设您需要检查该范围内的每个单元格。此外,您应该直接使用数据,而不是使用With WSD2 For Each cel In .Range(.Range("B3"), .Range("E" & .Range("E" & .Rows.Count).End(xlUp).row)) If cel.Value > 10000 Then cel.Style = "Comma" cel.NumberFormat = "0,000" End If Next cel ... End With

{{1}}