Question

（VBA问题）EXCEL怎样随日期的改变而自动填数字？

右上角有个黄色的格子，那个黄色的格子是根据时间的改变而改变的，我想让黄色的数字改变后，自动填到左边表格相对应日期的格子里，请问VBA的代码怎么写？（比如今天是17号，显示的数字式32.47，然后左边的表格17号就自动填写32.47，明天18号是40，那么左边的表格自动跳到18号那一格子，填写40.）

Answer 1

亲，这个要在ThisWorkbook的Open事件里写一句话。如下图。

每次打开这个工作簿，就会自动填写当前日期对应的C列。注意：如果某一天没有打开这个工作簿的操作，那么就会漏掉这一天的数据。

 

Private Sub Workbook_Open()
If Not Range("A:A").Find(Day(Date)) Is Nothing Then _
 Range("A:A").Find(Day(Date)).Offset(0, 2).Value = Range("N1")
End Sub

追问

我先试一下。

追答

重新考虑了一下，感觉写在Open事件里不太合适。因为每天打开这个工作簿，N1单元格可能还存储的是昨天的数据，但此时就自动填写到了今天的日期里了。
是否放在N1的Change事件里更合适，当你每次去更改N1的值时就会自动填写。但这样也会有一个问题，当你今天的数据和昨天一样时，你可能不会去点击这个单元格，那么就不会更新今天的日期。

追问

恩，这个问题刚才我在操作的时候考虑到了。我每次打开这个表格，首先要把数据录入以后才能让N 1变化，但是我发现我还没录入数据的时候，N 1 就已经把昨天的数据填在今天的日期了。所以，我想问下，你有更好的办法吗？

追答

是的，换个地方填代码。每次更改N1的值，就会把当前值填写到对应的地方。

问题是，如果你今天N1的数值和昨天一样，你不去双击N1单元格，今天就不会自动填写。所以这个方法要注意的是，即使今天的数据和昨天一样，你也要去双击一下N1。

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$N$1" Then
    If Not Range("A:A").Find(Day(Date)) Is Nothing Then _
      Range("A:A").Find(Day(Date)).Offset(0, 2).Value = Range("N1")
End If
End Sub

追问

请问这个代码怎么执行不起来？我平常按f8就能执行了噢

追答

这个是在双击N1单元格，进入编辑，然后退出的时候触发。如果你要调试的话，可以先设置断点，然后双击N1单元格，程序跳到断点处，然后你再按F8单步执行。

追问

我想问下，能不能设置成连双击都免了

追答

N1单元格是每天都需要手工更改的吗？当你手工更改的时候，这个程序就启动了。

追问

兄弟啊，我真的对不起你啊！我本来要采纳你的答案，没想到点错位置，变成采纳别人了。哭死了！对不起啊！

Answer 2

N1 会自动变化 是不是使用了 日期函数

追问

不是，因为每天都有数据嘛，然后我每次都会在另一个表格贴一下当天的数据，N 1 是对这些数据的总合计。

追答

唉吖，好奇怪，我看别人回答了，就没写代码，竟然采纳我的了。。。
既然这样我帮你一下哈
发生计算 就触发事件 ，试试看 是否满足你的要求

第一句换成

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)