根据公式结果自动截屏

Question

我在 VBA 中有一个调用 PrintScreen 的过程：

Sub PrintScreen()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub

我想每十秒调用一次，当这个单元格的结果

=IFERROR(VALUE(TEXT(F4,"ss")),-ABS(VALUE(RIGHT(F4,2))))

是"0"；
下一个单元格返回"Yes"或"No"如果"0"

=IF(RIGHT(I5,1)="0","Yes","No")

因此，当此单元格返回时，"Yes"我想截取屏幕截图。我知道我已经很接近了，但这让我很沮丧，因为我无法截取它。