Question

我想问一个问题。我有如何在vba中保存最后一行excel的代码，但是在我的代码中，我想添加一个条件，例如，如果列E =＆＃34;禁用＆＃34;的单元格值，则将保存所选的最后一行。那么

＆＃39;保存这样 WB.SaveAs filename：=＆＃34; C：\ New Folder \＆＃34; ＆安培; filename，FileFormat：= 51

结束如果

这是我的代码

Sub Increment()
   ' change A1 to the cell you wish to Increment
   Range("A1").Value = Range("A1").Value + 1
End Sub

Private Sub CommandButton1_Click()
Call SaveLastLine
End Sub

Sub SaveLastLine()

    'Variable declaration
    Dim score As String
        Dim WB As Workbook, _
            filename As String

        'Turn off screen updating and alerts
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        'Make a copy of the last line of Active Sheet

        newName = ActiveSheet.Name
        Range("B1").Select
        Selection.End(xlDown).Select
        Range(Selection, Selection.End(xlToRight)).Select

        Selection.Copy
        Workbooks.Add
        ActiveSheet.Paste

    Call Increment

        FileNane1 = Range("A1").Value

        Set WB = ActiveWorkbook
        filename = newName & FileNane1 & ".xlsx"
        WB.SaveAs filename:="C:\New Folder\" & filename, FileFormat:=51

        'Restore screen updating and alerts

        Application.DisplayAlerts = True
        Application.ScreenUpdating = True

End Sub

是否有人可以帮我在我的vba代码中添加一个条件？

请有人帮助我。

Answer 1

FileName1 = Range("A1").Value
if FileName1 = "disable" then
    Set WB = ActiveWorkbook
    filename = newName & FileNane1 & ".xlsx"
    WB.SaveAs filename:="C:\New Folder\" & filename, FileFormat:=51
end if

如何根据单元格值在excel vba中设置条件？

1 个答案: