怎样用VBA怎样把选中工作表中的月份跟工作表标签月份相对应

3190496160

三十一画生 发表于 2024-6-6 12:52
上面选的月份   跟  工作表标签的 月份  对应不起来

不知道你要如何对应，我的理解，例如，目前在5月份的工作表中选择了9月份，就应该是从5月份工作表跳转到9月份工作表嘛

三十一画生

发哥76 发表于 2024-6-6 16:32
Sub test()
    Dim sh As Worksheet, m As String
    m = [e3]

谢谢!这个代码可以用，能达到我想要的效果。不过有一个弊端，就是如果在E3单元个直接输入 例如 8 的话，工作表标签不能跳到8月份来，只能一个一个的点上去。

发哥76

三十一画生 发表于 2024-6-8 07:34
谢谢!这个代码可以用，能达到我想要的效果。不过有一个弊端，就是如果在E3单元个直接输入 例如 8 的话， ...

把下面的代码复制到thisworbook 下面
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    m = Target.Value
    If ActiveSheet.Name Like "*月份*" Then
        If Target.Address = "$E$3" Then
            For Each Sh In Worksheets
                If Trim(Sh.Name) Like m & "月份" Then
                    Application.EnableEvents = False
                    [e3] = Split(Trim(ActiveSheet.Name), "月份")(0)
                    Sh.Select
                    Sh.[e3] = m
                    Application.EnableEvents = True
                End If
            Next
        End If
    End If
End Sub

三十一画生

发哥76 发表于 2024-6-8 13:22
把下面的代码复制到thisworbook 下面
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Tar ...

非常感谢，现在可以了

三十一画生

发哥76 发表于 2024-6-4 21:27
你的工作表名称有不规则的空格啊，所以要用循环判断：
Sub 微调框()
    Dim sh As Worksheet

麻烦把我看看，我复制你的代码放在同样的表格代码模块下面为什么就不能用， 但从你那里下载放好的代码表格 ，  表格 就能用。 我看不出来是哪里出错了。

发哥76

在thisworkbook里还有一段代码，你没复制进去

三十一画生

发哥76 发表于 2024-6-12 07:40
在thisworkbook里还有一段代码，你没复制进去

Sub test()
    Dim Sh As Worksheet, m As String
    m = [e3]
    For Each Sh In Worksheets
        If Trim(Sh.Name) Like m & "月份" Then
            [e3] = Split(Trim(ActiveSheet.Name), "月份")(0)
            Sh.Select
            Sh.[e3] = m
        End If
    Next
End Sub

我说的是插入模块的这个代码复制进去为什么没有用 。但你放进去的那张表格是可以用的  

三十一画生

三十一画生 发表于 2024-6-12 07:26
麻烦把我看看，我复制你的代码放在同样的表格代码模块下面为什么就不能用， 但从你那里下载放好的代码表 ...

找不到原因，点选微调框，下面表格标签没有反应。是还有其他的问题吗

发哥76

三十一画生 发表于 2024-6-12 17:24
找不到原因，点选微调框，下面表格标签没有反应。是还有其他的问题吗

没指定宏啊，你不会不知道怎么指定宏吧

三十一画生

发哥76 发表于 2024-6-12 18:49
没指定宏啊，你不会不知道怎么指定宏吧

刚学，忘了微调按钮 没有指定宏