Question

我试图在我的工作簿中的多个数据表中运行此宏，但我无法让代码在整个工作簿中正常运行。如果我在一张纸上运行宏它工作正常，但我现在尝试运行所有工作表并排除“数据”和“更新”工作表，如果有任何建议，如果有任何建议，如果没有任何运气通过所有工作表正常运行？感谢

  Sub UpdatePrices()
  Dim ws As Worksheet, Ldate As String, DateRng As Range
  Set DateRng = Range("A3") 'date range is last date
     Ldate = DateRng.Value 'defines ldate as most recent date

    For Each ws In ActiveWorkbook.Worksheets

'Inserts a new row with containing today's Date and exclude sheets
  If Ldate <> Date And ws.Name <> "DATA" Or ws.Name <> "UPDATE" Then
    DateRng.EntireRow.Insert
    DateRng.Offset(-1, 0) = "=TODAY()"
    Else 
    End If
    Next ws
    End sub

Answer 1

尝试以下代码

Sub UpdatePrices()
    Dim ws As Worksheet, Ldate As String, DateRng As Range
    Set DateRng = Sheets("Sheet1").Range("A3")    'date range is last date
    Ldate = DateRng.Value    'defines ldate as most recent date

    For Each ws In ThisWorkbook.Worksheets
        ws.Select
        'Inserts a new row with containing today's Date and exclude sheets
        If Ldate <> Date And UCase(ws.Name) <> "DATA" And UCase(ws.Name) <> "UPDATE" Then
            ws.Rows(DateRng.Row).EntireRow.Insert
            ws.Cells(DateRng.Row, DateRng.Column).Offset(-1, 0) = "=TODAY()"
        End If

    Next

End Sub

使用排除项运行宏多页

1 个答案: