添加事件

star□囧□

小弟按照公式写了代码计算日期，代码运行过无问题，目前想请教下如何添加事件代码实时更新。

1，每打开表格一次执行一次代码。
2，如表格有变动执行一次代码。

以上感谢！
QCR.zip (20.19 KB, 下载次数: 5)

2024-6-18 16:51 上传

点击文件名下载附件
11

star□囧□

心的启点

不知道你要做什么，打开表格执行一次代码，那你代码要放在this workbook下，设置Workbook_Open事件就可以触发。
你可以使用Worksheet_Change事件。当工作表中的单元格内容发生变动时，这个事件就会被触发。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     Dim i%, nowdate As Date
   
3.     If T.Row > 2 And T.Column = 6 Then
   
4.         For i = 1 To 88
   
5.             If T.Value <> "" Then
   
6.                 If Me.Cells(i + 1, 19) = "Close" Then
   
7.                     Me.Cells(i + 1, 20) = Me.Cells(i + 1, 23) - T.Value
   
8.                 Else
   
9.                     Me.Cells(i + 1, 20) = now - T.Value
   
10.                 End If
    
11.             End If
    
12.         Next
    
13.     End If
    
14. End Sub
    

复制代码

star□囧□

ykcbf1100 发表于 2024-6-18 17:17
参与一下。。。

请问下我的是2019版本 输运不了这个代码，点运行会弹出窗口，显示无效过程名，是我的问题吗

star□囧□

心的启点 发表于 2024-6-18 17:01
不知道你要做什么，打开表格执行一次代码，那你代码要放在this workbook下，设置Workbook_Open事件就可以触 ...

如何与我上面的代码搭配一起，我不太会，我看视频学的，没有教在一起搭配，搭配起来还是运行不了，能帮我改下表格吗，

star□囧□

心的启点 发表于 2024-6-18 17:01
不知道你要做什么，打开表格执行一次代码，那你代码要放在this workbook下，设置Workbook_Open事件就可以触 ...

谢谢大佬，可以了，我将代码放在this workbook 下，当打开工作本时可以更新了