Question

怎样才能用VB在EXCEL中自动写入数据，在线等。谢谢。求大神！

Answer 1

B2写公式：
=IF(A1=TODAY(),13,"")
但这个是无法保存固化的。明天就变成明天的日期了。
因此要将数据固化，需要使用控件辅助实现。

追问

谢谢，是要用VB才能做到，用函数的话不行，因为我还要在那个单元格中手动写入数据

追答

要看你的具体需要来做。
基本思路是：
借助第三个单元格（比如C1）写公式：=IF(A1=TODAY(),13,"")
通过控件设置按钮“保存”。按钮里的代码实现将C1复制，数值粘贴到B2