老师，怎样让表里的工作表自动转换日期

yu7589865

老师，怎样让表里的工作表自动转换日期，能不能达到修改重命名来自动更改工作表的日期。谢谢

microyip

在Thisworkbook模块里添加代码

1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
2.     Dim oData As Object, nMonth As Long, nDay As Long, nYear As Long, dDate As Date
   
3.     With CreateObject("Vbscript.RegExp")
   
4.         .Global = True
   
5.         .IgnoreCase = True
   
6.         .Pattern = "(\d+)\.(\d+)"
   
7.         Set oData = .Execute(Sh.Name)
   
8.         If oData.Count > 0 Then
   
9.             nYear = Year(Now())
   
10.             nMonth = Val(oData(0).SubMatches(0))
    
11.             nDay = Val(oData(0).SubMatches(1))
    
12.             dDate = DateSerial(nYear, nMonth, nDay)
    
13.             If nYear = Year(dDate) And nMonth = Month(dDate) Then
    
14.                 Application.ScreenUpdating = False
    
15.                 Application.EnableEvents = False
    
16.                 [Q3] = Format(dDate, "YYYY年MM月DD日")
    
17.                 Application.ScreenUpdating = True
    
18.                 Application.EnableEvents = True
    
19.             End If
    
20.         End If
    
21.     End With
    
22. End Sub
    

复制代码

microyip

附上附件以供参考

yu7589865

大佬，怎么没有变化

于箱长

yu7589865 发表于 2021-3-2 11:32
大佬，怎么没有变化

有变化，你改完工作表名称，点一下别的工作表，再点回你改过的工作表再看

microyip

于箱长 发表于 2021-3-2 11:41
有变化，你改完工作表名称，点一下别的工作表，再点回你改过的工作表再看

5楼的解说是正确的
这个需求有那么大吗？不到一会就有接近300下载量？也没见多少人进帖子啊

yu7589865

老师。我弄不明白

yu7589865

microyip 发表于 2021-3-2 11:52
5楼的解说是正确的
这个需求有那么大吗？不到一会就有接近300下载量？也没见多少人进帖子啊

啥变化 也没有

microyip

yu7589865 发表于 2021-3-2 12:58
啥变化 也没有

你把日期的单元格清除了，然后点其他页面，再点回这个页面，看看日期还在不在，就知道有没有变化。

yu7589865

microyip 发表于 2021-3-2 13:09
你把日期的单元格清除了，然后点其他页面，再点回这个页面，看看日期还在不在，就知道有没有变化。

老师,2.1工作表里日期的单元格Del了，然后把工作表2.1重命名2021年03月01日，点了其他工作表，还打开了工作簿，再切回来一看 没啥变化，眼泪都要留出来了，急呀