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

三十一画生

例如： 表格上面的选择时间：选 2月，表格标签就跳到  2月份的数据      选上面选 3月    表格标签就跳到 3月份.............

发哥76

你的工作表名称有不规则的空格啊，所以要用循环判断：
Sub 微调框()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If Trim(sh.Name) Like [e3] & "月份" Then
            sh.Activate
        End If
    Next
End Sub

三十一画生

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

只有一个会 跳，跳出来的是乱的 ： 微调框 选1月，工资表标签不能跳到1月份来

三十一画生

只有一个会跳，但跳出来的也是乱的，微调框选1月，工作表标签不能跳到相对应的1月份来

3190496160

Sub 月份()
  If [E3] <> "" Then Sheets([E3] & "" & "月份").Activate
End Sub

3190496160

2024进出存表.rar (100.28 KB, 下载次数: 5)

2024-6-5 08:34 上传

点击文件名下载附件

三十一画生

3190496160 发表于 2024-6-5 08:33
Sub 月份()
  If [E3]  "" Then Sheets([E3] & "" & "月份").Activate
End Sub

上面选的月份   跟  工作表标签的 月份  对应不起来

三十一画生

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

还是对应不起来

发哥76

如果想一下跳到跨几个月，直接输入多好，还非得点点点啊

发哥76

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