单元格值不会更新

Question

如果有人可以帮助解决这个令人讨厌的问题，我将不胜感激。 我正在尝试更新单元格值，但无法理解为什么此代码不起作用。

我尝试了各种不同的更新方式，但它们都不起作用。

    MyCellValue = ActiveCell.Offset(0, 1).Value
    MyCellValue = MyCellValue + ct1
    ActiveCell.Offset(0, 1).Value = MyCellValue

ct1是一个单值，实际值为7.5， MyCellValue是一个， ActiveCell.Offset（0，1）.Value最初为0 单元格的格式为数字，两位小数位

Answer 1

ActiveSheet.EnableCalculation = True

Application.Calculate

或更具体的目标，例如

Worksheets（“ Sheet1”）。UsedRange.Columns（“ A：C”）。Calculate

来源： https://docs.microsoft.com/en-us/office/vba/api/excel.worksheet.calculate(method)