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

我想问一个问题。 我有我如何可以保存最后一行Excel的代码，但在我的代码，我想添加一个条件，例如最后一行select将被保存，如果cell.value列E =“禁用”，然后

'像这样保存WB.SaveAs文件名：=“C：\新文件夹”和文件名，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