0

次の VBA Else-Ifコードを使用しています。

If ActiveSheet.Range(range_name).Value < "8.50%" Then
   ActiveSheet.Shapes.Range(Array(shape_name)).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(192, 0, 0)
        .Transparency = 0
        .Solid
    End With
    ElseIf ActiveSheet.Range(range_name).Value < "9.70%" Then
     ActiveSheet.Shapes.Range(Array(shape_name)).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    Else
     ActiveSheet.Shapes.Range(Array(shape_name)).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 255, 0)
        .Transparency = 0
        .Solid
    End With

これを実行すると、「Else without If」というエラーが表示されます。そこで、Else行を次のように変更しました。

 ElseIf ActiveSheet.Range(range_name).Value >= "9.70%" Then

しかし、それでも、このElseにはIfがありますが、同じエラーが発生します

何故ですか？また、最初のコードも正しく、そもそもエラーになるべきではありません。では、なぜこれが起こっているのですか？前もって感謝します！

4

2 に答える 2

1

これを追加：

End If

最後の行に。
これは、ifステートメントで行ったようにステートメントを終了することですWith。

于 2013-10-30T05:40:23.170 に答える