Question

Sub Macro1()
‘Remove all except validated
ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:<>"Validated"

Activesheet.Range("$A$2:$O$99999").SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete

ActiveSheet.ShowAllData
 End sub

如何在VBA中替换“不等于”？ <>不起作用。

Answer 1

如果您希望过滤条件排除“已验证”，请尝试更改此行：

const updateActiveOrders = async (strategy, increment) => {
      try {
       const s = await model.findOne({_id: strategy._id})
        if (!s) throw new Error('Strategy not found.')
        s.activeOrders = increment ? s.activeOrders+1 :s.activeOrders-1
        s.lastDateOrder = new Date()
        return await s.save()
      }catch(e){
        throw e
      }
    }

module.exports = {updateActiveOrders}

到

ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:<>"Validated"

请注意，ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:="<>Validated"中的=与您的过滤条件没有任何关系。（它与VBA以及您如何为命名参数提供参数有关。）

VBA自动筛选器不等于

1 个答案: