4
Sub FillNames()

Range("D2:D56").SpecialCells(xlCellTypeBlanks).Formula = _
    "=IF(AND(C>800,C<900),  "YES", "NO")"

End Sub

予期されるコンパイル エラーが発生します: end of statement. YES と NO の前後の引用符に問題があるようです。

YES と NO を囲む引用符を削除してマクロを実行すると、マクロが実行され、式の引用符の内容がセルに出力されます。引用符がどのように構文エラーを引き起こすのか理解できません。

Excel 2011 for Mac を実行していますが、それが関係しているかどうかはわかりません。

4

1 に答える 1

9

文字列内の二重引用符は、2 つ重ねてエスケープする必要があります。

Range("D2:D56").SpecialCells(xlCellTypeBlanks).Formula = _
                    "=IF(AND(C>800,C<900),  ""YES"", ""NO"")"
于 2014-06-11T21:58:43.257 に答える