OFFICE技能备忘【工作表跟随单元格数据自动命名】

̌萌新历险记

于 2024-11-20 10:19:10 发布

阅读量349

点赞数 3

分类专栏：提高牛马工作效率备忘文章标签： microsoft wps excel

本文链接：https://blog.csdn.net/qq_63523190/article/details/143903768

版权

提高牛马工作效率备忘专栏收录该内容

2 篇文章

订阅专栏

1另存为启用宏的工作簿

2打开代码窗口

3粘贴并保存，关闭代码窗口

代码

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("J2")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("J2")
    ElseIf Not Intersect(Target.Dependents, Range("J2")) Then
        ActiveSheet.Name = ActiveSheet.Range("J2")
    End If
End Sub

4更新数据实现效果，如果不更新关闭再打开，启用宏