excel - .公式带来标点符号错误vba

Question

这个问题已经有答案了:

Different languages issue when inserting formula from VBA (1 个回答)

已关闭 3 年前。

我在通过 VBA 将公式添加到单元格时遇到问题。一切都很好，直到我添加像“(”这样的标点符号。我在这里做错了什么？我已经尝试过使用 chr() 函数，但它不起作用。

 Do Until ws.Cells(i, 1) = ""
 If ws.Cells(i, 7).Value <> "" Then
    If ws.Cells(i, 7).Value <> 0 Then
        ws.Cells(i, 7) = 200
        ws.Cells(i, 8).Value = 0
        ws.Cells(i, 9).Value = 0
        ws.Range("J" & i).Formula = "=IF(H" & i & "-F" & i & "<=0;0;H" & i & "-F" & i & ")"

问候，乌卡洛

Answer 1

替换:

ws.Range("J" & i).Formula = "=IF(H" & i & "-F" & i & "<=0;0;H" & i & "-F" & i & ")"

与:

ws.Range("J" & i).Formula = "=IF(H" & i & "-F" & i & "<=0,0,H" & i & "-F" & i & ")"

如果您想让事情变得简单，请参阅:

Reference