运行时错误'1004'无法设置范围类的NumberFormat属性

Question

我安装了一个非常简单的命令按钮来为选定的单元格添加时间戳。在我保护工作表之前，命令按钮可以正常工作，然后引发标题中提到的错误。我已经检查了单元格的格式是否未选择为“锁定”。

Private Sub CommandButton1_Click()
Dim ts As Date

With Selection

.Value = Now

.NumberFormat = "h:mm AM/PM"

End With
End Sub

Answer 1

格式化工作表可能被认为是工作表更改。不过，您可以设置值的格式。

With Selection
    .Value = Format(Now, "h:mm AM/PM")
End With

Answer 2

AllowFormattingCells

您必须允许设置单元格格式。

或在VBA中

ActiveSheet.Protect AllowFormattingCells:=True