excel vba工作簿加载完毕(工作表也要加载完毕,需要读取工作表中数据)
的事件名是什么
需要每次打开工作簿的时候进行初始化操作(操作工作表中内容)
workbook_open和workbook_active都无效
excel vba工作簿加载完毕(工作表也要加载完毕,需要读取工作表中数据) 的事件名是什么
答案:1 悬赏:0 手机版
解决时间 2021-02-14 22:36
- 提问者网友:心如荒岛囚我终老
- 2021-02-14 05:41
最佳答案
- 五星知识达人网友:蓝房子
- 2021-02-14 05:55
把下面子程序中的代码加入到workbook-open()事件中:
Sub aaa()
Dim t, d, n, dh, c
t = 0
d = Replace(Date, "-", "")
n = ThisWorkbook.Sheets("数据库").Range("a65536").End(xlUp).Row
For Each c In Range("a3:a" & n)
dh = Left(c, 8)
If dh = d Then
t = 1
num = 1 & Right(c, 3)
End If
Next c
If t = 1 Then
ThisWorkbook.Sheets("面板").Range("h2") = d & "-" & Right(num + 1, 3)
Else:
ThisWorkbook.Sheets("面板").Range("h2") = d & "-001"
End If
End Sub
Sub aaa()
Dim t, d, n, dh, c
t = 0
d = Replace(Date, "-", "")
n = ThisWorkbook.Sheets("数据库").Range("a65536").End(xlUp).Row
For Each c In Range("a3:a" & n)
dh = Left(c, 8)
If dh = d Then
t = 1
num = 1 & Right(c, 3)
End If
Next c
If t = 1 Then
ThisWorkbook.Sheets("面板").Range("h2") = d & "-" & Right(num + 1, 3)
Else:
ThisWorkbook.Sheets("面板").Range("h2") = d & "-001"
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯