如何在满足日期/时间条件时自动用值替换 Excel 公式

如何在满足日期/时间条件时自动用值替换 Excel 公式

我需要根据外部标准记录不断变化的细胞的结果。

单元格的值正在变化,我需要记录特定时间点B3的值。单元格包含日期(),单元格包含实际时间( )。我有一个表格,在(日期)和(时间)列中设置了具体的时间和日期。我需要在表格中记录日期/时间满足条件的结果。B3D29/12/14D37:30:58IJB3

在研究了如何做到这一点之后,我意识到我需要使用 VBA;但是,我对 VBA 还很陌生。我最初的想法是IF在 H2 中使用一个简单的函数,例如

=IF($D$2&$D$3=I2&J2,"$B$3","")

但是,一旦时间发生变化,标准就不再满足,结果就消失了,我需要保存结果。我还需要将解决方案应用于位于 I3 和 J3 以及 I4 和 J4 的下一个日期和时间,依此类推。

任何有关 VBA 解决方案的帮助都将非常感激。

答案1

我认为以下示例符合您的要求。我创建了一个 VB 子例程,将一个随机值放入 B3 中,以模拟您情况下的值变化。VB 代码还会根据列表中的值检查当前日期和时间,如果它们匹配,它会将随机值记录在匹配日期和时间旁边的单元格中。下图中未显示的是我用来将仅日期和仅时间值放入 D2 和 D3 中以便进行比较的技术。对于日期,我使用了这个:

=datevalue(month(now()) & "/" & day(now()) & "/" year(now()))

对于时间值:

=time(hour(now()),minute(now()),second(now()))

捕获特定日期和时间匹配的值 每秒运行一次的代码 当 wookbook 打开时启动代码

相关内容