Question

我之前问了一个关于我正在处理的worksheet_change宏的问题。它几乎完成了，但现在我很难过。我正在尝试遍历工作簿中的所有工作表，如果在D6：D34范围内的任何单元格中找不到工作表的名称，我想删除工作表。我怎么写这个？我完全难过了。目前的代码：

Private Sub WorkSheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False 'Run faster
Application.DisplayAlerts = False 'Just in case

'To add worksheets automatically
Dim shtName As Variant
For Each shtName In Sheets(1).Range("D6:D34")
    If shtName <> "" Then
        If WorksheetExists((shtName)) Then 'do nothing
        Else
            ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = shtName
            Sheets("Admin").Select
        End If
    Else 'there's no sheet
    End If
Next

'to delete sheets with no matching value
Dim ws_count As Integer
Dim i As Long

ws_count = ActiveWorkbook.Worksheets.Count
For i = 1 To ws_count

'what do I need here???

Next i

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Function WorksheetExists(sName As String) As Boolean
    WorksheetExists = Evaluate("ISREF('" & sName & "'!A1)")
End Function

Answer 1

Dim ws As Worksheet

ws_count = ActiveWorkbook.Worksheets.Count

For i = ws_count To 2 Step -1
    Set ws = ActiveWorkbook.Worksheets(i)
    If IsError(Application.Match(ws.Name,Sheets(1).Range("D6:D34"),0)) then 
        Application.DisplayAlerts = False
        ws.Delete
        Application.DisplayAlerts = True
    End If

Next i

如果在列D

1 个答案: