Excel VBA一次只更新一个单元格

Question

我的代码的动机是一次更新一个单元格，并在何时更新单元格。但是，不是一次更新一个单元格，而是更新K行中的所有单元格。对于Eg，如果我想将K10的更新单元从K6更新为K10，并且具有相同的值。请帮忙

Sub ActiveCell_Initial()
 strUserName = Application.UserName
 Range(ActiveCell, "K6").Value = " by " & strUserName & "@ " & Now()
End Sub

Answer 1

Application.Calculation=xlCalculationManual
range("K6:K10").calculate

这有帮助吗？

或者你只是想写这个？ （不确定我是否抓住了这个问题）

Sub ActiveCell_Initial()
 strUserName = Application.UserName
 ActiveCell.Value = " by " & strUserName & "@ " & Now()
End Sub

Answer 2

这将仅更新ActiveCell：

Sub ActiveCell_Initial()
    strUserName = Application.UserName
    ActiveCell.Value = " by " & strUserName & "@ " & Now()
End Sub

Answer 3

你根本不能使用excel函数NOW（）并使用VBA函数来获取日期时间（我不记得命令），以便在单元格中显示“by bob smith @ 1/1/2016 00： 00:01“而不是”by bob smith @ NOW（）“

或者你可以复制单元格和特殊粘贴 - 仅返回值，这会给你相同的结果，但最有可能是计算上的常春藤