☰

单击单元格时运行公式

tag-icon • tag-icon microsoft-excel worksheet-function
单击单元格时运行公式

我正在尝试运行一个宏，当单击一个单元格时，该宏会运行以下公式并用四舍五入的数字填充它：

= Round((A1 + "0:02") * 96, 0) / 96

这需要A1并将其四舍五入到最接近的 15 分钟。

可以点击的单元格范围是D5：X46。

答案1

实现此目的的一种方法是使用Worksheet_SelectionChange()Sub。将此代码放入您希望具有此功能的工作表模块中。

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("D5:X64")) Is Nothing Then Exit Sub
    Target.Formula = "= Round(($A$1 + " & Chr(34) & "0:02" & Chr(34) & ") * 96, 0) / 96"
End Sub

该IF语句检查单击是否位于所需范围。您可以单击多个单元格，它们将全部填充

https://msdn.microsoft.com/en-us/library/office/ff194470.aspx

相关内容