[已解决]如何通过VBA提取符合要求的工作表名?请各位老师帮帮助!谢谢!

huangjinyui

如何通过VBA提取符合要求的工作表名?请各位老师帮帮助!谢谢! Wjn58HKc.rar (2.23 KB, 下载次数: 5)

2010-3-18 17:04 上传

点击文件名下载附件
如何通过VBA提取符合要求的工作表名?请各位老师帮帮助!谢谢!

最佳答案

月排行榜 / 总排行榜

爱疯

2010-3-18 17:20

gN4R5i5C.rar (11.75 KB, 下载次数: 28)

2010-3-18 17:19 上传

点击文件名下载附件
如何通过VBA提取符合要求的工作表名?请各位老师帮帮助!谢谢!

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Str As String
    Dim i As Integer
    Dim sh As Worksheet

    If Target.Address = "$D$2" Then
        Columns(2).Clear
        Str = [D2].Value
        For Each sh In Worksheets
            If InStr(sh.Name, Str) Then
                i = i + 1
                Cells(i, 2) = sh.Name
            End If
        Next
    End If
End Sub
[em09]

跳转到最佳答案楼层

plsql_xls

Dim mysheet As Worksheet
Dim i As Integer
For Each mysheet In Worksheets
   For i = 1 To 10
   If (InStr("D" & i, mysheet.Name) >= 1) Then
   ActiveSheet.Range("B" & i) = mysheet.Name
   End If
   Next
Next

爱疯

gN4R5i5C.rar (11.75 KB, 下载次数: 28)

2010-3-18 17:19 上传

点击文件名下载附件
如何通过VBA提取符合要求的工作表名?请各位老师帮帮助!谢谢!

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Str As String
    Dim i As Integer
    Dim sh As Worksheet

    If Target.Address = "$D$2" Then
        Columns(2).Clear
        Str = [D2].Value
        For Each sh In Worksheets
            If InStr(sh.Name, Str) Then
                i = i + 1
                Cells(i, 2) = sh.Name
            End If
        Next
    End If
End Sub
[em09]

huangjinyui

感谢以上两位老师的帮助!谢谢!