如何基于单元格值在Excel VBA中设置条件？

debugcn 发表于 Dev

沙德拉克·鲁朗瓦

我想问一个问题。我有关于如何在vba中保存excel的最后一行的代码，但是在我的代码中，我想添加一个条件，例如，如果E列的cell.value =“ disable”，则将保存选择的最后一行，然后

像这样保存WB.SaveAs filename：=“ C：\ New Folder \”＆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代码中添加一个条件？

请任何人都可以帮助我。

迈克·M

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

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。